免费玩具销售系统的设计与实现(一)(5)

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("网上玩具销售系统的设计与实现.