免费玩具销售系统的设计与实现

com_ValidateCode"))=Trim(Request.Form("validatecode")) Then
if objrs.eof then member_name="不存在"
do while not objrs.eof
session("member_name")=member_name
if member_name=objrs.fields(0).value then
if member_password=objrs.fields(1).value then
session("member_name")=member_name
end if
else
member_name="不存在"
objrs.movelast
end if
objrs.movenext
loop
else
member_name="不存在"
end if
objrs.close
set objrs=nothing
objcon1.close
set objcon1=nothing
%>
（3）取回密码
按密码提示问题回答，回答正确才得到密码，否则进入提示页面“此用户帐号不存在，请重新输入!”。主要代码如下
<%
dim objcon1
set objcon1=server.CreateObject("adodb.connection")
objcon1.connectionstring =_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objcon1.open
dim member_name1
member_name1= request ("member_name1")
dim strsql
strsql="select * from Register where 用户帐号='"& member_name1 &"'"
dim objrs
set objrs=server.CreateObject("adodb.recordset")
objrs.open strsql ,objcon1,1,1
dim member_question
do while not objrs.eof
if member_name1=objrs.fields(0).value then
member_question=objrs.fields(10).value
session("name")=member_question
objrs.movelast
end if
objrs.movenext
loop
if session("name")=empty then
member_name1="不存在"
end if
objrs.close
set objrs = nothing
objcon1.close
set objcon1 = nothing
%>
<% LANGUAGE="VBSCRIPT"%>
<%if member_name1="不存在" then%>
<td colspan="2" align="center" valign="middle" background="image/BG3.GIF" class="style18 STYLE38">此用户帐号不存在，请重新输入!</td>
<% else %>
<%
dim objcon1
set objcon1=server.CreateObject("adodb.connection")
objcon1.connectionstring =_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objcon1.open
dim member_answer
member_answer= request ("member_answer")
dim strsql
strsql="select * from Register where 密码提示答案='"& member_answer &"'"
dim objrs
set objrs=server.CreateObject("adodb.recordset")
objrs.open strsql,objcon1,1,1
do while not objrs.eof
session("name")=objrs.fields(1).value
objrs.movenext
loop
objrs.close
set objrs = nothing
objcon1.close
set objcon1 = nothing
%>

5.2.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 keyword
keyword= request ("pro_type_search")
dim strsql
strsql="select * from Toy where 玩具名称 like '%"& keyword &"%'"
dim objrs
&

首页上一页 3 4 5 6 7 8 9 下一页尾页 6/9/9