📄 list.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--商品信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.css03 {FONT-SIZE: 12px; LINE-HEIGHT: 130%}
.style1 {color: #FF0000}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<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
%>
<!--#include file="webtop.asp"-->
<table width="770" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td width="170" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<!--#include file="history.asp"-->
<!--#include file="gouwucheinfo.asp"-->
<!--#include file="xiaoshouinfo.asp"-->
</td>
<td valign="top" class="table-zuo" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<%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("days6")("username")<>"" then
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from [user] where username='"&request.Cookies("days6")("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("days6")("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("days6")("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("days6")("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 width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="table-shangxia" bgcolor="#ffffff" height="35"><img src="images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp><%=webname%></a> >>
<%set rs2=server.createobject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&rs("anclassid"),conn,1,1
if rs2.recordcount>0 then
response.write "<a href=class.asp?lx=big&anid="&rs2("anclassid")&" targer=_blank>"&rs2("anclass")&"</a> >> "
end if
rs2.close
set rs2=server.createobject("adodb.recordset")
rs2.open "select * from shop_nclass where nclassid="&rs("nclassid"),conn,1,1
if rs2.recordcount>0 then
response.write "<a href=class.asp?lx=small&anid="&rs2("anclassid")&"&nid="&rs2("nclassid")&" targer=_blank>"&rs2("nclass")
end if
rs2.close
set rs2=nothing%>
</td>
</tr>
<tr>
<td> <table width="98%" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="240">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>
<table cellspacing=0 cellpadding=0 width=220 height=220 border=0>
<tbody>
<tr>
<td background=images/cla.gif align=center>
<%if rs("zhuang")="" then
response.write "<img src=images/emptybook.gif width=200 border=0>"
else%>
<a href="<%=trim(rs("zhuang"))%>" ><img src="<%=trim(rs("zhuang"))%>" width=200 border=0 alt="点击浏览商品大图" height="200"></a>
<%end if%>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</td>
<td valign="top"><table width="101%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="30"><font color="#0099CC" size="3"><strong><%=rs("bookname")%></strong></font></td>
</tr>
<%set rs_shjia=server.createobject("adodb.recordset")
rs_shjia.open "select * from shjia where shjiaid='"&rs("shjiaid")&"'",conn,1,1
if rs_shjia.recordcount<>"0" then
shjiaid=rs_shjia("shjiaid")
%>
<tr>
<td><font color="#0099CC">销 售 商：<a href="user/index.asp?id=<%=rs_shjia("shjiaid")%>" target="_blank"><u><%=rs_shjia("name")%></u></a>
<%if rs_shjia("tj")=5 then
response.write "<img src=images/icon1.gif alt=超级商家>"
end if%>
<a href="user/gbook.asp?id=<%=rs("shjiaid")%>" target="_blank">给销售商留言</a>
</font></td>
</tr>
<tr>
<td valign="middle"><font color="#0099CC"> 商家星级：<%if rs_shjia("tj")=1 then%><img src=images/level1.gif> <%else if rs_shjia("tj")=2 then%><img src=images/level2.gif> <%else if rs_shjia("tj")=3 then%><img src=images/level3.gif> <%if rs_shjia("tj")=5 then%><img src=images/level5.gif> <%if rs_shjia("tj")=4 then%><img src=images/level4.gif><%end if%> <%end if%><%end if%><%end if%><%end if%>
<%
set rs_shjfk=server.CreateObject("adodb.recordset")
strshjiafk="select * from fkfs where shjiaid="&rs_shjia("shjiaid")
rs_shjfk.open strshjiafk,conn,1,1
%>
<%
if rs_shjfk.recordcount<>0 then
response.write "<a href=user/about.asp?id="&rs_shjfk("shjiaid")&">商家付款方式</a>"
response.write "/"
else
response.write " "
end if%>
<%
set rs_shjps=server.CreateObject("adodb.recordset")
strshjiaps="select * from ps where shjiaid="&rs_shjia("shjiaid")
rs_shjps.open strshjiaps,conn,1,1
%>
<%
if rs_shjps.recordcount<>0 then
response.write "<a href=user/about.asp?id="&rs_shjps("shjiaid")&">商家配送说明</a>"
response.write " "
else
response.write " "
end if%>
</font></td>
</tr>
<%
end if
%>
<!--<tr> <td><%=rs("isbn1")%>：<%=rs("isbn")%></td></tr>-->
<tr>
<td valign="middle"><font color="#0099CC">运 费：
<font color="#0000FF">[</font><%=formatnumber(rs("Vipjia"),2,true)%>元/<%=rs("bookchuban")%> -
<%
dim aaa,bbb,ccc,ddd
aaa=trim(rs("newsbook"))
bbb=trim(rs("bestbook"))
ccc=trim(rs("tejiabook"))
ddd=trim(rs("fhfs"))%>
<%
if aaa=1 then
response.Write "买家支付"
elseif aaa=2 then
response.Write "卖家支付"
elseif aaa=3 then
response.Write "双方各半"
elseif aaa=4 then
response.Write "双方协商"
end if
%><font color="#0033FF">]</font> 被浏览<%=trim(rs("liulancount"))%>次 </font></td>
</tr>
<tr>
<td valign="middle"><font color="#0099CC">其它说明： [<%
if bbb=1 then
response.write"可开发票"
else
response.write"不开发票"
end if
%>] [<%
if ccc=1 then
response.write"网上银行"
elseif ccc=2 then
response.write"邮局支付"
elseif ccc=3 then
response.write"在线支付"
elseif ccc=4 then
response.write"网上支付"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -