<!--#include file="include/nowshop.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 bproduc 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 bproduc 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 href="list/newhead.css" type=text/css rel=stylesheet>
<style type=text/css>
.pic1{MARGIN-TOP: -117px;MARGIN-left:0px}
.pic3{MARGIN-TOP: -90px;MARGIN-left:0px}
.pic2{padding-top:6px}
.com_zongji_name {
	FONT-SIZE: 14px; COLOR: #ff5b02
	}
.formwidth3 {
	BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; WIDTH: 180px; BORDER-BOTTOM: #cccccc 1px solid
}
.formwidth4 {
	BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; WIDTH: 450px; BORDER-BOTTOM: #cccccc 1px solid
}

</style>

</head>
<SCRIPT language=javascript>
function Price_Change()
{
	with(document.search)
	{
		if(price.value=='1')
		{
			jg1_key.value="0";
			jg2_key.value="99";
		}
		if(price.value=='2')
		{
			jg1_key.value="100";
			jg2_key.value="499";
		}
		if(price.value=='3')
		{
			jg1_key.value="500";
			jg2_key.value="999";
		}
		if(price.value=='4')
		{
			jg1_key.value="1000";
			jg2_key.value="1000000";
		}	
	}
}
</SCRIPT>


<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<center>
  <!--#include file="top.asp"-->
  <table width="768" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td width="180" align="left" valign="top" background=images/left_bg.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
          <TR> 
            <TD><IMG height=22 src="list/zbhz_shopping_car.gif" 
            width=180></TD>
          </TR>
          <TR> 
            <TD bgColor=#fcd8e7><IFRAME border=0 name=new_date11 marginWidth=0 
            marginHeight=0 src="gouwuche.asp" frameBorder=0 
            noResize width=178 scrolling=no height=83 spacing="0" 
            vspale="0"></IFRAME></TD></tr>
						<TR> 
               <TD height=5 bgcolor="#FFFFFF"></TD>
			  </tr>

			<TR> 
               <TD background="images/left_bg.gif"><IMG height=20 src="list/pic_fl.gif" 
              width=180></TD>
			  </tr>
			  <tr>
			  <td>
<TABLE align=center cellSpacing=0 cellPadding=0 width=175 border=0>
	<tr><td width=175 colspan=3 height=10 ></td></tr>
<%
color1="77CC00"     '分类列表中大类的颜色
color2="0066ff"     '分类列表中中类的颜色
viewmidclass=1      '是否显示中类，1表示显示，0表示不显示
dim larcode(100)    '最多支持100个大类
dim midcode(20)     '最多支持20个中类

	'以下是分类列表，首先读取全部大类，然后根据每个大类读取各自的中类
	response.write "<table width='175' border='0' align='center' cellpadding=1 cellspacing=1>"
	Dim a,b,c
	sqllar="select Distinct LarCode,LarSeq from bclass order by LarSeq"
	Set rsprodtree=Server.CreateObject("ADODB.RecordSet") 
	rsprodtree.Open sqllar,conn,1,1 

	if rsprodtree.bof and rsprodtree.eof then
		response.write "<tr><td width=175 colspan=3 height=100 align=center>对不起，本商城暂未开业</td></tr>"
	else
		
		i=0
		Do While Not rsprodtree.eof	
		i=i+1
		larcode(i)=rsprodtree("LarCode")
		rsprodtree.movenext	
		if rsprodtree.eof then exit do
		Loop
	end if
	set rsprodtree=nothing
	set sqllar=nothing


	
	FOR t=1 to i
	response.write "<tr><td width='175'  class='dfont' height=25 colspan=3 valign=middle><B>&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/dot.gif  border=0>&nbsp;&nbsp;<a href='class.asp?LarCode="&LarCode(t)&"'>"&LarCode(t)&"</B></a></td></tr>"
	response.write "<tr>"

