网学网为广大网友收集整理了，基于ASP的电子商务网站的建设，希望对大家有所帮助！
第5章 系统的详细设计及系统功能的实现 5.1 主页及主页实现(temp.htm)  图5.1 5.1.1 代码功能 主页为框架集页面，其中包括个模块的连接.代码如下： <% ''定义连接数据库的语句 connstring="driver={microsoft access driver (*.mdb)};" connstring=connstring&"dbq="&server.mappath("shopping.mdb") pagesize=3 ''每页显示多少条记录 timeoutsession=5 session.timeout=timeoutsession function sqlstr(data) sqlstr="''"&replace(data,"''","''''")&"''" end function ''连接数据库 ,打开商品表的小类查询 set conn=server.createobject("adodb.connection") conn.open connstring set objproductrs=server.createobject("adodb.recordset") set objkindrs=server.createobject("adodb.recordset") objproductrs.activeconnection=conn objkindrs.activeconnection=conn sqlstr1="select * from product" sqlstr2="select * from productkind" objproductrs.open sqlstr1 objkindrs.open sqlstr2 %> 5.2 商品浏览模块 5.2.1（客户浏览页面 show.asp） 主要分页显示商品信息. 代码如下 <html> <head> <title>体育用品专卖店</title> <meta content="text/html;charest=gb2312" http-equiv=content-type> <style type="text/css"> <!-- td{font-size:10pt;"宋体";line-height:14pt;"宋体";} A:link{text-decoration:underline;color:#000000} A:visited{text-decoration:underline;color:#000090} A:active{text-decoration:none;color:#0000ff} A:hover{text-decoration:none;color:ff0000} .class1{background:#eeeeee;border-style:solid;border-color:#6666cc;border-width:1;} --> </style> </head> <body background=""bgcolor=#ffffff text="#000000" topmargin="0" leftmargin="30" style="font:10pt"> <table border="0" cellpadding="0" width="500"> <tr><td> <%''***************核心asp文件的开始******************%> <!--#include file="config.inc"--> <% ''此函数用来规范SQL查询语句 function sqlstr(data) sqlstr="''"&replace(data,"''","''''")&"''" end function dim ipagesize dim pagetotal dim ipagecurrent dim ssql dim lngusersessionID lngusersessionID=sessionID ''判断这是一个新的用户连接打开的show.asp页面,还是由于用户单击"上一页",下一页",等来请求的页面 ''如果是一个新的请求,训育需要对于一些变量另以初始化,例如,将记录用户是否已经连接的 ''session变量值标记为已经连接状态;将每页显示的记录条数初始化为config.inc中定义的数量 ''如果不是一个新的请求,那么判断该页面是从用户请求当前页面的另一页中产生.如果是用户在自定义 ''每页显示记录条数的文本框中输入了数值并且提交了表单,程序必须要判断该用户提交的数值是不是合法 ''如果合法,则按照把该数值设置为每页显示记录条数的新值 if isempty(session("isconnected")) then session("isconnected")=true ipagesize=pagesize else ipagesize=trim(request.form("ipagesize")) if ipagesize="" or not isnumeric(ipagesize) or ipagesize="0" then ipagesize=session("pagesize") ''用户可以改变每页显示记录数 end if end if ''如果用户发出的是一个新的连接请求,则ipagesize当前值是pagesize,为config.inc 中预定 ''义记录每页显示多少条记录已知常量,并把该数据记录到session变量session("pagesize")中 '';如果用户发出的不是一个新的连接请求,则ipagesize记录的是用户通过修改每页显示记录, ''条数的文本框的值,这个如果不合法,经过上段程序判断的结果,ipagesize被重新赋予 ''原来存储在session("pagesize")中 session("pagesize")=ipagesize ''这里处理的是用户选择的显示页面,通过"上一页,"或者直接在浏览器地址拦中加入带参数的url来请求处理 ''如果url中传递的页面参数为空,则设置为第一页,如果不为空,则把该参数赋予记录将要显示页面的变量 if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if ''连接数据库 ,打开商品表的小类查询 set conn=server.createobject("adodb.connection") conn.open connstring set objproductrs=server.createobject("adodb.recordset") set objkindrs=server.createobject("adodb.recordset") objproductrs.activeconnection=conn objkindrs.activeconnection=conn sqlstr1="select * from product" sqlstr2="select * from productkind" objproductrs.open sqlstr1 objkindrs.open sqlstr2 ''如果记录指针指向文件末尾标识,则表明该表是空的,暂且还没有任何数据 if objproductrs.eof then response.write "<center>对不起,目前没有搜索到您要求的数据!</center>" response.end ''由于数据库 中没有该死类的商品,则后面的程序都不需要要执行 end if objproductrs.movefirst ''获取用户从导航栏程序中所选择要显示的商品种类,这个参数通过url传递到该程序 ''如果用户是从浏览器地十栏中输入该url并且其小类参数为空,则将小类值设置为当前数据指针所在记录的商品的小类 kindchoice=request.querystring("choice") if kindchoice="" then kindchoice=objkindrs("kind") end if ''从数据库表中抽取出此种类的记录集 set objkindtotalrs=server.createobject("adodb.recordset") sql="select * from product where kind="&sqlstr(kindchoice) objkindtotalrs.open sql,conn,1,3 ''下面的if 语句用来计算显示商品所需要的总页面数 objkindtotalrs.pagesize=ipagesize pagetotal=objkindtotalrs.pagecount ''如果所需要显示的页面不在范围之内,则需要进行溢出处理 if ipagecurrent>pagetotal then ipagecurrent=pagetotal if iapgecurrent<1 then ipagecurrent=1 ''记录当前的商品小类和所在页面数 session("page")=ipagecurrent session("productkind")=kindchoice ''如果没有此类商品 if pagetotal=0 then response.write "<br><br><center><font class=normal>对不起,目前没有您要的商品!</font></center><hr color=#999933 size=1>" response.end else |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
