登录后刷新父页面

babyboxgirl 2012-02-05 03:48:38

父页面a.asp
login.asp = 登录页面
父页面里<iframe src="login.asp" scrolling="no" frameborder="0" height="150" width="246"></iframe>

我想login.asp登录后刷新父页面

login.asp的代码如下：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("u"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd

MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "logindy.asp"
MM_redirectLoginFailed = "login_erro.asp"

MM_loginSQL = "SELECT u_name, u_pass"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM dbo.User_biao WHERE u_name = ? AND u_pass = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_conn_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 50, md5(Request.Form("p"))) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute

If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Cookies("UserCookies")("Username")= Session("MM_Username")
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
</style>
</head>

<body>
<div id="login">
<form ACTION="<%=MM_LoginAction%>" id="form1" name="form1" method="POST">
<% If Request.Cookies("UserCookies")("Username")<>"" Then %>
<table><tr><td>登录成功</td></tr></table>
<% Else %>

<table>
<tr>
<td>用户登录</td>
<td><input name="u" type="text" class="srk" id="u" /></td>
<td><input name="p" type="password" class="srk" id="p" /></td>
<td><input type="submit" name="button" id="button" value="登录" /></td>
</tr>
</table>
<% End If %>
</form>
</div>
</body>
</html>

...全文