📄 ad_main.asp
字号:
<!-- #Include File=../ad_check.asp -->
<!-- #Include File=top.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
response.buffer=true
Response.Expires=0
call conned()
dim show '1-all,2-waitcheck,3-locked,4-formal,5-版主
show=request("show")
if show="" then
show = 1
else
show =show
end if
dim sql
dim rs '实例
dim totalPut '总记录数
dim CurrentPage '当前页
dim TotalPages '总页数
dim i,j
dim founderr
Set rs= Server.CreateObject ("ADODB.RecordSet")
select case show
case 1
sql = "select * from userinfo order by bclass desc,btime desc"
case 2
sql = "select * from userinfo where bclass=0 order by btime desc"
case 3
sql = "select * from userinfo where bclass=2 order by btime desc"
case 4
sql = "select * from userinfo where bclass=1 order by btime desc"
case 5
sql = "select * from userinfo where bclass=3 order by btime desc"
end select
rs.open sql,conn,1,3
'----------------------------------
if rs.bof and rs.eof then
errmsg=errmsg+"<br>"+"<li>当前还没有记录!"
call error()
response.end
end if
'----------------------------------
call top()
rs.MoveFirst '到第一条记录
rs.pagesize=MaxPerPage '定义每页记录数
howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
end if
end if
totalpages=rs.pagecount
set userSet = Server.CreateObject("ADODB.RecordSet")
userSet.open "userinfo",conn,1 ,3
user=userSet.recordcount
userset.close
set userset=nothing
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="95%" align="center">
<TBODY>
<TR>
<TD width="467"> <b> <img src="../sys/image/admin.gif" width="17" height="16">
会员管理<<全部</b> 显示(<a href="ad_main.asp?show=1">全部</a> <a href="ad_main.asp?show=2">待审核</a>、<a href="ad_main.asp?show=3">锁定用户</a>、<a href="ad_main.asp?show=4">正式会员</a>
<a href="ad_main.asp?show=5">版主</a>）</TD>
<TD width="380">
<P align=right> <img src="../sys/image/ico.gif" width="25" height="16">总页数:<%=TotalPages%> <img
src="../sys/image/rent.gif" width="18" height="13">当前页:<%=CurrentPage%>
<img border=0
src="../sys/image/people.gif" width="9" height="12"> 注册数:<%=user%></A>
</P>
</TD></TR></TBODY></TABLE>
<table border=1 cellpadding=0 cellspacing=0 width=95% align="center" bordercolor="#0099cc">
<tr>
<td align=middle class=td width=40>
<div align="center"><font color="#FF0000">头像</font></div>
</td>
<td align=middle class=td width=40><font color="#FF0000">性别</font></td>
<td align=middle class=td width=75><font color="#FF0000">用户名称</font></td>
<td align=middle class=td width=75><font color="#FF0000">真实姓名</font></td>
<td align=middle class=td width=80><font color="#FF0000">地区</font></td>
<td align=middle class=td width=*><font color="#FF0000">Oicq</font></td>
<td align=middle class=td width=40><font color="#FF0000">信箱</font></td>
<td align=middle class=td width=40>
<div align="center"><font color="#FF0000">主页</font></div>
</td>
<td align=middle class=td width=60><font color="#FF0000">身份</font></td>
<td align=middle class=td width=40><font color="#FF0000">删除</font></td>
<td align=middle class=td width=40><font color="#FF0000">审核</font></td>
<td align=middle class=td width=40>
<div align="center"><font color="#FF0000">锁定</font></div>
</td>
<td align=middle class=td width=40><font color="#FF0000">解锁</font></td>
<td align=middle class=td width=140>
<div align="center"><font color="#FF0000">加入日期</font></div>
</td>
</tr>
<%
do while not rs.eof and i < maxperpage
Response.Write "<TR>"
response.write "<td align=center class=td2><img src=" &rs("bface")& " border=0 width=20 height=20></td>"
response.write "<td align=center class=td1>"
if rs("bsex")=0 then
response.write "女"
else
response.write "男"
end if
response.write "</td>"
response.write "<td align=center class=td2>"&rs("busername")&"</td>"
response.write "<td align=center class=td1>"&rs("brlword")&"</td>"
response.write "<td align=center class=td2>"&rs("baddress")&"</td>"
response.write "<td align=center class=td1>"
if rs("boicq") <> "" then
response.write rs("boicq")
else
response.write "未注册"
end if
response.write "</td>"
response.write "<td align=center class=td2><a href=mailto:" &rs("bmail")& "><ACRONYM title="&rs("bmail")&"><img src=../sys/image/mail.gif border=0 ></a></td>"
response.write "<td align=center class=td1>"
if len(rs("burl")) < 15 then
response.write "没有"
else
response.write "<a href="&(rs("burl"))&"><img src=../sys/image/home.gif border=0 ></a>"
end if
response.write "</td>"
response.write "<td align=center class=td2>"
select case rs("bclass")
case 0
response.write "待审核"
case 3
response.write "版主"
case 2
response.write "锁定"
case 1
response.write "正式会员"
end select
response.write "</td>"
response.write "<td align=center class=td1><a href=ad_operate.asp?action=deluser&id=" &rs("id")& " target=_bland><img src=../sys/image/delete.gif border=0 ></a></td>"
response.write "<td align=center class=td1><a href=ad_operate.asp?action=pass&id=" &rs("id")& " target=_bland><img src=../sys/image/pass.gif border=0 ></a></td>"
response.write "<td align=center class=td2><a href=ad_operate.asp?action=lock&id=" &rs("id")& " target=_bland><img src=../sys/image/lock.gif border=0 ></a></td>"
response.write "<td align=center class=td1><a href=ad_operate.asp?action=unlock&id=" &rs("id")& " target=_bland><img src=../sys/image/unlock.gif border=0 ></a></td>"
response.write "<td align=center class=td2>"&rs("btime")&"</td>"
titleID=rs("busername")
Response.Write "</TR>"
i=i+1
rs.movenext
loop
'====================================================
'程序制做:迅捷网络. http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息，谢谢合作！
'====================================================
%>
</table>
<center>
<table border="0" cellspacing="0" cellpadding="4" width="95%" align="center" bordercolor="#0099CC">
<tr>
<td width="220" height="79" > <span class=smallFont> </span>
<form method=post action=ad_main.asp?show=<%=show%>>
<span class=smallFont>页次：<%=CurrentPage%>/<%=TotalPages%> 页 转到:
<input
maxlength=5 size=3 value=<% =currentpage %> name=Page>
<input language=javascript id=button1 onClick=viewPage1(document.ad_main.Page.value) type=submit value=Go name=button1>
</span>
</form>
</td>
<td width="*" height="79" >
<div align="right">
<select size="1" name="D1" onChange="MM_goToURL('parent',this.value);return document.MM_returnValue">
<option>跳转页数</option>
<%
soonhost=0
DO WHILE NOT soonhost = rs.PageCount %>
<option value="ad_main.asp?show=<%=show%>&Page=<% =soonhost+1 %>"><% =soonhost+1 %></option>
<% soonhost=soonhost+1
loop
%>
</select>
<%
'------------------------------------------------------页面跳转
dim n,k
if (totalPut mod MaxPerPage)=0 then 'n表示总页数
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
k=currentPage
if k<>1 then
response.write "[<b>"+"<a href=ad_main.asp?page=1&show=" &show& ">首页</a></b>] "
response.write "[<b>"+"<a href=ad_main.asp?page="+cstr(k-1)+"&show="&show&">上一页</a></b>] "
else
Response.Write "[首页] [上一页]"
end if
if k<>n then
response.write "[<b>"+"<a href=ad_main.asp?page="+cstr(k+1)+"&show="&show&">下一页</a></b>] "
response.write "[<b>"+"<a href=ad_main.asp?page="+cstr(n)+">尾页</a></b>] "
else
Response.Write "[下一页] [尾页]"
end if
'------------------------------------------------------页面跳转
rs.close
set rs=nothing
conn.close
set conn=nothing
'====================================================
'程序制做:迅捷网络. http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息，谢谢合作！
'====================================================
%></div>
</td>
</tr>
</table>
<div align="center">
<table width="760" border="0" cellspacing="0" cellpadding="2" align="center">
<tr bordercolor="#0099CC" align="center">
<td >
<form name="search" action="ad_search.asp" method="post">
<div align="left">
<table cellspacing=0 cellpadding=2 width="500"
border=1 bordercolor="#0099CC" align="center">
<tbody>
<tr>
<td class=td1 width="40%">
<div align=center><font color="#000000">请输入您要搜索的用户名称</font>
</div>
</td>
<td width="41%">
<div align="center">
<input type="text" name="keyword" maxlength="50">
</div>
</td>
<td width="19%">
<div align=center>
<input type=image height=18
width=39 src="../sys/image/search.gif" border=0
name=imageField3 alt="搜索">
</div>
</td>
</tr>
</tbody>
</table>
</div>
</form>
</td>
</tr>
</table>
<!--#include file="../ad_foot.inc"-->
</div>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -