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

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

Jsp/Servlet

开发平台：

Java

vpro.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  4. %><!--#include file="manage/inc/config.asp"--> 
  5. <!--#include file="inc/conn.asp"--> 
  6. <%
  7. dim id
  8. id=request.QueryString("id")
  9. dim prename,company,intro,predate,graph2,description,remarks,price
  10. set rs=server.CreateObject("adodb.recordset")
  11. rs.open "select * from product where id="&id,conn,1,3
  12. rs("viewnum")=rs("viewnum")+1
  13. rs.update
  15. %>
  16. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  17. <html>
  18. <head>
  19. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  20. <title>406网络书店</title>
  21. <link href="style.css" rel="stylesheet" type="text/css">
  23. </head>
  25. <body>
  26. <!--#include file="head.htm"-->
  29. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  30.   <tr>
  31.     <td width="219" align="left" valign="top"><!--#include file="left.asp"--></td>
  32.     <td width="561" align="left" valign="top">
  33.       <br>      <table width="568"  border="0" cellpadding="0" cellspacing="0">
  34.         <tr>
  35.           <td width="17%" height="130" align="center" valign="middle" class="shadow"><img src="<%=trim(rs("pic"))%>" width="85" height="125"></td>
  36.           <td height="130" align="left" valign="top"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
  37.             <tr>
  38.               <td colspan="2"><table border="0" cellspacing="0" cellpadding="2">
  39.                   <tr>
  40.                     <td><img src="images/w.gif" width="18" height="18"></td>
  41.                     <td><span class="booktitle"><%=trim(rs("name"))%></span></td>
  42.                   </tr>
  43.               </table></td>
  44.             </tr>
  45.             <tr class="bookinfo">
  46.               <td width="50%" class="bookinfo">作　者：<%=trim(rs("author"))%></td>
  47.               <td width="50%" class="bookinfo"> ISBN ：<%=trim(rs("type"))%></td>
  48.             </tr>
  49.             <tr class="bookinfo">
  50.               <td width="50%"> 出版社：<%=trim(rs("mark"))%></td>
  51.               <td width="50%"> 开　本：<%=trim(rs("format"))%> </td>
  52.             </tr>
  53.             <tr class="bookinfo">
  54.               <td>出版日期：<%=trim(rs("productdate"))%></td>
  55.               <td> 页　数：<%=trim(rs("pagenum"))%> </td>
  56.             </tr>
  57.             <tr class="bookinfo">
  58.               <td> 装　帧：<%=trim(rs("introduce"))%> </td>
  59.               <td> 版　次：<%=trim(rs("printed"))%> </td>
  60.             </tr>
  61.             <tr class="bookinfo">
  62.               <td>定　价：<%=trim(rs("price1"))%> </td>
  63.               <td>优惠价：<%=trim(rs("price2"))%></td>
  64.             </tr>
  65.             <tr class="bookinfo">
  66.               <td>积　分：<%=rs("score")%></td>
  67.               <td>VIP价格：<%=rs("vipprice")%></td>
  68.             </tr>
  69.             <tr class="bookinfo">
  70.               <td>浏　览：<%=trim(rs("viewnum"))%></td>
  71.               <td>购买：<%=trim(rs("solded"))%></td>
  72.             </tr>
  73.             <tr>
  74.               <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>
  75.             </tr>
  76.           </table></td>
  77.         </tr>
  78.         <tr align="left">
  79.           <td height="30" colspan="2" style="padding-left:10px;">            <table border="0" cellspacing="0" cellpadding="2">
  80.               <tr>
  81.                 <td><img src="images/w.gif" width="18" height="18"></td>
  82.                 <td style="padding-left:0px;"><strong><%=trim(rs("name"))%></strong></td>
  83.               </tr>
  84.             </table></td>
  85.         </tr>
  86.         <tr align="left">
  87.           <td colspan="2" style="padding-left:40px;"> <%=trim(rs("detail"))%></td>
  88.         </tr>
  89.         <tr align="left">
  90.           <td height="30" colspan="2" style="padding-left:10px;"><table border="0" cellspacing="0" cellpadding="2">
  91.             <tr>
  92.               <td><img src="images/w.gif" width="18" height="18"></td>
  93.               <td> <strong>目录 </strong> </td>
  94.             </tr>
  95.           </table></td>
  96.         </tr>
  97.         <tr align="left">
  98.           <td colspan="2" style="padding-left:40px;"><%=trim(rs("content"))%></td>
  99.         </tr>
  100.         <tr align="left">
  101.           <td height="30" colspan="2" style="padding-left:10px;"><table border="0" cellpadding="2" cellspacing="0">
  102.             <tr>
  103.               <td><img src="images/w.gif" width="18" height="18"></td>
  104.               <td> <strong>会员评级</strong> <a href="rank.asp?id=<%=id%>" target="_blank">发表您对这本书的评级</a></td>
  105.             </tr>
  106.           </table></td>
  107.         </tr>
  108.         <tr align="left">
  109.           <td height="30" colspan="2" style="padding-left:40px;"><%
  110. '用户评级
  112. if rs("ranknum")>0 and rs("rank")>0 then
  113. dim other
  114. other=rs("ranknum")rs("rank")
  115. else
  116. other=0
  117. end if
  118. response.write "<img src=images/rank/"&other&".gif alt=评论星级>"
  120. rs.close
  121. %>            </td>
  122.         </tr>
  123.         <tr align="left">
  124.           <td height="30" colspan="2" style="padding-left:10px;"><table border="0" cellpadding="2" cellspacing="0">
  125.             <tr>
  126.               <td><img src="images/w.gif" width="18" height="18"></td>
  127.               <td> <strong>会员评论</strong> <a href="comment.asp?id=<%=id%>" target="_blank">发表您对这本书的评论</a></td>
  128.             </tr>
  129.           </table> </td>
  130.         </tr>
  131.         <tr align="left">
  132.           <td height="30" colspan="2" style="padding-left:40px;">
  133.   <%
  134. rs.open "select * from review where id="&id&" and audit=1 ",conn,1,1
  135. if rs.eof and rs.bof then
  136. response.write "如果您用过本商品，或对本商品有所了解，欢迎您发表自己的评论。您的评论将被网络上成千上万的用户所共享，我们将对您的慷慨深表感谢。<br>"
  137. response.write "您的评论在提交后将经过我们的审核，也许您需要等待一些时间才可以看到。谢谢合作。"
  138. else
  139. do while not rs.eof 
  140. %>
  141.         [<B><%=rs("title")%></B>@<%=rs("reviewdtm")%>]<BR>
  142.                   <%=rs("reviewcontent")%><br>
  143.  
  144.             <%rs.movenext
  145. loop
  146. end if
  147. rs.close
  148. %>
  149.   </td>
  150.         </tr>
  151.         <tr align="left">
  152.           <td colspan="2">&nbsp;</td>
  153.         </tr>
  154.         <tr align="center">
  155.           <td colspan="2"><TABLE WIDTH="96%" BORDER="0" CELLPADDING="0" CELLSPACING="0" align="center">
  156.             <a name="pic"></a>
  157.             <TR>
  158.               <TD align="center"><B>本站发表用户评论，并不代表我们赞同或者支持用户的观点。我们的立场仅限于传播更多用户感兴趣的信息。</B></TD>
  159.             </TR>
  160.             <TR>
  161.               <TD align="center">&nbsp;</TD>
  162.             </TR>
  163.             <TR>
  164.               <TD align="center"><input type="button" name="Submit" value="关闭" onClick="window.close()"></TD>
  165.             </TR>
  166.           </TABLE></td>
  167.         </tr>
  168.         <tr align="center">
  169.           <td colspan="2">&nbsp;</td>
  170.         </tr>
  171.     </table></td>
  172.   </tr>
  173. </table>
  175. <!--#include file="foot.htm"-->
  176. </body>
  177. </html>
  178. <%
  180. set rs=nothing
  182. %>