📄 products.asp
字号:
<%end if%></td>
</tr>
<tr>
<td> <img src="images/body/orange-bullet.gif" height="7" width="9">
商品折扣：</td>
<td height="22">
<%response.write left(rs("dazhe")*10,3)&"折"%>
</td>
</tr>
<tr>
<td> <img src="images/body/orange-bullet.gif" height="7" width="9">
浏览次数：</td>
<td height="22"> <%=trim(rs("liulancount"))%>次 </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2" background="images/body/p_bg02.gif"></td>
</tr>
<tr>
<td width="24%" height="13"><div align="center">市场价：</div></td>
<td width="76%"><s>￥<%=rs("shichangjia")%>元</s></td>
</tr>
<tr>
<td height="2" colspan="2" background="images/body/p_bg03.gif"></td>
</tr>
<tr>
<td ><div align="center">会员价：</div></td>
<td ><font color="#FF0000">￥<%=trim(rs("huiyuanjia"))%>
元</font></td>
</tr>
<tr>
<td ><div align="center">VIP价：</div></td>
<td ><font color="#FF0000">
<%if Request.Cookies("cnhww")("reglx")=2 then%>
￥<%=trim(rs("Vipjia"))%>元
<%else%>
<font color="#FF3333">更优惠...</font>
<%end if%>
</font> </td>
</tr>
<tr>
<td height="2" colspan="2"style=" BORDER-top:#DD0000 2px solid;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td> <a href="buy.asp?id=<%=rs("bookid")%>&action=add" ><img src="images/buy1.gif" width="114" height="37" border=0></a> 
<% if alipaytype=0 then
bookid=request.QueryString("id")
set rsa=server.CreateObject("adodb.recordset")
rsa.open "select * from products where bookid="&bookid,conn,1,3
Dim body,out_trade_no,price,subject,sDate,show_url
Dim myAlipayObj,ResponseTxt
'****************以下为产品相关信息
'生成日期字符串，如果您的网站没有自动生成订单编号，可以考虑用这个日期字符串做订单编号（订单编号不允许重复）
sDate = Now()'生成订单编号，建议使用您网站自己系统的订单编号，否则可用日期时间的方式生成唯一订单编号
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)
body = "http://"&weburl&"/products.asp?id="&rsa("bookid") '商品描述
out_trade_no = sDate '商户网站订单
if Request.Cookies("cnhww")("reglx")=2 then
price = rsa("vipjia") '商品价格
else
price = rsa("huiyuanjia") '商品价格
end if
subject = rsa("bookname") '商品名称
show_url = weburl '商品展示网址
'********************
'创建一个myAlipay实例,并初始化myAlipay_Initialize()
Set myAlipayObj = New myAlipay
myAlipayObj.myAlipay_Initialize()
'普通Payto
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)
Response.Write "<a href='" & ResponseTxt1 & "' target='_blank'><img src=images/alipay.gif border=0></a>"
%>
<script language="javascript">
function doClipBoard()
{
var textValue = document.getElementsByName("myTxt")[0].value;
window.clipboardData.setData("text", textValue);
}
</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;">
<img src="images/fav.gif" width="90" height="37" border=0></a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table></td>
<td width="16" rowspan="2"> </td>
</tr>
<tr>
<td align="center"><div align="center">
<a href="javascript:;" onClick="javascript:window.open('<%=trim(rs("zhuang"))%>','','width=400,height=400,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"> <img src="images/body/itemzoom.gif" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td > </td>
</tr>
<tr>
<td ><table style=" BORDER-bottom:#FF67A0 1px solid; BORDER-top:#FF67A0 1px solid;BORDER-left:#FF67A0 1px solid; BORDER-right:#FF67A0 1px solid;" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="17" colspan="2" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><img src="images/body/p_dtitle01.gif" width="698" height="30" >
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><table width="98%" border="0" cellspacing="0" cellpadding="10" align="center">
<tr>
<td>
<%=rs("bookcontent")%> </td>
</tr>
</table></td>
</tr>
<%
response.write "<tr><td align=right>>>查看更多关于 <a href=research.asp?action=1&anclassid=0&searchkey="&trim(rs("bookname"))&" ><font color=red>"&trim(rs("bookname"))&"</font></a> 的商品 </td>"
rs.close
set rs=nothing
end if%>
<tr>
<td colspan="2" ><div align="center"><img src="images/body/views.gif" width="698" height="30"></div></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from review where bookid="&request("id")&"and shenhe=1 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 colspan="2" valign="middle"><br>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#e1e1e1">
<tr bgcolor="#FFFFFF">
<td height="15" colspan="2">主题： <%=trim(rs("pingluntitle"))%></td>
<td width="26%" height="15"><img src="images/level<%=rs("pingji")%>.gif"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="15" colspan="2">作者： <%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)</td>
<td width="26%" height="15">来访Ip：<%=trim(rs("ip"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="15" 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 height="15" colspan="3"><b><font color="#ff6600">销售商回复：</font></b><%=rs("huifu")%> </td>
</tr>
<%end if%>
</table>
</td>
</tr>
<%
rs.movenext
next
if plcount>0 then
%>
<tr>
<td colspan="2" align=right> >>浏览该商品的 <a href=reviewlist.asp?id=<%=request("id")%> >全部<font color="#cc0000"><%=plcount%></font>条评论</a> </td>
</tr>
<%end if%>
<tr>
<td height="180" colspan="2" align="center"><!--#include file="review.asp"--></td>
</tr>
</table></td>
</tr>
<tr>
<td > </td>
</tr>
</table></td>
<td width="68" valign="top"><img name="d" src="" width="69" height="0" alt=""></td>
</tr>
</table>
<!--#include file="include/foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -