?? shopstar.asp
字號(hào):
<!--#include file="top.asp"--><!--#include file="inc/shopstar.asp"-->
<BODY>
<TABLE width=760 border=0 align=center cellpadding="4">
<TBODY>
<TR align="center">
<TD vAlign=top>
<TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
<TBODY>
<TR>
<TD class=th>
<img border="0" src="images/news.gif" width="15" height="15">
星級(jí)店鋪</TD>
</TR>
<!--#include file="inc/getshopzu.asp"-->
<!--#include file="inc/shopzu.asp"-->
<!--#include file="inc/GetSchool.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>
<%
'****************************************************
' 多多校園電子商務(wù)工作室 Power by ddtaobao.com
' Email:kayvin@sohu.com OICQ:6334278 站長(zhǎng):小羽
' Web: http://www.ddtaobao.com 淘寶旺旺:qq63334278
' Copyright (C) 2006 ddtaobao.com All Rights Reserved
'****************************************************
Dim StrSql,Rs
StrSql="select * from dduser where font='1' order by star desc,user_id desc"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open StrSql,conn,1,1
%>
<tr>
<div align="center">
<TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
<tr>
<td align="center" class="tablebody1">序號(hào)</td>
<td align="center" class="tablebody1">店鋪標(biāo)志</td>
<td align="center" class="tablebody1">店鋪名稱</td>
<td align="center" class="tablebody1">店鋪掌柜和OICQ</td>
<td align="center" class="tablebody1">店鋪類別</td>
<td align="center" class="tablebody1">開(kāi)店時(shí)間和所在學(xué)校</td>
<td align="center" class="tablebody1">人氣</td>
</tr>
<%
IF not rs.eof and not rs.bof then
dim page_size
dim page_no
dim page_total
page_size=10
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dim I,J
I=0
J=page_size
do while not rs.eof and J>0
J=J-1
I=I+1
%>
<tr>
<td align="center" class="tablebody1"><%=rs("user_id")%></td>
<td align="center" class="tablebody1"><a href="shop_info.asp?user_id=<%=rs("user_id")%>" target="_blank">
<img src="<%=rs("shop_img")%>" height=60 width=60 border=0 style="border: 1px solid #C0C0C0; "></a></td>
<td align="center" class="tablebody1"><%=rs("shop_name")%><br><%=top1(rs("star"))%></td>
<td align="center" class="tablebody1"><font color="#FF00FF">Mater:</font><a href=userinfo.asp?user_id=<%=rs("user_id")%> target=_blank><%=rs("user_name")%></a><br><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("user_qq")%>&Site=<%=homepage%>&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("user_qq")%>:16 alt="點(diǎn)擊這里給我發(fā)消息"></a></td>
<td align="center" class="tablebody1"><a href=shoplist.asp?zu=<%=Rs("zu")%>><%=GetshopZu(Rs("zu"))%></a></td>
<td align="center" class="tablebody1"><%=rs("user_date")%><br><%=GetSchool(Rs("School"))%></td>
<td align="center" class="tablebody1"><%=rs("shop_hits")%></td>
</tr><%
Rs.MoveNext
Loop
End IF
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page" >
<tr>
<td><div align="center">[本頁(yè)是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?page_no=1">第一頁(yè)</a>]
<%if int(page_no)>1 then%>
[<a href="?page_no=<%=cstr(int(page_no-1))%>">前一頁(yè)</a>]
<%elseif int(page_no)<=1 then%>
[<a href="?page_no=1">前一頁(yè)</a>]
<%end if%>
<%if int(page_no)<int(page_total) then%>
[<a href="?page_no=<%=cstr(int(page_no+1))%>">后一頁(yè)</a>]
<%elseif int(page_no)>=int(page_total) then%>
[<a href="?page_no=<%=cstr(int(page_total))%>">后一頁(yè)</a>]
<%end if%>
[<a href="?page_no=<%=page_total%>">最后一頁(yè)</a>] 轉(zhuǎn)到
<input name="page" type="text" value="<%=page_no%>" size="5">頁(yè)
<input type="button" class=input name="Submit" value="轉(zhuǎn)到" onclick="GoPage()"></div></td>
</tr>
</table>
</div>
</tr>
</TBODY>
</TABLE>
<!--#include file="bottom.asp"-->
<%
Rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -