admin_user.asp

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

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  
  ada=5
  if request("page")<>"" then 
  page=cint(request.QueryString("page"))
  if page="" or page<=0 then page=1
  Else
  page=1
  End if
  if admin="" 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 admin where admin='"&admin&"'"
  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 rc 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='admin_users.asp?id=" &rt("id")&"&amp;admin="&admin&"'>" &rt("user")& "</a><br/>"
rt.MoveNext
j=j+1
loop
end if 

if page*ada<rt.recordcount then
response.write("<a href='admin_user.asp?id="& id &"&amp;page="& page+1 &"&amp;admin="& request("admin") &"&amp;p="& request("p") &"'>下一页</a>")
end if
if page>1 then response.write("<a href='admin_user.asp?id="& id &"&amp;page=" & page-1 &"&amp;admin="& request("admin") &"&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="admin_user.asp?admin=<%=request("admin")%>" 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='admin.asp?admin=" & admin & "'>返回管理页</a>"
End if
 else
 Response.write "非法入侵!"
End if
set rs=nothing
set rt=nothing
conn.close
set conn=nothing
%>
</p></card></wml>