下面是登陆页面的代码,代码中设置的是登陆后自动返回首页,我想改成登陆后自动返回上一页代码,怎么改? 我的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"> <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=" 登 陆 " /> <input name="Register" type="button" id="Register" onClick="javascript:document.location.href='register.asp';" value=" 注 册 " />
</td></tr></form></table></td></tr></table>
<%End IF%>