if viewmidclass<>0 then           '是否显示中类
	'以下是根据前面读取的大类名称，读取各个大类下的中类
	sqllar="select MIDCode,MIDSeq from bclass where larcode='"&larcode(t)&"' order by MIDSeq"
	Set rsprodtree=Server.CreateObject("ADODB.RecordSet") 
	rsprodtree.Open sqllar,conn,1,1 
		m=0
		Do While Not rsprodtree.eof	
		m=m+1
		midcode(m)=rsprodtree("midCode")
		rsprodtree.movenext	
		if rsprodtree.eof then exit do
		Loop

	set rsprodtree=nothing
	set sqllar=nothing

		for n=1 to m
		if n mod 2<>0 then
		response.write "<td width=85 align=right  class='dfont'><a href='class.asp?LarCode="&LarCode(t)&"&MidCode="&MidCode(n)&"'>"&MidCode(n)&"</a></TD>"
		else
		response.write "<td align=center width=5>|</td><td  width=85 class='dfont'><a href='class.asp?LarCode="&LarCode(t)&"&MidCode="&MidCode(n)&"'>"&MidCode(n)&"</a></TD></tr><tr>"
	    end if
		next
			response.write "<tr><td width=175 colspan=3 height=10 ></td></tr>"

end if

	next

%>
                                  </table>
			  </td>
			  </tr>
                    <TR> 
                      <TD bgcolor="#FFFFFF" height=30 valign="middle"><IMG height=25 src="list/pic_tj.gif" 
              width=180></TD>
                    </TR>
<tr><td>
                                <%
set cqrsprod=conn.execute("select  * from bproduc where online=true order by ClickTimes desc,AddDate desc")
Do While Not cqrsprod.eof
prodname=lleft(cqrsprod("ProdName"),22)
response.write "<tr><td class=td1 height=22>&nbsp;&nbsp;&nbsp;&nbsp;·<a href='list.asp?ProdId="&cqrsprod("ProdId")&"'><font alt='热门商品TOP"&K+1&"'>"&prodname&"</font></a></td></tr>"
k=k+1
if k>renmen_num-1 then exit do
if cqrsprod.eof then exit do
cqrsprod.movenext
loop
set cqrsprod=nothing
%>

</td></tr>
        </TBODY>
      </TABLE></td>
      <td width="9"></td>
      <td width="579" align="left" valign="top" background=list/zbhz_right_bg.gif ><table width="579" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td><IMG height=4 
            src="list/zbhz_line.gif" 
      width=579></td>
          </tr>
          <tr> 
            <td><table width="579" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="300" height="300" align="center" valign="middle">
				  <table width=300 height="300" border=0 align=center cellpadding=1 cellspacing=0 valign=middle>
                      <tr> 
                        <td align=center valign=middle background="images/list_bg.gif"> 
						<script language=javascript src=include/pic3.js></script>

<img  border=0 onload='DrawImagee(this)' 
alt='<%=rsprod("ProdName")%>' 
src='<%=rsprod("ImgPrev")%>'>
</td>
                      </tr>
                    </table>
									  
				  </td>
                  <td align="left" valign="top"><table width="279" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td><TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
                            <TBODY>
                              <TR> 
                                <TD align=right width=21 height=24><IMG height=15 
                              hspace=5 src="images/com_zj_star.gif" 
                              width=7></TD>
                                
                        <TD 
                            width=258><font color="#ff5b02"><%=lleft(rsprod("ProdName"),40)%></font></TD>
                              </TR>
                              <TR> 
                                <TD colSpan=2><IMG height=3 alt="" 
                              src="images/com_zj_line.gif" 
                          width=270></TD>
                              </TR>
                              <TR> 
                                <TD colSpan=2 height=3></TD>
                              </TR>
                              <TR> 
                                <TD></TD>
                                
                        <TD height=20><%=rsprod("PriceOrigintext")%>￥<%=FormatNum(rsprod("PriceOrigin"),2)%></TD>
                              </TR>
                              <TR> 
                                <TD>&nbsp;</TD>
                                
                        <TD height=20><font color="#FF0000"><%=rsprod("PriceListtext")%>￥<%=FormatNum(rsprod("PriceList"),2)%></font></TD>
                              </TR>
                              <TR> 
                                <TD>&nbsp;</TD>
                                
                        <TD class=com_zongji_red 
                          height=20><font color="#FF0000"><%=rsprod("zidingyi2")%>￥<%	if request.cookies("buyok")("userid")="" then 
	response.write "<font color=red>"&huiyuanjia&"</font><br>"
	else
	response.write "<font color=red>"&FormatNum(rsprod("PriceList")*checkuserkou()/10,2)&"</font><br>"
	end if
