her er login scripet.
<html>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
if request("mode") = "" then
if request("err") = 1 then
response.write "Fejl i login, prøv igen.<br><br>"
end if
%>
<form method="POST" action="?mode=check">
<font face="Verdana" size="4"> </font>
<p>
<input type="text" name="bruger" size="12" style="background-color: #25618F; font-family: Verdana; font-size: 8 pt; color: #FFFFFF; border: 1 solid #2997EC" value="Bruger">
<br>
<input type="password" name="pass" size="12" style="background-color: #25618F; font-family: Verdana; font-size: 8 pt; color: #FFFFFF; border: 1 solid #2997EC" value="Password"><br>
<input type="submit" value="Login" style="background-color: #25618F; font-size: 8 pt; font-family: Verdana; color: #FFFFFF; border: 1 solid #2997EC"></p>
</form>
<%
elseif request("mode") = "check" then
bruger = request.form("bruger")
pass = request.form("pass")
SQL = "select * from links where bruger='" & bruger & "' and pass='" & pass & "'"
set check = conn.Execute(SQL)
if check.bof or check.eof then
response.redirect "index.asp?err=1"
else
session("id") = check("id")
response.redirect "opdater.asp"
end if
end if
%>
<p><a href="tilmeldside.asp"><font face="Verdana" size="1" color="ffffff">Tilmeld
hjemmeside</font></a></p>
</body>
og der er efter man har søgt, og er kommet hen til dette script, at man ikke kan logge ind igen.
<%
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect("searchscript.asp")
Else
strKeyword = Replace(strKeyword,"'","''")
End If
strSQL = "SELECT ID, LinkName, Beskrivelse, LinkURL, ID, sogeord, min FROM links WHERE"
strSQL = strSQL & " (LinkName LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (sogeord LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (beskrivelse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (linkurl LIKE '%" & strKeyword & "%')"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
%>
<%
Response.Write "<left>"
Response.Write "<table border=""0"" cellspacing=""0"" width=""80%"" cellpadding=""3"" >"
Do While Not rs.EOF
Response.Write "<tr><td width=100% ><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" >" & rs("min") & "<a href=redirect.asp?id="& rs("ID")&" TARGET=_blank>"& rs("LinkName") &"</A> - " & rs("Beskrivelse")&"<BR></FONT><FONT FACE=""Verdana, Times New Roman"" SIZE=""1"" ></FONT> <FONT face=""Verdana, Times New Roman"" Size=""1"" >" & "</font><BR><font face=""Verdana, Times New Roman"" Size=""1"" >Adresse : </font><font face=""Verdana, Times New Roman"" Size=""1"" >" & rs("LinkURL") &" - <a href=redirect.asp?id="& rs("ID")&" TARGET=_blank></a><BR><HR></td></tr>"
rs.MoveNext
Loop
Response.Write "</FONT></table>"
Else
Response.Write "<p><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" >blase fandt ikke noget til dig!"
Response.Write "</FONT>"
End If
myConn.Close
Set myConn = Nothing
%>
Ny bruger
Nybegynder
Opret
Preview
