你把TOP里的文件和regpro.asp发上来就可以了，注册页面就你刚才发的那个不要动
[编程论坛] ASP超级群：49158383 敲门暗号：ASP编程
龍艺博客 http://www.
<!--#include file="conn.asp"-->
<html>
<head>
<title>XXXXX</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="5; url=right.htm">
<SCRIPT language=JavaScript>
<!--
function RegFrom_onsubmit() {
if(document.Regfrom.idtext.value=="")
{
alert("请填写[会员帐号],然后再[提交申请].")
document.Regfrom.idtext.focus()
return false
}
else if(document.Regfrom.pwdtext.value=="")
{
alert("请填写[密码],然后再[提交申请].")
document.Regfrom.pwdtext.focus()
return false
}
else if(document.Regfrom.pwdtext2.value=="")
{
alert("请填写[密码确定],然后再[提交申请].")
document.Regfrom.pwdtext2.focus()
return false
}
else if(document.Regfrom.pwdtext.value!=document.Regfrom.pwdtext2.value)
{
alert("两次填写的密码不一致,请确定密码正确.")
document.Regfrom.pwdtext2.focus()
return false
}
else if(document.Regfrom.wttext.value=="")
{
alert("请填写[电子邮件],然后再[提交申请].")
document.Regfrom.wttext.focus()
return false
}
}
-->
</SCRIPT>
<style type="text/css">
<!--
body,td,th {
font-family: Tahoma;
font-size: 12px;
color: #333333;
}
.MainFront {
font-family: Tahoma;
font-size: 12px;
color: #000000;
}
.RedFront {
font-family: Tahoma;
font-size: 12px;
color: #FF0000;
}
.STYLE3 {font-size: 16px}
.STYLE4 {font-size: 14px}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" height="250" border="0" align="left" cellspacing="0">
<tr>
<td align="center"><p>
<table width="384" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
if request.Form("idtext")<>"" then
set myrec=server.CreateObject("ADODB.Recordset")
set rs=server.CreateObject("ADODB.Recordset")
myrec.open "Users",conn,3,3
sql="select * from users where name='"&request.Form("idtext")&"'"
rs.open sql,conn,1,1
if not rs.eof then
conn.close
set rs=nothing
set myrec=nothing
set conn=nothing
%>
<td width="113"><p><span class="STYLE4">很遗憾 你的帐号已被人注册</span></p>
<p><a href="rep.htm">请从新注册</a>
<%else%>
</p>
<td width="205"><p><span class="STYLE4">恭喜你 你的帐号注册成功.<br>请在上方登陆您的帐号</span></p>
<p>
<%
myrec.addnew
myrec("name")=request.Form("idtext")
myrec("word")=request.Form("pwdtext")
myrec("key1")=request.Form("wttext")
myrec.update
conn.close
set rs=nothing
set myrec=nothing
set conn=nothing
end if
else
response.Redirect("right.htm")
end if
%>
</p></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<p>
</td>
</tr>
</table>
</body>
</html>