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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Products.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：28k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

Products.asp：源码内容
  1. <html>
  2. <head>
  3. <!--#include file="conn.asp"-->
  4. <!--#include file="config.asp"-->
  5. <!--#include file="./alipay_inc/myAlipay.asp"-->
  6. <!--#include file="./alipay_inc/alipay_Config.asp"-->
  7. <%set rss=server.CreateObject("adodb.recordset")
  8. rss.open "select * from products where bookid="&request.querystring("id"),conn,1,3
  9. if rss.eof or bof then
  10. response.write "<script>alert('对不起，没有此商品!');history.go(-1);</script>"
  11. response.end
  12. end if 
  13. dim des
  14. if not rss("metad")="" then 
  15. des=rss("metad")
  16. end if 
  17. if not rss("metak")="" then 
  18. keya=rss("metak")
  19. end if 
  20. %>
  21. <title><%=rss("bookname")%>_网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。</title>
  22. <meta name="description" content="<%=des%>">
  23. <meta name="keywords" content="<%=keya%>"> 
  24. <link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
  25. </head>
  26. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
  27. <%if IsNumeric(request.QueryString("id"))=False then
  28. response.write("<script>alert(""非法访问!"");location.href=""index.asp"";</script>")
  29. response.end
  30. end if
  31. dim id
  32. id=request.QueryString("id")
  33. if not isinteger(id) then
  34. response.write"<script>alert(""非法访问!"");location.href=""index.asp"";</script>"
  35. end if%>
  36. <%dim bookid,action
  37. bookid=request.QueryString("id")
  38. action=request.QueryString("action")
  39. if action="save" then
  40. set rs=server.CreateObject("adodb.recordset")
  41. rs.open "select * from review",conn,1,3
  42. rs.addnew
  43. rs("bookid")=bookid
  44. rs("pingji")=request("pingji")
  45. rs("pinglunname")=HTMLEncode2(trim(request("pinglunname")))
  46. rs("pingluntitle")=HTMLEncode2(trim(request("pingluntitle")))
  47. rs("pingluncontent")=HTMLEncode2(trim(request("pingluncontent")))
  48. rs("ip")=Request.servervariables("REMOTE_ADDR")
  49. rs("pinglundate")=now()
  50. rs("shenhe")=0
  51. rs.update
  52. rs.close
  53. set rs=nothing
  54. set rs=server.CreateObject("adodb.recordset")
  55. rs.open "select * from products where bookid="&bookid,conn,1,3
  56. rs("pingji")=rs("pingji")+1
  57. rs("pingjizong")=rs("pingjizong")+request("pingji")
  58. rs.update
  59. rs.close
  60. set rs=nothing
  61. response.Write "<script language=javascript>alert('您的评论已成功提交,待管理员审核！');history.go(-1);</script>"
  62. response.End
  63. end if
  64. %>
  65. <!--#include file="include/head.asp"-->
  66. <table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
  67.   <tr>
  68.     <td width="39" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
  69.       <tr>
  70.         <td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
  71.       </tr>
  72.       <tr>
  73.         <td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
  74.       </tr>
  75.       <tr>
  76.         <td height="30">&nbsp;</td>
  77.       </tr>
  78.     </table></td>
  79.     <td width="190"style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;" valign="top">
  80. <table width="100%" border="0" cellspacing="0" cellpadding="0" >
  81.       <tr>
  82.         <td ><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
  83.           <tr>
  84.               <td align="center" valign="middle" background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="logins.asp"--></td>
  85.           </tr>
  86.         </table></td>
  87.       </tr>
  88.       <tr>
  89.         <td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
  90.       </tr>
  91.       <tr>
  92.         <td><!--#include file="viewhistory.asp"--><!--#include file="searc.asp"--><!--#include file="shopcart.asp"--></td>
  93.       </tr>
  94.       <tr>
  95.         <td><!--#include file="include/selltop.asp"--></td>
  96.       </tr>
  97.   <tr>
  98.                 <td height="5"></td>
  99.               </tr>
  100.               <tr>
  101.                 <td><div align="center"><a href="<%=ad6url%>" target="_blank"><img src="<%=ad6%>" border="0" width="180" ></a></div></td>
  102.               </tr>
  103.   <tr>
  104.                 <td height="5"></td>
  105.               </tr>              <tr>
  106.                 <td><div align="center"><a href="<%=ad7url%>" target="_blank"><img src="<%=ad7%>" border="0" width="180"  ></a></div></td>
  107.               </tr>
  108.     </table></td>
  109.     <td valign="top"><table width="100%" height="41" border="0" align="center" cellpadding="0" cellspacing="0">
  110.       <tr>
  111.         <td height="28" background="skin/skin<%=skinid%>/pdbg01.gif"><div align="center"><span class="table-zuo">
  112.           <%set rs=server.createobject("adodb.recordset")
  113. rs.open "select * from products where bookid="&request("id"),conn,1,3
  114. if rs.recordcount=0 then 
  115. %>
  116.           <font color="#FF0000"><strong>商品已不存在</strong></font>
  117.           <%
  118. else
  119. bname=rs("bookname")
  120. rs("liulancount")=rs("liulancount")+1
  121. rs.update
  123. Sub PutIntoFav( add, ProductList )
  124.    If Len(ProductList) = 0 Then
  125.       ProductList = add
  126.       'ProductList = "'" & add & "'"
  127.    ElseIf InStr( ProductList, add ) <= 0 Then
  128.       ProductList = ProductList & "," & add
  129.    End If
  130. End Sub
  131. dim ProductList,Products
  132. ProductList = request.cookies("leisure")("fav")
  133. Products = Split(request("id"),",")
  134. For I=0 To UBound(Products)
  135.    PutIntoFav Products(I), ProductList
  136. Next
  137. response.Cookies("leisure")("fav") = ProductList
  139. if request.cookies("Cnhww")("username")<>"" then 
  140. set rs_s=server.CreateObject("adodb.recordset")
  141. rs_s.open "select * from [YX_User] where name='"&request.cookies("Cnhww")("username")&"'",conn,1,1
  142. t_userid=rs_s("id")
  143. rs_s.close
  144.     set rs_s=server.createobject("adodb.recordset")
  145.     rs_s.open "select * from history where bookid="&request("id")&" and username='"&request.cookies("Cnhww")("username")&"' and lx=1",conn,1,3
  146.     if rs_s.recordcount>0 then 
  147. rs_s("ltime")=now()
  148. rs_s("userid")=t_userid
  149. rs_s.update
  150. rs_s.close
  151. set rs_s=nothing
  152.     else
  153.      rs_s.close
  154.      set rs_s=server.createobject("adodb.recordset")
  155.      rs_s.open "select * from history where username='"&request.cookies("Cnhww")("username")&"' and lx=1 order by ltime",conn,1,3
  156.      if rs_s.recordcount>=4 then
  157.          rs_s.delete
  158.          rs_s.update
  159.      end if
  160.      rs_s.addnew
  161.          rs_s("username")=request.cookies("Cnhww")("username")
  162.          rs_s("bookid")=id
  163.          rs_s("bookname")=rs("bookname")
  164.     rs_s("userid")=t_userid
  165.          rs_s("lx")=1
  166.          rs_s("ltime")=now()
  167.         rs_s.update
  168. rs_s.close
  169. set rs_s=nothing
  170. end if
  171. end if
  172. %>
  173.         </span></div>
  174.           &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=index.asp>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。</a> >>
  175.           <%set rs2=server.createobject("adodb.recordset")
  176. rs2.open "select * from bsort where anclassid="&rs("anclassid"),conn,1,1
  177. if rs2.recordcount>0 then
  178. response.write "<a href=class.asp?lx=big&anid="&rs2("anclassid")&" targer=_blank>"&rs2("anclass")&"</a> >> "
  179. end if
  180. rs2.close
  181. set rs2=server.createobject("adodb.recordset")
  182. rs2.open "select * from ssort where nclassid="&rs("nclassid"),conn,1,1
  183. if rs2.recordcount>0 then
  184. response.write "<a href=class.asp?lx=small&anid="&rs2("anclassid")&"&nid="&rs2("nclassid")&" targer=_blank>"&rs2("nclass")&"</a>>>"
  185. end if
  186. rs2.close
  189.  
  192. set rs2=server.createobject("adodb.recordset")
  193. rs2.open "select * from xsort where id="&rs("xclassid"),conn,1,1
  194. if rs2.recordcount>0 then
  195. response.write "<a href=class.asp?lx=small&anid="&rs2("anclassid")&"&nid="&rs2("nclassid")&"&xid="&rs2("id")&" targer=_blank>"&rs2("xclass")&"</a>"
  196. end if 
  199. set rs2=nothing%></td>
  200.         </tr>
  201.       
  202.       <tr>
  203.         <td ><table width="100%" border="0" cellspacing="0" cellpadding="0">
  204.               <tr>
  205.               <td width="400"><br>
  206.               <table width=300 height=300border=0 align="center" cellpadding=0 cellspacing=0>
  207.                 <tbody>
  208.                   <tr>
  209.                     <td  align=center>
  210.                       <div align="center">
  211.                       <%if rs("zhuang")="" then 
  212. response.write "<img src=images/emptybook.gif width=200 border=0>"
  213. else%>
  214.                       <img src="<%=trim(rs("zhuang"))%>" width=300 border=0 alt="商品名称：<%=rs("bookname")%>" height="300">
  215.                       <%end if%>                  </td>
  216.                       </tr>
  217.                   </tbody>
  218.               </table></td><td width="8" rowspan="2" background="images/body/p_bg01.gif"></td>
  219.               <td width="462" rowspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  220.                     <tr> 
  221.                       <td height="25" colspan="2" align="center">&nbsp;<font color="#ff6600" size="3"><strong><%=rs("bookname")%></strong></font></td>
  222.                     </tr>
  223.                     <tr> 
  224.                       <td width="28%">&nbsp;<img src="images/body/orange-bullet.gif" height="7" width="9"> 
  225.                         商品编号：</td>
  226.                       <td width="72%" height="22"><%=trim(rs("grade"))%></td>
  227.                     </tr>
  228.                     <tr> 
  229.                       <td>&nbsp;<img src="images/body/orange-bullet.gif"height="7" width="9" > 
  230.                         商品规格：</td>
  231.                       <td height="22"><%=trim(rs("isbn"))%></td>
  232.                     </tr>
  233.                     <tr> 
  234.                       <td>&nbsp;<img src="images/body/orange-bullet.gif"height="7" width="9" > 
  235.                         商品品牌：</td>
  236.                       <td height="22"><%=trim(rs("pingpai"))%></td>
  237.                     </tr>
  238.                     <tr> 
  239.                       <td>&nbsp;<img src="images/body/orange-bullet.gif" height="7" width="9"> 
  240.                         商品比较：</td>
  241.                       <td height="22"><a href="to.asp?id=<%=rs("bookid")%>&action=add"><img src="images/to.gif" width="54" height="13" border="0"></a> 
  242.                       </td>
  243.                     </tr>
  244.                     <tr> 
  245.                       <td>&nbsp;<img src="images/body/orange-bullet.gif" height="7" width="9"> 
  246.                         商品库存：</td>
  247.                       <td height="22"><%=trim(rs("kucun"))%> <%=rs("bookchuban")%> 
  248.                         <%if rs("kucun")>0 then%>
  249.                         <font color="#999999">热卖中</font> 
  250.                         <%else%>
  251.                         <font color="#999999">缺货</font> 
  252.                         <%end if%>
  253.                       </td>
  254.                       　 </tr>
  255.                     <tr> 
  256.                       <td>&nbsp;<img src="images/body/orange-bullet.gif" height="7" width="9"> 
  257.                         商品折扣：</td>
  258.                       <td height="22"> 
  259.                         <%response.write left(rs("dazhe")*10,3)&"折"%>
  260.                         ( 赠送积分<%=rs("yeshu")%>分 ) </td>
  261.                     </tr>
  262.                     <tr> 
  263.                       <td>&nbsp;<img src="images/body/orange-bullet.gif" height="7" width="9"> 
  264.                         浏览次数：</td>
  265.                       <td height="22"> <%=trim(rs("liulancount"))%>次 </td>
  266.                     </tr>
  267.                     <tr><form method=post action=buy.asp?id=<%=rs("bookid")%>&action=add>
  268.                       <% if rs("chima")<>"" then%><td>&nbsp;<img src="images/body/orange-bullet.gif" height="7" width="9"> 
  269.                         商品尺码：</td>
  270.                         <td height="22"> 
  271.                           <%if rs("chima")<>"" then%>
  272.                           <%size=trim(rs("chima"))%>
  273.                           <%myarr=split(size,"/")%>
  274.                           <select name="chima" id="chima">
  275.                           <% for i=0 to ubound(myarr) %>
  276.                           <option value="<%=trim(myarr(i))%>" selected><%=trim(myarr(i))%></option>
  277.                           <%next%>
  278.                         </select>
  279. <%else
  280. response.write "无尺码信息" %>
  281.                           <%end if%>
  282.                         </td><%end if %>
  283.                     
  284.                     <tr> 
  285.                       <% if rs("yanse")<>"" then%><td>&nbsp;<img src="images/body/orange-bullet.gif" height="7" width="9"> 
  286.                         商品颜色：</td>
  287.                             <td height="22"> 
  288.                               <%if rs("yanse")<>"" then%>
  289.                               <%size=trim(rs("yanse"))%>
  290.                               <%myarr=split(size,"/")%>
  291.                               <select name="yanse" id="select">
  292.                           <% for i=0 to ubound(myarr) %>
  293.                           <option value="<%=trim(myarr(i))%>" selected><%=trim(myarr(i))%></option>
  294.                           <%next%>
  295.                         </select>
  296. <%else
  297. response.write "无颜色信息" %>
  298.                               <%end if%>
  299.                             </td><%end if %>
  300.                     </tr>
  301.                     <tr> 
  302.                       <td colspan="2"><table width="100%" height="60"  border="0" cellpadding="0" cellspacing="0">
  303.                           <tr> 
  304.                             <td height="8" colspan="2" background="images/body/p_bg02.gif"></td>
  305.                           </tr>
  306.                           <tr> 
  307.                             <td width="24%" height="13"><div align="center">市场价：</div></td>
  308.                             <td width="76%"><s>￥<%=FormatNum(rs("shichangjia"),2)%>元</s></td>
  309.                           </tr>
  310.                           <tr> 
  311.                             <td height="2" colspan="2" background="images/body/p_bg03.gif"></td>
  312.                           </tr>
  313.                           <tr> 
  314.                             <td ><div align="center">会员价：</div></td>
  315.                             <td ><font color="#FF0000">￥<%=FormatNum(rs("huiyuanjia"),2)%> 
  316.                               元</font></td>
  317.                           </tr>
  318.                           <tr> 
  319.                             <td ><div align="center">VIP 价：</div></td>
  320.                             <td ><font color="#FF0000"> 
  321.                               <%if Request.Cookies("cnhww")("reglx")=2 then%>
  322.                               ￥<%=FormatNum(rs("vipjia"),2)%>元 
  323.                               <%else%>
  324.                               <font color="#FF3333">更优惠...</font> 
  325.                               <%end if%>
  326.                               </font>&nbsp;</td>
  327.                           </tr>
  328.                           <tr> 
  329.                             <td height="2"  colspan="2"style=" BORDER-top:#DD0000 2px solid;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  330.                                 <tr> 
  331.                                   <td  height="10"></td>
  332.                                 </tr>
  333.                                 <tr> 
  334.                                   <td><input type="image" src="images/buy1.gif"  width="114" height="37"  border=0>
  335.   <% if  alipaytype=0 then 
  336.                         bookid=request.QueryString("id")
  337. set rsa=server.CreateObject("adodb.recordset")
  338. rsa.open "select * from products where bookid="&bookid,conn,1,3
  340. Dim body,out_trade_no,price,subject,sDate,show_url
  342. Dim myAlipayObj,ResponseTxt
  344. '****************以下为产品相关信息
  346. '生成日期字符串，如果您的网站没有自动生成订单编号，可以考虑用这个日期字符串做订单编号（订单编号不允许重复）
  347. sDate = Now()'生成订单编号，建议使用您网站自己系统的订单编号，否则可用日期时间的方式生成唯一订单编号
  348. sDate = Year(sDate) & Right(("00" & Month(sDate)),2) & Right(("00" & Day(sDate)),2) & Right(("00" & Hour(sDate)),2) & Right(("00" &  Minute(sDate)),2) & Right(("00" & Second(sDate)),2)
  352. body = "http://"&weburl&"/products.asp?id="&rsa("bookid")  '商品描述
  353. out_trade_no = sDate '商户网站订单
  354. if Request.Cookies("cnhww")("reglx")=2 then
  355. price = rsa("vipjia") '商品价格
  356. else
  357. price = rsa("huiyuanjia") '商品价格
  358. end if 
  360. subject = rsa("bookname") '商品名称
  361. show_url = weburl '商品展示网址
  363. '********************
  365. '创建一个myAlipay实例,并初始化myAlipay_Initialize()
  366. Set myAlipayObj = New myAlipay
  367. myAlipayObj.myAlipay_Initialize()
  370. '普通Payto
  371. ResponseTxt1 = myAlipayObj.generateURLForSW(body,s_logistics_fee,s_logistics_payment,s_logistics_type,s_logistics_fee_1,s_logistics_fee_2,s_logistics_payment_1,s_logistics_payment_2,s_logistics_type_1,s_logistics_type_2,s_notify_url,out_trade_no,price,s_return_url,s_myAlipayEmail,subject,partner,key,show_url,input_charset)
  373. Response.Write "<a href='" & ResponseTxt1 & "' target='_blank'><img src=images/alipay.gif border=0></a>"%><script language="javascript">
  374. function doClipBoard()
  375. {
  376. var textValue = document.getElementsByName("myTxt")[0].value;
  377. window.clipboardData.setData("text", textValue);
  378. }
  379. </script><%end if %><a href="javascript:;" onClick="javascript:window.open('stow.asp?id=<%=rs("bookid")%>&action=add','','width=640,height=260,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;">&nbsp<img src="images/fav.gif" width="90" height="37"  border=0></a></td>
  380.                                 </tr></form>
  381.                               </table></td>
  382.                           </tr>
  383.                         </table></td>
  384.                     </tr>
  385.                     <tr> 
  386.                
  387.                     </tr>
  388.                   </table></td>
  389.               <td width="16" rowspan="2">&nbsp;</td>
  390.             </tr>
  391.             <tr>
  392.                 <td align="center" valign="top">  <A class=navLink       title=点击查看清晰大图片，使用您更清楚看商品！ 
  393.       onclick="window.open ('pic.asp?pic=<%=rs("zhuang")%>&book=<%=rs("bookid")%>&name=<%=rs("bookname")%>', 'picshow', 'height=650, width=800, top=0,left=0, toolbar=no, menubar=no, scrollbars=yes, resizable=yes,location=no, status=no') " 
  394.       href="#"> <img src="images/body/itemzoom.gif" border="0"></a><% if netpaytype=7 then %><form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_blank">
  395. <input type="image" src="images/paypal.gif" border="0" name="submit" alt="立即使用贝宝定购：<%=rsa("bookname")%>">
  396. <input type="hidden" name="add" value="1">
  397. <input type="hidden" name="cmd" value="_cart">
  398. <input type="hidden" name="business" value="<%=paypal%>">
  399. <input type="hidden" name="item_name" value="<%=rsa("bookname")%>">
  400. <input type="hidden" name="amount" value="<%
  401. if Request.Cookies("cnhww")("reglx")=2 then
  402. response.write  rsa("vipjia")  
  403. else
  404. response.write rsa("huiyuanjia")  
  405. end if 
  406. %>">
  407. <input type="hidden" name="no_shipping" value="2">
  408. <input type="hidden" name="no_note" value="1">
  409. <input type="hidden" name="currency_code" value="CNY">
  410. <input type="hidden" name="bn" value="PP-ShopCartBF"></td></form><%end if %>
  411.             </tr>
  412.             
  413.         </table></td>
  414.       </tr>
  415.       <tr>
  416.         
  417.       </tr>
  418.       <tr>
  419.         <td >
  420. <table  style=" BORDER-bottom:<%=skincolor%> 1px solid; BORDER-top:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  422.               <tr>
  423.               <td height="17" colspan="2" ><table width="100%"  border="0" cellspacing="0" cellpadding="0">
  424.                   <tr>
  425.                     <td><div align="center"><img src="skin/skin<%=skinid%>/p_dtitle01.gif" width="698" height="30" > 
  426.                         </div></td>
  427.                   </tr>
  428.               </table></td>
  429.             </tr>
  430.             <tr>
  431.               <td colspan="2"><table width="98%" border="0" cellspacing="0" cellpadding="10" align="center">
  432.                   <tr>
  433.                     <td>
  434.                         <%=rs("bookcontent")%> </td>
  435.                   </tr>
  436.               </table>
  437.                   <img src="skin/skin<%=skinid%>/tltj.gif" width="698" height="30" align="absmiddle"> 
  438.                   <%
  439.       sql="select top 5 * from products where anclassid = (select anclassid from products where bookid = "&request("id")&") order by liulancount ,chengjiaocount,adddate desc " 
  440.               set rs=server.createobject("adodb.recordset")
  441.       rs.open sql,conn,1,1
  442.     %>
  443.                   <table width="100%"  border="0" cellspacing="0" cellpadding="0">
  444.                     <tr> 
  445.                       <td valign="middle">&nbsp; <table width="590" border="0" cellspacing="0" cellpadding="0" align="center">
  446.                           <tr> 
  447.                             <%
  448.   if rs.eof and rs.bof then
  449.   response.write "<td  align=center>对不起，本栏目还没有比较适合您选购的商品！</td>"
  450.   'response.End
  451.   else
  452.   %>
  453.                             <%
  454. if not rs.eof then
  455. i=1
  456. do while not rs.eof%>
  457.                             <td width="195" height="135" align="center" valign="top"> 
  458.                               <div align="center"></div>
  459.                               <table width="20%"  border="0" align="center" cellpadding="0" cellspacing="0">
  460.                                 <tr> 
  461.                                   <td><div align="center"><a href=products.asp?id=<%=rs("bookid")%> target="_blank" class="style1"> 
  462.                                       <%=InterceptString(rs("bookname"),16)%>
  463.                                       </a></div></td>
  464.                                 </tr>
  465.                                 <tr> 
  466.                                   <td><TABLE width=90 height=90 border=0 align="center" cellPadding=2 cellSpacing=1 bgColor=#e1e1e1 onMouseOver="this.style.backgroundColor='#FF6600'" onMouseOut="this.style.backgroundColor=''">
  467.                                       <TBODY>
  468.                                         <TR> 
  469.                                           <TD width=90 height=90 bgColor=#ffffff align=center> 
  470.                                             <%if rs("bookpic")="" then 
  471. response.write "<div align=center><a href=products.asp?id="&rs("bookid")&" > <img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
  472. else%>
  473.                                             <a href=products.asp?id=<%=rs("bookid")%> target="_blank"><img src="<%=trim(rs("bookpic"))%>" alt="<%=rs("bookname")%>" width=95 height=95 border=0 align=absmiddle></a> 
  474.                                             <%end if%>
  475.                                           </TD>
  476.                                         </TR>
  477.                                       </TBODY>
  478.                                     </TABLE></td>
  479.                                 </tr>
  480.                               </table></td>
  481.                             <%if i mod 5 = 0 then%>
  482.                           </tr>
  483.                           <%end if
  484.     rs.movenext
  485.          i=i+1
  486.       loop
  487. rs.close
  488. end if
  489. end if 
  490.  
  491. %>
  492.                         </table></td>
  493.                     </tr>
  494.                   </table> </td>
  495.             </tr>
  496.             <%
  497. response.write "<tr><td align=right>>>查看更多关于 <a href=research.asp?action=1&anclassid=0&searchkey="&bname&" ><font color=red>"&bname&"</font></a> 的商品&nbsp;&nbsp;&nbsp;</td>"
  498. end if%>
  499.             <tr>
  500.               <td colspan="2" ><div align="center"><img src="skin/skin<%=skinid%>/views.gif" width="698"  height="30"></div></td>
  501.             </tr>
  502.             <%
  503. set rs=server.createobject("adodb.recordset")
  504. rs.open "select  * from review where bookid="&request("id")&"and shenhe=1 order by pinglundate desc",conn,1,1
  505. j=rs.recordcount
  506. plcount=rs.recordcount
  507. if j>3 then j=3
  508. for i=1 to j
  509. %>
  510.             <tr>
  511.               <td colspan="2" valign="middle"><br>
  512.                 <table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#e1e1e1">
  513.                 <tr bgcolor="#FFFFFF">
  514.                   <td height="15" colspan="2">主题： <%=trim(rs("pingluntitle"))%></td>
  515.                   <td width="26%" height="15"><img src="images/level<%=rs("pingji")%>.gif"></td>
  516.                 </tr>
  517.                 <tr bgcolor="#FFFFFF">
  518.                   <td height="15" colspan="2">作者： <%=trim(rs("pinglunname"))%>　(<%=trim(rs("pinglundate"))%>)</td>
  519.                   <td width="26%" height="15">来访Ip：<%=trim(rs("ip"))%></td>
  520.                 </tr>
  521.                 <tr bgcolor="#FFFFFF">
  522.                   <td height="15" colspan="3" bgcolor="#FFFFFF">内容：
  523.                     <%if len(rs("pingluncontent"))>24 then 
  524. response.write left(rs("pingluncontent"),20)&"... <a href=""javascript:;"" onClick=""javascript:window.open('pinglunll.asp?id="&rs("pinglunid")&"','pinglun','width=300,height=400,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&trim(rs("pingluntitle"))&">[详细内容]</a>" 
  525. else response.write rs("pingluncontent")
  526. end if%>
  527.                   </td>
  528.                 </tr>
  529.                 <%if trim(rs("huifu"))<>"" then%>
  530.                 <tr bgcolor="#FFFFFF">
  531.                   <td height="15" colspan="3"><b><font color="#ff6600">销售商回复：</font></b><%=rs("huifu")%> </td>
  532.                 </tr>
  533.                 <%end if%>
  534.               </table>
  535.              </td>
  536.             </tr>
  537.             <%
  538. rs.movenext
  539. next
  540. if plcount>0 then 
  541. %>
  542.             <tr>
  543.               <td colspan="2" align=right> >>浏览该商品的 <a href=reviewlist.asp?id=<%=request("id")%> >全部<font color="#cc0000"><%=plcount%></font>条评论</a> &nbsp;&nbsp;&nbsp;</td>
  544.             </tr>
  545.             <%end if%>
  546.             <tr>
  547.               <td height="180" colspan="2" align="center"><!--#include file="review.asp"--></td>
  548.             </tr><style type="text/css">
  549. <!--
  550. .back_southidc {BACKGROUND-IMAGE:url('image/titlebg.gif');COLOR:000000;}
  551. .table_southidc {BACKGROUND-COLOR: A4B6D7;}
  552. .tit {font-size: 14px;
  553. }
  554. .tr_southidc {BACKGROUND-COLOR: ECF5FF;}
  555. -->
  556. </style>
  557. <div align="center">
  558. <table width="767" border="0" align="center" cellpadding="2" cellspacing="1" class="table_southidc">
  559.   <tr>
  560.     <td height="25" colspan="2" class="back_southidc"><div align="center"><span style="font-weight: bold">程序注册说明</span></div></td>
  561.   </tr>
  562.   <tr class="tr_southidc">
  563.     <form method="post" action="Admin_DataBackup.asp?action=Backup">
  564.       <td width="563"><div align="left"><span class="tit"><span class="style6">欢迎注册《网软天下购物网站管理系统正式版,正式版无加密无限制》 每套1000元
  565. <br />
  566.         联系QQ：<span class="style11">290116505<a target=blank href=tencent://message/?uin=290116505&Site=网域高科客服为你服务&Menu=yes><img border="0" src=qqonline.gif alt="网域高科客服为你服务" /></a>314730679</span><font face=Verdana><a target=blank href=tencent://message/?uin=314730679&Site=网域高科客服为你服务&Menu=yes><img border="0" src=qqonline.gif alt="网域高科客服为你服务" /></a></font>38306293</span><font face=Verdana><a target=blank href=tencent://message/?uin=38306293&Site=网域高科客服为你服务&Menu=yes><img border="0" src=qqonline.gif alt="网域高科客服为你服务" /></a></font>454882888</span><font face=Verdana><a target=blank href=tencent://message/?uin=454882888&Site=网域高科客服为你服务&Menu=yes><img border="0" src=qqonline.gif alt="网域高科客服为你服务" /></a></font><font face=Verdana><br />
  567.           </font><span class="style11">电话：020-34700400,34506590,13719472523,13527894748<br />
  568.             MSN：webmaster@wygk.cn<br />
  569.             演示：<a href="http://www.wygk.cn/shop8">http://www.wygk.cn/shop8</a><br />
  570.       官方：<a href="http://www.wygk.cn">http://www.wygk.cn</a></span></div></td>
  571.       <td width="128"><a href="https://pay3.chinabank.com.cn/Payto?v_mid=8279"><img src="paymentsby_01.gif" width="127" height="62" border="0" /></a></td>
  572.     </form>
  573.   </tr>
  574. </table>
  576.         </table></td>
  577.       </tr>
  578.       <tr>
  579.         <td >&nbsp;</td>
  580.       </tr>
  581.     </table></td>
  582.     <td width="68" valign="top"><img name="d" src="" width="69" height="0" alt=""></td>
  583.   </tr>
  584. </table>
  585. <!--#include file="include/foot.asp"-->
  586. </body>
  587. </html>
  588.   <%
  589. function InterceptString(txt,length) 
  590. txt=trim(txt) 
  591. x = len(txt) 
  592. y = 0 
  593. if x >= 1 then 
  594. for ii = 1 to x 
  595. if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then 
  597. y = y + 2 
  598. else 
  599. y = y + 1 
  600. end if 
  601. if y >= length then 
  602. txt = left(trim(txt),ii) 
  604. exit for 
  605. end if 
  606. next 
  607. InterceptString = txt 
  608. else 
  609. InterceptString = "" 
  610. end if 
  612. End Function 
  614. %>