黑龙江东方学院本科生毕业论文（设计）
conecter = trim(request(\tel_no = trim(request(\fax_no = trim(request(\mobile_no = trim(request(\main_product = trim(request(\company_address = trim(request(\email = trim(request(\qq_no = trim(request(%user_grade = \普通会员\ sql=\set Reg_RS=server.createobject(\Reg_RS.open sql,conn,1,3 If Reg_RS.EOF then exec = \ conecter,tel_no,fax_no,mobile_no, main_product,company_address,email,qq_no,user_grade)values('\ '\ fax_no+\ email+\conn.execute exec else Response.Write \ Response.Write \用户名被使用,请用其他用户名注册!');\ Response.Write \.go(-1);\Response.Write \End if ?关闭记录集 Reg_RS.close Set Reg_RS=nothing '关闭数据库连接 conn.Close
27
黑龙江东方学院本科生毕业论文（设计）
set conn = Nothing %> 提示注册成功并显示刚刚注册的信息。 4.2.2 会员登录模块
图4-8 会员登录模块的界面
会员登录模块的主要代码如下： <% If Not Isempty(Request(\ str1=Request(\str2=Request(\str3=Request(\str1_other=Request.Cookies(\str2_other=Request.Cookies(\?判断是否有Cookies记录 If str1_other=\Response.Cookies(\Response.cookies(\ Response.Cookies(\Response.cookies(\Else If str1_other=str1 then str1_new=str1_other str2_new=str2_other Else str1_new=str1 str2_new=str2 End If End If Set rs=conn.Execute(\?查询数据库并分别判断用户名和密码的合法性，全部吻合则允许进入，反之提示信息 If rs.eof Then Response.Write(\lanuage='javascript'>alert('您输入的用户名不正确,请重新输入!');\Else If rs(\
29
黑龙江东方学院本科生毕业论文（设计）
Response.Write(\lanuage='javascript'>alert('您输入的密码不正确,请重新输入!');\Else Session(\Session(\Session(\Session(\Session(\Response.Redirect \Response.End() End If End If End If %> 30
黑龙江东方学院本科生毕业论文（设计）
4.3 产品报价与商情子系统 4.3.1 产品报价中心模块
图4-9 产品报价中心模块的界面
<% set rs=server.CreateObject(\exec=\rs.open exec,conn,1,1 if not rs.eof then rs.PageSize=20 31