📄 list.asp
字号:
<td width="65">商品价格：</td>
<td width="65" align="center" valign="bottom"><s>￥<%=rs("shichangjia")%>元</s>
<br> <img src="images/graph01.gif"></td>
<td width="65" align="center" valign="bottom"><font color="#FF0000">￥<%=rs("huiyuanjia")%>元</font>
<br> <img src="images/graph02.gif"></td>
<td width="65" align="center" valign="bottom"><font color="#FF0000">
<%if Request.Cookies("cnhww")("reglx")=2 then%>
￥<%=trim(rs("Vipjia"))%>
<%else%>
<font color="#FF3333">更优惠...</font>
<%end if%>
</font> <br> <img src="images/graph03.gif"></td>
</tr>
<tr>
<td align="center" valign="bottom"></td>
<td align="center">市场价</td>
<td align="center">会员价</td>
<td align="center">VIP 价</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" height="60">
<% ' 您现在看到的是网趣购物系统增强版的演示版本，演示版的支付宝功能是一种极为简单的模式，不适合商城使用 只有正式版才可以享受到完美整合支付宝的功能，请浏览官方网站查看演示 http://www.cnhww.com/shop
%>
<a href="https://www.alipay.com/payto:zhangyanchl@163.com?&cmd=0001&subject=<%=rs("bookname")%>&price=<%=rs("huiyuanjia")%>"><img src="images/alipay_bwrm.gif" width="130" height="50" border="0"></a></a>
</td>
<td height="60" class="table-shang"><a href="gouwu.asp?id=<%=rs("bookid")%>&action=add" target="_blank" ><img src="images/detailview_b.gif" width="100" height="36" border=0></a> <a href="shoucang.asp?id=<%=rs("bookid")%>&action=add" target="_blank" ><img src="images/detailview_c.gif" width="100" height="36" border=0></a> </td>
</tr>
</table>
<table width="100%" class="table-shang" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="image/shuoming.gif" width="590" height="56" align="absmiddle">
<table width="98%" border="0"align="center">
<tr>
<td><%=rs("bookcontent")%></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="91" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="91" valign="top"><img src="images/tonglei.gif" width="590" height="56" align="absmiddle">
<%
sql="select top 4 * from wq_books where anclassid = (select anclassid from wq_books where bookid = "&request("id")&") order by liulancount ,chengjiaocount,adddate desc "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="middle"> <table width="590" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%
if rs.eof and rs.bof then
response.write "<td align=center>对不起，本栏目还没有比较适合您选购的商品！</td>"
'response.End
else
%>
<%
if not rs.eof then
i=1
do while not rs.eof%>
<td width="195" height="135" align="center" valign="top">
<div align="center"></div>
<table width="20%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><a href=list.asp?id=<%=rs("bookid")%> target="_blank" class="style1">
<%if len(trim(rs("bookname")))>5 then
response.write left(trim(rs("bookname")),5)&".."
else
response.write trim(rs("bookname"))
end if
%>
</a></div></td>
</tr>
<tr>
<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=''">
<TBODY>
<TR>
<TD width=90 height=90 bgColor=#ffffff align=center>
<%if rs("bookpic")="" then
response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" > <img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
else%>
<a href=list.asp?id=<%=rs("bookid")%> target="_blank"><img src="<%=trim(rs("bookpic"))%>" alt="<%=rs("bookname")%>" width=75 height=75 border=0 align=absmiddle></a>
<%end if%>
</TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
<%if i mod 4 = 0 then%>
</tr>
<%end if
rs.movenext
i=i+1
loop
rs.close
end if
end if
end if
%>
</table></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td class="table-shang"><br>
<div align=center><a href="list.asp?id=<%=bookid-1%>"><img src="image/ansh.gif" width="47" height="19" border="0"></a>
<a href="list.asp?id=<%=bookid+1%>"><img src="image/anx.gif" width="47" height="19" border="0"></a>
<a href="index.asp"> <img src="image/anf.gif" width="47" height="19" border="0"></a>
</div>
<br>
<img src="image/pinglun.gif" width="590" height="55" align="absmiddle">
</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from wq_review where bookid="&request("id")&" order by pinglundate desc",conn,1,1
j=rs.recordcount
plcount=rs.recordcount
if j>3 then j=3
for i=1 to j
%>
<tr>
<td><table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td align="center"><table width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr bgcolor="#FFFFFF">
<td colspan="2">主题： <%=trim(rs("pingluntitle"))%></td>
<td width="20%"><img src="images/level<%=rs("pingji")%>.gif"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2">作者： <%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)</td>
<td width="20%"><%=trim(rs("ip"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="3" bgcolor="#FFFFFF">内容：
<%if len(rs("pingluncontent"))>24 then
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>"
else response.write rs("pingluncontent")
end if%>
</td>
</tr>
<%if trim(rs("huifu"))<>"" then%>
<tr bgcolor="#FFFFFF">
<td colspan="3"><table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#CCCCCC"></td>
</tr>
</table> <b><font color="#ff6600">销售商回复：</font></b><%=rs("huifu")%> </td>
</tr>
<%end if%>
</table></td>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
next
if plcount>0 then
%>
<tr>
<td align=right><a href=listpl.asp?id=<%=request("id")%> >浏览该商品的全部<%=plcount%>条评论>></a> </td>
</tr>
<%end if%>
<tr>
<td align="center" height="180"><!--#include file="pinglun.asp"-->
</td>
</tr>
</table></td>
</tr>
</table></TD>
<td width="1" background="image/bgbg.gif"></td>
</TR>
</TBODY>
</TABLE>
<!--#include file="webfoot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -