超市管理系统论文 第4页
为了能更好的,更方便的对会员资料的管理和记录每位会员的活动，注册并登录会员区进行购物是不可缺少的。该会员维护模块（图4-6）是属于系统管理员操做的模块，提供了“添加会员”、“查看新会员”、“商品维护”以及“销售统计”四大功能。对于新加入的还未进入会员数据库的，管理员首先是要进入“添加会员”模块填写新加入会员的“会员编号”，“登录名”等相关信息（图4-8），然后点击“提交”，该会员资料便会输入到member会员表（图4-7）。新加入的会员可以去管理员处充值，管理员会给你一个会员编号，这样就可以使用购物车购物了。
图4-6
此注册页面用到了SQL的查询和添加语法。先查询申请的用户名在数据表中是否存在，若存在，给出用户重名的信息，否则，将申请的用户名添加到数据表中（图4-6）。
图4-7
查询语法：select * from [表名] where 条件
添加语法：insert into [表名] (字段列表) values(相应信息) where 条件
图4-8
<%
dim strsql
set rs=server.createobject("adodb.recordset")
strsql="select mename,meno,memoney from member"
rs.open strsql,cn,3,3
if request.form("hidact")="submit" then
%>
<!--#include file="validate.asp"-->
<%
if errormsg="" then
while not rs.eof
if request.form("chk"&rs.fields("meno"))="1" then
strsql="delete *from member where meno="&rs.fields("meno")
cn.execute strsql
else
if request.form("txt"&rs.fields("meno"))<>""then
strsql="update member set"
strsql=strsql&vbcrlf&"memoney=memoney+"
strsql=strsql&request.form("txt"&rs.fields("meno"))
strsql=strsql&vbcrlf&"where meno="&rs.fields("meno")
cn.execute strsql
end if
end if
rs.movenext
wend
response.write"<p align=""center"">冲值成功！</p>"
end if
end if
%>
该会员维护模块很好的实现了系统管理员对该网站会员的管理，便于对当天销售情况，销售统计，包括对会员的余额和冲值记录以及客流量等因素进行分析，从而为今后更好的管理和维护网站打下基础。
4.5 搜索引擎模块
搜索引擎的最基本功能是方便客户进行在线货物查询,使客户购买目标准确,大大节省了在网上寻找的时间，一般用于对于具有明确购物目地的客户。（图4-9）
图4-9
在此模块中可以通过“要搜索的关键字”，“请选择搜索引擎”两大功能实现对网上货物的查询。
这个搜所引擎模式的ASP程序如下：
<%@language=vbscript %>
<%
dim strkey
if request.form("cmdsearch")="开始搜索" then
strkey=request.form("txtkey")
if strkey<>""then
select case request.form("cboengine")
case"163"
reponse.redirect "http://search.163.com/cgi-bin/search/engine/search.fcgi?key=" & strkey
case "yahoo"
reponse.redirect "http://search.chinese.yahoo.com/search/gb?p=" & strkey & "& u=b"
case"sohu"
response.redirect "http://search.sohu.com/cgibin/search_baidu.pl?tn=sohu&si=gi&work=" &strkey &"&ct=0&cl=2&lm=0"
case "sina"
reponse.redirect "http://search.sina.com.cn/cgi-bin/search.cgi?_searchkey=" & strkey
case "263"
reponse.redirect "http://search.263.net/cgi-bin/tsearch?func=3&p=" & strkey
case "cseek"
reponse.redirect "http://www.cseek.com/cgi/srchengine.cgi?searchkey=" & strkey
case "gdcatv"
reponse.redirect "http://www.gdcatv.com.cn:4000/intra/owa/navigator.navi_query?pagenumber=1&button=a&text1=" & strkey
case "excite"
reponse.redirect "http://www.excite.com/search.gw?look=default&c=web&trace=b&search=" & strkey
end select
else
response.write"请先输入要搜索的关键字"
end if
end if
%>
4.6 订单查询模块
该模块通过对会员编号的查询，从而得到会员最近一次的购物情况，使客户对自己的购物行为有大致的了解（图4-10）。
图4-10
若输入的编号不在数据库或者输入错误的编号，此时系统就会显示“你不是会员，无法查询”（图4-11）。
图4-11
<head>
<!--#include file="connection.asp"-->
<% if request.form("bh")<>"" then%>
<% set rs1=server.createobject("adodb.recordset")
rs1.source="select *from member where meno="&request.form("bh")&" "
set rs1.activeconnection=cn
rs1.open
if rs1.eof then
response.write "你不是会员，无法查询！！！" %>
<% else %>
<%
set rs =server.createobject("adodb.recordset")
rs.source="select *from member where meno="&request.form("bh")&" "
set rs.activeconnection=cn
rs.open
%>
<meta name="Microsoft Theme" content="tilt 011">
</head>
<font color=pinkred>
<p>敬爱的用户，您好！您的余额为<%=rs.fields("memoney")%>元。</p>
若需要充值请与管理员联系！！OK！ </font>
<% end if %>
<% else%>
<font size=6>
<font color=red>