<%
dim rs,user,pass,passs
user=request("user")
pass=request("pass")
passs=request("passs")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from title where user="&user&"",conn,1,1
if pass<>passs then
response.write "<script language=JavaScript>" & chr(13) & "alert(效验密码不同);" & "history.back()" & ""
response.end
elseif user="" or pass="" then
response.write "<script language=JavaScript>" & chr(13) & "alert(*号心须添写);" & "history.back()" & ""
response.end()
elseif not rs.eof then
response.write "<script language=JavaScript>" & chr(13) & "alert(用户名已存在);" & "history.back()" & ""
response.End()
else
conn.execute "insert into title (user,pass)values("&user&","&pass&")"
response.write "<script language=JavaScript>" & chr(13) & "alert(注册成功！);" & "window.location.href(index.asp);" & ""
end if
%>
