登陆成功怎么返回原页面<已解决>
我的登陆页面和检验页面是分开的。例如 登陆页面login.asp 输入数据传给 检验页面check.asp 由check.asp来判断是否能登陆！
因为用户可以在任何一个界面登陆，要求登录成功以后返回原先的页面
check.asp的代码如下:
<%
'去除表单数据中的空格
UserName = Trim (Request.Form("name"))
UserPass = Trim (Request.Form("passwd"))
'用户名、密码、验证码都必须填写
If (UserName="" Or UserPass="" ) Then
Response.Redirect "landing.asp?ErrMsg=请完整填写登陆表格"
Response.End()
End If
'检验验证码的输入是否正确
' If (SafeCode <> Session("SafeCode")) Then
' Response.Redirect "login.asp?ErrMsg=请输入正确的验证码"
' Response.End()
' End If
Dim objConn, strSQL, objRS
'建立与数据库的连接
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString ="provider=sqloledb;data source=***;uid=sa;pwd=****;database=***"
objConn.Open
'检索数据库中是否存在相关记录
strSQL = "Select * From MEMBER Where NAME='" & UserName & "'"
strSQL = strSQL & " And PASSWORD = '" & UserPass & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 1, 3, 1
'检索结果为空，表明用户名或者密码错误
If objRS.EOF Then
Response.Redirect "landing.asp?ErrMsg=用户名或密码错误"
Response.End()
Else
'检索记录集不为空，说明用户名和密码输入正确
Session("Id") = CStr(objRS.Fields("ID"))
Session("Name") = UserName
Session("Class") = objRS.Fields("CLASS")
Session("IsPassed")=TRUE
'检查用户的级别
'If objRS.Fields("CLASS") = "1" OR objRS.Fields("CLASS") = "2" Then
'该登陆用户为管理员
'Session("IsAdmin") = TRUE
'Else
'该登陆用户为普通用户
'Session("IsAdmin") = FALSE
'End If
'如果用户选择记住帐号和密码，则将其写入cookies
'If Request.Form("RemMe") = "1" Then
'Response.Cookies("Name") = UserName
'Response.Cookies("Password") = UserPass
'Response.Cookies("RemMe") = "1"
'Response.Cookies("Name").expires = Date + 365
'Response.Cookies("Password").expires = Date + 365
'Response.Cookies("RemMe").expires = Date + 365
'End If
End If
'关闭记录集和数据库连接
' objRS.Close
' Set objRS = Nothing
' objConn.Close
' Set objConn = Nothing
'
'转向系统主页面
Response.Redirect "metropolis.asp" (因为用户可以在任何一个界面登陆，要求登录成功以后返回原先的页面，所以不能像这样写)
Response.End()
%>
[[it] 本帖最后由 awke002 于 2008-9-8 10:18 编辑 [/it]]
