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>
上一页 [1] [2] [3] [4] [5] [6] 下一页