您所在位置：主题：代码的一点问题
soeken
[专家分：0] 发布于 2007-01-30 17:35:00
你好，下面这注册页面 提交 时 没办法注册成功，请教大家看下是哪里问题，谢谢：
<!--#include file="conn.asp"-->
<html>
<head><title>新用户注册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%dim action
action=request.QueryString("action")%>
<%select case action
case "" %>
<form name=form1 method=post action=reg.asp?action=save >
<table width="345" height="217" border="0" align=center>
<tr>
<td width="128"><span class="style2">用户名：</span></td>
<td width="207"><input name="username" type="text" id="userpassword" size="20"></td>
</tr>
<tr>
<td><span class="style2">密 码：</span></td>
<td><input name="userpassword" type="password" id="userpassword" size="20"></td>
</tr>
<tr>
<td><span class="style2">电子邮件：</span></td>
<td><input name="useremail" type="text" id="useremail" size="20"></td>
</tr>
<tr>
<td><span class="style2">密码提示问题：</span></td>
<td><input name="question" type="text" id="question" size="20"></td>
</tr>
<tr>
<td><span class="style2">密码提示答案：</span></td>
<td><input name="answer" type="text" id="answer" size="20"></td>
</tr>
<tbody>
<tr>
<td align=right>
<input name=B1 type=submit value="注册"></td>
<td align=left>
<input name=B2 type=reset value="重填"></td></tr></tbody>
</table></form>
<% case "save" %>
<!--#include file="md5.asp"-->
<% call saveuser() %>
<% end select %>
<%
sub saveuser()
if session("regtimes")=1 then
response.Write "<div align=center><font color=red size=60>对不起，您刚注册过用户。<br>请稍后再进行注册！</font></div>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail from [user] where useremail='"&trim(request("useremail"))&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("userpassword")=md5(trim(request("userpassword")))
rs("useremail")=trim(request("useremail"))
rs("quesion")=trim(request("quesion"))
rs("answer")=md5(trim(request("answer")))
rs("adddate")=now()
rs("lastlogin")=now()
rs("logins")=0
rs.update
rs.close
set rs=nothing
'response.Cookies("bookshop")("username")=username
'response.Cookies("bookshop").expires=date+1
session("regtimes")=1
session.Timeout=1
response.Write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center ><tr><td >"
response.Write "<table width=80% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=80 ><font color=#cb6f00>恭喜您已注册成功,请记好您的用户名和密码</font><br>"
response.Write "·<a href=index.asp>返回首页</a></td></tr></table></td></tr></table>"
end if
end sub
sub usererr()
response.write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center ><tr>"
response.write "<td ><table width=80% border=0 align=center cellpadding=2 cellspacing=0><tr><td ><font color=#cb6f00>用户注册失败</font></td></tr><tr>"
response.write "<td ><font color=#FF0000>您输入的用户名或Email地址已存在，请返回重新输入！<br><a href=javascript:history.go(-1)><font color=red>点击返回上一页</font></a> </font></td></tr></table></td></tr></table>"
end sub
%>
</body>
</html>
<!--#include file="conn.asp"-->
<html>
<head><title>新用户注册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%dim action
action=request.QueryString("action")%>
<%select case action
case "" %>
<form name=form1 method=post action=reg.asp?action=save >
<table width="345" height="217" border="0" align=center>
<tr>
<td width="128"><span class="style2">用户名：</span></td>
<td width="207"><input name="username" type="text" id="userpassword" size="20"></td>
</tr>
<tr>
<td><span class="style2">密 码：</span></td>
<td><input name="userpassword" type="password" id="userpassword" size="20"></td>
</tr>
<tr>
<td><span class="style2">电子邮件：</span></td>
<td><input name="useremail" type="text" id="useremail" size="20"></td>
</tr>
<tr>
<td><span class="style2">密码提示问题：</span></td>
<td><input name="question" type="text" id="question" size="20"></td>
</tr>
<tr>
<td><span class="style2">密码提示答案：</span></td>
<td><input name="answer" type="text" id="answer" size="20"></td>
</tr>
<tbody>
<tr>
<td align=right>
<input name=B1 type=submit value="注册"></td>
<td align=left>
<input name=B2 type=reset value="重填"></td></tr></tbody>
</table></form>
<% case "save" %>
<!--#include file="md5.asp"-->
<% call saveuser() %>
<% end select %>
<%
sub saveuser()
if session("regtimes")=1 then
response.Write "<div align=center><font color=red size=60>对不起，您刚注册过用户。<br>请稍后再进行注册！</font></div>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail from [user] where useremail='"&trim(request("useremail"))&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("userpassword")=md5(trim(request("userpassword")))
rs("useremail")=trim(request("useremail"))
rs("quesion")=trim(request("quesion"))
rs("answer")=md5(trim(request("answer")))
rs("adddate")=now()
rs("lastlogin")=now()
rs("logins")=0
rs.update
rs.close
set rs=nothing
'response.Cookies("bookshop")("username")=username
'response.Cookies("bookshop").expires=date+1
session("regtimes")=1
session.Timeout=1
response.Write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center ><tr><td >"
response.Write "<table width=80% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=80 ><font color=#cb6f00>恭喜您已注册成功,请记好您的用户名和密码</font><br>"
response.Write "·<a href=index.asp>返回首页</a></td></tr></table></td></tr></table>"
end if
end sub
sub usererr()
response.write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center ><tr>"
response.write "<td ><table width=80% border=0 align=center cellpadding=2 cellspacing=0><tr><td ><font color=#cb6f00>用户注册失败</font></td></tr><tr>"
response.write "<td ><font color=#FF0000>您输入的用户名或Email地址已存在，请返回重新输入！<br><a href=javascript:history.go(-1)><font color=red>点击返回上一页</font></a> </font></td></tr></table></td></tr></table>"
end sub
%>
</body>
</html>