永发信息网

登陆后自动返回上一页的代码

答案:1  悬赏:10  手机版
解决时间 2021-04-12 10:37

下面是登陆页面的代码,代码中设置的是登陆后自动返回首页,我想改成登陆后自动返回上一页代码,怎么改? 我的QQ 289985989

<%IF Request.QueryString("action")="logout" Then
Response.Cookies(CookieName)("memName")=""
Response.Cookies(CookieName)("memPassword")=""
Response.Cookies(CookieName)("memStatus")=""
Response.Cookies(CookieName)("memFace")=""%>
<table width="<%=BlogWidth%>" border="0" align="center" cellpadding="0" cellspacing="4" bgcolor="#FFFFFF">
<tr>
<td><div class="msg_head">退出成功</div>
<div class="msg_content"><br />自动返回首页<meta http-equiv="Refresh" content="1;url=default.asp" /><br />如果浏览器没有响应,请<a href='default.asp'>点击这里</a>返回主页<br /><br /></div>
</td>
</tr>
</table>

<%ElseIF Request.QueryString("action")="login" Then
Dim Login_Title,Login_Message
IF Request.Form("UserName")=Empty OR Request.Form("Password")=Empty Then
Login_Title="错误信息"
Login_Message="请将信息输入完整<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
Else
Dim memLogin
Set memLogin=Server.CreateObject("ADODB.Recordset")
SQL="SELECt mem_Name,mem_Password,mem_Status,mem_Face,mem_LastIP FROM blog_member WHERe mem_Name='"&CheckStr(Request.Form("Username"))&"' AND mem_Password='"&md5(CheckStr(Request.Form("Password")))&"'"
memLogin.Open SQL,Conn,1,3
SQLQueryNums=SQLQueryNums+1
IF memLogin.EOF AND memLogin.BOF Then
Login_Title="<FONT PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FILTER: glow(color=#FF0000,strength=5); PADDING-BOTTOM: 1px; COLOR: #ffffff; PADDING-TOP: 1px; HEIGHT: 10px"">错误信息</FONT>"
Login_Message="用户名与密码错误<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
ElseIf Trim(Session("Spring Pig Blog"))<>Trim(Request.Form("validatecode")) Then
Login_Title="<font color=""#FFFFFF"">错误信息</FONT>"
Login_Message="验证码输入错误!<br><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
Else
Response.Cookies(CookieName)("memName")=memLogin("mem_Name")
Response.Cookies(CookieName)("memPassword")=memLogin("mem_Password")
Response.Cookies(CookieName)("memStatus")=memLogin("mem_Status")
Response.Cookies(CookieName)("memFace")=memLogin("mem_Face")
Select Case Request.Form("CookieTime")
Case 1
Response.Cookies(CookieName).Expires=Date+1
Case 2
Response.Cookies(CookieName).Expires=Date+7
Case 3
Response.Cookies(CookieName).Expires=Date+31
Case 4
Response.Cookies(CookieName).Expires=Date+365
End Select
memLogin("mem_LastIP")=Guest_IP
memLogin.Update
Login_Title="登陆成功"
Login_Message="自动返回首页<meta http-equiv=refresh content=1;url=default.asp><br>如果浏览器没有响应,请<a href='default.asp'>点击这里</a>返回主页"
End IF
memLogin.Close
Set memLogin=Nothing
End IF%>
<table width="<%=BlogWidth%>" border="0" align="center" cellpadding="0" cellspacing="4" bgcolor="#FFFFFF">
<tr>
<td><div class="msg_head"><%=Login_Title%></div>
<div class="msg_content"><br /><%=Login_Message%><br /><br /></div>
</td>
</tr>
</table>
<%Else%>
<table width="<%=BlogWidth%>" border="1" align="center" cellpadding="6" cellspacing="0" bgcolor="#FFFFFF" bordercolor="#E7E7E7" class="wordbreak">
<tr><td>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" class="comment_post_main">
<form action="logging.asp?action=login" method="post" name="Login" id="Login">
<tr><td height="24" colspan="2" align="center" class="msg_head">用户登陆</td></tr>
<tr><td align="right" bgcolor="#FFFFFF">用户:</td>
<td bgcolor="#FFFFFF"><input name="username" type="text" id="username" size="16" maxlength="16" /></td></tr>
<tr><td align="right" bgcolor="#FFFFFF">密码:</td>
<td bgcolor="#FFFFFF"><input name="password" type="password" id="password" size="16" maxlength="16" /></td></tr>
<tr><td align="right" bgcolor="#FFFFFF">验证码:</td>
<td bgcolor="#FFFFFF"><img src="code.asp" align="absmiddle" border="0" title="点击刷新验证码" onClick="this.src='code.asp'" /> <input name="validatecode" type="text" id="validatecode" size="5">&nbsp;<b><font color="#FF0000">*</font></b> 如果看不清验证码,请点击验证码刷新</td>
<tr><td align="right" bgcolor="#FFFFFF"> Cookie选项:<br /></td>
<td bgcolor="#FFFFFF"><input type="radio" name="CookieTime" value="0" checked="checked" />不保存 <input type="radio" name="CookieTime" value="1" />保存一天 <input type="radio" name="CookieTime" value="2" />保存七天 <input type="radio" name="CookieTime" value="3" />保存一月 <input type="radio" name="CookieTime" value="4" />保存一年</td></tr>
<tr><td colspan="2" align="center" bgcolor="#FFFFFF"><input name="Login" type="submit" id="agree" value=" 登 陆 " />&nbsp;<input name="Register" type="button" id="Register" onClick="javascript:document.location.href='register.asp';" value=" 注 册 " />
</td></tr></form></table></td></tr></table>
<%End IF%>

最佳答案

在你代码第一行加入:


dim referer


referer = request.serverVariables("HTTP_REFERER")


在你登录表单内添加:


<input type="hidden" name="referer" id="referer" value="<%=referer%>" />


在处理表单数据的地主加:


referer = trim(request.Form("referer"))


最后这个通过表单得到的referer的值就是之前那个页面的地址

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
形容婚姻不幸的诗句,婚姻伤心女人句子
姓名“姚建”怎么作诗?
圆通没到收信人手里、会退到寄信人手里吗
青春期的悸动是什么意思
求男扮女类型漫画
手机上网没包月,1M多少钱
单选题We can't buy anything&nbs
百味药膳鸡熟食店怎么去啊,有知道地址的么
赞美警察牺牲的句子,表达警察辛苦的句子
林业是不是不行了?为什么不发工资呢?金融危
干啥能挣钱?
狠命的近义词是
被喜欢的人拒绝了怎么办
单选题基因组文库和cDNA文库区别相比,基因组
非主流又叫什么名字
推荐资讯
the first landing on the Moon [外语]
如何快速打开注册表,如何打开注册表regedit
北和路/G322(路口)这个地址在什么地方,我要
3年的无线网卡是不是有限制期限?
>哪些药物宜在睡前吃?
摄影化妆属于什么专业的?
请问高中历史选修部分那一本比较重要?
你好!我的迅雷会员怎么无法点击加速按钮,一
帮我解梦…昨晚梦到被两个疯子追着跑还被吓醒
计算x的平方+x+1+1-x分之x立方
顺丰汽车服务部地址有知道的么?有点事想过去
中药磨汁是什么意思
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?