📄 usershop.asp
字号:
<%
id=rst("sid")
call chk(rst("sid"),"id")
%>
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!--#include file="head2.asp"-->
<html>
<head>
<title><%=webname%>---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=Stylesheet type=text/css>
</head>
<body text="#000000">
<%
set rsshop=server.createobject("adodb.recordset")
sqlshop="select * from shops where shopid="&rst("sid")
rsshop.open sqlshop,conn,1,3
if rsshop.eof then
response.write"<script language=javascript>alert('错误的参数，没有找到指定此商店！');top.location.href='index.asp';</script>"
response.end
end if
conn.execute("update shops set shopclick=shopclick+1 where shopid="&rst("sid"))
if now()>rsshop("shopclosetime") then
rsshop("shopflag")=0
rsshop.update
end if
if now()>rsshop("shopmoliclosedate") then
dim tempml
tempml=rsshop("shopmoli")-shopml*5
if tempml<0 then tempml=0
rsshop("shopmoli")=tempml
rsshop.update
end if
%>
<!--#include file="sysggao.asp"-->
<!--#include file="userggao.asp"-->
<!--#include file="shop_info.asp"-->
<table width="759" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="760">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="210" valign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign=top>
<table width="100%" border="0" cellspacing="1" cellpadding="2" class=tablebg height="180">
<tbody>
<tr class=titletd>
<td colspan="2" align=center><font class=fblack><b>本店简介</b></font></td>
</tr>
<tr class=td>
<td align=left> <%=rsshop("shopinfo")%></td></tr>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" class=tablebg>
<tr class=titletd>
<td align=center><b><font class=fblack>店内新闻</font></b></td>
</tr>
<tr class=td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height=220>
<tr><td colspan="2">
<%
ukey=rsshop("shopownerid")
keytype="uid"
%>
<!--#include file="inc/calluser.asp"-->
<%
set rsnew=server.createobject("adodb.recordset")
sqlnew="select * from news where newsauthor='"&rs_user("regusername")&"'"
rsnew.open sqlnew,conn,1,1
if rsnew.eof then
response.write"<center>还没有新闻</center>"
else
newcount=1
do while not rsnew.eof
response.write"<IMG height=12 src=images/star.gif width=13> <a href=news.asp?newsid="&rsnew("newsid")&" target=_blank>"
content=rsnew("newstitle")
if len(content)>15 then content=left(content,13)&"…"
response.write "<font color="&rsnew("newscolor")&">"&content&"</font></a><br>"
newcount=newcount+1
if newcount>10 then exit do
rsnew.movenext
loop
end if
rsnew.close
set rsnew=nothing
%>
</td></tr>
<tr>
<td width="16%"> </td>
<td width="68%">
<div align="right"><a href="news.asp">更多>></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" class=tablebg>
<tr class=titletd>
<td align=center><b><font class=fblack>友情链接</font></b></td>
</tr>
<tr class=td>
<td>
<table cellpadding=0 cellspacing=0 width=100% align=center class=tablebg>
<%
set rslink=server.createobject("adodb.recordset")
sqllink="select * from userlink where ownerid="&rsshop("shopownerid")
rslink.open sqllink,conn,1,1
if rslink.eof then
response.write "<tr class=td><td align=center>还没有加入友情链接</td></tr>"
else
do while not rslink.eof
if rslink("zdlogo")="" then
%>
<tr class=td><td align=center><a href="<%=rslink("zdurl")%>" target="_blank"><%=rslink("zdname")%></a></td></tr>
<%
else
%>
<tr class=td><td align=center><a href="<%=rslink("zdurl")%>" target="_blank"><img src=<%=rslink("zdlogo")%> border=0 width=88 height=32 alt="<%=rslink("zdname")%>"></a></td></tr>
<%
end if
rslink.movenext
loop
end if
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="usershopsou.asp"--></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="usershoplist.asp"--></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="sysggao2.asp"-->
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -