gusucode.com > 爱美尔女性商城源码 1.0源码程序 > showpro.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%if IsNumeric(request.QueryString("id"))=False then
response.write("<script>alert(""非法访问!"");location.href=""index.asp"";</script>")
response.end
end if
dim id
bjxGid=request.QueryString("id")
if not isinteger(bjxGid) then
response.write"<script>alert(""非法访问!"");location.href=""index.asp"";</script>"
end if%>
<%dim bookid,action
bookid=request.QueryString("id")
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_pinglun",conn,1,3
rs.addnew
rs("bookid")=bookid
rs("pingji")=request("pingji")
rs("pinglunname")=HTMLEncode2(trim(request("pinglunname")))
rs("pingluntitle")=HTMLEncode2(trim(request("pingluntitle")))
rs("pingluncontent")=HTMLEncode2(trim(request("pingluncontent")))
rs("ip")=Request.servervariables("REMOTE_ADDR")
rs("pinglundate")=now()
rs("shenhe")=1
rs.update
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_goods where bookid="&bookid,conn,1,3
rs("pingji")=rs("pingji")+1
rs("pingjizong")=rs("pingjizong")+request("pingji")
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('您的评论已成功提交！');</script>"
response.redirect "showpro.asp?id="&bookid&""
response.End
end if
%>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from BJX_goods where bookid="&request("id"),conn,1,3
if rs.recordcount=0 then
%>
商品已不存在
<%
else
rs("liulancount")=rs("liulancount")+1
rs.update
bookid=rs("bookid")
liulancount=rs("liulancount")
proname=rs("bookname")
anclassid=rs("anclassid")
nclassid=rs("nclassid")
gjanclassid=rs("gjanclassid")
gjnclassid=rs("gjnclassid")
booknum=rs("booknum")
enbookname=rs("enbookname")
pingpai=rs("pingpai")
shichangjia=rs("shichangjia")
huiyuanjia=rs("huiyuanjia")
vipjia=rs("vipjia")
kucun=rs("kucun")
yeshu=rs("yeshu")
bookpic=rs("bookpic")
zhuang=rs("zhuang")
bookcontent=rs("bookcontent")
bestbook=rs("bestbook")
tejiabook=rs("tejiabook")
dazhe=rs("dazhe")
pingji=rs("pingji")
rs.close
set rs=nothing
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=proname%>-<%=webname%></title>
<meta name="keywords" content="<%=keywords%>" />
<meta name="description" content="<%=description1%>" />
<link href="css/style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="js/jquery.js"></script>
<script type="text/javascript" src="js/jquery.idtabs.js"></script>
<script type="text/javascript" src="js/swf.js"></script>
</head>
<body>
<!--#include file="top.asp" -->
<%
liulan = Request("id")&", "& request.cookies("liu")
response.cookies("liu") = liulan
response.cookies("liu").expires=now()+365
%>
<table width="995" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"><div align="center"></div></td>
</tr>
</table>
<table width="995" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="189" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="background:url(images/index_left_top1.gif) top no-repeat left; height:50px;"> </td>
</tr>
<tr>
<td style="background:url(images/fenlei_bottom2.gif) bottom no-repeat left;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * FROM BJX_class1 where typeid=1 order by anclassidorder asc",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
<tr>
<td><b><a href="products.asp?anid=<%=rs("anclassid")%>&typeid=<%=rs("typeid")%>" class="a1"><img src="images/list_ico1.gif" width="28" height="23" align="absmiddle" /><%=rs("anclass")%></a></b></td>
</tr>
<tr>
<td style="padding-left:28px; padding-top:5px;">
<%set rss=server.CreateObject("adodb.recordset")
rss.open "select * FROM BJX_class2 where typeid=1 and anclassid="&rs("anclassid")&" order by nclassidorder asc",conn,1,1
if not rss.eof then
i=1
do while not rss.eof%>
<a href="products.asp?anid=<%=rss("anclassid")%>&nid=<%=rss("nclassid")%>&typeid=<%=rss("typeid")%>"><%=rss("nclass")%></a> <br />
<%
rss.movenext
i=i+1
loop
rss.close
end if
%>
</td>
</tr>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="left.asp"--></td>
<td width="10" valign="top"><div align="center"></div></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="<%=url7%>"><img src="<%=pic7%>" width="800" height="95" /></a></td>
</tr>
</table>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from BJX_class1 where anclassid="&anclassid&"",conn,1,3
anclass=rs_s("anclass")
rs_s.update
rs_s.close
set rs_s=nothing
if nclassid<>"" and nclassid<>0 then
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from BJX_class2 where anclassid="&anclassid&" and nclassid="&nclassid&"",conn,1,3
nclass=rs_s("nclass")
rs_s.update
rs_s.close
set rs_s=nothing
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40">您当前的位置： <a title="" href="index.asp" alt="">首页</a> >> <b><%=anclass%></b> <%if nclassid<>"" then%>>> <b><%=nclass%></b><%end if%> <%=proname%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="375"><a href="<%=zhuang%>" target="_blank"><img src="<%=zhuang%>" width="355" height="345" border="0" style="border:1px solid #adadad;" /></a></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" style="font-size:16px; font-weight:bold;"><%=proname%></td>
</tr>
<tr>
<td style="height:1px; background:#ccc;"></td>
</tr>
<tr>
<td height="5"><div align="center"></div></td>
</tr>
<tr>
<td height="25">货号：<%=booknum%></td>
</tr>
<tr>
<td height="25">规格：<%=gg%></td>
</tr>
<tr>
<td height="5"><div align="center"></div></td>
</tr>
<tr>
<td style="height:1px; background:#ccc;"></td>
</tr>
<tr>
<td height="5"><div align="center"></div></td>
</tr>
<tr>
<td>市场价：<font style="text-decoration:line-through; color:#999;">￥<%=shichangjia%></font></td>
</tr>
<tr>
<td>销售价：<font style=" color:#bb0044; font-weight:bold; font-size:14px;">￥<%=huiyuanjia%></font></td>
</tr>
<tr>
<td>赠送积分：<font style=" color:#bb0044; font-weight:bold; font-size:14px;"><%=yeshu%>分</font></td>
</tr>
<tr>
<td height="5"><div align="center"></div></td>
</tr>
<tr>
<td style="border:1px solid #e7dbb1; padding:10px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<FORM name="pDetails" action="ShoppingCart.asp?id=<%=bookid%>&action=add" method="post">
<tr>
<td height="30" valign="top">购买数量：
<INPUT id="Quantity" style="MARGIN-LEFT: 26px" size=4 value=1
name="Quantity"></td>
</tr>
<tr>
<td height="1" bgcolor="faeac7"><div align="center"></div></td>
</tr>
<tr>
<td height="50" valign="bottom"><input name="buy" type="image" src="images/bt5.gif" > <a href="shoucang.asp?id=<%=bookid%>&action=add"
target="_blank"><img src="images/bt3.gif" width="62" height="25" /></a></td>
</tr>
</FORM>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="background:url(images/t1_top_bg11.gif) bottom repeat-x;"><div id="selected7">
<ul>
<li><a href="#selected7_1">产品综述</a></li>
<li><a href="#selected7_2">商品评论</a></li>
</ul>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td><div id="selected7_1" style="padding:10px;">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td style="font-size:14px; line-height:200%;"><p><img src="images/viewtu.jpg" width="765" height="184" /></p>
<p> </p>
<%=bookcontent%></td>
</tr>
</table>
</div>
<div id="selected7_2">
<br /><br />
<TABLE cellSpacing=0 cellPadding=0 width="100%" name="yhpl">
<TBODY>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from BJX_pinglun 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="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td align="center"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr bgcolor="#FFFFFF">
<td colspan="2" align="left">主题： <%=trim(rs("pingluntitle"))%></td>
<td width="20%" align="left"><img src="images/level<%=rs("pingji")%>.gif"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="left">作者： <%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)</td>
<td width="20%" align="left"><%=trim(rs("ip"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="3" align="left" 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" align="left"><b><font color="#ff6600">销售商回复：</font></b><%=rs("huifu")%> </td>
</tr>
<%end if%>
</table></td>
</tr>
</table>
<br>
</td>
</tr>
<%
rs.movenext
next
if plcount>0 then
%>
<tr>
<td align=right><a href=listpl.asp?id=<%=request("id")%> target="_blank">浏览该商品的全部<%=plcount%>条评论>></a> </td>
</tr>
<%end if%>
</TBODY></TABLE>
<br />
<table width="95%" height="188" border="0" cellpadding="2" cellspacing="2" bgcolor="#CCCCCC">
<form name="pinglunform" method="post" action="showpro.asp?action=save&id=<%=bookid%>">
<tr>
<td width="20%" align="center" bgcolor="#FFFFFF">标 题：</td>
<td width="80%" bgcolor="#FFFFFF"><INPUT class=pro_input id=pingluntitle size=30 name=pingluntitle></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">名字：</td>
<td bgcolor="#FFFFFF"><INPUT class=pro_input id=pinglunname maxLength=15 size=10
name=pinglunname value="<%=request.Cookies("bjx")("username")%>"></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">选择星级：</td>
<td bgcolor="#FFFFFF"><input type="radio" name="pingji" value="1" checked>☆
<input type="radio" name="pingji" value="2">☆☆
<input type="radio" name="pingji" value="3">☆☆☆
<input type="radio" name="pingji" value="4">☆☆☆☆
<input type="radio" name="pingji" value="5">☆☆☆☆☆</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">内容:</td>
<td bgcolor="#FFFFFF"><TEXTAREA name=pingluncontent rows=4 cols=40></TEXTAREA></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><INPUT type=image
src="images/product_tjbtn.gif" value="提交 "
name=submit onClick="return check();"></td>
</tr>
</form>
</table></div>
<script type="text/javascript">$("#selected7 ul").idTabs("!mouseover"); </script></td>
</tr>
</table></td>
</tr>
</table>
<%function HTMLEncode2(fString)
'fString = Replace(fString, CHR(13), "")
'fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
'fString = Replace(fString, CHR(10), "<BR>")
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), "<I></I> ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode2 = fString
end function%>
<script LANGUAGE="javascript">
<!--
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function check()
{
if(checkspace(document.pinglunform.pinglunname.value)) {
document.pinglunform.pinglunname.focus();
alert("请填写您的姓名！");
return false;
}
if(checkspace(document.pinglunform.pingluntitle.value)) {
document.pinglunform.pingluntitle.focus();
alert("请填写评论标题！");
return false;
}
if(checkspace(document.pinglunform.pingluncontent.value)) {
document.pinglunform.pingluncontent.focus();
alert("请填写评论正文！");
return false;
}
}
//-->
</script>
<!--#include file="bottom.asp" -->
</body>
</html>