有没有大侠可以马上帮忙的哦?asp页面之间数据传送问题
我在自己的服务器(IIS5.1)上都可以用的asp代码,为什么上传到网络服务器后,注册页面的数据传送就出问题了,详情请看http://45697762.66et.net/zhuce.asp
谢谢解答,我在线侯着……
2005-05-09 21:36
2005-05-09 21:39
2005-05-09 21:45
<!--#include file="cn.asp"--><%dim error,strerror,xmierror=0xmi=0nci=0xbi=0sri=0yxi=0jgi=0sfi=0old1i=0new1i=0old2i=0new2i=0xm=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")=xmend ifif zh="" then error=1 zh="????" strerror=strerror&"◆账号错误◆" end ifif nc="" then error=1 nc="????" strerror=strerror&"◆昵称错误◆"end ifif yx="" or replace(yx,"@","") = yx then error=1 yx="????" strerror=strerror&"◆邮箱错误◆"elseSet 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 ifif sf<>"" thenif 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 ifend ifif sr<>(19&(mid(sf,7,6))) and sr<>(mid(sf,7,8)) then error=1 sr="????" sfi=1 strerror=strerror&"◆生日和身份证冲突◆" end ifif sf="" then error=1 sfi=1 strerror=strerror&"◆身份证号码错误◆"elseSet 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,cnif rs("sfzhm")<> sfzi then error=1 sfi=1 jg="????" strerror=strerror&"◆身份证号码与籍贯冲突◆" end ifrs.closeend ifif sfi=1 thensf="????"end ifif (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 ifif old1="" then error=1 old1="????" strerror=strerror&"◆旧号码1不能为空◆"elseSet 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 ifif new1="" then error=1 new1="????" strerror=strerror&"◆新号码1不能为空◆"elseSet 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 ifif 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 ifif 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 ifif new2="" then new2="----"end ifif old2="" then old2="----"end ifif dw="" then dw="----"end ifif xl="" then xl="----"end ifif zy="" then zy="----"end if%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>好友永相伴——注册结果</title><style><!--TD { FONT-SIZE: 9pt}--></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"> <!--#include file="shijian.asp"--></td> <td bordercolorlight="#FF99CC"> </td> <td bordercolorlight="#FF99CC"><!--#include file="shidaxinwen.asp"--></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">建议</div> </td> <td> <div align="center"><!--#include file="guojixinwen.asp"--></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> <!--#include file="denglufs.asp"--> </tr> </table> <table border="0" cellspacing="0" cellpadding="0" width="176"> <tr> <td ALIGN=CENTER VALIGN=TOP><!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><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><!--webbot BOT="GeneratedScript" endspan --><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> <!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="6" i-maximum-length="10" --><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="Submit3" onclick="javascript:location.href='zhucediqu.asp';" value="注册"></p></form> </td> </tr> </table> <!--#include file="friendlink.asp"--></TD> <TD class=bg vAlign=top align=middle> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="font-size: 9pt"><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 width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <font color="#009999">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></font></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" style="font-size: 9pt"> <div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="right"> <tr> <td width="91%" style="font-size: 9pt"> <table border="1" width="100%" bordercolorlight="#FF99CC" cellspacing="0" cellpadding="0" height="15" bordercolordark="#FF99CC"> <tr> <%if error=1 then%><td colspan="8"><%=session("xmt")%><font color="#FF0000"><% response.write strerror &"。"suc=0%></font></font></td> <%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> <!--#include file="copyright.asp" --></TD> </TR> </table></body></html>
2005-05-09 21:47
2005-05-09 21:48
2005-05-10 08:06
2005-05-10 08:36
首先谢谢你的关注！！ zhucejieguo.asp页面的完整代码是这样的 <!--#include file="cn.asp"--> <% dim error,strerror,xmi error=0 xmi=0 //此类带有“i”的变量，很多都没有用的 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> <!-- TD { FONT-SIZE: 9pt } --> </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"> <!--#include file="shijian.asp"--></td> <td bordercolorlight="#FF99CC"> </td> <td bordercolorlight="#FF99CC"> <!--#include file="shidaxinwen.asp"--></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"><!--#include file="guojixinwen.asp"--></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> <!--#include file="denglufs.asp"-->
</tr> </table> <table border="0" cellspacing="0" cellpadding="0" width="176"> <tr> <td ALIGN=CENTER VALIGN=TOP> <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><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><!--webbot BOT="GeneratedScript" endspan --><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> <!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="6" i-maximum-length="10" --><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="Submit3" onclick="javascript:location.href='zhucediqu.asp';" value="注册"></p> </form> </td> </tr> </table> <!--#include file="friendlink.asp"--></TD> <TD class=bg vAlign=top align=middle> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="font-size: 9pt"><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 width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <font color="#009999">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></font></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" style="font-size: 9pt"> <div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="right"> <tr> <td width="91%" style="font-size: 9pt"> <table border="1" width="100%" bordercolorlight="#FF99CC" cellspacing="0" cellpadding="0" height="15" bordercolordark="#FF99CC"> <tr> <% if error=1 then%> <td colspan="8"> <%=session("xmt")%> <font color="#FF0000"> <% response.write strerror &"。" suc=0%> </font></font></td>
<%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> <!--#include file="copyright.asp" --></TD> </TR> </table> </body>
</html>
2005-05-10 13:09
2005-05-10 13:51
2005-05-11 12:32