checkreg1.asp代码如下：
<!--#include file="coon.asp"-->
<%
reg = request.Form("reg")
select case reg
case "1"
call addu()
case "2"
call checku()
end select
%>
<%
sub addu()
set rs = server.createobject("adodb.recordset")
rs.open "user",conn,1,3
rs.addnew
rs("user_name")=request.form("username")
rs("user_password")=request.form("password")
rs("user_email")=request.form("email")
rs.update
rs.close
response.write" <script> alert('恭喜你注册成功') ; location.href='login.asp' </script> "
response.End()
end sub
%>
<%
sub ckecku()
un = "select * from user where username = '"&request.Form("username")&"' and password = '"&request.Form("password")&"'"
set rst = conn.execute(un)
if rst.eof then
response.Write"<script> alert('对不起，用户名或者密码错误');self.location.href </script>"
response.End()
else
Session("username") = rst("username")
response.write"<script>location.href='joinp.asp';</script>"
response.End()
end if
end sub
%>
用户注册页面主要代码：
<body>
<form name="reg" method="post" action="checkreg1.asp?reg=1" onSubmit="return chkfrm()">
<table width="763" height="160" border="0" cellpadding="0" cellspacing="0" class="table_reg">
<tr>
<td width="78" height="20" align="right" valign="middle">用户名：</td>
<td width="215" height="20"><label>
<input name="username" type="text" size="25" onChange="check_id_window(reg.username.value);" />
</label></td>
<td width="470"><span class="STYLE1">请在此输入用户名，长度为4-15位。</span></td>
</tr>
<tr>
<td height="20" align="right" valign="middle">密码：</td>
<td height="20"><label>
<input name="password" type="password" size="27" onChange="verify_pass();" />
</label></td>
<td><span class="STYLE1">请在此输入密码，长度为6-20位。</span></td>
</tr>
<tr>
<td height="20" align="right" valign="middle">确认密码：</td>
<td height="20"><label>
<input name="password2" type="password" size="27" onchange="verify_pass2();" />
</label></td>
<td><span class="STYLE1">请再次输入密码</span></td>
</tr>
缺省...
请教各位高手指点下，我整了好久都没整好，谢谢了！
非常感谢你，可还是没用额，问题不是出在这吧。没办法，我现在多写几个asp，真是麻烦啊。大哥大姐看到的help me！！