%>
                          </font></TD>
                              </TR>
                            </TBODY>
                          </TABLE></td>
                      </tr>
                      <tr> 
                        <td><TABLE cellSpacing=0 cellPadding=0 width=277 border=0>
                            <TBODY>
                              <TR> 
                                <TD width=5><IMG height=205 
                              src="images/com_zj_left_01.gif" 
width=5></TD>
                                <TD vAlign=top 
                            background=images/com_zj_bg_01.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
                                    <TBODY>
                                      <TR> 
                                        <TD vAlign=top width="100%" height=75> 
                                          <TABLE cellSpacing=0 cellPadding=0 width=267 
                                border=0>
                                            <TBODY>
                                              <TR> 
                                                
                                        <TD align=right width=66 height=24><%=rsprod("prodidtext")%></TD>
                                                
                                        <TD width=66><%=rsprod("prodid")%></TD>
                                                
                                        <TD align=right width=60 height=24><%=rsprod("modeltext")%></TD>
                                                
                                        <TD width=60><%=rsprod("model")%></TD>
                                              </TR>
                                              <TR> 
                                                
                                        <TD align=right width=66 height=24><%=rsprod("Prodtext1")%></TD>
                                                
                                        <TD width=66><%=rsprod("Prod1")%></TD>
                                                
                                        <TD align=right width=60 height=24><%=rsprod("Prodtext2")%></TD>
                                                
                                        <TD width=60><%=rsprod("Prod2")%>　</TD>
                                              </TR>
                                              <TR> 
                                                
                                        <TD align=right width=66 height=24><%=rsprod("zidingyi1")%></TD>
                                        <TD width=66><%=rsprod("zdy1")%></TD>
                                                
                                        <TD align=right width=60 height=24>浏览次数：</TD>
                                                <TD width=60><%=rsprod("ClickTimes")%></TD>
                                              </TR>
                                            </TBODY>
                                          </TABLE></TD>
                                      </TR>
                                      <TR> 
                                        <TD height=48 align="center" vAlign=middle> 
                                          <%if rsprod("quantity")<>0 and rsprod("PriceList")<>0 then %>
                                          <a  href=shop.asp?ProdId=<%=rsprod("ProdId")%>><img border=0 src=images/an_bag_tellme.gif alt=千寻万觅，要的就是她></a> 
                                          <%else%>
                                          <img border=0 src=images/an_bag_tellme.gif alt=暂时不能购买此商品> 
                                          <%end if%>
