解决的思路
判断用户是否登录,如果未登录,则求取本页面的路径,之后转向登录页面并将所取得的路径做为一个参数传递给登录页面,在用户登录成功之后,取得此参数,进行转向.
'检测使用人员的登录信息,如果未登录则转至登录页面并记录非法使用记录
'其中,page_url第一个变量是表示此网站的ip,第二个变量表示此页面地址(\skaqjc\...),第三个表示页面后面附加的参数?
sub check_session()
if session("usr_id")="" then
page_url=server.URLEncode("http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("url")&"?"&request.ServerVariables("QUERY_STRING"))
response.redirect(system_path&"/login.asp?page_url="&page_url&"")
end if
end sub
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL") & "?product=CMS&"
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & Trim(Request.QueryString) & "&"
GetUrl = strTemp
End Function