|
|
<html><head><title>会员注册</title>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
</head>
<body>
<center>
<table width="800"><tr>
<td width="30%"></td>
<td width="70%">
<form method="post" action="hr.asp">
<table width="100%">
<tr><td width="30%"><font size="2" color="#000000">用户名：**</font><br><input type="text" name="u_name" size="15">
<td width="70%"><font size="2" color="#ff8000">格式：123456，只支持数字格式，如果注册成文本格式，会造成无法正常登陆，请正确填写</font></td>
</tr>
<tr><td width="30%"><font size="2" color="#000000">密 码：**</font><br><input type="password" name="u_password" size="15">
<td width="70%"><font size="2" color="#ff8000">请牢记所输出入的密码</font></td>
</tr>
<tr><td width="30%"><font size="2" color="#000000">密 码：**</font><br><input type="password" name="u_password1" size="15">
<td width="70%"><font size="2" color="#ff8000">请再次输入密码,验证密码不会填错</font></td>
</tr>
<tr><td width="30%"><font size="2" color="#000000">姓 名：**</font><br><input type="text" name="u_xm" size="15">
<td width="70%"><font size="2" color="#ff8000">请输入你的姓名</font></td>
</tr>
<tr><td width="30%"><font size="2" color="#000000">联系QQ：**</font><br><input type="text" name="u_qq" size="15">
<td width="70%"><font size="2" color="#ff8000">请输入你的联系方式一，QQ号码</font></td>
</tr>
<tr><td width="30%"><font size="2" color="#000000">联系EL：**</font><br><input type="text" name="u_eml" size="15">
<td width="70%"><font size="2" color="#ff8000">请输入你的联系方式二，邮箱,QQ与EML至少正确填写一项</font></td>
</tr>
<tr><td width="30%"><font size="2" color="#000000">介绍人：**</font><br><input type="text" name="u_id" size="15">
<td width="70%"><font size="2" color="#ff8000">你是如何得知本站的,本站会员请填写会员的ID，没有写《互联网》三字</font></td>
</tr>
<tr><td width="30%"><input type="submit" name="submit" value="注册">
<td width="70%"><font size="2" color="#ff8000"><a href="index.html">返回首页</a></font></td>
</tr>
</table>
</form>
</tr></table></center>
</body></html>
==========================================================================
这是这个注册程序，这是处理的，有什么问题呀
<%
dim uname,upassword,upassword1,uxm,uqq,ueml,uid
uname = request("u_name")
upassword = request("u_password")
upassword1 = request("u_password1")
uxm = request("u_xm")
uqq = request("u_qq")
ueml = request("u_eml")
uid = request("u_id")
If uname = "" Or upassword = "" Or upasword1 = "" Or uxm = "" Or uqq = ""Or ueml = "" Or uid = "" Then
Response.Redirect " error.htm"
Respose.End
Rnd If
if upassword <> upassword1 then
response.redirect "error.htm"
respose.end
end if
dim conn
conn = "provider=microsoft.jet.oledb.4.0;"&"data source = "& server.mappath("ltfl.mdb")
set bb = server.createobject("adodb.connection")
bb.open conn
set rs = server.createobject("adodb.rdcordset")
rs.open "ltfl",bb,1,3
rs.addnew
rs("name") = uname
rs("password") = upassword
rs("xm") = uxm
rs("qq") = uqq
rs("eml") = ueml
rs("id") = uid
rs.updata
rs.close
bb.close
set rs = nothing
set rs = nothing
response.write "<center><font size="2" color="red">祝贺注册成功,<a href="index.html">返回首页登陆</a></font></center>"
%> |
|
IP卡
狗仔卡
发表于 2010-1-17 07:56:23
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