开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
index.asp
资源名称：blog.rar　[点击查看]
上传用户：syzzy1975
上传日期：2022-07-17
资源大小：670k
文件大小：10k
源码类别：

Jsp/Servlet

开发平台：

Java

index.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="manage/inc/config.asp"--> 
  3. <!--#include file="inc/conn.asp"--> 
  4. <%
  5. dim i
  6. set rs=server.CreateObject("adodb.recordset")
  7. %>
  8. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  9. <html>
  10. <head>
  11. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  12. <title>我家网络书店</title>
  13. <link href="style.css" rel="stylesheet" type="text/css">
  15. </head>
  17. <body>
  18. <!--#include file="head.htm"-->
  21. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  22.   <tr>
  23.     <td width="219" align="left" valign="top"><!--#include file="left.asp"--></td>
  24.     <td width="561" align="left" valign="top">      <table width="100%" border="0" cellspacing="0" cellpadding="0">
  25.         <tr>
  26.           <td height="44" align="center"><form name="form1" method="get" action="rsearch.asp">
  27.               <br>
  28.         图书名称：
  29.         <input name=name class="inputstyle">
  30.         <select name=code>
  31.                 <option value="" selected>所有图书</option>
  32.                 <%
  34. rs.open "select * from category",conn,1,1
  35. do while not rs.eof
  36. %>
  37.                 <option value="<%=rs("categoryid")%>" ><%=rs("category")%></option>
  38.                 <%
  39. rs.movenext
  40. loop
  41. rs.close
  42. %>
  43.               </select>
  44.         <input name="Submit" type="submit" class="inputstyle" value="快速搜索">
  45.         <input type="button" name="Submit2" value="高级搜索" onClick="location='search.asp'">
  46.         <img src="images/line.gif" width="568" height="9">
  48.           </form></td>
  49.         </tr>
  50.         <tr>
  51.           <td align="left" valign="top"><img src="images/xssj.gif" width="221" height="28"></td>
  52.         </tr>
  53.         <tr>
  54.           <td align="center" valign="top"><table width="568"  border="0" cellpadding="0" cellspacing="0">
  55. <%
  56.   rs.open "select top 6 id,detail,discount,vipprice,author,desc,price1,price2,name,pic,mark from product order by id desc",conn,1,1
  57.   if rs.eof and rs.bof then
  58.   response.write "　　对不起，暂时还没有商品！"
  59.   end if
  60.   i=0
  61.   do while not rs.eof
  62. %>
  63.   
  64.   
  65.               <tr>
  66.                 <td width="17%" height="130" align="center" valign="middle" class="shadow"><a href="vpro.asp?id=<%=trim(rs("id"))%>" target="_blank"><img src="<%=trim(rs("pic"))%>" width="85" height="125" border="0"></a></td>
  67.                 <td width="33%" align="left" valign="top"><table width="100%"  border="0" cellspacing="1" cellpadding="0">
  68.                     <tr>
  69.                       <td colspan="2"><img src="images/w.gif" width="18" height="18"><span class="booktitle"><%=strvalue(trim(rs("name")),24)%></span></td>
  70.                     </tr>
  71.                     <tr>
  72.                       <td height="40" colspan="2" class="bookinfo"><%=trim(rs("desc"))%><br>
  73.                       <br></td>
  74.                     </tr>
  75.                     <tr>
  76.                       <td>定价:<span class="price1"><%=rs("price1") %></span>元</td>
  77.                       <td>作者:<%=rs("author") %></td>
  78.                     </tr>
  79.                     <tr>
  80.                       <td>优惠价:<span class="price2"><%=rs("price2") %></span>元</td>
  81.                       <td>VIP价:<span class="viprice"><%=rs("vipprice") %></span></td>
  82.                     </tr>
  83.                     <tr>
  84.                       <td colspan="2" align="center"><a href="icar.asp?id=<%=rs("id")%>&action=add" target="pcart"><img src="images/car.gif" width="23" height="20" border="0">放入购物车</a> </td>
  85.                     </tr>
  86.                 </table></td>
  87. <%
  88. rs.movenext
  89. if rs.eof then
  90. response.write "<td width='17%'></td><td></td>"
  91. else
  92. %>
  93.                 <td width="17%" height="130" align="center" valign="middle" class="shadow"><a href="vpro.asp?id=<%=trim(rs("id"))%>" target="_blank"><img src="<%=trim(rs("pic"))%>" width="85" height="125" border="0"></a></td>
  94.                 <td width="33%" align="left" valign="top"><table width="100%"  border="0" cellspacing="1" cellpadding="0">
  95.                     <tr>
  96.                       <td colspan="2"><img src="images/w.gif" width="18" height="18"><span class="booktitle"><%=strvalue(trim(rs("name")),24)%></span></td>
  97.                     </tr>
  98.                     <tr>
  99.                       <td height="40" colspan="2" class="bookinfo"><%=trim(rs("desc"))%><br>
  100.                       <br></td>
  101.                     </tr>
  102.                     <tr>
  103.                       <td>定价:<span class="price1"><%=rs("price1") %></span>元</td>
  104.                       <td>作者:<%=rs("author") %></td>
  105.                     </tr>
  106.                     <tr>
  107.                       <td>优惠价:<span class="price2"><%=rs("price2") %></span>元</td>
  108.                       <td>VIP价:<span class="viprice"><%=rs("vipprice") %></span>元</td>
  109.                     </tr>
  110.                     <tr>
  111.                       <td colspan="2" align="center"><a href="icar.asp?id=<%=rs("id")%>&action=add" target="pcart"><img src="images/car.gif" width="23" height="20" border="0">放入购物车</a> </td>
  112.                     </tr>
  113.                 </table></td>
  114. <%
  115. end if
  116. %>
  117.               </tr>
  118.                 <tr>
  119.                 <td colspan="4" align="center"><img src="images/line.gif" width="568" height="9"></td>
  120.               </tr>
  122. <%
  123. i=i+1
  124.   if i>=5 then exit do
  125.   if not rs.eof then   rs.movenext
  126.   loop
  127.   rs.close
  128. %>   
  129.   
  130.   
  131.               <tr align="right">
  132.                 <td colspan="4"><table width="100" border="0" cellspacing="0" cellpadding="2">
  133.                     <tr>
  134.                       <td align="left"><a href="new.asp"><img src="images/more_2.gif" width="42" height="15" border="0"></a></td>
  135.                       <td width="10">&nbsp;</td>
  136.                     </tr>
  137.                 </table></td>
  138.               </tr>
  139.               <tr>
  140.                 <td colspan="4" align="center"><img src="images/line.gif" width="568" height="9"></td>
  141.               </tr>
  142.           </table></td>
  143.         </tr>
  144.         <tr>
  145.           <td align="left" valign="top"><img src="images/tzts.gif" width="221" height="27"></td>
  146.         </tr>
  147.         <tr>
  148.           <td><table width="568"  border="0" cellpadding="0" cellspacing="0">
  149.             <%
  150.   rs.open "select top 6 id,detail,desc,discount,vipprice,author,price1,price2,name,pic,mark from product where recommend=1 order by adddate desc",conn,1,1
  152.   if rs.eof and rs.bof then
  153.   response.write "　　对不起，暂时还没有商品！"
  154.   'response.End
  155.   end if
  156.   i=0
  157.   do while not rs.eof
  158. %>
  159.             <tr>
  160.               <td width="17%" height="130" align="center" valign="middle" class="shadow"><a href="vpro.asp?id=<%=trim(rs("id"))%>" target="_blank"><img src="<%=trim(rs("pic"))%>" width="85" height="125" border="0"></a></td>
  161.               <td width="33%" align="left" valign="top"><table width="100%"  border="0" cellspacing="1" cellpadding="0">
  162.                   <tr>
  163.                     <td colspan="2"><img src="images/w.gif" width="18" height="18"><span class="booktitle"><%=strvalue(trim(rs("name")),24)%></span></td>
  164.                   </tr>
  165.                   <tr>
  166.                     <td height="40" colspan="2" class="bookinfo"><%=trim(rs("desc"))%><br>
  167.                       <br></td>
  168.                   </tr>
  169.                   <tr>
  170.                     <td>定价:<span class="price1"><%=rs("price1") %></span>元</td>
  171.                     <td>作者:<%=rs("author") %></td>
  172.                   </tr>
  173.                   <tr>
  174.                     <td>优惠价:<span class="price2"><%=rs("price2") %></span>元</td>
  175.                     <td>VIP价:<span class="viprice"><%=rs("vipprice") %></span>元</td>
  176.                   </tr>
  177.                   <tr>
  178.                     <td colspan="2" align="center"><a href="icar.asp?id=<%=rs("id")%>&action=add" target="pcart"><img src="images/car.gif" width="23" height="20" border="0">放入购物车</a> </td>
  179.                   </tr>
  180.               </table></td>
  181.               <%
  182. rs.movenext
  184. if rs.eof then
  185. response.write "<td width='17%'></td><td></td>"
  186. else
  188. %>
  189.               <td width="17%" height="130" align="center" valign="middle" class="shadow"><a href="vpro.asp?id=<%=trim(rs("id"))%>" target="_blank"><img src="<%=trim(rs("pic"))%>" width="85" height="125" border="0"></a></td>
  190.               <td width="33%" align="left" valign="top"><table width="100%"  border="0" cellspacing="1" cellpadding="0">
  191.                   <tr>
  192.                     <td colspan="2"><img src="images/w.gif" width="18" height="18"><span class="booktitle"><%=strvalue(trim(rs("name")),24)%></span></td>
  193.                   </tr>
  194.                   <tr>
  195.                     <td height="40" colspan="2" class="bookinfo"><%=trim(rs("desc"))%><br>
  196.                       <br></td>
  197.                   </tr>
  198.                   <tr>
  199.                     <td>定价:<span class="price1"><%=rs("price1") %></span>元</td>
  200.                     <td>作者:<%=rs("author") %></td>
  201.                   </tr>
  202.                   <tr>
  203.                     <td>优惠价:<span class="price2"><%=rs("price2") %></span>元</td>
  204.                     <td>VIP价:<span class="viprice"><%=rs("vipprice") %></span>元</td>
  205.                   </tr>
  206.                   <tr>
  207.                     <td colspan="2" align="center"><a href="icar.asp?id=<%=rs("id")%>&action=add" target="pcart"><img src="images/car.gif" width="23" height="20" border="0">放入购物车</a> </td>
  208.                   </tr>
  209.               </table></td>
  210. <%
  211. end if
  212. %>
  213.             </tr>
  214.             <tr>
  215.               <td colspan="4" align="center"><img src="images/line.gif" width="568" height="9"></td>
  216.             </tr>
  218.             <%
  219. i=i+1
  220.   if i>=5 then exit do
  221. if not rs.eof then   rs.movenext
  222.   loop
  223.   rs.close
  224.   set rs=nothing
  225. %>
  226.             <tr align="right">
  227.               <td colspan="4"><table width="100" border="0" cellspacing="0" cellpadding="2">
  228.                   <tr>
  229.                     <td align="left"><a href="commend.asp"><img src="images/more_2.gif" width="42" height="15" border="0"></a></td>
  230.                     <td width="10">&nbsp;</td>
  231.                   </tr>
  232.               </table></td>
  233.             </tr>
  234.             <tr>
  235.               <td colspan="4" align="center"><img src="images/line.gif" width="568" height="9"></td>
  236.             </tr>
  237.           </table></td>
  238.         </tr>
  239.     </table></td>
  240.   </tr>
  241. </table>
  243. <!--#include file="foot.htm"-->
  244. </body>
  245. </html>