Testar med följande:
[b]header.asp[/b]
23. if session("user_id") = empty then
24. response.write "<a href='login.asp'>Login</a>"
25. else
26. response.write "<a href='logout.asp'>Logout</a>"
27. end if
[b]login.asp[/b]
if session("user_id") = empty then
response.write "<center>"
if session("error_msg") <> empty then
response.write session("error_msg")
end if
response.write "<table border='0' cellspacing='0' cellpadding='3'>"
response.write "<form method='post' action='login_validate.asp'>"
response.write "<tr>"
response.write "<td>Username</td>"
response.write "<td><input type='text' name='f_username'></td>"
response.write "</tr><tr>"
response.write "<td>Password</td>"
response.write "<td><input type='password' name='f_password'></td>"
response.write "</tr><tr>"
response.write "<td colspan='2'><input type='submit' value='login'></td>"
response.write "</tr>"
response.write "</form>"
response.write "</table>"
response.write "</center>"
end if
[b]login_validate.asp[/b]
dim objRS
dim str_username, str_password
dim str_admin, int_userid, int_user
str_username = request.form("f_username")
str_password = request.form("f_password")
set objRS = objConn.execute( " select * " _
& " from t_soldiers " _
& " where soldier_login = '" & str_username & "' " _
& " and soldier_password = '" & str_password & "' " )
if not objRS.eof then
str_admin = objRS("soldier_admin")
int_userid = objRS("soldier_id")
int_user = objRS("soldier_nick")
session("admin") = str_admin
session("user_id") = int_userid
session("user") = int_user
session("error_msg") = "You logged in as " & session("user")
server.transfer "/login.asp"
else
session("error_msg") = "Wrong username or password!!"
server.transfer "/login.asp"
end if
och får följande felmess när jag ska logga ut:
Körningsfel i Microsoft VBScript fel '800a005b'
Objektvariabel har inte angetts.
/header.asp, line 23