Har Brug for hjælp med login system
Hej eksperter har lige siddet og lavet et login system, På en microsoft access database.men det virker ikke, som det skal.
Når jeg prøver med et brugernavn og password,som ikke findes skal der komme en fejl meddelse.
om forkert brugernavn/password, men den loader blot login.asp igen.
hvis jeg bruger et brugernavn/password fra databasen, loader den bare igen login.asp hvor den skal redirecte til default.asp .
Håber i kan Hjælpe mig i kan prøve med test/test på http://www26.brinkster.com/doeboydk/login.asp
Her er mit login script
<%
if Request.form("Action") = "Login" Then
strUID = TRIM(Replace(Request.Form("name"),"'",""))
strPWD = TRIM(Replace(Request.Form("pass"),"'",""))
if Len (strUID) > 0 and len (strPWD) > 0 Then
Set myconn = Server.CreateObject ("ADODB.Connection")
forbindelse = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/forum.mdb")
myconn.Open forbindelse
strSQL = " SELECT * FROM members"&_
" WHERE (name = '" & strUID & "')"&_
" AND (pass = '" & strPWD & "')"
Set rs = myconn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intUID = rs("id")
Else
strErr = "Wrong UserName and/or Password"
end if
myconn.close
set myconn = Nothing
If Len(intUID) Then
session("id") = intUID
response.redirect ("default.asp")
end if
Else
strERR = "You must suply both a Username and a Password To Login"
End if
If Len(strERR) > 0 Then
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
%>
<html><head>
<title>User Login page</title>
</head><body>
<form method="post" action="login.asp">
<p><font size="4">Please suply with username and password</font></p> <%=strErr%>
<table border="0">
<tr>
<td width="50%">Username:</td>
<td width="50%"><input type="text" name="name" size="20"></td>
</tr>
<tr>
<td width="50%">Password:</td>
<td width="50%"><input type="password" name="pass" size="20"></td>
</tr>
</table>
<p><input type="Submit" value="login" name="action"></p>
</form>
</body></html>
