Se eksempel på:
http://drean.mine.nu/testcenter/experten.dk/gb.asp(denne server er ikke altid oppe :-)
Her er så den første fil som hedder gb.asp:
------------gb.asp start-----------------
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<%
response.Buffer = TRUE
response.expires = 0
mode = REquest.Querystring(\"mode\")
%>
<html>
<head>
<title>Drean.dk - Gæstebog</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
</head>
<%
\'Made by:
\'René Steenfeldt
\'
http://www.drean.dk\'drean@drean.dk
\'finder filen som indeholder data
strDataFile = Server.MapPath(\"/testcenter/experten.dk\") & \"\\gbdata.xml\"
\'Opretter forbindelse til XML Objectet
Set objXML = Server.CreateObject(\"Microsoft.XMLDOM\")
\'Henter filen ind i objectet
objXML.load(strDataFile)
\'Henter beskeder ind i et object
Set objBeskeder = objXML.documentElement.selectSingleNode(\"beskeder\")
%>
<DIV ID=layerIE STYLE=\"POSITION: absolute; VISIBILITY: hidden\"></DIV><LAYER VISIBILITY=\"hide\" NAME=\"layerNC\"></LAYER>
<span style=\"font-size:10pt; font-family:verdana;\">
<b>Gæstebog:</b><br>
<% if mode <> \"write\" then %>
<div align=\"center\"><b><a href=\'gb.asp?mode=write\' class=\'link\'>Skriv en hilsen i gæstebogen</a></b></div><BR><BR>
<%
end if
if mode = \"write\" then%>
<div align=\"center\"><b><a href=\'gb.asp\' class=\'link\'>Læs i gæstebogen</a></b></div><BR><BR>
<%
end if
if mode = \"\" then
\'Henter de under containere ind som er i beskeder
Set objBeskedNavn = objBeskeder.getElementsByTagName(\"navn\")
Set objBeskedDato = objBeskeder.getElementsByTagName(\"dato\")
Set objBeskedEmail = objBeskeder.getElementsByTagName(\"email\")
Set objBeskedHilsen = objBeskeder.getElementsByTagName(\"hilsen\")
\'Laver en for-løkke som udskriver de beskeder til et array
For i=0 To objBeskedNavn.length -1
strhilsen = Server.HTMLencode(objBeskedhilsen.item(i).text)
strhilsen = Replace(strHilsen, \"<br>\", \"<br>\")
With Response
.Write(\"<div align=\'center\'><table cellspacing=\'0\' cellpadding=\'0\' width=\'500\' style=\'font-family:verdana;font-size:10 pt; border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)\'>\")
.Write(\"<tr><td style=\'background-color:#808080; border-bottom: 1px solid rgb(0,0,0);\'><a href=\'mailto:\" & Server.HTMLencode(objBeskedEmail.item(i).text) & \"\' class=\'a\'>\" & Server.HTMLencode(objBeskedNavn.item(i).text) & \"</a>\")
.Write(\" <font face=Verdana size=1>(d.\" & Server.HTMLencode(objBeskedDato.item(i).text) & \")</font></td></tr>\")
.Write(\"<tr><td valign=\'top\'>\" & strHilsen & \"</td></tr>\")
.Write(\"</table></div><br>\")
.Write(\"<a href=\'gb.asp?mode=slet&id=\" & i & \"\' class=\'link\'>Slet besked</a>\")
end With
Next
end if
if mode = \"write\" then
%>
<div align=\"center\">
<form action=\"gb.asp?mode=append\" method=\"post\">
<table>
<tr>
<td><span style=\'font-size:10pt; font-family:verdana;\'>Navn:</span></td>
<td><input type=\"text\" name=\"navn\" class=\"input\"></td>
</tr>
<tr>
<td><span style=\'font-size:10pt; font-family:verdana;\'>Email:</span></td>
<td><input type=\"text\" name=\"email\" class=\"input\"></td>
</tr>
<tr>
<td><span style=\'font-size:10pt; font-family:verdana;\'>URL:</span></td>
<td><input type=\"text\" name=\"URL\" value=\"
http://\" class=\"input\"></td>
</tr>
<tr>
<td valign=\"top\"><span style=\'font-size:10pt; font-family:verdana;\'>Hilsen:</span></td>
<td><textarea name=\"hilsen\" cols=\"40\" rows=\"10\" class=\"input\"></textarea></td>
</tr>
<tr>
<td colspan=\"2\" align=\"center\">
<input type=\"submit\" value=\"gem hilsen\" class=\"button\">
</td>
</tr>
</table>
<BR>
<BR>
<B>Bemærk:</B> Der kan ikke bruges HTML-tags i gæstebogen.
</div>
</form>
<%
end if
if mode = \"append\" then
\'Gemmer det som skal sættes ind i XML filen i en streng
strHilsen = REplace(Request.form(\"hilsen\"), chr(13), \"<br>\")
strHilsen = Server.HTMLencode(strHilsen)
strNyBesked = \"<besked>\" & Chr(13) & Chr(10) & Chr(9) &_
\"<navn>\" & Server.HTMLencode(Request.form(\"navn\")) & \"</navn>\" & Chr(13) & Chr(10) & Chr(9) & _
\"<dato>\" & Server.HTMLencode(Date()) & \"</dato>\" & Chr(13) & Chr(10) & Chr(9) & _
\"<email>\" & Server.HTMLencode(Request.form(\"email\")) & \"</email>\" & Chr(13) & Chr(10) & Chr(9) & _
\"<hilsen>\" & strHilsen & \"</hilsen>\" & Chr(13) & _
Chr(10) & \"</besked>\"
Set objXML2 = Server.CreateObject(\"Microsoft.XMLDOM\")
objXML2.loadXML(strNybesked)
Set objNybesked = objXML2.documentElement
objBeskeder.insertBefore objNyBesked, objBeskeder.childNodes(0)
objXML.save(strDataFile)
Response.Redirect(\"gb.asp\")
end if
if mode = \"slet\" then
objBeskeder.removeChild(objBeskeder.childNodes.item(Request.Querystring(\"id\")))
objXML.save(strDataFile)
Response.Redirect(\"gb.asp\")
end if
%>
</body>
</html>
------------gb.asp stop------------------
Og så XML filen...der skal nok lige ændres i strDataFil så den bliver \"mappet\" ordentligt :)
------------gbdata.xml start-----------------
<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>
<guestbook>
<beskeder>
<besked>
<navn>Drean</navn>
<dato>01-01-2001</dato>
<email>drean@drean.dk</email>
<hilsen>Hej med dig...<br>
Håber det går godt.<br>
Fed side, skal jeg nok anbefale til alle mine venner ;-></hilsen>
</besked>
</beskeder>
</guestbook>
------------gbdata.xml stop------------------
Ny bruger
Nybegynder
Opret
Preview
