p;5.2 功能实现
5.2.1 用户管理
（1）用户注册
检查新注册用户名是否已存在，存在进入提示页面，否则进入注册页面，提交时用函数检查必填项不能为空，更新数据库中用户注册表，提示注册成功。主要代码如下：
<%
dim objcon1
set objcon1=server.CreateObject("adodb.connection")
objcon1.connectionstring =_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objcon1.open
dim objrs1
set objrs=server.CreateObject("adodb.recordset")
objrs.open "Register" ,objcon1,1,1
new_member_name=request("new_member_name")
new_member_name=trim(new_member_name)
session("name")=new_member_name
do while not objrs.eof
if new_member_name=objrs.fields(0).value then
new_member_name="已存在"
objrs.movelast
end if
objrs.movenext
loop
objrs.close
set objrs=nothing
objcon1.close
set objcon1=nothing
dim member_password2,popedom_check,member_nickname,member_sex,member_email,member_phone,member_fax,member_postalcode,member_address,member_question,member_answer
member_password2=request("member_password2")
popedom_check=request("popedom_check")
member_nickname=request("member_nickname")
member_sex=request("member_sex")
member_email=request("member_email")
member_phone=request("member_phone")
member_fax=request("member_fax")
member_postalcode=request("member_postalcode")
member_address=request("member_address")
member_question=request("member_question")
member_answer=request("member_answer")
dim objcon1
set objcon1=server.createobject("ADODB.Connection")
objcon1.ConnectionString =_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objcon1.open
dim strsql
strsql="insert into Register (用户帐号,会员密码,会员身份,真实姓名,会员性别,电子邮件,联系电话,联系传真,邮政编码,联系地址,密码提示问题,密码提示答案)values('"&session("name")&"','"&member_password2&"','"&popedom_check&"','"&member_nickname&"','"&member_sex&"','"&member_email&"','"&member_phone&"','"&member_fax&"','"&member_postalcode&"','"&member_address&"','"&member_question&"','"&member_answer&"')"
objcon1.execute(strsql)
objcon1.close
set objcon1=nothing
%>
（2）用户登录
用函数检查用户名和密码输入不能为空，再检查验证码、用户名和密码是否正确，正确才能登录，否则进入提示页面。主要代码如下：
<%
dim objcon1
set objcon1=server.CreateObject("adodb.connection")
objcon1.connectionstring =_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objcon1.open
dim strsql
strsql="select * from Register where 用户帐号='"&request("member_name")&"' and 会员密码='"&request("member_password")&"'"
dim objrs
set objrs=server.CreateObject("adodb.recordset")
objrs.open strsql,objcon1,1,1
member_name=request("member_name")
member_password=request("member_password")
If Trim(Session("网上玩具销售系统的设计与实现.
