<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<HTML><HEAD><TITLE>免费建站 网上开店 网上购物 在线购物</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=免费建站、网上开店、网上购物－享受购物，从满意开始！ name=description>
<META 
content="免费建站 网上开店 免费网上开店 网上购物 云南购物 昆明购物 电脑 网络 软件 随身视听 家用电器 音响 照相机 摄像机 数码产品 手机 电话 卡 通讯器材 鲜花 玩具 模型 礼品 游戏 汽车 摩托 自行车 服装 鞋帽 箱包 服饰 香水 彩妆 化妆品 保健品  珠宝首饰 手表 眼镜 影视 音乐 音像 图书 报纸 杂志 动漫 办公用品 设备 耗材 运动休闲 户外野营 居家 日用 装饰 宠物 饮食 小吃 蛋糕 特产 邮币 古董 字画 收藏 乐器 明星 工艺品 游戏卡 电话卡 邮箱卡 成人用品 情趣用" 
name=keywords>
<SCRIPT language=javascript>
function resize() {
	try {
		var aw = screen.availWidth;
		var ah = screen.availHeight;
		window.moveTo(0, 0);
		window.resizeTo(aw, ah);
	}catch(e) {}
}
function cls() {
	if (document.all) {
		window.opener='abc';
	}
	window.close();
	return false;
}
</SCRIPT>
<LINK href="免费建站 网上开店 网上购物 在线购物_files/shop.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<style type="text/css">
<!--
.style3 {font-size: 12px; font-weight: bold; }
.style4 {font-size: 14px}
-->
</style>
</HEAD>
<BODY style="CURSOR: hand" onclick=cls(); onload=resize()><BR>
<script language="JavaScript">
	
	<!--
	
	function OpenNews() 
	{
			window.name = "news"
			win = window.open('','newswin','left=110,width=600,height=420,scrollbars=1');
	}
	//-->
	</script>
<%if IsNumeric(request.QueryString("id"))=False then 
response.write("<script>alert(""非法访问!"");location.href=""index.asp"";</script>")
response.end
end if
dim id
id=request.QueryString("id")
if not isinteger(id) 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 shop_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 shop_books 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('您的评论已成功提交！');history.go(-1);</script>"
response.End
end if
%>
<%set rs=server.createobject("adodb.recordset") 
rs.open "select * from shop_books where bookid="&request("id"),conn,1,3
if rs.recordcount=0 then 
%>
产品已不存在 
<%
else
rs("liulancount")=rs("liulancount")+1
rs.update
if request.Cookies("bjx")("username")<>"" then 
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from [user] where username='"&request.Cookies("bjx")("username")&"'",conn,1,1
t_userid=rs_s("userid")
rs_s.close
		    set rs_s=server.createobject("adodb.recordset")
		    rs_s.open "select * from shop_his where bookid="&request("id")&" and username='"&request.Cookies("bjx")("username")&"' and lx=1",conn,1,3
		    if rs_s.recordcount>0 then 
			rs_s("ltime")=now()
			rs_s("userid")=t_userid
			rs_s.update
			rs_s.close
			set rs_s=nothing
		    else
		    	rs_s.close
		    	set rs_s=server.createobject("adodb.recordset")
		    	rs_s.open "select * from shop_his where username='"&request.Cookies("bjx")("username")&"' and lx=1 order by ltime",conn,1,3
		    	if rs_s.recordcount>=4 then
		    	    rs_s.delete
		    	    rs_s.update
		    	end if
		    	rs_s.addnew
		    	    rs_s("username")=request.Cookies("bjx")("username")
		    	    rs_s("bookid")=request("id")
		    	    rs_s("bookname")=rs("bookname")
			    rs_s("userid")=t_userid
		    	    rs_s("lx")=1
		    	    rs_s("ltime")=now()
		        rs_s.update
			rs_s.close
			set rs_s=nothing
			end if
			end if
			%>
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=3 align=center 
bgColor=#f4f4f4 borderColorLight=#cccccc border=1>
  <TBODY>
  <TR onmouseover="this.style.backgroundColor='#ffffff'" 
  onmouseout="this.style.backgroundColor='#F4F4F4'">
    <TD vAlign=top align=middle height=40>
      <TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" 
      align=center bgColor=#f4f4f4 borderColorLight=#cccccc border=1>
        <TBODY>
        <TR onmouseover="this.style.backgroundColor='#ffffff'" 
        onmouseout="this.style.backgroundColor='#F4F4F4'">
          <TD vAlign=center align=middle width="17%"><span class="style3"><FONT color=#0033cc><a href="reg_shang.asp">免费建站</a></FONT></span></TD>
          <TD vAlign=center align=middle width="17%"><span class="style3"><A 
            href="reg.asp" target=_blank><FONT 
            color=#0033cc>免费注册</FONT></A></span></TD>
          <TD vAlign=center align=middle width="17%"><span class="style3"><A 
            href="bbs/" target=_blank><FONT 
            color=#0033cc>咕噜噜社区</FONT></A></span></TD>
          <TD vAlign=center align=middle width="17%"><span class="style3"><A 
            href="index.asp" target=_blank><FONT 
            color=#ff3300>网站首页</FONT></A></span></TD>
        </TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#ff3300 
        border=0><TBODY>
        <TR>
          <TD height=2></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD vAlign=center align=middle>
      <TABLE border=0 align=center cellspacing="0">
        <TBODY>
        <TR align=middle>
          <TD>
            <H4 align="center" class="style4"><%=rs("bookname")%></H4></TD></TR>
        <TR align=middle>
          <TD><%if rs("zhuang")="" then 
response.write "<img src=images/emptybookd.gif width=200 border=0>"
else%>
<img src="<%=trim(rs("zhuang"))%>" border=0 alt="点击关闭窗口">
<%end if%>
</TD>
        </TR>
        <TR align=middle>
          <TD><%response.write "<tr><td align=right><a href=research.asp?action=1&anclassid=0&searchkey="&trim(rs("bookname"))&" ></a>&nbsp;&nbsp;&nbsp;</td>"
rs.close
set rs=nothing
end if%></TD>
        </TR>
        </TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>
