📄 product.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%dim id
id=request.QueryString("id")%><head>
<title><%=webname%>--商品详细资料</title>
<!--#include file="include/header.asp"-->
<%
dim prename,company,intro,predate,graph2,description,remarks,price,rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from product where id="&id,conn,1,3
rs2("viewnum")=rs2("viewnum")+1
rs2.update%>
<TABLE align="center" BORDER="0" CELLPADDING="0" CELLSPACING="1" WIDTH="760" BGCOLOR=<%=bgclr1%>>
<TR><TD BGCOLOR=#FFFFFF HEIGHT="1"></TD></TR>
<TR><TD BGCOLOR=<%=bgclr1%> HEIGHT="20"><FONT COLOR="#FFFFFF">类别：->><%=webname%>：->>><%=trim(rs2("mark"))%>：->><%=trim(rs2("name"))%></FONT></TD></TR>
<TR><TD WIDTH="760" bgcolor="#FFFFFF">
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR><TD WIDTH="15%" rowspan="2" align="center" valign="middle">
<%if trim(rs2("pic"))<>"" then %>
<a href=<%=trim(rs2("pic"))%> target=_blank><img src=<% = trim(rs2("pic")) %> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>" alt=<% = trim(rs2("name")) %>></a>
<% else %>
<img src=images/emptybook.jpg alt=此商品暂时没有图片 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% end if %>
</TD>
<TD WIDTH="85%">
<TABLE WIDTH="100%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1">
<TR><TD colspan="4">【<B><% = rs2("prename") %></B>】<%=trim(rs2("name"))%></TD></TR>
<TR><TD colspan="4">【<B><% = rs2("company") %></B>】<%=trim(rs2("mark"))%></TD></TR>
<TR><TD colspan="4">【<B><% = rs2("intro") %></B>】<%=trim(rs2("introduce"))%></TD></TR>
<TR><TD colspan="4">【<B><% = rs2("predate") %></B>】<%=trim(rs2("productdate"))%></TD></TR>
<TR>
<TD width="27%">【<B><% = rs2("other") %></B>】<%=trim(rs2("grade"))%></TD>
<TD width="25%">【<B><% = rs2("pretype") %></B>】<%=trim(rs2("type"))%></TD>
<TD width="26%">【<B>浏览次数：</B>】<%=trim(rs2("viewnum"))%></TD>
<TD width="22%">【<B>售出次数：</B>】<%=trim(rs2("solded"))%></TD>
</TR>
<TR>
<TD>【<B>市场价格：</B>】<S>￥<%=rs2("price1")%></S>元</TD>
<TD>【<B>会员价格：</B>】<%=rs2("price2")%>元</TD>
<TD>【<B>马上节省：</B>】<%=rs2("price1")-rs2("price2")%>元</TD>
<TD>【<B>产品折扣：</B>】<% = rs2("discount")*100 %>.00%</TD>
</TR>
<TR>
<TD>【<B>上货数量：</B>】<%=rs2("amount")%> 件</TD>
<TD>【<B>剩余数量：</B>】<%=rs2("stock")%> 件</TD>
<TD>【<B>VIP 价格：</B>】<%=rs2("vipprice")%>元</TD>
<TD>【<B>赠送积分：</B>】 <%=rs2("score")%>分
</TD>
</TR>
<tr>
<td height="5"></td>
</tr>
<TR>
<TD></TD>
<TD> <a href=# onClick="javascript:window.open('cart.asp?id=<% = rs2("id") %>','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/cart.gif width=50 height=19 align=absmiddle border=0></a> </TD>
<TD> <a href=# onClick="javascript:window.open('addto.asp?id=<% = rs2("id") %>&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
<TD></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
<table width="96%" align="center"><TR>
<TD width=96% BGCOLOR=<%=bgclr1%> height="1"></TD>
</TR></table>
<TABLE WIDTH="98%" BORDER="0" CELLPADDING="0" CELLSPACING="0" align="center">
<TR>
<TD align="center" colspan="2">
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" align="left" valign="top"></br>
<%if trim(rs2("pic"))<>"" then
response.write "<a href="&trim(rs2("photo"))&" target=_blank><img src="&trim(rs2("photo"))&" border=0 alt=点击返回页首！></a>"
else
response.Write "<img src=images/emptybook.jpg alt=此商品暂时没有大图片！>"
end if%>
</td>
</tr>
<tr> <td width="85%" valign="top"></br><%=trim(rs2("description"))%>
<%if rs2("detail")<>"" then
response.write "<table width=19 height=4 border=0 cellpadding=0 cellspacing=0><tr><td height=4></td></tr></table>"&trim(rs2("detail")&"<table width=19 height=6 border=0 cellpadding=0 cellspacing=0><tr><td height=6></td></tr></table>")
end if
if rs2("content")<>"" then
response.write "备注说明<table width=19 height=4 border=0 cellpadding=0 cellspacing=0><tr><td height=4></td></tr></table>"&trim(rs2("content"))&"<table width=19 height=6 border=0 cellpadding=0 cellspacing=0><tr><td height=6></td></tr></table>"
end if
%>
</td></tr>
</table></TD>
</TR>
<TR><TD colspan="2" background="images/hor.gif"></TD></TR>
<a name="pic"></a>
<tr><td width=70% ></br>会员评级</td>
<%
if rs2("mark")<>"" then
response.write "<form name=searchmark method=post action=research.asp>"
response.write "<td width=30% ><div align=right><input type=hidden name=searchkey value="&trim(rs2("mark"))&"<input type=hidden name=selectaction value=2>"
response.write "</br>查看更多关于 <a href=research.asp?action=2&searchkey="&trim(rs2("mark"))&" target=_blank><font color=red>"&trim(rs2("mark"))&"</font></a> 的商品</div></td></form>"
end if
response.write "</tr>"
response.write "<tr><td colspan=2> "
call rank()
response.write " <a href=# onClick=""javascript:window.open('rank.asp?id="&id&"','','width=295,height=235,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"">发表您对本商品的评级</a></td></tr>"
rs2.close
set rs2=nothing
response.write "<tr><td>会员评论</td>"
response.write "<td><div align=right><a href=# onClick=""javascript:window.open('comment.asp?id="&id&"','','width=295,height=185,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"" ><img src=images/my_review.gif width=93 height=20 border=0 alt=用户评论></a></div></td></tr>"
'//用户评论
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from review where id="&id&" and audit=1 ",conn,1,1
if rs1.eof and rs1.bof then
response.write"<tr><td colspan=2> 如果您用过本商品，或对本商品有所了解，欢迎您发表自己的评论。您的评论将被网络上成千上万的用户所共享，我们将对您的慷慨深表感谢。"
response.write " 您的评论在提交后将经过我们的审核，也许您需要等待一些时间才可以看到。谢谢合作。</td></tr>"
else
do while not rs1.eof
%>
<TR>
<TD>[<B><%=rs1("title")%></B>@<%=rs1("reviewdtm")%>]<BR>
<%=rs1("reviewcontent")%></TD>
</TR>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
</TABLE>
</TD></TR> </TABLE>
<!--#include file="include/footer.asp"-->
<%sub rank()
dim other
if rs2("ranknum")>0 and rs2("rank")>0 then
other=rs2("ranknum")\rs2("rank")
else
other=0
end if
response.write "<img src=images/rank/"&other&".gif alt=评论星级>"
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -