




已阅读5页,还剩4页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 粮食药品库管理制度(3篇)
- 摩托活动策划方案(3篇)
- 环保.活动策划方案(3篇)
- 中小学校园防护安全教育(3篇)
- 炒股活动策划方案(3篇)
- 建筑工程质量管理学题库(3篇)
- 分析隐蔽工程质量管理制度(3篇)
- 重庆水利发电站施工方案(3篇)
- 政府委托课题管理制度(3篇)
- 人力咨询方案怎么写好呢(3篇)
- 《个案工作》(第2版)笔记和课后习题详解
- 《生产者责任延伸制》课件
- 特殊教育教师聘用协议样本
- 电力技术监督管理制度汇编【全套范本】
- 人教版四年级上册数学第三单元《角的度量》测试卷附答案(能力提升)
- 肾结石的医学影像诊断与治疗
- 钻探工程考试真题单选题100道及答案解析
- 初一(秋季)第11次课非连续性文本阅读 学案(学生版+教师版)
- 纵隔气肿的护理
- T-CWAN 0116-2024 金属材料焊接接头应力X射线测试方法
- 乙型脑炎病毒感染的宿主免疫反应机制
评论
0/150
提交评论