jag har läst redme filen, men förtår tyvärr inte mer för det. Jag har lagt db-filen i db-mappen på mitt webbhotel och resten av filerna i www-mappen. Och när jag länkar till demoguestbook.asp så händer det inget när jag klickar på länken, "Sidan kan inte visas står det.
Bara undrar, hur många funktioner har inte denna gästboken då?
Du kanske kan ta en titt på idg.se, där har dom en gästbok under sina lektioner, inte så avancerad, men den funkar.
jag har bestämt mig för att försöka bygga upp en egen gästbok med hjälp av idg's kurs. Nu har jag fortfarande problem med att vissa sidan (default.asp). Någon som kan hjälpa mig??
<% Response.Buffer = True %>
<!-- #include virtual="../www/applicationer/adovbs.inc" -->
<html>
<title>Gästbok</title>
<font face="verdana" size="4"><b>Gästboken</b></font>
<hr noshade color="#000000">
<font face="verdana" size="2">
<% '===================================================================================================================== %>
<% ' Välkomstkod %>
<% '===================================================================================================================== %>
<% If Request.QueryString("what") = "" Then %>
Vad vill du göra?<p>
<ul>
<li><a href="default.asp?what=skriv">Skriva i gästboken?</a>
<li><a href="default.asp?what=tidigare&open=yes">Se tidigare inlägg i gästboken?</a>
</ul>
<% End If %>
<% '===================================================================================================================== %>
<% 'Öppnar databasen %>
<% '===================================================================================================================== %>
<% If Request.QueryString("open") = "yes" Then %>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("..db/databas.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% End If %>
<% '===================================================================================================================== %>
<% ' Formulärskod för att göra inlägg %>
<% '===================================================================================================================== %>
<% If Request.QueryString("what") = "skriv" Then %>
<form method="POST" action="default.asp?open=yes&add=yes">
Skriv ett inlägg!<br>
<textarea cols="30" rows="10" name="Text"></textarea><p>
Du som skriver inlägget heter:<br>
<input type="text" size="30" name="Av"><p>
<input type="submit" value="Lägg till ditt inlägg">
</form>
<% End If %>
<% '===================================================================================================================== %>
<% ' Formulärskod för att skapa inlägg %>
<% '===================================================================================================================== %>
<% If Request.QueryString("add") = "yes" Then %>
<% Addera = "SELECT * FROM gaster"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("text") = Request.Form("Text")
RecSet("av") = Request.Form("Av")
RecSet.Update
RecSet.Close
Response.Redirect "default.asp" %>
<% End If %>
<% '===================================================================================================================== %>
<% ' Kod för att visa inlägg %>
<% '===================================================================================================================== %>
<% If Request.QueryString("what") = "tidigare" Then %>
<b>Listar de hundra senaste inläggen (ifall det finns så många)</b><p>
<% Texter = "SELECT * FROM gaster ORDER BY ID"
RecSet.Open Texter, Connect, adOpenStatic, adLockOptimistic
Do While Z < 100
If RecSet.EOF Then
Exit Do
End If %>
<% =RecSet("text") %><br>
<% =RecSet("av") %><br>
<hr noshade size="1" color="black">
<% RecSet.MoveNext
Z = Z + 1
Loop %>
Tillbaka till <a href="default.asp">framsidan</a>.<br>
Skriv ett <a href="default.asp?what=skriv">nytt</a> inlägg.
<% End If %>
<% '===================================================================================================================== %>
</html>
Min hemsida består av frames, och när jag länkar till default.asp så visas som sagt inte sidan när jag klickar på länken. något felmedelande får jag inte.
Rensade lite i din kod... dock är den inte helt ok, tex stänger du aldrig din databas. I mina ögon har du tokmånga contextswitchar, iofs en smaksak.
<% Response.Buffer = True %>
<html>
<title>Gästbok</title>
<font face="verdana" size="4"><b>Gästboken</b></font>
<hr noshade color="#000000">
<font face="verdana" size="2">
<%
'===========================================================
' Välkomstkod
'===========================================================
If Request.QueryString("what") = "" Then %>
Vad vill du göra?<p>
<ul>
<li><a href="default.asp?what=skriv">Skriva i gästboken?</a>
<li><a href="default.asp?what=tidigare&open=yes">Se tidigare inlägg i gästboken?</a>
</ul>
<%
End If
'===========================================================
'Öppnar databasen
'===========================================================
If Request.QueryString("open") = "yes" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("..db/databas.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
End If
'===========================================================
' Formulärskod för att göra inlägg
'===========================================================
If Request.QueryString("what") = "skriv" Then %>
<form method="POST" action="default.asp?open=yes&add=yes">
Skriv ett inlägg!<br>
<textarea cols="30" rows="10" name="Text"></textarea><p>
Du som skriver inlägget heter:<br>
<input type="text" size="30" name="Av"><p>
<input type="submit" value="Lägg till ditt inlägg">
</form>
<%
End If
'===========================================================
' Formulärskod för att skapa inlägg
'===========================================================
If Request.QueryString("add") = "yes" Then
Addera = "SELECT * FROM gaster"
RecSet.Open Addera, Connect, 3, 3
RecSet.AddNew
RecSet("text") = Request.Form("Text")
RecSet("av") = Request.Form("Av")
RecSet.Update
RecSet.Close
Response.Redirect "default.asp"
End If
'===========================================================
' Kod för att visa inlägg
'===========================================================
If Request.QueryString("what") = "tidigare" Then %>
<b>Listar de hundra senaste inläggen (ifall det finns så många)</b><p>
<%
Texter = "SELECT * FROM gaster ORDER BY ID"
RecSet.Open Texter, Connect, 3, 3
Do While Z < 100
If RecSet.EOF Then Exit Do
'End If
response.write RecSet("text") & "<br>"
response.write RecSet("av") & "<br>"
%>
<hr noshade size="1" color="black">
<% RecSet.MoveNext
Z = Z + 1
Loop
%>
Tillbaka till <a href="default.asp">framsidan</a>.<br>
Skriv ett <a href="default.asp?what=skriv">nytt</a> inlägg.
<%
End If
'===========================================================
%>
</html>
141 ms totalt · 3 externa anrop · v20260731065814-full.25f56b17
