📄 wmcms_systemdata.asp
字号:
<% Response.Buffer=True %>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="function.asp"-->
<%order=checkstr(request("order"))
order2=checkstr(request("order2"))
PageShowSize = 10 '每页显示多少个页
MyPageSize = 50 '每页显示多少个用户名
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>交流互动平台__<%=jjgn%>完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
<LINK href=news.css rel=stylesheet>
</head>
<body topmargin="0">
<!--#include file="top.asp"-->
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="760" bordercolor="#FDFCF8" bgcolor="#ffffff" style="border-left: 1px solid #cccccc ; border-top: 1px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<!--政务日历开始-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="3" bgcolor="#FFFFFF"><img src="IMAGES/kb.gif" width="9" height="3"></td>
</tr>
<tr>
<td height="25" background="images/WmCms_Result.gif"> <font class=m_tittle> </font> <b>当前位置：<a class="daohang" href="./" >网站首页</a>＞系统数据</b></td>
</tr>
<tr>
<td>
<!--用户开始-->
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TR>
<TD height="38" valign="middle" background="images/title_5_02.gif">
<table width="100%">
<tr><td width="86%" height="24" valign="bottom" width="100%"> <b>用户情况</b></td>
<td width="14%" valign="bottom"><font color="#cf0000"></font> </td>
<tr></table>
</TD>
</TR>
</TABLE>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="100%" class="daohang"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3" bgcolor="#FFFFFF"><img src="images/kb.gif" width="9" height="3"></td>
</tr>
<tr>
<td height="25">
<div align="center">
<table width="95%" height="156" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse">
<tr>
<td height="10" valign=top> </td>
</tr>
<tr>
<td height="10" valign=top>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%Response.write "<tr bgcolor='#efefef'>"& chr(10)
Response.write "<td width='100%' height='20' colspan='5' >"
function getusernum()
dim rs
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &"")
getusernum=rs(0)
set rs=nothing
if isnull(getusernum) then getusernum=0
end function
Response.write "本站共有"& getusernum &"位会员 "
Response.write "<a class=class href='WmCms_Systemdata.asp?order2=1' title='升序'>[↑</a>按用户名<a class=class href='WmCms_Systemdata.asp?order2=2' title='降序'>↓]</a> "
Response.write "<a class=class href='?order=time&order2=1' title='升序'>[↑</a>注册时间<a class=class href='?order=time&order2=2' title='降序'>↓]</a> "
Response.write "<a class=class href='?order=number&order2=2' title='升序'>[↑</a>按发文数<a class=class href='?order=number&order2=1' title='降序'>↓]</a> "
Response.write "</td>"& chr(10)
Response.write "</tr>"& chr(10)
set rs1=server.CreateObject("ADODB.RecordSet")
if order="time" then
if order2=1 then
rs1.Source="SELECT * FROM "& db_User_Table &" order by "& db_User_RegDate
else
rs1.Source="SELECT * FROM "& db_User_Table &" order by "& db_User_RegDate &" desc"
end if
else
if order="number" then
if order2=1 then
rs1.Source="SELECT * FROM "& db_User_Table &" order by number"
else
rs1.Source="SELECT * FROM "& db_User_Table &" order by number desc"
end if
else
if order2=1 then
rs1.Source="SELECT * FROM "& db_User_Table &" order by "& db_User_Name
else
rs1.Source="SELECT * FROM "& db_User_Table &" order by "& db_User_Name &" desc"
end if
end if
end if
rs1.Open rs1.Source,ConnUser,3,1
If Not rs1.eof then
rs1.PageSize = MyPageSize
MaxPages = rs1.PageCount
rs1.absolutepage = MyPage
total = rs1.RecordCount
i = 1
do until rs1.Eof or (i > MyPageSize)
Response.write "<tr>"& chr(10)
for ii=1 to 8 '用户每行列数
Response.write "<td width='12.5%' height='20'>"
if not rs1.eof and (i <= MyPageSize) then
Response.write "<a class=class href='User.asp?User="& rs1(db_User_Name) &"' title='"
if order="time" then
Response.write "["& rs1(db_User_RegDate) &"]"
end if
Response.write "'>"& left(rs1(db_User_Name),6) &"</a>"
if order="number" then
Response.write " <font color=red>["& rs1("Number") &"]</font>"
end if
rs1.movenext
i = i + 1
end if
Response.write "</td>"& chr(10)
next
Response.write "</tr>"& chr(10)
loop
Response.write "</table>"& chr(10)
Response.write "</td>"& chr(10)
Response.write "</tr>"& chr(10)
Response.write "<tr>"& chr(10)
Response.write "<td width='100%' align=center valign='middle'>共 "& total &" 位会员，当前第 "& Mypage &"/"& Maxpages &" 页，每页 "& MyPageSize &" 位会员 <br><br>"
url="WmCms_Systemdata.asp?order="&order
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs1.PageSize)+1
if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a class=black href='" & Url & "&page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if
if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
If PageLink = MaxPages Then Exit for
Next
if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "<a class=black href='" & Url & "&page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if
if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " <A class=black href='" & Url & "&page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a class=black href='" & Url & "&page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
End if
End If
rs1.close
set rs1=nothing
%>
</td>
</tr>
<tr>
<td height="10" valign=top> </td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--用户结束-->
</td></tr>
<tr><td><br>
<!--稿件排名开始-->
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TR>
<TD height="38" valign="middle" background="images/title_5_03.gif">
<table width="100%">
<tr><td width="86%" height="24" valign="bottom" width="100%"> <b>发稿情况</b></td>
<td width="14%" valign="bottom"><a href="WmCms_ComplainAdd.asp" target="_blank" class="middle"><font color="#cf0000"></font></a> <a href="WmCms_ComplainindexAll.asp" target="_blank" class="middle"></a></td>
<tr></table>
</TD>
</TR>
</TABLE>
<table width="100%" border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<%set rs8=server.CreateObject("ADODB.RecordSet")
sql8="select * from "& db_Dep_Table &" where depnumber>=0 order by depnumber desc"
rs8.open sql8,Conn,1,1
if not rs8.EOF then
%>
<tr align="center" class="TDtop1">
<td width="10%" height="25" ><b>排名</b></td>
<td width="40%" ><b>单位名称</b></td>
<td width="25%" ><b>所属部门</b></td>
<td width="25%" ><b>累计投稿</b></td>
</tr>
<%
i=1
while not rs8.EOF
%>
<tr>
<td width="10%" align="center" bgcolor="#FFFFFF"><%=i%></td>
<td width="40%" align="center" bgcolor="#FFFFFF"><%=rs8("depname")%></td>
<td width="25%" height="25" align="center" bgcolor="#FFFFFF"><%=rs8("deptype")%></td>
<td width="25%" bgcolor="#FFFFFF" align="center"><%=rs8("depnumber")%></td>
</tr>
<%rs8.MoveNext
i=i+1
wend
end if
rs8.close
set rs8=nothing
%>
</table>
<!--稿件排名结束-->
<table><tr><td height="3"></td></tr></table>
<!--建言献策等开始-->
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TR>
<TD height="38" valign="middle" background="images/title_5_02.gif">
<table width="100%">
<tr><td width="86%" height="24" valign="bottom" width="100%"> <b>访问信息</b></td>
<td width="14%" valign="bottom"><a href="WmCms_OpinionAdd.asp" target="_blank" class="middle"><font color="#cf0000"></font></a> <a href="WmCms_OpinionindexAll.asp" target="_blank" class="middle"></a></td>
<tr></table>
</TD>
</TR>
</TABLE>
<table width="100%"><tr><td><br><script src="count/show.asp?siteid=1&style=longtext%7Caj%7C%7Caj%7C%7Caj%7C%7Caj%7C"></script>
</td></tr></table>
<!--建言献策等结束-->
<!--调查投票结束-->
</td>
</tr>
</table>
</td>
<td width="6"> </td>
<!--#include file="WmCms_Rmap.asp"-->
</tr></table>
<!--#include file=bottom.asp -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -