ASP产品展示界面网页代码介绍(doc 9页).doc

ASP网页设计代码之产品展示界面亲爱的读友们，下面的代码是我平常工作时会做到的代码，所谓好东西大家一起分享，希望你们看了能够顺利的做出来哦最初一定要新建一个文件夹，无论放在哪里都可以，路径是虚拟路径。但是一定要吧下面几个创建的文件放在同一个文件夹里面。1.创建一个pro1.asp添加以下代码，这里我已经简化成最简化了。所以基本不用再继续删减了。无标题文档 % Bigclassname=Request(Bigclassname) Smallclassname=Request(Smallclassname)set rs=server.createobject(adodb.recordset)if Request(Bigclassname)= thensql=select top 700 * from product order by product_IDend ifif Request(Bigclassname) and request(smallclassanme)=thensql=select * from product where bigclassname=&Bigclassname& order by product_ID end ifif Request(Bigclassname) and request(smallclassname) thensql=select * from product where bigclassname=&Bigclassname& and Smallclassname =&smallclassname&order by product_ID descend ifrs.open sql,conn,1,1if rs.eof or rs.bof thenresponse.write 暂时没有产品记录！end ifif request(page)= thenpage=1elsepage=cint(request(page)end ifrs.pagesize=12rs.absolutepage=pageurl=Pro1.asp?BigClassName=&BigClassName&SmallClassName=&SmallClassName&page=%       a href=proshow.asp?id= target=_blankimg src= width=150 height=150 border=0 / %if i mod 4=0 thenresponse.write( )end ifrs.movenextif rs.eof then exit fornext% 1 then% a href=首页  a href=上一页   %if page a href=下一页  a href=尾页  当前第/页 %sub ShowClassGuide()response.write  产品 >>if BigClassName= and SmallClassName= thenresponse.write  所有产品elseif BigClassName thenresponse.write   & BigClassName &  >> if SmallClassName thenresponse.write & SmallClassName & elseresponse.write 所有小类end ifend ifend ifend sub%sub ShowArticleTotal()dim sqlTotaldim rsTotalsqlTotal=select Count(*) from Product where Passed=True if BigClassName thensqlTotal=sqlTotal & and BigClassName= & BigClassName & if SmallClassName thensqlTotal=sqlTotal & and SmallClassName= & SmallClassName & end ifelseif SpecialName thensqlTotal=sqlTotal & and SpecialName= & SpecialName & end ifend ifSet rsTotal= Server.CreateObject(ADODB.Recordset)rsTotal.open sqlTotal,conn,1,1if rsTotal.eof and rsTotal.bof thentotalPut=0response.write 共有 0 个产品elsetotalPut=rsTotal(0)response.Write 共有 & totalPut & 个产品end ifrsTotal.closeset rsTotal=nothingend sub %2.创建产品详细展示界面proshow.asp在proshow.asp界面添加如下代码产品详细信息%ShowSmallClassType=ShowSmallClassType_Articledim idid=trim(request(id)if id= thenresponse.Redirect(Product.asp)end ifsql=select * from Product where id= & id & Set rs= Server.CreateObject(ADODB.Recordset)rs.open sql,conn,1,3if rs.bof and rs.eof thenresponse.writealert(找不到此产品！); response.writejavascript:history.go(-1)elsers(Hits)=rs(Hits)+1rs.updateif rs(hits)=HitsOfHot thenrs(Hot)=Truers.updateend ifBigClassName=rs(BigClassName)SmallClassName=rs(SmallClassName)% %response.write   & rs(BigClassName) &  >> if rs(SmallClassName) & thenresponse.write & rs(SmallClassName) &  >> end ifresponse.write rs(Title)% img src= alt=1 border=0 点击次数：  发布时间： 【打印】 【返回】 3.创建连接数据库的文件conn.aspConn.asp文件的代码如下4.创建数据库Data.Mdb创建好Data.mdb