banzhu.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="admingongneng.asp"-->
<%
Response.Write "<table width=775 align=center border=0 align=center cellspacing=0><tr><td>&nbsp;</td><td>"
if uzhiwu=100 then '不是管理员不能操作
addbzset=request("addbzset")
if addbzset<>1 then '审核
%><br>
<table width="80%" border="0" align="center" cellspacing="0">
  <tr class=td1>
    <td><a href="banzhu.asp?addbzset=1">审核吧主</a></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr  class=td4> 
    <td>·请输入贴吧名称</td>
    <td><form name="form1" method="post" action="banzhu.asp">
        <input name="luntanbz" type="text" value="">
        <input type="submit" name="Submit2" value="搜索贴吧">
      </form></td>
    <td>搜索到贴吧填加版主</td>
    <td>&nbsp;</td>
  </tr>
</table>
<%
luntanbz=request.form("luntanbz")
if luntanbz="" then 'luntanbz为空时
ccbz="select  * from luntan where fenlei<>-1  order by tieshu desc"
set rsbz=server.createobject("adodb.recordset")
rsbz.open ccbz,conn,1,1
rsbz.PageSize = 20 'pagesize属性指定了每页要显示的记录条数 
Page = CLng(Request("Page")) 'string型转化为long型 
If Page < 1 Then Page = 1 
If Page > rsbz.PageCount Then Page = rsbz.PageCount 

rsbz.AbsolutePage = Page
For iPage = 1 To rsbz.PageSize
xzbz=rsbz("banzhu")

	Dim MyString, bbz
	if xzbz="notbz" or xzbz="" then 
    xzbz="没吧主"
    else '有斑竹
    MyString = xzbz
    j=1
    leng=1
    for i=1 to len(MyString)
    if instr(j,MyString,"|")>0 then
    j=instr(j,MyString,"|")+1
    leng=leng+1
    end if
    next

    bbz = Split(MyString, "|",leng+1) 

    i=0 
    xzbz=""
    do while i<leng
    huibz="select * from user where idy="&bbz(i)
    set rsbzz=server.createobject("adodb.recordset")
    rsbzz.open huibz,conn,1,1
	if i=leng-1 then
	xzbz=xzbz&rsbzz("bm")
	else 
	'Response.write""&rsbzz("bm")&""
    xzbz=xzbz&rsbzz("bm")&"|"
    end if
    i=i+1
    loop
	end if'有斑竹
	
Response.write"<table width=80% border=0 align=center cellspacing=0 class=td3><tr>"
Response.write"<td width=15%/>"&rsbz("luntan")&"</td>"
Response.write"<td width=20%/>贴数/主题数"&rsbz("tieshu")&"/"&rsbz("zhutishu")&"</td>"
Response.write"<td>版主:</td><td><form action=banzhu.asp method=post><input name=addbz type=text value="&xzbz&"><input name=addidl type=hidden value="&rsbz("idl")&"><input name=dd type=submit value=填加版主></form></td><td>多个版主请以“|”分开</td>"
Response.write"</tr></table>"
rsbz.MoveNext 
If rsbz.EOF Then Exit For 
Next
Response.write"第" & Page & "页/总共有" & rsbz.PageCount & " 页 每页"& rsbz.PageSize &"个主题"

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