框架页面注册后的跳转问题
现在同一页面内有3个框架,分别为: TOP ,LEFT,RIGHT
TOP框架内有登陆,注册2个按纽 ,点击该按纽后会在RIGHT框架内出现注册信息,填写完注册信息后(注意,问题出现了),点击"提交".我希望实现"提交"后能自动在TOP框架内显示成登陆状态,同时RIGHT框架内的页面回到首页框架内的页面!!! 求各位高手指教 ....十万火急````在线等回复!!!谢谢大家~~~~
2007-08-23 17:01
2007-08-23 17:16
2007-08-23 17:23
<!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">
<!--
a:link {
color: #FF0000;
}
.STYLE6 {color: #999999}
-->
</style>
<SCRIPT language=JavaScript>
<!--
function RegFrom_onsubmit() {
if(document.Regfrom.idtext.value=="")
{
alert("请填写[会员帐号],然后再[提交申请].")
document.Regfrom.idtext.focus()
return false
}
else if(document.Regfrom.pwdtext.value=="")
{
alert("请填写[密码],然后再[提交申请].")
document.Regfrom.pwdtext.focus()
return false
}
else if(document.Regfrom.pwdtext2.value=="")
{
alert("请填写[密码确定],然后再[提交申请].")
document.Regfrom.pwdtext2.focus()
return false
}
else if(document.Regfrom.pwdtext.value!=document.Regfrom.pwdtext2.value)
{
alert("两次填写的密码不一致,请确定密码正确.")
document.Regfrom.pwdtext2.focus()
return false
}
if(document.Regfrom.wttext.value.length!=0)
{
if (document.Regfrom.wttext.value.charAt(0)=="." ||
document.Regfrom.wttext.value.charAt(0)=="@"||
document.Regfrom.wttext.value.indexOf('@', 0) == -1 ||
document.Regfrom.wttext.value.indexOf('.', 0) == -1 ||
document.Regfrom.wttext.value.lastIndexOf("@")==document.Regfrom.wttext.value.length-1 ||
document.Regfrom.wttext.value.lastIndexOf(".")==document.Regfrom.wttext.value.length-1)
{
alert("Email地址格式不正确！");
document.Regfrom.wttext.focus();
return false;
}}
else
{
alert("Email不能为空！");
document.Regfrom.wttext.focus();
return false;
}
}
-->
</SCRIPT>
<SCRIPT language=JavaScript>
function RegFrom_onsubmit() {
var strm = document.Regfrom.wttext.value
var regm = /^[a-zA-Z0-9_-]+@[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+)+$/;
if (!strm.match(regm) && strm!="")
{
alert("邮箱地址格式错误或含有非法字符!\n请检查！");
document.Regfrom.wttext.select();
return false;
}
{
</SCRIPT>
</head>
<body onunload="window.opener.location.reload();"><br><br><br>
<form name="Regfrom" method="post" action="regpro.asp" onSubmit="return RegFrom_onsubmit()">
<br>
<table width="750" height="300" border="0" align="center" cellpadding="0" cellspacing="0" background="images/未标题-功能3.jpg">
<tr>
<td><table width="95%" height="257" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#F0f0f0">
<tr>
<th width="123" height="45">会员帐号：</th>
<td width="312"> <input name="idtext" type="text" id="idtext" size="25" maxlength="30" />
</td>
<td width="270"><div align="left">会员帐号由4-20个英文字母或数字组成（不支持中文，不能以数字开头）一旦注册成功不可修改。</div></td>
</tr>
<tr>
<th height="45">密 码：</th>
<td> <input name="pwdtext" type="password" id="pwdtext" size="20" maxlength="30" />
</td>
<td><div align="left">密码由6-20个英文字母（区分大小写）或数字组成。</div></td>
</tr>
<tr>
<th height="45">重复密码：</th>
<td> <input name="pwdtext2" type="password" id="pwdtext2" size="20" maxlength="30" />
</td>
<td><div align="left">请再输入一遍您上面填写的密码</div></td>
</tr>
<tr>
<th height="45">电子邮件：</th>
<td> <input name="wttext" type="text" id="wttext" value="" size="30" maxlength="100" />
</td>
<td>用于找回密码，请认真填写</td>
</tr>
<tr>
<td height="67" colspan="3"><div align="center"> <span class="STYLE7">
<input name="checkbox" type="checkbox" value="checkbox" checked="checked" />
<span class="STYLE6">您已经仔细阅读了《</span><a href="righttk.htm">用户协议</a><span class="STYLE6">》</span><br />
<input type="submit" name="Submit" value="提交" />
</div></td>
</tr>
</table>
<p></p></td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>
2007-08-23 17:26
2007-08-23 17:26
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/fttp.asp" -->
<%
' *** 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("name"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="topy.asp"
MM_redirectLoginFailed="topf.html"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_fttp_STRING
MM_rsUser.Source = "SELECT name, word"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM users WHERE name='" & Replace(MM_valUsername,"'","''") &"' AND word='" & Replace(Request.Form("psd"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
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.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>国际商业信息交流网(暂定)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="css/ys1682.css"
type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3132" name=GENERATOR>
<style type="text/css">
<!--
.STYLE2 {font-size: 5px}
.MainFront {
font-family: Tahoma;
font-size: 10px;
color: #000000;
}
-->
</style>
</HEAD>
<BODY>
<form action="<%=MM_LoginAction%>" method="POST" name="login" id="login">
<img src="未标题-7副本.jpg" >
<DIV id=topnav>
<a>用户名</a>
<input name="name" type="text" class="MainFront" size="13" maxlength="20">
<a >密码</a>
<input name="psd" type="password" class="MainFront" size="13" maxlength="20">
<INPUT class=stbtm type=submit value=登录 name=submit>
<a href="rep.htm" target="mainFrame"/><img src="images/3721.gif" border="0" align="top" ></a>
</DIV>
</form>
</body>
</html>
2007-08-23 17:27
2007-08-23 17:28
<!--#include file="conn.asp"-->
<html>
<head>
<title>XXXXX</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="5; url=right.htm">
<SCRIPT language=JavaScript>
<!--
function RegFrom_onsubmit() {
if(document.Regfrom.idtext.value=="")
{
alert("请填写[会员帐号],然后再[提交申请].")
document.Regfrom.idtext.focus()
return false
}
else if(document.Regfrom.pwdtext.value=="")
{
alert("请填写[密码],然后再[提交申请].")
document.Regfrom.pwdtext.focus()
return false
}
else if(document.Regfrom.pwdtext2.value=="")
{
alert("请填写[密码确定],然后再[提交申请].")
document.Regfrom.pwdtext2.focus()
return false
}
else if(document.Regfrom.pwdtext.value!=document.Regfrom.pwdtext2.value)
{
alert("两次填写的密码不一致,请确定密码正确.")
document.Regfrom.pwdtext2.focus()
return false
}
else if(document.Regfrom.wttext.value=="")
{
alert("请填写[电子邮件],然后再[提交申请].")
document.Regfrom.wttext.focus()
return false
}
}
-->
</SCRIPT>
<style type="text/css">
<!--
body,td,th {
font-family: Tahoma;
font-size: 12px;
color: #333333;
}
.MainFront {
font-family: Tahoma;
font-size: 12px;
color: #000000;
}
.RedFront {
font-family: Tahoma;
font-size: 12px;
color: #FF0000;
}
.STYLE3 {font-size: 16px}
.STYLE4 {font-size: 14px}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" height="250" border="0" align="left" cellspacing="0">
<tr>
<td align="center"><p>
<table width="384" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
if request.Form("idtext")<>"" then
set myrec=server.CreateObject("ADODB.Recordset")
set rs=server.CreateObject("ADODB.Recordset")
myrec.open "Users",conn,3,3
sql="select * from users where name='"&request.Form("idtext")&"'"
rs.open sql,conn,1,1
if not rs.eof then
conn.close
set rs=nothing
set myrec=nothing
set conn=nothing
%>
<td width="113"><p><span class="STYLE4">很遗憾 你的帐号已被人注册</span></p>
<p><a href="rep.htm">请从新注册</a>
<%else%>
</p>
<td width="205"><p><span class="STYLE4">恭喜你 你的帐号注册成功.<br>请在上方登陆您的帐号</span></p>
<p>
<%
myrec.addnew
myrec("name")=request.Form("idtext")
myrec("word")=request.Form("pwdtext")
myrec("key1")=request.Form("wttext")
myrec.update
conn.close
set rs=nothing
set myrec=nothing
set conn=nothing
end if
else
response.Redirect("right.htm")
end if
%>
</p></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<p>
</td>
</tr>
</table>
</body>
</html>
2007-08-23 17:31
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/fttp.asp" -->
<%
' *** 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("name"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="topy.asp"
MM_redirectLoginFailed="topf.html"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_fttp_STRING
MM_rsUser.Source = "SELECT name, word"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM users WHERE name='" & Replace(MM_valUsername,"'","''") &"' AND word='" & Replace(Request.Form("psd"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
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.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>国际商业信息交流网(暂定)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="css/ys1682.css"
type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3132" name=GENERATOR>
<style type="text/css">
<!--
.STYLE2 {font-size: 5px}
.MainFront {
font-family: Tahoma;
font-size: 10px;
color: #000000;
}
-->
</style>
</HEAD>
<BODY>
<form action="<%=MM_LoginAction%>" method="POST" name="login" id="login">
<img src="未标题-7副本.jpg" >
<DIV id=topnav>
<a>用户名</a>
<input name="name" type="text" class="MainFront" size="13" maxlength="20">
<a >密码</a>
<input name="psd" type="password" class="MainFront" size="13" maxlength="20">
<INPUT class=stbtm type=submit value=登录 name=submit>
<a href="rep.htm" target="mainFrame"/><img src="images/3721.gif" border="0" align="top" ></a>
</DIV>
</form>
</body>
</html>
2007-08-23 17:33
2007-08-23 17:36