如何登陆后回到原来访问的页面

[Coverboy_6]

原来没有登陆就浏览网站内容了，如何登陆后回到原来访问的页面？我该怎么操作。

[chenguang79]

response.redirect request.servervariables("HTTP_REFERER")

[woaxx]

你可以用ajax，登录只改变页面中部分内容，像http://alumni.chinaren.com/,也可以在登录页面的url后面记录前一个页面的网址，登录完了就跳转过去，像http://passport.csdn.net/member/UserLogin.aspx?from=http://community.csdn.net/

[Coverboy_6]

response.write "<script LANGUAGE='javascript'>alert('登陆成功');history.go(-1);</script>"

history.go(-1)的位置我该怎么写？这个页面和填写登陆内容的页面是两个页面。

[banner91]

在登陆页面加入login.asp?comurl=index.asp

LOGIN.ASP登陆完成后转到request("COMURL")页面

或者写COOKIES又可以

[banner91]

response.write "<script LANGUAGE='javascript'>alert('登陆成功');window.location='<%=request("comurl")';</script>"

[wangwm]

给你一段代码：
登录之前加上这段代码：
If CStr(Session("UserName")) = "" Then '用户登录名
Session("Refer") = Request.ServerVariables("PATH_INFO")
If Request.ServerVariables("QUERY_STRING") <> "" then
Session("Refer") = Session("Refer") & "?" & Request.ServerVariables("QUERY_STRING")
End If
Response.Redirect("UserLogin.asp")
Response.End
End If


jymass.com

[wangwm]

登录成功后转向Session("Refer")
如：
response.write "<script LANGUAGE='javascript'>alert('登陆成功');window.location='<%=Session("Refer")';</script>"

[BoyHaXin]

在前一个页面获得函数
<%
'strHttp=Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("Path_Info")
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")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
strHttp=GetUrl
%>
的值strHttp,之后再传到下一页,返回时就是直接返回到上一个地址,无论是否有参数,呵呵,这是摘的别个的,说穿了也就是获取地址栏的地址,这个是全部哦,参数也进去了

[xie_yanke]

没那么麻烦,提交时,把本页地址一并提交到登录处理页面即可.返回时,就返回提交过来的网页地址.