📄 shops.asp
字号:
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="head.asp" -->
<!--#include file="perpage.asp"-->
<html>
<head>
<TITLE><%=webname%>--商店搜索首页---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
</HEAD>
<BODY>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760>
<tr>
<td height="5"></td>
</tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760 bgcolor=<%=bgcolor%>>
<TBODY>
<TR>
<TD vAlign=top width=240>
<!--#include file="news_left.asp"--></td>
<TD width=2 bgcolor=<%=bgcolor%>></TD>
<TD vAlign=top>
<TABLE class=yellow_bg border=0 cellPadding=0 cellSpacing=1 width="100%"><TBODY>
<TR>
<TD bgcolor=<%=bgcolor%>>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR class=yellow_bg>
<TD colSpan=3 height=2></TD></TR>
<TR>
<TD class=yellow_bg width=140> <font class=fblack><b>商店列表</b></font></TD>
<TD width=20 class=yellow_bg>
<IMG height=22 src="images/conner.gif" width=20></TD>
<TD align=middle vAlign=bottom class=huise_bg> </TD></TR>
</TBODY></TABLE><BR>
<table cellpadding=5 cellspacing=1 width=100% align=center class=tablebg>
<tr><td align=left class=titletd colspan=3> ☆<font class=fred>以下是所有用户的vqqq拍卖物品商店</font>☆</td></tr>
<tr><td align=center class=td width=250>商店名称</td><td align=center class=td>店主昵称</td><td align=center class=td>出售vqqq拍卖物品</td></tr>
<%
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql="select * from shops"
mypage.pagesize=jsperpage '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
'显示分页信息，这个方法可以，在set rs=mypage.getrs()以后
' 任意位置调用，可以调用多次
if rs.eof then
errors("还没有用户申请商店")
else
for i=1 to mypage.pagesize '接下来的操作就和操作一个普通Recordset对象一样操作
if not rs.eof then '这个标记是为了防止最后一页的溢出
response.write"<tr class=td><td><IMG height=12 src=images/star.gif width=13> <a href=usershop.asp?sid="&rs("shopid")&" target=_blank>"
content=rs("shopname")
if len(content)>20 then content=left(content,20)&"…"
response.write content&"</a></td><td align=center>"
sql="select regusername from users where regid="&rs("shopownerid")
set rsU=conn.execute(sql)
response.write "<a href='searchuser.asp?uname="&rsU("regusername")&"'>"&rsU("regusername")&"</a></td>"
sql="select count(*) as c from auctions where aucitemowner="&rs("shopownerid")&" and aucended<>'Y'"
set rsc=conn.execute(sql)
response.write "<td align=left>出售中的vqqq拍卖物品<a href='searchuser.asp?uname="&rsU("regusername")&"'> "&rsc("c")&" </a>件</td>"
rsu.close
set rsu=nothing
rsc.close
set rsc=nothing
rs.movenext
else
exit for
end if
next
%>
<tr><td align=center class=td colspan=3><font class=td><% mypage.showpage() %></font></td></tr>
<%
end if
rs.close
set rs=nothing
%>
</td></TR></TBODY></TABLE>
</td></TR></TBODY></TABLE>
</td></TR></TBODY></TABLE>
</CENTER>
</BODY></HTML>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -