unlist.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 union_user 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
unionid=rs("id")
DY_LB=DY_LB&"<tr><td>"&rs("id")&"</td><td><a href=""un_user.asp?t=ziliao&id="&rs("id")&""" onclick=""return ow(this)"" target=_blank>"&rs("unionid")&"</a></td><td><a href=""un_user.asp?t=edit&id="&rs("id")&""" onclick=""return ow(this)"" target=_blank>修改资料</a></td><td>审核</td><td><a href=user_edit.asp?t=del&id="&rs("id")&" target=_blank>删除</a></td><td>"
shu=0
sql="select count(*) from mobile where  Msg='126' and unionid="&unionid&""
rs2=conn.execute(sql)
shu=rs2(0)
DY_LB=DY_LB&""&shu&"</td><td>"
shu1=0
sql="select count(*) from mobile where Msg='TD126' and unionid="&unionid&""
rs2=conn.execute(sql)
shu1=rs2(0)
DY_LB=DY_LB&""&shu1&"</td><td><a href=un_user.asp?t=jslb&id="&rs("id")&" onclick=""return js(this)"" target=_blank>结算列表</a></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=unlist.asp?pageid=1><font color=red>首页</font></a>&nbsp;"                                                                                                         
DY_PAGE=DY_PAGE&"<a href=unlist.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=unlist.asp?pageid="&k+1&"><font color=red>下一页</font></a>&nbsp;"                                                                                                         
DY_PAGE=DY_PAGE&"<a href=unlist.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>
<script>
<!--
function ow(obj) {
    URL=obj.href;
    window.open(URL,'','width=300,height=360,scrollbars=no,toolbars=no,top=200,left=200');
    return false;
}
function js(obj) {
    URL=obj.href;
    window.open(URL,'','width=520,height=360,scrollbars=yes,toolbars=no,top=200,left=200');
    return false;
}
-->
</script>
</head>

<body>
<!--#include file="index_admin.asp"-->
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber1">
<tr><td align="center">ID</td><td align="center">联盟ID</td><td align="center">修改资料</td><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>