<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body>
<%
set rs=server.createobject("adodb.connection")
rs.open"DBQ="&server.mappath("datadase.mdb")&";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
%>
<%
if request.form("username")<>"" and request.form("userpass")<>"" then
dim rs1
set rs1=server.CreateObject("adodb.recordset")
sql="select * from user where username='"&request.form("username")&"' order by id desc"
rs1.open sql,rs,1,1
if not rs1.bof or not rs1.eof then
response.Write"<font color='#000000'>"&request.form("username")
response.Write"已经有人注册了！</font>"
else
dim rs2
set rs2=server.CreateObject("adodb.recordset")
sql="insert into user(username,userpass) values ('"&request.form("username")&"','"&request.form("userpass")&"')"
rs2.open sql,rs,1,1
response.write "成功注册了"
set rs2=nothing
end if
set rs1=nothing
set rs=nothing
else
%>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<form name="form1" method="post" action="#">
用户名：
<input name="username" type="text" size="20" maxlength="20">
<br>
密 码：
<input name="userpass" type="password" id="userpass" size="20" maxlength="20">
<br>
<input type="submit" name="Submit" value="注册">
<input type="reset" name="Submit2" value="重置">
</form>
<br></td>
</tr>
</table>
<%end if%>
</body>
</html>
