asp页面之间数据传送问题--有没有大侠可以马上帮忙的哦? - ASP技术论坛

得分:0

zhuce.asp页面代码：  <%sheng=request.form("sheng") shi=request.form("shi") xian=request.form("xian") T1=request.form("T1") if sheng<>"" and shi<>"" and xian<>"" then Session("shengt")=sheng Session("shit")=shi Session("xiant")=xian Session("jgt")=sheng&shi&xian elseif T1<>"" then Session("jgt")=T1 end if %> <HTML><HEAD><TITLE>好友永相伴——注册页</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <STYLE type=text/css>A:link { COLOR: #003060; TEXT-DECORATION: none } A:visited { COLOR: #003060; TEXT-DECORATION: none } A:active { COLOR: #003060; TEXT-DECORATION: none } A:hover { COLOR: #ee5d0c; TEXT-DECORATION: underline } TD { FONT-SIZE: 9pt } .put { BORDER-RIGHT: 1px ridge; BORDER-TOP: #ffffff 1px ridge; FONT-SIZE: 9pt; BORDER-LEFT: #ffffff 1px ridge; BORDER-BOTTOM: 1px ridge; BACKGROUND-COLOR: #f2f3f9 } .f1 { LINE-HEIGHT: 13pt } </STYLE>

</td> <td> <div align="center"></div> </td> </tr> </table> </TD> </TR> </TBODY> </TABLE> </div> <div align="center"> <table width="777" border="0" cellspacing="0" cellpadding="0"> <TR> <TD width=176 background=images/zhuce/13rose_06.gif height=282 valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>　</td> </tr> <tr>

</tr> </table> <table border="0" cellspacing="0" cellpadding="0" width="176"> <tr> <td ALIGN=CENTER VALIGN=TOP> <script Language="JavaScript" Type="text/javascript"><!-- function FrontPage_Form1_Validator(theForm) {

if (theForm.dengluzh.value == "") { alert("请在 dengluzh 域中输入值。"); theForm.dengluzh.focus(); return (false); }

if (theForm.dengluzh.value.length < 6) { alert("在 dengluzh 域中，请至少输入 6 个字符。"); theForm.dengluzh.focus(); return (false); }

if (theForm.dengluzh.value.length > 10) { alert("在 dengluzh 域中，请最多输入 10 个字符。"); theForm.dengluzh.focus(); return (false); } return (true); } //--></script><form method="POST" action="denglu.asp" onSubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" language="JavaScript"> <table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <td colspan="2" align="left"> <align="center"> <p align="center"><font color="#FFFF00">*登陆电话号码不分新旧。</font></td> </tr> <tr> <td> <p align="right"><span lang="zh-cn"><font size="2" color="#FFFFFF">号  码</font></span></td> <td> <input type="text" name="denglunu" size="14" value="13" maxlength="11"></td> </tr> <tr> <td> <p align="right"><font size="2" color="#FFFFFF">账  号</font></td> <td> <input type="password" name="dengluzh" size="14" maxlength="10"></td> </tr> </table> <p> <input type="submit" name="Submit" value="进入"> <input type="reset" name="Submit2" value="重置"> <input type="button" name="Submit4" onclick="javascript:location.href='zhucediqu.asp';" value="注册"></p> </form> </td> </tr> </table> </TD> <TD class=bg vAlign=top align=middle> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="images/02.jpg" width="24" height="21"></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font color="#009999" size="1"> ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■</font></td> </tr> </table> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td> <font color="#009999"> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></font></td> </tr> <tr> <td align="left" valign="top"> <form method="POST" action="zhucejieguo.asp" name="zhuce" enctype="multipart/form-data" > <table border="0" cellspacing="0" cellpadding="0" height="100%"> <tr> <td width="100%" valign="top" colspan="3"> <span lang="zh-cn">注册第一步：</span><a href="zhucediqu.asp">用户地区确定</a><i>　－－>></i><span lang="zh-cn">注册第二步：<i><a href="zhuce.asp"><u>完善资料</u></a></i></span></td> </tr> <tr> <td width="187" valign="top"> <TABLE class=font14 border=1 cellspacing="0" cellpadding="0" bordercolorlight="#FF6699" bordercolor="#FFFFFF" height="321"> <TR> <TD align=middle width="96%" colspan="2"> <p align="left"><font color="#FF0000"><u>以下为注册时必填信息:</u></font></TD> </TR> <tr> <TD align=left><font color="#FF0000">*</font>籍贯：</TD> <TD align="left"> <%if Session("jgt")="" then%> <input type="button" name="Submit3" value="选择地区" onClick="window.open('zhucediqu.asp','','') ,self.close()"> <%else%> <INPUT id=15 name=jg size="14" value="<%=Session("jgt")%>" > <%end if%> </select></TD> </tr> <TR> <TD align=justify width="43%"><font color="#FF0000">*</font>姓名:(<font size="2">真实姓名</font>)</TD> <TD width="50%"> <INPUT id=1 name=xm size="14" tabindex="1" value="<%=Session("xm")%>"></TD> </TR> <tr> <TD align=left><font color="#FF0000">*</font>账号:(6—10位)</TD> <TD align=left> <p align="left"> <INPUT id=2 name=zh size="14" tabindex="2" type="password" maxlength="10"></TD> </tr> <TR> <TD align=justify><font color="#FF0000">*</font>昵称：</TD> <TD> <INPUT id=3 name=nc size="14" value="<%=Session("nc")%>" tabindex="3"></TD> </TR> <TR> <TD align=justify><font color="#FF0000">*</font>性别：</TD> <TD> <select id=4 style="width: 55; height: 18" name="xb"> <option value ="1">男</option><option value ="2">女</option> </select></TD> </TR> <TR> <TD align=justify><font color="#FF0000">*</font>生日：(19840208)</TD> <TD> <INPUT id=5 name=sr size="14" value="<%=Session("sr")%>" maxlength="8"></TD> </TR> <tr> <TD align=left width="43%"><font color="#FF0000">*</font>电子邮箱：</TD> <TD align="left"> <INPUT id=13 name=yx size="14" value="<%=Session("yx")%>"></TD> </tr> <TR> <TD align=left><font color="#FF0000">*</font>身份证号码：</TD> <TD align="left"> <INPUT id=80 name=sf size="14" value="<%=Session("sf")%>" maxlength="18"></TD> </TR> <TR> <TD align=left><font color="#FF0000">*</font>旧号码1(≤11位)</TD> <TD align="left"> <INPUT id=8 name=old1 size="14" value="<%=Session("old1")%>" maxlength="11"></TD> </TR> <TR> <TD align=left><font color="#FF0000">*</font>新号码1(≤11位)</TD> <TD align=left> <p align="left"> <INPUT id=9 name=new1 size="14" maxlength="11" value="<%=Session("new1")%>"></TD> </TR> </TABLE> </td> <td align="center" valign="top" width="223"> <object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="205" height="166"> <param name="movie" value="flash/kongzi.swf"> <param name="quality" value="High"> <embed src="flash/kongzi.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="205" height="166" quality="High"></object> <TABLE class=font14 border=1 cellspacing="0" cellpadding="0" bordercolorlight="#FF6699" bordercolor="#FFFFFF" width="208" height="129"> <TR> <TD align=left colspan="2"> <p align="center"><blink><font face="华文行楷"> <span lang="zh-cn">信息技术教育，托起明天的太阳</span></font></blink></TD> </TR> <TR> <TD align=left colspan="2"> <p align="left"><font color="#FF0000"><u>以下为注册时选填信息:</u></font></TD> </TR> <TR> <TD align=left width="43%">旧号码2:≤11位</TD> <TD align="left" width="50%"> <INPUT id=10 name=old2 size="14" maxlength="11" value="<%=Session("old2")%>"></TD> </TR> <TR> <TD align=left width="43%">新号码2:≤11位</TD> <TD align="left" width="50%"> <INPUT id=11 name=new2 size="14" maxlength="11" value="<%=Session("new2")%>"></TD> </TR> <TR> <TD align=left width="43%">单位：</TD> <TD align="left" width="50%"> <INPUT id=12 name=dw size="14" value="<%=Session("dw")%>"></TD> </TR> <tr> <TD align=left width="43%">学历：</TD> <TD align="left" width="50%"> <INPUT id=14 name=xl size="14"value="<%=Session("xl")%>"></TD> </tr> <TR> <TD align=left width="43%">职业分类：</TD> <TD align="left" width="50%"> <select name=zy style="width: 106; height: 23" > <option value="公务员">公务员</option> <option value="教师">教师</option> <option value="学生">学生</option> <option value="军人">军人</option> <option value="工人">工人</option> <option value="农民">农民</option> <option value="医务人员">医务人员</option> <option value="科技人员">科技人员</option> <option value="企事业单位行政/管理人员">企事业单位行政/管理人员</option> <option value="家庭主妇">家庭主妇</option> <option value="下岗职工">下岗职工</option> <option value="退休人员">退休人员</option> <option value="其它">其它</option> </select> </TD> </TABLE> </td> <td align="center" valign="top" width="100%"> <TABLE class=font14 border=1 cellspacing="0" bordercolorlight="#FF99CC" cellpadding="0"> <TR> <TD align=left width="96%"><font color="#FF0000">声明：</font></TD> </TR> <TR> <TD align=left width="98%"> <p style="line-height: 150%">    1）为了保护已注册用户信息的安全，<font color="#FF0000">任何</font>用户注册时必须提供其有效身份证号码。注册后，姓名、性别、生日、籍贯、身份证号码<font color="#FF0000">不可再修改</font>。</TD> </TR> <TR> <TD align=left width="98%"> <p style="line-height: 150%">    2）身份证号码用于验证注册信息的真实性，<font color="#FF0000">加密保存</font>，<font color="#FF0000">不作为用户查询项目</font>。</TD> </TR> <TR> <TD align=left width="98%"> <p style="line-height: 150%">    3）邮箱务必是<font color="#FF0000">有效的常用</font>邮箱，用于发送你的信息被查询情况和找回密码。<font color="#FF0000">本站承诺</font>不向用户发送除以上内容的垃圾邮件。</TD> </TR> <tr> <td> <p style="line-height: 150%">   4）本站不承担<font color="#FF0000">任何技术漏洞</font>对用户造成的损失。</td> </tr> <tr> <td> <p style="line-height: 150%">    5）你<font color="#FF0000">必须无条件</font>同意本声明，才可以注册成为本站用户，享受<font color="#FF0000">免费服务</font>。</td> </tr> <tr> <td> <p align="center"> <br> <INPUT id=Button1 onclick="funCheck()" type=submit value="注册" name=B1 style="border: 3px double #FF99CC; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-size:8pt">      <input type="reset" value="重置" onClick="window.open('zhucediqu.asp','','') ,self.close()" name="B2" style="border: 3px double #FF6699; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-size:8pt"></p></td> </tr> </table> </td> </tr> </table> </form> </td> </tr> </table> </TD> </TR> <TR> <TD background=images/13rose_07.gif>　</TD> <TD class=bg vAlign=top align=middle> 　　　</TD> </TR> </table> </div> </BODY></HTML>

第 6 楼

得分:0

zhucejieguo.asp页面代码：  <% dim error,strerror,xmi error=0 xmi=0 nci=0 xbi=0 sri=0 yxi=0 jgi=0 sfi=0 old1i=0 new1i=0 old2i=0 new2i=0 xm=request.form("xm") zh=request.form("zh") nc=request.form("nc") xb=request.form("xb") sr=request.form("sr") jg=request.form("jg") sf=request.form("sf") old1=request.form("old1") new1=request.form("new1") old2=request.form("old2") new2=request.form("new2") dw=request.form("dw") yx=request.form("yx") xl=request.form("xl") zy=request.form("zy") sfzi=left(sf,6)

session("xm")=request.form("xm") session("nc")=request.form("nc") xb=request.form("xb") session("sr")=request.form("sr") session("sf")=request.form("sf") session("old1")=request.form("old1") session("new1")=request.form("new1") session("old2")=request.form("old2") session("new2")=request.form("new2") session("dw")=request.form("dw") session("yx")=request.form("yx") session("xl")=request.form("xl") session("zy")=request.form("zy")

if xm="" then error=1 xm="????" strerror=strerror&"◆姓名错误◆" session("xmt")=xm end if if zh="" then error=1 zh="????" strerror=strerror&"◆账号错误◆" end if if nc="" then error=1 nc="????" strerror=strerror&"◆昵称错误◆" end if

if yx="" or replace(yx,"@","") = yx then error=1 yx="????" strerror=strerror&"◆邮箱错误◆" else Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT yx FROM b where yx='"&yx&"'" rs.Open strSQL, cn ,1,1 if not rs.eof then error=1 yx="????" yxi=1 strerror=strerror&"◆常用邮箱已经注册◆" end if rs.close() end if if sf<>"" then if xb=1 and (cint((mid(sf,15,1)) mod 2)=1 or (cint(mid(sf,17,1)) mod 2)=1) then xb="男" session("xbt")="先生" elseif xb=2 and (cint((mid(sf,15,1)) mod 2)=0 or cint((mid(sf,17,1)) mod 2)=0) then xb="女" session("xbt")="女士" else error=1 xb="????" sfi=1 strerror=strerror&"◆性别和身份证冲突◆" end if end if if sr<>(19&(mid(sf,7,6))) and sr<>(mid(sf,7,8)) then error=1 sr="????" sfi=1 strerror=strerror&"◆生日和身份证冲突◆" end if

if sf="" then error=1 sfi=1 strerror=strerror&"◆身份证号码错误◆" else Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT DISTINCT sfzhm FROM sfz where sheng='"&Session("shengt")&"' and shi='"&Session("shit")&"' and xian='"&Session("xiant")&"' " rs.Open strSQL,cn if rs("sfzhm")<> sfzi then error=1 sfi=1 jg="????" strerror=strerror&"◆身份证号码与籍贯冲突◆" end if rs.close end if if sfi=1 then sf="????" end if

if (old1=new1 or old1=old2 or old1=new2 or new1=old2 or new1=new2 or (old2=new2 and (old2<>"" or new2<>""))) then error=1 strerror=strerror&"◆两组新旧号码中，有相同号码◆" end if

if old1="" then error=1 old1="????" strerror=strerror&"◆旧号码1不能为空◆" else Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM b where old1='"&old1&"' or new1='"&old1&"' or old2='"&old1&"' or new2='"&old1&"'" rs.Open strSQL, cn ,1,1 if not rs.eof then error=1 old1i=1 old1="????" strerror=strerror&"◆旧号码１已经被注册◆" end if rs.close() end if if new1="" then error=1 new1="????" strerror=strerror&"◆新号码1不能为空◆" else Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM b where old1='"&new1&"' or new1='"&new1&"' or old2='"&new1&"' or new2='"&new1&"'" rs.Open strSQL, cn ,1,1 if not rs.eof then error=1 new1i=1 new1="????" strerror=strerror&"◆新号码１已经被注册◆" end if rs.close() end if

if new2<>"" then Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM b where old1='"&new2&"' or new1='"&new2&"' or old2='"&new2&"' or new2='"&new2&"'" rs.Open strSQL, cn ,1,1 if not rs.eof then error=1 new2i=1 new2="????" strerror=strerror&"◆新号码2已经被注册◆" end if rs.close() end if

if old2<>"" then Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM b where old1='"&old2&"' or new1='"&old2&"' or old2='"&old2&"' or new2='"&old2&"'" rs.Open strSQL, cn ,1,1 if not rs.eof then error=1 old2i=1 old2="????" strerror=strerror&"◆旧号码2已经被注册◆" end if rs.close() end if

if new2="" then new2="----" end if if old2="" then old2="----" end if if dw="" then dw="----" end if if xl="" then xl="----" end if if zy="" then zy="----" end if

<html>

<head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>好友永相伴——注册结果</title> <style>  </style> </head>

<body> <script language="javascript"> //window.location='index.asp'; </script> <table width="777" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="777" style="font-size: 9pt"> <object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj2" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="777" height="92"> <param name="movie" value="flash/final.swf"> <param name="quality" value="High"> <embed src="flash/final.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj2" width="777" height="92" quality="High"></object> </td> </tr> </table> <div align="center"> <table width="777" border="0" cellspacing="0" bordercolorlight="#FF6699" background="images/zhuce/bj.jpg" cellpadding="0" height="13"> <tr> <td bordercolorlight="#FF99CC"> <p align="center"> </td> <td bordercolorlight="#FF99CC"> 　</td> <td bordercolorlight="#FF99CC"> </td> </tr> </table> </div> <TABLE cellSpacing=0 cellPadding=0 width=777 align=center border=0> <TBODY> <TR background="images/01.jpg"> <TD background="images/zhuce/bj.jpg">  </TD> <TD width=601 height=28 background="images/zhuce/bj.jpg"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr background="images/01.jpg"> <td> <p align="center"> <a href="index.asp" style="color: #003060; text-decoration: none">首页</a></td> <td> <div align="center"> <a href="zhucediqu.asp" style="color: #003060; text-decoration: none">注册</a></div> </td> <td> <div align="center"> <a href="chaxun.asp" style="color: #003060; text-decoration: none">查询</a></div> </td> <td> <div align="center"> <a href="xiugai.asp" style="color: #003060; text-decoration: none">修改</a></div> </td> <td> <div align="center"><a href="sicnu_bbs/index.asp">建议</a></div>

</td> <td> <div align="center"></div> </td> </tr> </table> </TD> </TR> </TBODY> </TABLE> <table width="777" border="0" cellspacing="0" cellpadding="0" align="center"> <TR> <TD width=176 background=images/zhuce/13rose_06.gif height=244 valign="top" style="font-size: 9pt"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="font-size: 9pt">　</td> </tr> <tr>

if (theForm.dengluzh.value == "") { alert("请在 dengluzh 域中输入值。"); theForm.dengluzh.focus(); return (false); }

if (theForm.dengluzh.value.length < 6) { alert("在 dengluzh 域中，请至少输入 6 个字符。"); theForm.dengluzh.focus(); return (false); }

<%else Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM b " rs.Open strSQL, cn ,2,3 if not rs.eof then rs.movelast end if rs.addnew rs("xm")=xm rs("zh")=zh rs("nc")=nc rs("xb")=xb rs("sr")=sr rs("yx")=yx rs("jg")=jg rs("sheng")=Session("shengt") rs("sf")=sf rs("old1")=old1 rs("new1")=new1 rs("old2")=old2 rs("new2")=new2 rs("dw")=dw rs("xl")=xl rs("zy")=zy rs("rq")=Session("rqt") rs.update rs.close() session("xmt")=xm session("zht")=zh session("nct")=nc session("xbt")=xb session("srt")=sr session("yxt")=yx session("jgt")=jg session("sft")=sf session("old1t")=old1 session("new1t")=new1 session("old2t")=old2 session("new2t")=new2 session("dwt")=dw session("xlt")=xl session("zyt")=zy suc=1%> <td>以下为你注册信息:如果有错,请到这里修改.</td> <%end if%> </tr> <tr> <td align="center"><font color="#FF0000">*</font>姓名</td> <td align="center"><font color="#FF0000">*</font>昵称</td> <td align="center"><font color="#FF0000">*</font>性别</td> <td align="center"><font color="#FF0000">*</font>生日</td> <td align="center"><font color="#FF0000">*</font>电子邮箱</td> <td align="center"><font color="#FF0000">*</font>籍贯</td> <td align="center"><font color="#FF0000">*</font>旧号码1</td> <td align="center"><font color="#FF0000">*</font>新号码1</td> </tr> <tr> <td align="center"><%=xm%></td> <td align="center"><%=nc%>　</td> <td align="center"><%=xb%></td> <td align="center"><%=sr%></td> <td align="center"><%=yx%></td> <td align="center"><%=Session("jgt")%></td> <td align="center"><%=old1%></td> <td align="center"><%=new1%></td> </tr> </table> <table border="1" width="100%" bordercolorlight="#FF99CC" cellspacing="0" cellpadding="0" bordercolordark="#FF99CC"> <tr> <td align="center"><font color="#FF0000">*</font>账号</td> <td align="center"><font color="#FF0000">*</font>身份证号码</td> <td align="center">旧号码2</td> <td align="center">新号码2</td> <td align="center">单位</td> <td align="center">学历</td> <td align="center">职业</td> </tr> <tr> <td align="center"><%=zh%></td> <td align="center"><%=sf%></td> <td align="center"><%=old2%></td> <td align="center"><%=new2%></td> <td align="center"><%=dw%></td> <td align="center"><%=xl%></td> <td align="center"><%=zy%></td> </tr> </table> <table border="0" width="100%" cellspacing="5"> <tr> <td> 　</td> </tr> <tr> <td> <%if suc=1 then%> <p align="center">注册成功<==10<span lang="zh-cn">秒后自动</span>==><a href="index.asp">返回主页</a></td> <%session("newUserNamet")=""%> <script> setTimeout("location.replace('index.asp')",10000) </script> <%elseif suc=0 then%> <p align="center"><font color="#FF0000">注册失败</font><==20<span lang="zh-cn">秒后自动</span>==><a href="zhucediqu.asp" >返回重新注册</a></td> <script> setTimeout("location.replace('zhucediqu.asp')",20000) </script> <%end if%> </tr> </table> </td> </tr> </table> </div></td> </tr> </table> </TD> </TR> <TR> <TD vAlign=top width=176 background=images/zhuce/13rose_06.gif style="font-size: 9pt" rowspan="2"> 　</TD> </TR> <TR> <TD class=bg vAlign=top align=middle> 　　　</TD> </TR> </table> </body>

</html>