怎么才能登录后跳转到当前页
就是在那一页登录就跳转到那一页？<% Option Explicit %>
<!--#Include File="odbc_connection.asp"-->
<%
Dim strSql,rs
strSql="Select strUserId,strEmail From tbUsers Where strUserId='" & Request.Form("txtUserId") & "' And strPwd='" & Request.Form("txtPwd") & "'"
Set rs=conn.Execute(strSql)
If Not rs.Eof And Not rs.Bof Then
'如果有记录，表示有该用户，则将用户名和Email保存到Session中
Session("strUserId")=rs("strUserId")
Session("strEmail")=rs("strEmail")
Response.Redirect "index.asp" '重定向到首页
Else
Response.Write "对不起，用户名或密码有误，请<a href='index.asp'>返回首页</a>重新登录"
End If
%>


------解决方案--------------------
Response.Write("<SCRIPT language=JavaScript>alert('提示：登录成功！');this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>")