<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<%
if psd2 <>psd then
Response.Write(" <script> alert('两次密码不相同!'); history.go(-1); </script> ")
response.End()
end if
if uname=""or tel=""or un="" then 'or psd=""or un=""or xb=""or sr=""or tel=""or zy=""
Response.Write(" <script> alert('请填写完整!'); history.go(-1); </script> ")
response.End()
end if
exec="select * from user where uname='"&uname&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open exec,conn,1,1
if not (rs.eof and rs.bof) then
response.write" <SCRIPT language=JavaScript>alert('用户名重复，请重新选择一个用户名！');"
response.write" history.go(-1);</SCRIPT>"
response.End()
end if
exec="insert into user(uname,psd,un,tel)values('"+uname+"','"+psd+"','"+un+"','"+tel+"')"
conn.execute exec
Response.Write(" <script> alert('已提交成功!'); this.location.href='index.asp'; </script> ")
%>
<body>
</body>
</html>