<a  href=fav.asp?ProdId=<%=rsprod("ProdId")%> target="_blank"><img src=images/an_bag2.gif alt=放入收藏夹 width="85" height="24" border=0></a>
                                        </TD>
                                      </TR>
                                      <TR> 
                                        <TD width="100%" height=60 align="left" vAlign=middle><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                                            <TBODY>
                                              <TR> 
                                                <TD width="4%" align="left" valign="top"><IMG height=11 
                                src="images/com_zj_spsm_star.gif" 
                                width=7 vspace=2></TD>
                                                <TD vAlign=bottom width="96%"> 
                                                  <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                                                    <TBODY>
                                                      <TR> 
                                                        <TD width="25%" align="left" valign="top"><font color="#ff5b02"><%=rsprod("Proddisctext")%></font></TD>
                                                        <TD align=left width="77%"><font color="#6a6a6a"><%=rsprod("ProdDisc")%></font></TD>
                                                      </TR>
                                                    </TBODY>
                                                  </TABLE></TD>
                                              </TR>
                                            </TBODY>
                                          </TABLE></TD>
                                      </TR>
                                    </TBODY>
                                  </TABLE></TD>
                                <TD width=5><IMG height=205 alt="" 
                              src="images/com_zj_right_01.gif" 
                            width=5></TD>
                              </TR>
                            </TBODY>
                          </TABLE></td>
                      </tr>
                    </table></td>
                </tr>
              </table></td>
          </tr>
          <tr>
            <td height="10"></td>
          </tr>
          <tr> 
            <td><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                        <TBODY>
                          <TR> 
                            <TD width=26><IMG height=24 
                  src="list/zbhz_pub_pic.gif" width=26></TD>
                            <TD> <TABLE height=24 cellSpacing=0 cellPadding=0 width="99%" 
                  border=0>
                                <TBODY>
                                  <TR> 
                                    
                            <TD 
                        background=list/zbhz_pub_bg.gif>&gt;&gt; <%=rsprod("MemoSpectext")%></TD>
                                  </TR>
                                </TBODY>
                              </TABLE></TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                  <TR> 
                    <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                        <TBODY>
                          <TR> 
                            <TD height=8></TD>
                          </TR>
                          <TR> 
                            <TD class=font_desc></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                      <TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
                        <TBODY>
                          <TR> 
                            <TD vAlign=top align=middle width=16></TD>
                            <TD vAlign=top>
	<%
Set rscg = conn.Execute("select * from adv4") 
%>
							<% if rsprod("kaiguan1")="1" then %>
							<%=rscg("zimu")%><br>
																					<% end if %>

							<% if rsprod("kaiguan2")="1" then %>
							<%=rscg("zimulink")%><br>
																					<% end if %>

							<% if rsprod("kaiguan3")="1" then %>
							<%=rscg("zimu2")%><br>
																					<% end if %>

							<% if rsprod("kaiguan4")="1" then %>

							<%=rscg("zimu2link")%><br>
														<% end if %>

<% if rsprod("kaiguan5")="1" then %>
							<%=rscg("zimu3")%><br>
							<% end if %>


							<%=rsprod("MemoSpec")%>
							
							</TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE></td>
          </tr>
          <tr><td height="10"></td></tr> 
 
          <tr> 
            <td><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD width=26><IMG height=24 
                  src="list%5Cpub_pic(1).gif" 
                  width=26></TD>
                    <TD> <TABLE height=24 cellSpacing=0 cellPadding=0 width=99% 
                  border=0>
                        <TBODY>
                          <TR> 
                            <TD 
                      background=list\pub_bg(1).gif>&nbsp;&gt;&gt; 客户评价</TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE></td>
          </tr>
          <tr> 
            <td>
			<table width="99%">
			<%
randomize
yzm=int(8999*rnd()+1000)

set rs=conn.execute("select * from bsetup")
jianju=clng(rs("book_jianju"))		'间距
bad=cstr(rs("bad"))			'脏话过滤
maxlength=clng(rs("maxlength"))		'最长字符数
%>

