dislist.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 33 行

  <!--#include file="../board/const.asp"-->
  <!--#include file="../conn.asp"-->
  <!--#include file="BtBBS_Fun.asp"--><%
  Dim username,login,Fwkz,speak,rsk1,rsk2,boardname,Bmid,bbsgl,wz,bz,test,lens,p
  Dim StarTime,EndTime,rs,sql,aRS,flname,bbsid,sf,titlenum,I,J,AccessNum
  Dim page,pagenum,idimage,titlename,titlenamew,rename,filelist,kong
  StarTime = Timer():AccessNum=0
  username=Request.Cookies("username")
  login=Request.Cookies("login")
  bbsgl=Request.Cookies("bbsgl")
  Bmid=Request.QueryString("boardid")'版面ID号
  IF IsNumeric(Bmid)=False THEN Response.Redirect "index.asp" END IF '-----------------------论坛状态及访问控制-----------------
  BT_Board():aRS=Application(BBSname&"BT_Board")
  Fwkz=1:J=-1
  If Not(aRS(1,0)=-1 Or VarType(aRS)=0) Then
      For I=0 to UBound(aRS,2)
          If cint(Bmid)=aRS(0,I) Then J=I End If
      Next
  end if
  IF J>=0 Then
      boardname=aRS(3,J)
      rsk1=aRS(4,J)
      rsk2=aRS(5,J)
      Flname=aRS(2,J)
      bbsid=aRS(1,J)
      titlenum=aRS(8,J)
      IF login="Y" THEN                               '---------身份确认,如果sf=1,那么登陆者是版主或管理员，如果是0，则是其它用户
          IF (instr(1,aRS(7,J),username)<>0 AND bbsgl="bbsadmin") OR bbsgl="admin" THEN sf=1 ELSE sf=0 END IF
      ELSE             '匿名用户
          sf=0
      END IF
     '-----------------------------------------
      IF rsk2=2 AND username="" THEN  '