网上商城毕业论文(13)

图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

"/cgi-bin/search/engine/search.fcgi?key=" & strkey case "yahoo"

reponse.redirect "/search/gb?p=" & strkey & "& u=b"

case"sohu"

response.redirect

"/cgibin/search_baidu.pl?tn=sohu&si=gi&work=" &strkey &"&ct=0&cl=2&lm=0"

case "sina"

reponse.redirect

"/cgi-bin/search.cgi?_searchkey=" & strkey case "263"

reponse.redirect "/cgi-bin/tsearch?func=3&p=" & strkey

case "cseek"

reponse.redirect "/cgi/srchengine.cgi?searchkey=" & strkey

case "gdcatv" reponse.redirect

":4000/intra/owa/navigator.navi_query?pagenumber=1&button=a&text1=" & strkey

case "excite" reponse.redirect

"/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）。