<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=db_conn.asp-->
<%
dim a1,a2,a3,a4,a5,rs          '声明变量，将获取到的表单变量内容赋值与此，方便调用
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

a1=request.Form("username")
a2=request.Form("userpwd1")
a3=request.Form("sex")
a4=request.Form("email")
a5=cdate(request.Form("year")&"-"&request.Form("month")&"-"&request.Form("day"))  'cdate函数:用于将字符串转化为日期型数据

 

''''''''''''''''分割线'''''''''''''''''''''''
''这部分代码的功能为检查用户名重复
set rs=conn.execute("select count(*) from users where username='"&a1&"'")

 

if rs(0)=1 then
       response.Write("<script>alert('用户名已被占用，请返回修改！');history.go(-1)</script>")
       conn.close
       response.End()
end if
''''''''''''''''分割线'''''''''''''''''''''''

 

 

conn.execute("insert into users values('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"')") 
'在当前数据库连接中,执行SQL语句,当前为向数据表中插入用户记录,即为注册

 

'response.Write("<center>恭喜你注册成功，下面是您的个人资料，请妥善保存！五秒中自动跳转到注册页面</center>")  '注册成功,反馈提示信息
'response.Write("<meta http-equiv='refresh' content='5;url=http://localhost/website/2.27/mly_zhuce.html' />")
'定时跳转到相应页面

 

response.Write("<script>alert('注册成功');location.href('mly_zhuce.html')</script>")
'输出java脚本,弹出注册成功的提示信息,并跳转到相应位置
conn.close