📄 list.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp" -->
<%
id=request("id")
if Not isChkInteger(request("id")) then
%>
<script language=javascript>
alert("参数错误！");
window.close();
</script>
<%
response.end
end if
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select * from shop_snsn where shopid="&id,conn,1,3
if snsn.recordcount=0 then
%>
<script language='javascript'>alert('商品调用错误，请返回！');window.location.href='index.asp';</script>
<%
end if
sftc=snsn("sftc")
url=snsn("lj")
if snsn("lj")="www" then%>
<html>
<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>
<head>
<title><%=webname%>--商品信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">-->
<!--#include file="webtop.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="168" align="left" valign="top">
<!--#include file="top_login.asp"-->
</td>
<td width="22" align="left" valign="top"><a href="about.asp?action=lxwm"><img src="images/pic_004.gif" width="23" height="136" border="0"></a></td>
<td width="586" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<img src="images/adad.jpg" width="396" height="136"></td>
<td width="22" align="center" valign="top"><a href="about.asp?action=lxwm"><img src="images/pic_003.gif" width="23" height="136" border="0"></a>
</td>
<td width="168" align="center">
<!--#include file="top_ad.asp"-->
</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="168" valign="top">
<!--#include file="left.asp"-->
</td><td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bg1_4color_.jpg"><img src=images/bg1_4color_.jpg" width="1" height="3"></td>
</tr>
</table>
<br>
<%
'yaosxia
if Not isChkInteger(request("id")) then
%>
<script language=javascript>
alert("参数错误！");
window.close();
</script>
<%
response.end
end if
%>
<% dim p1,p2,p3,p4
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_snsn where shopid="&request("id"),conn,1,3
p1=trim(rs("p1"))
p2=trim(rs("p2"))
p3=trim(rs("p3"))
p4=trim(rs("p4"))
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
</tr>
<tr>
<td height="25" bgcolor="efefef"><strong> <img src="images/dot_03.gif" width="9" height="9" border="0">
</strong><b><%=rs("shopname")%>的商品信息：</b></td>
</tr>
<tr>
<td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td height="10"></td>
</tr>
</table>
<%
if rs.recordcount=0 then
%>
<table width="370" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td align=center>调用商品错误</td>
</tr>
</table>
<%
else
rs("liulancount")=rs("liulancount")+1
rs.update
'call history
if request.cookies("snsn")("username")<>"" then
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from [shop_user] where username='"&checkFFSQLStr(request.cookies("snsn")("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 shopid="&request("id")&" and username='"&checkFFSQLStr(request.cookies("snsn")("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='"&checkFFSQLStr(request.cookies("snsn")("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("snsn")("username")
rs_s("shopid")=request("id")
rs_s("shopname")=rs("shopname")
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> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="224"> <table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>
<%if rs("zhuang")="" then%>
<table width="138" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> <div align="center"><img src=images/emptyshop.gif border=0></div></td>
</tr>
</table>
<%else%>
<table width="120" border="0" cellspacing="0" cellpadding="0" height="100">
<tr>
<td> <div align="center"><a href=<%=trim(rs("zhuang"))%> target=_blank><img src="<%=trim(rs("shoppic"))%>" border=0 alt="<%=trim(rs("shopname"))%>"></a></div></td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr>
<td> <s><font color="#FF0000"><font color="#000000">市场价：<%=rs("shichangjia")%>元</font></font></s><strong>
</strong> <font color="#FF0000"> </font></td>
</tr>
<tr>
<td><font color="#FF0000"> 会员价：<%=rs("huiyuanjia")%>元</font> <s>节省：<%=rs("shichangjia")-rs("huiyuanjia")%>元</s></td>
</tr>
<tr>
<td><font color="#FF0000"> VIP价：<%=rs("Vipjia")%>元</font> <s>节省：<%=rs("shichangjia")-rs("Vipjia")%>元</s></td>
</tr>
</table></td>
<td valign="top"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="25">【<%=rs("mch")%>】<%=rs("shopname")%></td>
</tr>
<tr>
<td height="25">【商品状态】
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -