dislist_jh.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="const.asp"-->
<!--#include file="../conn.asp"-->
<!--#include file="BtBBS_Fun.asp"--><%
 dim username,login,bbsgl
 dim Fwkz,rsk1,rsk2
 dim boardname,pagecount,Bmid
 dim speak,wz,bz,test,lens,i,AccessNum
 username=Request.Cookies("username")
 login=BT_SF()
 bbsgl=Request.Cookies("bbsgl")

StarTime = Timer():AccessNum=0
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<>-1 then
   boardname=aRS(3,j)
   rsk1=aRS(4,j)
   rsk2=aRS(5,j)
   Flname=aRS(2,j)
   bbsid=aRS(1,j)
   if login="Y" then                               '---------身份确认,如果sf=1,那么登陆者是版主或管理员，如果是0，则是其它用户
      if (instr(1,aRS(6,i),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  '只有注册用户才能访问
      Fwkz=0 
      Speak="你尚未登入,这个版面在登入后才能访问"
   end if                                      
   if (rsk2=3 and bbsgl="reguser") or (rsk2=3 and bbsgl="") then  '只有版主和管理员才能访问
      Fwkz=0
      Speak="这个版面只有版主和管理员才能访问"
   end if                                       
   if rsk1=3 then                               '3 认证论坛 认证用户,版主,管理员均可访问
      if (instr(1,aRS(7,j),username)<>0 and login="Y") or sf=1 then
          Fwkz=1 
      else 
          Fwkz=0 
          Speak="这是个认证版面,你尚未登陆,或者你不是认证用户"  
      end if
   end if
   if rsk1=4 then 
      Fwkz=0 
      Speak="这个版面已被管理员关闭,有问题请联系管理员"
   end if
   '-----------------------------------------
   test=aRS(7,j)
   wz=1
   bz=""
   while not wz=0
      lens=Len(test)
      wz=InStr(1,test,"|")
      if wz<>0 then
         p=left(test,wz-1)
      else
         p=test
      end if
      test=right(test,lens-wz)
      if p=" " then
         bz=bz+"无"
      else
         bz=bz+"<a href=LookUserInfo.asp?username="+p+">"+p+"</a>&nbsp;"
      end if
   wend
'---------------------------------
else
   Fwkz=0
   Speak="没有找到这个版面"
end if

Call JCC_Board_Top

if Fwkz<>0 then
'----------------------------------------------------------
'求主题总数
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="SELECT IsBest FROM BT_Topic where IsBest='Y' "
    rs.open sql,conn,1,1
    pagecount=0
    while not rs.eof
         pagecount=pagecount+1
         rs.movenext
    wend
    rs.Close 
    set rs=nothing
'----------计算页的位置-----------------------
    page=request("page")
    if IsNumeric(page)=false then page=1 else page=clng(page) end if
    if page="" or page<1 then page=1 end if
'-------------------------------------------------
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="SELECT ID,BoardID,FileName,Subject,PostUser,PostNum,Hits,LastPostTime,LastPostUser,IsTop,IsBest,PollID FROM BT_Topic where BoardID="&Bmid&" and IsBest='Y' ORDER BY PostTime desc "
    rs.open sql,conn,1,1
    AccessNum=AccessNum+1
    Call Login_EN
    if rsk1<>2 or bbsgl="admin" then
         Response.Write "<center><table width=743><tr><td colspan=4 height=30 class=light>&nbsp;<img src=../images/nav.gif>&nbsp;<a href=index.asp><font class=NavColor>论坛首页</font></a>&nbsp;>>&nbsp;<a href=index.asp?bbsid="&bbsid&"><font  class=NavColor>"&Flname&"</a>&nbsp;>>&nbsp;<a href=dislist.asp?boardid="&Bmid&"><font class=NavColor>"&boardname&"</font></a>&nbsp;>>&nbsp;精华区</font></td></tr><tr><td height=20 width=60><a href=newfile.asp?boardid="&Bmid&"><img src=../images/newtitle.gif border=0></a></td><td><a href=newpoll.asp?boardid="&Bmid&"><img src=../images/newpoll.gif border=0></a></td><td>&nbsp;&nbsp;&nbsp;<script src=online.asp?userwz="&boardname&"></script></td><td align=right>版主:"&bz&"</td></tr></table></center>"
    else
         Response.Write "<center><table width=743><tr><td><a href=index.asp><font class=NavColor>论坛首页</a>&nbsp;>>&nbsp;</font><a href=dislist.asp?boardid="&Bmid&"><font class=NavColor>"&boardname&"</font></a>&nbsp;<font class=NavColor>>>&nbsp;精华区</font></td></tr><tr><td height=20>这个版面已被锁定,只有管理员能发新帖,但你可以正常浏览</td><td align=right>版主:"&bz&"</td></tr></table></center>"
    end if
         Response.Write "<center><table  border=0 width=743 cellspacing=0 cellpadding=0 align=center class=table1><tr align=center><td width=27 height=27 class=TBHead><font class=HeadFont><b>ID</b></font></td><td width=350 class=TBHead><font class=HeadFont><b>主题</b></font></td><td width=100 class=TBHead><font class=HeadFont><b>作者</b></font></td><td width=45 class=TBHead><font class=HeadFont><b>人气</b></font></td><td width=120 class=TBHead><font class=HeadFont><b>最后更新</b></font></td><td class=TBHead><font class=HeadFont><b>回复人</b></font></td></tr>"
    if rs.bof and rs.EOF then
         Response.Write "<tr><td height=27 colspan=6 class=light><center>没有任何记录</center></td></tr>"
    else
         rs.PageSize=ListNum
         rs.AbsolutePage=page
         i=0
         while not rs.EOF and i<20  '读出主题列表
             i=i+1
             idimage="<img src=../images/tz1.gif alt='普通帖子'>" '处理加精,固顶,总固顶图标
             if rs("IsBest")="Y" then idimage="<img src=../images/tz2.gif alt='精华帖子'>" end if
             if rs("IsTop")=1 then idimage="<img src=../images/tz3.gif alt='固顶帖子'>" end if
             if rs("IsTop")=2 then idimage="<img src=../images/tz4.gif alt='总固顶帖子'>" end if
             if rs("PollID")<>"file" and rs("PollID")<>"" then idimage="<img src=../images/poll.gif alt='投票帖子'>" end if
             titlename=rs("Subject")
             titlenamew=titlename
             if len(titlename)>30 then 
                 titlename=left(titlename,28)
                 titlename=titlename+"..."
             end if
             rename=rs("LastPostUser") 
             kong="------"
             If rename<>kong Then rename="<a href=LookUserInfo.asp?username="&rename&" title='查看最后的回复人资料'>"&rename&"</a>" End If
             Response.Write "<tr><td height=27 align=center class=light1>"&idimage&"</td><td class=light><a href=bbs"&Bmid&"/"&rs("FileName")&" title="&titlenamew&">&nbsp;"&titlename&"</a></td><td align=center class=light1><a href=LookUserInfo.asp?username="&rs("PostUser")&" title='查看作者资料'>"&rs("PostUser")&"</a></td><td align=center class=light>"&rs("PostNum")&"/"&rs("Hits")&"</td><td align=center class=light1>"&rs("LastPostTime")&"</td><td align=center class=light1>"&rename&"</td></tr>"
             rs.MoveNext 
         wend
    end if
    rs.Close 
    set rs=nothing
'----------------翻页
    titlenum=pagecount
    pagecount = Abs(Int(-Abs(pagecount/ListNum))) '计算页数
    If pagecount<1 Then pagecount=1 end if
    If page>pagecount Then page=pagecount End If%>
    </form><form name=dislist  method=post action=dislist_jh.asp?boardid=<%=Bmid%>><table border=0 width=743 cellspacing=0 cellpadding=0 class=table1 height=28><tr><td width=250>第<%=page%>页&nbsp;共<%=pagecount%>页&nbsp;本页<%=ListNum%>条&nbsp;主题数&nbsp;<%=titlenum%></td><td valign=top align=right><%=Pagination(pagecount,Bmid)%> &nbsp;跳转到第<INPUT  class=fminpt name=page type=text size=3>页<input type=image src=../images/sch.gif border=0 id=image1 name=dislist WIDTH=17 height=14 align=absmiddle><img src=../images/null.gif width=5 height=2></td></tr></table></table></center><%
else
    Call Login_EN
    Response.Write "<center><table width=743><tr><td><a href=../index.asp><font class=NavColor>论坛首页</a>&nbsp;>>&nbsp;"&boardname&"</font></td></tr></table><center>"
    Response.Write "<br><br><br>"+speak+"<br><br><br><br>"
end if '访问控制Fwkz<>0的结束
EndTime = Timer()%>
<!--#include file="../inc/tom1.inc"-->