order_user.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  bm=Request("bm")
  
  ada=15
  if request("page")<>"" then 
  page=cint(request.QueryString("page"))
  if page="" or page<=0 then page=1
  Else
  page=1
  End if
 ' if bm="" then
  'Response.Redirect "login.asp"
 ' Response.End
  'End if
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
'set rs=Server.CreateObject("ADODB.Recordset")
'  sql="select * from users where bm='"&bm&"'"
'  rs.open sql,conn
 Response.write "<card id='card1' title='网站排行'>"
 Response.write "<p align='left'>"
' if not rs.eof then
 Set rt= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From users  Order By hits desc"
rt.Open sql,conn,1,2
'if Not rs.EOF Then
'rs.MoveFirst
if rt.recordcount= 0 then response.Write"*暂无内容*<br/>"
if rt.recordcount > 0 then
rt.Move((page-1)*ada)
dim j
j=1
'response.write"共" & rt.recordcount & "位成员!<br/>"
do while ((not rt.EOF) and j<=ada)
    response.Write ((page-1)*ada+j)&"."
	Response.Write "<a href='"&rt("url")&"'>"&rt("url")&"</a><br/>"
	   'Response.Write "<a href='admin_users.asp?id="&rt("id")&"&admin="&admin&"'>" &rt("user")& "</a>[<a href='user_mod.asp?id="&rt("id")&"'>修改</a>]<br />"

rt.MoveNext
j=j+1
loop
end if 

if page*ada<rt.recordcount then
response.write("<a href='order_user.asp?id="& id &"&amp;page="& page+1 &"&amp;bm="& request("bm") &"&amp;p="& request("p") &"'>下一页</a>")
end if
if page>1 then response.write("<a href='order_user.asp?id="& id &"&amp;page=" & page-1 &"&amp;bm="& request("bm") &"&amp;p="& request("p") &"'>上一页</a>")

if rt.recordcount > 0 then
response.write("["& page & "/" & (int(rt.recordcount/ada)+1) &"页]")
end if 
if (int(rt.recordcount/ada)+1) >3 then
%>
<br/>到<input name="page" title="页码" type="text" format="*N" emptyok="true" size="3" maxlength="3"/>
<anchor>GO>>
<go href="order_user.asp" accept-charset='utf-8'>
<postfield name="ID" value="<%= id %>"/>
<postfield name="page" value="$(page)"/>
<postfield name="p" value="<%=request("p")%>"/>
<postfield name="u" value="<%=request("u")%>"/>
</go></anchor>
<%
End if
Response.write "<br/><a href='index.asp?bm=" & bm & "'>返回主页</a>"
'End if
 'else
 'Response.write "非法入侵!"
'End if
'set rs=nothing
set rt=nothing
conn.close
set conn=nothing
%>
</p></card></wml>