|
3．2 图书信息模块的实现 主要是查看图书列表、搜索图书、显示图书信息、把图书放入购物车等功能。主要包括以下文件： 内容来自www.paper51.com
class.asp：显示图书分类列表。 copyright paper51.com sub.asp：显示分类图书。 paper51.com new.asp：显示新品图书。 内容来自www.paper51.com hot.asp：显示畅销图书。 内容来自论文无忧网 www.paper51.com
commend.asp：显示推荐图书。 http://www.paper51.com search.asp：搜索图书，可以按照图书名称、作者名称、出版社、出版时间、价格范围及图书类别搜索。 http://www.paper51.com car.asp：查看我的购物车信息，图书结账。 copyright paper51.com vpro.asp：查看详细图书信息。 http://www.paper51.com 3．2．1 分类的显示和详细信息的显示 http://www.paper51.com 分类列表的显示 paper51.com class.asp程序实现图书的分类显示功能, http://www.paper51.com sub.asp程序完成当客户单击某一分类时显示具体分类图书的功能,显示内容为该图书的图片及一些基本的图书信息。 内容来自www.paper51.com 图书详细信息显示 内容来自www.paper51.com vpro.asp 程序完成当用户单击图书名称时显示图书的详细信息。效果如图3-3 内容来自论文无忧网 www.paper51.com http://www.paper51.com 图3-3 图书详细信息显示界面 http://www.paper51.com
其关键代码如下： paper51.com <!--#include file="manage/inc/config.asp"--> http://www.paper51.com <!--#include file="inc/conn.asp"--> http://www.paper51.com <% 内容来自www.paper51.com
dim id 内容来自www.paper51.com '得到图书id copyright paper51.com id=request.QueryString("id") 内容来自论文无忧网 www.paper51.com '定义变量 http://www.paper51.com
Dim prename,company,intro,predate,graph2,description,remarks,price http://www.paper51.com
'初始化recordset对象 内容来自www.paper51.com set rs=server.CreateObject("adodb.recordset") 内容来自www.paper51.com '在数据库中查询图书 paper51.com rs.open "select * from product where id="&id,conn,1,3 内容来自论文无忧网 www.paper51.com '图书浏览次数加1 http://www.paper51.com
rs("viewnum")=rs("viewnum")+1 copyright paper51.com rs.update 内容来自www.paper51.com %> 内容来自www.paper51.com
3．2．2 图书的搜索 paper51.com search.asp程序实现搜索，供客户输入搜索条件并进行有效性验证，当客户输入的搜索条件经过有效性验证后程序就会把数据提交到rsearch.asp，由rsearch.asp进行搜索和显示搜索结果。例如,我现在要搜索一本书名中有ASP的图书,就可以这样做,如图3-4。单击[开始搜索]出现图3-5的搜索结果。 http://www.paper51.com 内容来自论文无忧网 www.paper51.com 图3-4 图书搜索search.asp运行界面 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 图3-5 图书搜索结果rsearch.asp运行界面 内容来自www.paper51.com rsearch.asp代码如下： 内容来自www.paper51.com <!--#includefile="manage/inc/config.asp"--> http://www.paper51.com <!--#include file="inc/conn.asp"--> paper51.com
<% 内容来自www.paper51.com '判断用户是否进行搜索 内容来自论文无忧网 www.paper51.com if request.QueryString="" then 内容来自论文无忧网 www.paper51.com callMsgBox("错误：没有搜索条件!","GoUrl","search.asp") copyright paper51.com response.end 内容来自www.paper51.com end if 内容来自www.paper51.com
'开始分页 http://www.paper51.com Const MaxPerPage=5 内容来自www.paper51.com dim totalPut copyright paper51.com dim CurrentPage 内容来自论文无忧网 www.paper51.com
dim TotalPages 内容来自论文无忧网 www.paper51.com
dim j copyright paper51.com dim sql 内容来自www.paper51.com dim nid,sortsid copyright paper51.com if Not isempty(request.QueryString("page"))then http://www.paper51.com
currentPage=Cint(request.QueryString("page")) paper51.com
else http://www.paper51.com currentPage=1 copyright paper51.com end if 内容来自论文无忧网 www.paper51.com set rs=server.CreateObject("adodb.recordset") http://www.paper51.com
'定义变量 copyright paper51.com dim name http://www.paper51.com
dim author paper51.com dim manufacturer http://www.paper51.com dim enabledate paper51.com dim expiredate copyright paper51.com dim smallprice 内容来自论文无忧网 www.paper51.com dim largeprice http://www.paper51.com dim code copyright paper51.com
dim OrderField paper51.com dim Order paper51.com |