forum [
Besvar ]
Av: CecilieJeg har tenkt å ha et diskusjonsforum på websiden min. Jeg bruker tre filer som danner forumet: forum4.asp, form.asp og lagre.asp.
Disse sidene er koblet til en Access-database som ser slik ut: forum.mdb tblForum id navn epost innlegg dato
Når jeg skal teste dette på ASP serveren starter jeg med form.asp skriver inn innlegget og trykker på send inn. Browseren går inn på siden lagre.asp, samtidig som det står siden kan ikke vises, i browseren.
Hva kan denne feilen skyldes? Jeg har limt inn koden til sidene nedenfor.
Cecilie
Her er sidene:
form.asp
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>SKOLESIDE</title>
<link href="skolestil.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<table class="main">
<tr>
<td class="center">
<table class="link">
<tr>
<td class="menu"><a class="menu" href="linker.asp"><img src="link1.gif" border="0"/></a>
<a href="minside.asp"><img src="min1.gif" border="0"/></a>
<a href="klasseside.asp"><img src="klass1.gif" border="0"/></a>
<a href="forum3.asp"><img src="disk1.gif" border="0"/></a>
</td>
</tr>
<tr>
<td class="menu">
<img src="info2.gif" border="0"/>
<a href="timeplan.asp"><img src="time1.gif" border="0" /></a>
<a href="arbeidsplan.asp"><img src="arb1.gif" border="0"/></a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="center">
<form name="frmForum" action="lagre.asp" method="post">
<fieldset>
<legend>Diskusjonsforum</legend>
<table class="form" width ="490" border="0" valign="top" align="left">
<tr valign="top" align="left">
<td class="form" width="90">Navn:</td>
<td class="form" width="400"><input type="text" name="txtNavn"></td>
</tr>
<tr valign="top" align="left">
<td class="form" width="90">Innlegg:</td>
<td class="form" width="400"><textarea name="txtInnlegg" cols="40" rows="5"></textarea></td>
</tr>
<tr valign="top" align="left">
<td class="form" width="90"></td>
<td class="form" width="400"><input type="submit" value="Legg inn..."></td>
</tr>
</table>
</fieldset>
</form>
</td>
</tr>
</html>
</body>
</html>
lagre.asp
<%
dim cnForum
navn=Request.Form("txtNavn")
innlegg=Request.Form("txtInnlegg")
Hacking sikkerhet:
navn=server.HTMLEncode(navn)
navn=replace(navn,"","")
innlegg=server.HTMLEncode(innlegg)
innlegg=replace(innlegg,"","")
SQL = "Insert into tblForum (navn,innlegg) VALUES (" & navn & "," & innlegg & ")"
ConnString = "provider=Microsoft.Jet.OLEDB.4.0;data source="& Server.MapPath("forum.mdb") & ";"
set cnForum = server.CreateObject("ADODB.Connection")
cnForum.Open ConnString
cnForum.Execute SQL
cnForum.Close
set cnForum = nothing
Response.Redirect("forum4.asp)
%>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>SKOLESIDE</title>
<link href="skolestil.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<table class="main">
<tr>
<td class="center">
<table class="link">
<tr>
<td class="menu"><a class="menu" href="linker.asp"><img src="link1.gif" border="0"/></a>
<a href="minside.asp"><img src="min1.gif" border="0"/></a>
<a href="klasseside.asp"><img src="klass1.gif" border="0"/></a>
<a href="forum3.asp"><img src="disk1.gif" border="0"/></a>
</td>
</tr>
<tr>
<td class="menu">
<img src="info2.gif" border="0"/>
<a href="timeplan.asp"><img src="time1.gif" border="0" /></a>
<a href="arbeidsplan.asp"><img src="arb1.gif" border="0"/></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
forum4.asp
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>SKOLESIDE</title>
<link href="skolestil.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<table class="main">
<tr>
<td class="center">
<table class="link">
<tr>
<td class="menu"><a class="menu" href="linker.asp"><img src="link1.gif" border="0"/></a>
<a href="minside.asp"><img src="min1.gif" border="0"/></a>
<a href="klasseside.asp"><img src="klass1.gif" border="0"/></a>
<a href="forum3.asp"><img src="disk1.gif" border="0"/></a>
</td>
</tr>
<tr>
<td class="menu">
<img src="info2.gif" border="0"/>
<a href="timeplan.asp"><img src="time1.gif" border="0" /></a>
<a href="arbeidsplan.asp"><img src="arb1.gif" border="0"/></a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="center">
<%
dim rsForum
ConnString = "provider=Microsoft.Jet.OLEDB.4.0;data source="& Server.MapPath("forum.mdb") & ";"
SQL = "Select navn, innlegg, dato from tblForum ORDER BY id desc"
set rsForum = server.CreateObject("ADODB.Recordset")
rsForum.Open SQL,ConnString
DO WHILE NOT rsForum.EOF
navn = rsForum.Fields("navn")
innlegg = rsForum.Fields("innlegg")
dato = rsForum.Fields("dato")
Response.Write("<i>" & innlegg & "</i><br>")
Response.Write("Skrevet av: " & navn & "<br>")
Response.Write("Postet: " & dato)
Response.Write("<hr>")
rsForum.MoveNext
LOOP
rsForum.Close
set rsForum = nothing
%>
</td>
</tr>
</table>
</body>
</html>