<script language="javascript">
<!--
function check()
{
	if (document.pinglunform.name.value.length < 1 || 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 pinglun where prodid='"&id&"' and view='1' order by AddDate desc")
if rs.eof and rs.bof then
response.write "<br>&nbsp;&nbsp;此商品暂无客户评价&nbsp;&nbsp;<br><br>"
else
do while not rs.eof
%>
<tr><td height="20" align="left" valign="top"><% for j=1 to rs("jibie")
response.write "<font color=#ff5b02>★</font>"
next
response.write"&nbsp;&nbsp;&nbsp;&nbsp;"&rs("adddate")&"</td></tr><tr><td bgcolor=#F7F3F7 width=570>"
response.write"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;评价人："&rs("name")&"</td></tr><tr><td height=2 bgcolor=#ffffff width=570>"
response.write"</td></tr><tr><td bgcolor=#FFFBFF width=570>"
	nr=rs("nr")			'内容
	bad1=split(bad,"/")		'过滤脏话
	for t=0 to ubound(bad1)
	nr=replace(nr,bad1(t),"***")
	next
response.write"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;评价词："&rs("nr")&"</td></tr><tr><td>"
%>
<%
	nr=rs("nr")		'内容
	bad1=split(bad,"/")		'过滤脏话
	for t=0 to ubound(bad1)
	nr=replace(nr,bad1(t),"***")
	next
response.write "</td></tr><tr><td>"
response.write "<table border=0 height='"&jianju&"'><tr><td></td></tr></table></td></tr>"
rs.movenext
loop
response.write "<tr><td align=right width=570><a href=pinglun.asp?prodid="&prodid&" target='_blank'>浏览该商品的全部评论>></a></td></tr>"
end if
%>
</table>
			</td>
          </tr>
		  
	<tr><td align=left>

<table cellSpacing="0" cellPadding="0" width="99%" align="left" border="0">
<tr><td width="100%" height=1 bgcolor="#EF92B5"> </td></tr>
	<tr>
	<form name="pinglunform" action="list.asp" method="post">
	<td>
	<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
		<tr>
		<td width="15%">姓名/ID：</td>
		<td width="85%"><input id="name" value="<%=request.cookies("buyok")("userid")%>" maxLength="16" name="name" size="15" class=formwidth3><font color=#ff5b02> 
		<input type="radio" checked value="5" name="jibie">★★★★★
		<input type="radio" value="4" name="jibie">★★★★
		<input type="radio" value="3" name="jibie">★★★
		<input type="radio" value="2" name="jibie">★★
		<input type="radio" value="1" name="jibie">★
		</font></td>
		</tr>
		<tr>
		<td width="10%">邮&nbsp;&nbsp;箱：</td>
		<td width="90%"><input id="mail" size="30" name="mail" class=formwidth3></td>
		</tr>
		<tr>
		<td width="10%">验证码：</td>
		<td width="90%"><input id="yzm" size="6" maxlength=5 name="yzm" class=formwidth3>
<%
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">评&nbsp;&nbsp;论：<br><font color=red>≤<%=maxlength%>字</font></td>
		<td><textarea id="nr" name="nr" rows="4" cols="70" class=formwidth4 style="overflow:auto;"></textarea>
		</td></tr>
		<tr>
		<td></td>
		<td height="30" valign="middle">
		<input type=hidden name='prodid' value='<%=prodid%>'>
		<input type=hidden name='save' value='ok'>
		<input onclick="return check();" type="submit" value=" 提交 " name="submit"> &nbsp; 
		<input type="reset" value=" 重写 " name="Submit2">
		</td></tr>
	</table>
        </td>
        </form>
        </tr>
		<tr><td width="100%" height=1 bgcolor="#EF92B5"> </td></tr>
</table>
</td></tr>
	  
		  
		  <tr>
              <td align=center>&nbsp; </td>
            </tr>

          <tr> 
            <td><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD width=26><IMG height=24 
                  src="list/zbhz_pub_pic.gif" width=26></TD>
                    <TD> <TABLE height=24 cellSpacing=0 cellPadding=0 width="99%" 
                  border=0>
                        <TBODY>
                          <TR> 
                            <TD 
                        background=list/zbhz_pub_bg.gif>&nbsp;&gt;&gt; 相关商品</TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE> </td>
          </tr>
          <tr> 
            <td><TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
                <TBODY>
                  <TR> 
                    <TD width=15>&nbsp;</TD>
                    <TD> 
                      <!--#include file="xiangguan.asp"-->
                      <br></TD>
                  </TR>
                </TBODY>
              </TABLE></td>
          </tr>
        </table></td>
    </tr>
  </table>
  <!--#include file="down.asp"-->
</center>
</body>


</html>

	<%
conn.close
set conn=nothing
%>


