📄 list.asp
字号:
<script language=javascript src=include/pic_page.js></script>
<!--#include file="include/buyok_shop_30_conn.asp" -->
<!--#include file="pinglun_save.asp" -->
<%
call aspsql()
id=trim(request("prodid"))
if id="" then response.redirect "main.asp"
Set rsprod=conn.execute ("select * from buyok_produc where Online=true and ProdId='"&id&"'")
if (rsprod.bof and rsprod.eof) then
response.redirect "main.asp"
else
Prodname=rsprod("Prodname")
LarCod=rsprod("LarCode")
Midcod=rsprod("MidCode")
prodid=rsprod("prodid")
conn.execute "UPDATE buyok_produc SET ClickTimes ="&rsprod("ClickTimes")+1&" WHERE ProdId ='"&id&"'"
end if
%>
<html><head>
<title><%=prodname%> - <%=LarCod%> - <%=MidCod%> - <%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitename%>,<%=prodname%>,<%=LarCod%>,<%=MidCod%>">
<meta name="keywords" content="<%=sitename%>,<%=prodname%>,<%=LarCod%>,<%=MidCod%>">
<link rel="stylesheet" href="buyok_shop.css" type="text/css">
<style type=text/css>
.pic1{MARGIN-TOP: -139px;MARGIN-left:0px}
.pic2{padding-top:6px}
</style>
</head>
<center>
<!--#include file="buyok_top.asp"-->
<TABLE width=760 border=0 cellpadding=0 cellspacing=0 align=center bgcolor=#ffffff class="grayline">
<TR><td bgcolor="FFFBF7" align="center" valign="top" width="185">
<!--#include file="buyok_login.asp"-->
<!--#include file="buyok_tree.asp"-->
</TD>
<td bgcolor="#CCCCCC" width="1"></td>
<td valign="top" align="center" bgcolor="#F7FAFD">
<TABLE border=0 width="570" cellspacing="2" cellpadding="2" align=center style="table-layout:fixed;word-break:break-all">
<tr><td height=30>目前位置：<a href=main.asp>首页</a> >
<%
if LarCod<>"" then response.write "<a href='class.asp?LarCode="&server.URLEncode(LarCod)&"'>"&LarCod&"</a> >"
response.write " 浏览<font color=red> "&id&"</font> 号商品详细资料"
%>
</td></tr>
<tr><td width="570" align="center" height="1" background="images/small/bgline.gif"></td></tr>
<tr><td width="570">
<table border=0 width=100%>
<tr><td valign=top width=150>
<table width=150 border=0 cellspacing=0 cellpadding=1 valign=middle align=center>
<tr><td class="pic2" align=center valign=bottom><img src=images/small/pic_bg_big<%=pic_xiaogao%>.gif>
<p class="pic1">
<% if rsprod("more_pic")=1 then response.write "<a href=more_pic.asp?ProdId="&rsprod("ProdId")&" target='_blank'>"%>
<img border=0 onload='DrawImage(this)' src='<%=rsprod("ImgPrev")%>' alt='<table border=0 width=300><tr><td width=70><b>商品名称</b>：</td><td><%=rsprod("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rsprod("larcode")%></td></tr><td width=70><b>商品编号</b>：</td><td><%=rsprod("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rsprod("ClickTimes")%></td></tr></table>'></a></td></tr></table>
</td>
<td valign=top width=368>
<table border=0 width=100%>
<TR><TD height=20>【<%=rsprod("ProdNametext")%>】</td><td colspan=4> <%=lleft(rsprod("ProdName"),40)%></TD></TR>
<TR><TD height=20>【<%=rsprod("prodidtext")%>】</td><td colspan=4> <%=rsprod("prodid")%></TD></TR>
<%
if rsprod("Modeltext")<>"" and rsprod("Model")<>"" then response.write "<TR><TD height=20>【"&rsprod("modeltext")&"】</td><td colspan=4> "&rsprod("model")&"</TD></TR>"
if rsprod("Prodtext1")<>"" and rsprod("Prod1")<>"" then response.write "<TR><TD height=20>【"&rsprod("Prodtext1")&"】</td><td colspan=4> "&rsprod("Prod1")&"</TD></TR>"
if rsprod("prodtext2")<>"" and rsprod("prod2")<>"" then response.write "<TR><TD height=20>【"&rsprod("prodtext2")&"】</td><td colspan=4> "&rsprod("prod2")&"</TD></TR>"
%>
<tr><td valign=middle width=80>【商品价格】</td>
<td valign=bottom align=center width=90><%=FormatNum(rsprod("PriceOrigin"),2)%><br><img border=0 src=images/small/price1.gif><br><%=rsprod("PriceOrigintext")%></td>
<td valign=bottom align=center width=90><%=FormatNum(rsprod("PriceList"),2)%><br><img border=0 src=images/small/price2.gif><br><%=rsprod("PriceListtext")%></td>
<td valign=bottom align=center width=90>
<%
if request.cookies("buyok")("userid")="" then
response.write "<b><font color=red>"&huiyuanjia&"</b></font><br>"
else
response.write "<b><font color=red>"&FormatNum(rsprod("PriceList")*checkuserkou()/10,2)&"</font></b><br>"
end if
%>
<img border=0 src=images/small/price2.gif><br>
会员价</font>
</td><td> </td></tr>
<%
if rsprod("quantity")=0 then
response.write "<TR><TD height=20>【商品备注】</td><td colspan=4> <b><font color=red>"&quehuo&"</font></b></TD></TR>"
elseif rsprod("PriceList")=0 then
response.write "<TR><TD height=20>【商品备注】</td><td colspan=4> <b><font color=red>"&wujiage&"</font></b></TD></TR>"
end if
%>
</table></td></tr></table>
</td></tr>
<tr><td align=center>
<% if rsprod("more_pic")=1 then
response.write "<a href=more_pic.asp?ProdId="&rsprod("ProdId")&" target='_blank'><img border=0 src=images/small/big.gif alt=浏览更多图片></a>"
else
response.write "<img border=0 src=images/small/big.gif alt=此商品没有大图>"
end if
if rsprod("quantity")<>0 and rsprod("PriceList")<>0 then%>
<span style='cursor:hand' onClick="window.open('order/shop.asp?ProdId=<%=rsprod("ProdId")%>','add','scrollbars=yes,resizable=no,width=650,height=450')"><img border=0 src=images/small/buynow.gif alt=千寻万觅，要的就是她></span>
<%else%>
<img border=0 src=images/small/buynow.gif alt=暂时不能购买此商品>
<%end if%>
<span style='cursor:hand' onClick="window.open('order/fav.asp?ProdId=<%=rsprod("ProdId")%>','add','scrollbars=yes,resizable=no,width=650,height=450')">
<img border=0 src=images/small/favnow.gif alt=好东东，收藏起来先></span>
</td></tr>
<tr><td><img border=0 src=images/small/intro.gif></td></tr>
<tr><td style="PADDING-LEFT:1em;PADDING-right:1em"><%=rsprod("MemoSpec")%></td></tr>
<%
rsprod.close
set rsprod=nothing
%>
<tr><td height=20> </td></tr>
<tr><td><img border=0 src=images/small/xiangguan.gif></td></tr>
<tr><td>
<!--#include file="xiangguan.asp"-->
</td></tr>
<tr><td><img border=0 src=images/small/pinglun.gif></td></tr>
<tr><td align=center>
<%
randomize
yzm=int(8999*rnd()+1000)
set rs=conn.execute("select * from book_setup")
jianju=clng(rs("book_jianju")) '间距
bad=cstr(rs("bad")) '脏话过滤
maxlength=clng(rs("maxlength")) '最长字符数
%>
<script language="javascript">
<!--
function check()
{
if (document.pinglunform.name.value.length < 3 || document.pinglunform.name.value.length >16) {
alert("出错了，请输入有效的用户名。");
document.pinglunform.name.focus();
return false;
}
<%
response.write "if (document.pinglunform.yzm.value.length <1){"
%> alert("出错了，您没有填写验证码。");
document.pinglunform.yzm.focus();
return false;
}
<%
response.write "if (document.pinglunform.yzm.value!="&yzm&"){"
%> alert("出错了，您填写的验证码不正确。");
document.pinglunform.yzm.focus();
return false;
}
if (document.pinglunform.nr.value.length < 1) {
alert("出错了，请您填写评论内容。");
document.pinglunform.nr.focus();
return false;
}
<%
response.write "if (document.pinglunform.nr.value.length >"&maxlength&") {"
%>
alert("出错了，您的评论内容太长了。");
document.pinglunform.nr.focus();
return false;
}
}
//-->
</script>
<%
set rs=conn.execute("select top 5 * from buyok_pinglun where prodid='"&id&"' and view='1' order by AddDate desc")
if rs.eof and rs.bof then
response.write "<br>暂时没有用户对此商品提交评论。<br><br>"
else
do while not rs.eof
%>
<table cellSpacing=1 cellPadding=0 width=96% align=center bgColor=#CCCCCC border=0>
<tr><td>
<table cellSpacing=3 cellPadding=3 width=100% align=center bgColor=#F7FAFD border=0 onMouseOver="bgColor='#ebebeb'" onMouseOut="bgColor='#F7FAFD'">
<%
response.write "<tr><td width=33% >作者："&rs("name")&"<td widht=33% ><a href='mailto:"&rs("mail")&"'><img border=0 src=images/small/e-mail.gif></a></td><td width=33% align=right>"&ii11ii1(rs("IP"))&" </td></tr>"
response.write "<tr><td>时间："&rs("adddate")&"</td><td> </td><td align=right>"
for j=1 to rs("jibie")
response.write "<font color=orange>☆</font>"
next
nr=rs("nr") '内容
bad1=split(bad,"/") '过滤脏话
for t=0 to ubound(bad1)
nr=replace(nr,bad1(t),"***")
next
response.write " </td></tr><tr><td colspan=3><font color=darkgray><span style='line-height=100%'>"&replace(server.htmlencode(nr),vbCRLF,"<BR>")&"</span></font></td></tr></table></td></tr></table>"
response.write "<table border=0 height='"&jianju&"'><tr><td></td></tr></table>"
rs.movenext
loop
response.write "<table border=0 width=96% ><tr><td align=right height=40 valign=middle><a href=pinglun.asp?prodid="&prodid&" target='_blank'>浏览该商品的全部评论>></a> </td></tr></table>"
end if
%>
</td></tr>
<tr><td align=center>
<table cellSpacing="1" cellPadding="2" width="96%" align="center" bgColor="#cccccc" border="0">
<tr bgColor="#F7FAFD">
<form name="pinglunform" action="list.asp" method="post">
<td>
<table cellSpacing="1" cellPadding="2" width="95%" align="center" border="0">
<tr>
<td width="15%">姓 名：</td>
<td width="85%"><input id="name" value="<%=request.cookies("buyok")("userid")%>" maxLength="16" name="name" size="15" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana"><font color=orange>
<input type="radio" value="1" name="jibie">☆
<input type="radio" value="2" name="jibie">☆☆
<input type="radio" value="3" name="jibie">☆☆☆
<input type="radio" value="4" name="jibie">☆☆☆☆
<input type="radio" checked value="5" name="jibie">☆☆☆☆☆</font></td>
</tr>
<tr>
<td width="10%">邮 箱：</td>
<td width="90%"><input id="mail" size="30" name="mail" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana"></td>
</tr>
<tr>
<td width="10%">验证码：</td>
<td width="90%"><input id="yzm" size="6" maxlength=5 name="yzm" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana">
<%
a=int(yzm/1000)
b=int((yzm-a*1000)/100)
c=int((yzm-a*1000-b*100)/10)
d=int(yzm-a*1000-b*100-c*10)
response.write "<img align=top height=15 border=0 src=images/yzm/"&yzm_skin&"/"&a&".gif><img align=top height=15 border=0 src=images/yzm/"&yzm_skin&"/"&b&".gif><img align=top height=15 border=0 src=images/yzm/"&yzm_skin&"/"&c&".gif><img align=top height=15 border=0 src=images/yzm/"&yzm_skin&"/"&d&".gif>"
%></td>
</tr>
<tr>
<td vAlign="top">评 论：<br><font color=red>≤<%=maxlength%>字</font></td>
<td><textarea id="nr" name="nr" rows="4" cols="70" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana" style="overflow:auto;"></textarea>
</td></tr>
<tr>
<td></td>
<td>
<input type=hidden name='prodid' value='<%=prodid%>'>
<input type=hidden name='save' value='ok'>
<input onclick="return check();" type="submit" value=" 提交 " name="submit">
<input type="reset" value=" 重写 " name="Submit2">
</td></tr>
</table>
</td>
</form>
</tr>
</table>
</td></tr>
<tr><td align=center>
<table cellSpacing="0" cellPadding="0" width="96%" align="center" border="0" height=50 valign=middle>
<tr>
<td align="right">
<img src="images/small/email.gif" align="absMiddle">
<a href="tuijian.asp?id=<%=ID%>" target=_blank>推荐给好友</a>
<img src="images/small/print.gif" align="absMiddle">
<a href="javascript:window.print();">打印此页</a>
<img src="images/small/addfav.gif" align="absMiddle">
<a href="javascript:window.external.AddFavorite('<%=siteurl%>', '<%=sitename%>')">加入收藏</a>
<img src="images/small/gotop.gif" align="absMiddle"><a href="#">返回顶部</a>
</td>
</tr>
</table>
</td></tr>
</table>
</TD>
</TR>
</TABLE>
<!--#include file="buyok_down.asp"-->
</center>
</body>
</html>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -