Register.asp 填写并保存注册会员信息页面。本页面是注册页面。其主要功能有：

　1、通过表单提交用户所填资料；

　　2、按一定的规则自动生成会员ID；

　　3、通过myreset()自定义函数执行重写命令；

　　4、通过mysubmit()自定义函数检查资料是否填写完整，如不完整，弹出相应的提示框，否则进行表单提交，进入本页面的程序处理代码，处理完毕，跳转到"register_OK.asp"页面，显示注册成功相关信息。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
'如果从表单中提取的用户名不为空，而且session("mName")为空，则，
if Request.Form("mName")<>"" and session("mName")="" then
'将表单中获取的ID、用户名和密码分别存入变量session("MyID")、session("mName")和session("MyPD")中。
session("MyID")=request.Form("ID")
session("mName")=Request.Form("mName")
session("MyPWD")=request.Form("PassWord")
'将从表单中提取来的各项值分别存入相应的变量中。
mName=Request.Form("mName")
city=Request.Form("city")
address=Request.Form("address")
postcode=Request.Form("postcode")
CardNO=Request.Form("CardNO")
CardType=Request.Form("CardType")
Tel=Request.Form("Tel")
Email=Request.Form("Email")
'向DB_Member表中插入一条记录，各字段值就是从表单中提取来的各项值。
Ins_sql = "Insert into DB_Member (ID,mName,PassWord,city,address,postcode,CardNO,"&_
"CardType,Tel,Email) values('"&session("MyID")&"','"&mName&"','"&session("MyPWD")&_
"','"&city&"','"&address&"','"&postcode&"','"&CardNO&"','"&CardType&"','"&Tel&_
"','"&Email&"')"
conn.execute(Ins_sql)
'页面转向到“register_OK.asp”页面。即注册成功页面。
response.redirect("register_OK.asp")
end if
%>
<%
'创建一个记录集对象。
Set rs_Max = Server.CreateObject("ADODB.Recordset")
'***从会员信息表（DB_Member）中取出最大的会员ID。
sql_max="SELECT MAX(ID) AS MaxID FROM DB_Member"
rs_max=conn.execute(sql_max)
%>

cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#aaaaFF">