edituser.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="admingongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="sysinfo.asp"-->
<table width=755 border="0" align="center" cellspacing="0" 
<tr> 
<td align=center valign=middle> 
<%

if uzhiwu=100 then  '是管理员
delidy=request("delidy")
if delidy="" then
userbm=request.form("userbm")
if userbm<>"" then
ccbm="select * from user where bm='"&userbm&"'"
set rlbm=server.createobject("adodb.recordset")
rlbm.open ccbm,conn,1,1
if not rlbm.eof then
response.write"找到会员：<a href=useredit.asp?idy="&rlbm("idy")&" target=_blank>"&rlbm("bm")&" [<a href=edituser.asp?delidy="&rlbm("idy")&">删除</a>]"
else
response.write"找不到此用户:"&userbm&""
end if
rlbm.close
set rlbm=nothing
end if
%>
      <table width="50%" border="0" cellspacing="0">
        <tr>
          <td><form name="form1" method="post" action="">
              会员昵称：
              <input type="text" name="userbm">
              <input type="submit" name="Submit" value="提交">
            </form></td>
        </tr>
      </table>
<%
ccuser="select * from user order by tieshu desc"
set rluser=server.createobject("adodb.recordset")
rluser.open ccuser,conn,1,1
li=0
do while not rluser.eof
li=li+1
rluser.movenext
loop

response.Write"<table width=50% border=0 cellspacing=0><tr><td  class=td3 colspan=4>贴吧总共有"&li&"个会员，发贴排名：</td></tr>"

rluser.MoveFirst		
IF not rluser.eof then
rluser.PageSize = 20  

Page = Request("Page")
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1 
If Page > rluser.PageCount Then Page = rluser.PageCount 
end if
rluser.AbsolutePage = Page
i=1
For iPage = 1 To rluser.PageSize
ii=i mod 2
if ii=1 then 
bgc=""
else 
bgc="td6"
end if

response.Write"<tr class="&bgc&"><td>"&rluser("bm")&"</td><td>等级："&rluser("jibie")&"</td><td>贴数："&rluser("tieshu")&"</td><td>[<a href=useredit.asp?idy="&rluser("idy")&" target=_blank>编辑</a>] [<a href=edituser.asp?delidy="&rluser("idy")&">删除</a>]</td></tr>"
rluser.MoveNext 
 i=i+1
If rluser.EOF Then Exit For 
Next           
response.Write"<tr><td colspan=4>"
Response.write"第" & Page & "页/总共有" & rluser.PageCount & " 页 每页"& rluser.PageSize &"个会员"

If Page <> 1 Then 
Response.Write "<A HREF=edituser.asp?Page=1>第一页</A>