En prydlig gästbok. Del 2 av 2
Förord
Äntligen tänkte jag att vi skulle börja med administrationssidan. Det jag tänkte att man skulle kunna göra på den är endast att radera meddelanden. Mer behöver man ju inte göra. Du kommer kanske ihåg att vi när man läser i gästboken skriver ut meddelandets ID? Här kommer det till användning. Du kommer nämligen i ett formulär att få fylla i det ID som du vill radera.Innehåll
»»
»
Relaterade artiklar
» En prydlig gästbok. Del 1 av 2
Inloggning
Nu ska vi börja med inloggningen. Denna inloggning har jag gjort med hjälp av Då ska vi i databasen lägga till en tabell till som vi döper till admin. Där placerar vi följande fält:
Username - Text
Password - Text
%
set con = server.createObject("ADODB.Connection")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databases/database.mdb")
con.open conStr
%>
<%
action = Lcase(Request("action"))
Select Case Action
Case "login"
strUser = Request("username")
strPass = Request("password")
sql = "select * from admin where " & _
"username = '" & strUser & "' and " & _
"password = '" & strPass & "' "
set rst = con.execute(sql)
If Not (Rst.Eof or Rst.BOF) Then
LoginFlag = True
Else
LoginFlag = False
End If
End Select
Set rst = Nothing
Set con = Nothing
%>
<%
If action = "login" And LoginFlag = True Then
Session("login") = "true"
Response.Redirect "guestbook.asp"
Else
Session("login") = "false"
End If
%>
Administration
Om du är administrator på siten så kan du logga in här.
Denna sida döper du till index.asp och placerar i mappen admin.
Radera meddelanden
Nu kommer vi till guestbook.asp. Här skapar vi bl.a ett formulär.
Gästboken
Här redigeras gästboken.
Radera gästboksinlägg
<% If Request.Querystring("page") = "delete" Then %>
<%
Dim SQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databases/database.mdb")
'Öppnar databasen
SQL = "Delete * From guestbook Where ID = "& Request.Form("gb-delete")
'Raderar meddelandet
Conn.Execute(SQL)
Else
Response.Write " "
End If
%>
Då var det slut
Då var denna artikel slut. Den var absolut inte lika bra som föregående, men det spelar väl ingen roll. Nu är din gästbok klar att användas. Lycka till och hoppas att det går bra.Skicka ett iMail till mig om du har några frågor!
Du hämtar gästboken
0 Kommentarer