| 发表于:2008-01-16 21:00:123楼 得分:0 |
<!--#include file="md5.asp"--> <!--#include file="head.asp"--> <div class="login_success"> <div class="login_success1"> <% call saveuser()%> <% call userinfo()%> <%end select%> </div> </div> </div> <% sub saveuser() set rs1=server.createobject("adodb.recordset") sql="select * from login_user where usermail='"&trim(request("usermail"))&"' or username='"&trim(request("username"))&"'" rs1.open sql,conn,1,1 if rs1.recordcount> 0 then call usererr() rs1.close else rs1.close set rs1=server.createobject("adodb.recordset") sql="select * from login_user " rs1.open sql,conn,1,3 rs1.addnew rs1("username")=trim(request.form("username")) rs1("userpassword")=md5(trim(request.form("userpassword"))) rs1("usermail")=trim(request.form("usermail")) rs1("question")=trim(request.form("question")) rs1("answer")=trim(request.form("answer")) rs1("shiname")=trim(request.form("shiname")) rs1("sfzheng")=trim(request.form("sfzheng")) rs1("sex")=trim(request.form("sex")) rs1("userxingzhi")=trim(request.form("userxingzhi")) rs1("address")=trim(request.form("address")) rs1("youbian")=trim(request.form("youbian")) rs1("usertel")=trim(request.form("usertel")) rs1("songhuofangshi")=trim(request.form("songhuofangshi")) rs1("zhifufangshi")=trim(request.form("zhifufangshi")) rs1.update response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" <div > 恭喜您,注册成功!! </div> </br> ") response.write(" <div> <a href=index.asp> 返回首页 </a> ¦ 查看我的帐户 </div> ") rs1.close set rs1=nothing session("regtimes")=1 session.timeout=1 end if end sub %> <% sub usererr() response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" </br> ") response.write(" <div> 您输入的用户名惑邮箱已存在! <br /> <br /> <a href=javascript:history.go(-1)> 返回上一页 </a> </div> ") end sub %> <% sub userinfo() set rs2=server.createobject("adodb.recordset") sql2="select * from login_user " rs2.open sql2,conn,1,3 response.write(rs2("username")) rs2.close set rs2=nothing end sub %> 为什么 <% call userinfo()%> 的内容显示不出来呢? | | |
|