📄 product.asp
字号:
<!--
┌─ shopxp.cn──────────────┐
│ 免费版难免存在不足，建议你使用正式版 │
│ 正式版用户提供免费升级24小时内排除故障│
│ 请到www.shopxp.cn进行前台和后台的测试 │
│ 热线：010-69209701-801 QQ：83107971 │
└────────────────────┘
-->
<!--#include file="conn/conn.asp"-->
<!--#include file="conn/webconfig.asp"-->
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_product where productid="&request("id"),conn,1,3
if rs.recordcount=0 then
%>
商品已不存在
<%
else
rs("liulancount")=rs("liulancount")+1
rs.update
if request.Cookies("shopxp")("username")<>"" then
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from [Dv_User] where username='"&request.Cookies("shopxp")("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 productid="&request("id")&" and username='"&request.Cookies("shopxp")("username")&"' and action_key_order=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("shopxp")("username")&"' and action_key_order=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("shopxp")("username")
rs_s("productid")=request("id")
rs_s("productname")=rs("productname")
rs_s("userid")=t_userid
rs_s("action_key_order")=1
rs_s("ltime")=now()
rs_s.update
rs_s.close
set rs_s=nothing
end if
end if
%>
<html><head><title><%=rs("productname")%>|<%=webname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="img/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
.css03 {FONT-SIZE: 12px; LINE-HEIGHT: 130%}
.style4 {font-size: 14pt; color: #FF0000;}
.style6 {font-size: 14}
.style8 {
font-size: 16pt;
font-weight: bold;
color: #305A51;
}
-->
</style>
</head>
<script language="JavaScript">
<!--
function OpenNews()
{
window.name = "news"
win = window.open('','newswin','left=110,width=600,height=420,scrollbars=1');
}
//-->
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<%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 productid,action
productid=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("productid")=productid
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_product where productid="&productid,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
%>
<!--#include file="webtop.asp"-->
<table width="99%" height="91" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="92%"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="1" background="img/xiao/bgbg.gif"></td>
<td valign="top"><table width="50%" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td align="center" valign="top">
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="39%"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="img/xiao/00002.gif">
<tr>
<td width="67%" height="24"><img src="img/xiao/0003.gif" width="53" height="18"></td>
<td width="33%"><img src="img/xiao/0001.gif" width="113" height="24"></td>
</tr>
</table></td>
<td width="61%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><br>
<font size="3"><%=rs("productname")%></font>
</div>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="8" background="img/xiao/img11.gif"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="359" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="39%" height="349">
<br>
<div align="center"><br>
<%if rs("zhuang")="" then
response.write "<img src=img/emptybook.gif width=200 border=0>"
else%>
<a href="<%=trim(rs("zhuang"))%>" target="_blank" ><img src="<%=trim(rs("zhuang"))%>" width=200 border=0 alt="点击浏览商品大图" height="200"></a>
<%end if%>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="26"><div align="center"><a href="<%=trim(rs("zhuang"))%>" target="_blank"><img src="img/xiao/zoom.gif" width="47" height="17" border="0"></a></div></td>
</tr>
</table>
<table width="96%" border="0"align="center">
<tr>
<td height="50"><div align="center">
<% dim p1,p2,p3,p4
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_product where productid="&request("id"),conn,1,3
p1=trim(rs("p1"))
p2=trim(rs("p2"))
p3=trim(rs("p3"))
p4=trim(rs("p4"))
%>
<table width="270" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25%"><span class="table-shang">
</span>
<TABLE width=60 height=60 border=0 align="center" cellPadding=2 cellSpacing=1 bgColor=#e1e1e1 >
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -