paylist.asp

大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全

<!--#include file="check_admin.asp"-->
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")

i=0
sql="select * from mobile order by ID desc"
rs.open sql,conn,1,1
if rs.eof then
DY_LB="<tr><td><font color=""#ff6600"">暂无任何订阅</font></td></tr>"
else
const maxperpage=20             
dim currentpage               
rs.pagesize=maxperpage               
currentpage=request.querystring("pageid")               
if currentpage="" then               
currentpage=1               
elseif currentpage<1 then               
currentpage=1               
else               
currentpage=clng(currentpage)               
	if currentpage > rs.pagecount then               
	currentpage=rs.pagecount               
	end if               
end if               
               
if not isnumeric(currentpage) then               
currentpage=1               
end if               
dim totalput,n               
totalput=rs.recordcount               
if totalput mod maxperpage=0 then               
n=totalput\maxperpage               
else               
n=totalput\maxperpage+1               
end if               
if n=0 then               
n=1               
end if               
rs.move(currentpage-1)*maxperpage  

'###读取内容开始###
i=0                                  
do while i< maxperpage and not rs.eof  

i=i+1
porder=rs("Msg")
pserver=rs("FromServer")
if porder="126" then
cg="<font color=""red"">成功</font>"
elseif porder="00" then
cg="未定制"
elseif porder="TD126" then
cg="退定"
end if
if pserver="6000" then
ppserver="9500"
elseif pserver="6001" then
ppserver="9160"
else
ppserver="状态出错"
end if

DY_LB=DY_LB&"<tr><td>"&rs("Usernumber")&"</td><td>"&rs("unionid")&"</td><td>"&ppserver&"</td><td>"&rs("regtime")&"</td><td>"&cg&"</td></tr>"
rs.movenext
loop
end if
rs.close
%>
<%
set rs=nothing
conn.close
set conn=nothing

'###读取分页开始###
DY_PAGE=DY_PAGE&"<table border=""0"" cellspacing=""1"" width=""760"" class=""text""><tr>"       
DY_PAGE=DY_PAGE&"<td width=""50%"">共有订单：<font face=""arial"" color=""red"">"&totalput&"</font>个 <font face=""arial"" color=""red"">"&currentpage&"/"&n&"</font>页  </td>"                                                                                       
DY_PAGE=DY_PAGE&"<td width=""32%""><div align=""right"">"
   	 k=currentpage                                                                                                         
     if k<>1 then                                                                                   
DY_PAGE=DY_PAGE&"<a href=paylist.asp?pageid=1><font color=red>首页</font></a>&nbsp;"                                                                                                         
DY_PAGE=DY_PAGE&"<a href=paylist.asp?pageid="&k-1&"><font color=red>上一页</font></a>&nbsp;"                                                                                                         
   	 else                                                                                     
DY_PAGE=DY_PAGE&"<font color=#999966>首页&nbsp;上一页&nbsp;</font>"                                                                                                         
   	end if                                                                                   
   	if k<>n then                                                                                                        
DY_PAGE=DY_PAGE&"<a href=paylist.asp?pageid="&k+1&"><font color=red>下一页</font></a>&nbsp;"                                                                                                         
DY_PAGE=DY_PAGE&"<a href=paylist.asp?pageid="&n&"><font color=red>尾页</font></a>&nbsp;"                                                                                                         
   	else                                                                                     
DY_PAGE=DY_PAGE&"<font color=#999966>下一页&nbsp;尾页</font>"                                                                                                         
   	end if                                                                                    
DY_PAGE=DY_PAGE&"</div></td></tr></table> "
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>

<body>
<center>
<!--#include file="index_admin.asp"-->
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber1">
<tr><td align="center">手机号码</td><td align="center">联盟会员</td><td align="center">类型</td>
  <td align="center">注册时间</td><td align="center">状态</td></tr>
<%=DY_LB%>
</table>
<%=DY_PAGE%>
</body>

</html>