📄 dislist.asp
字号:
<!--#include file="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=BT_SF()
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 '只有注册用户才能访问
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> " END IF
Wend
'--------------------------------
ELSE
Fwkz=0:Speak="没有找到这个版面"
END IF
IF Fwkz<>0 THEN
'==================================计算页的位置======================
page=cint(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
pageNum = Abs(Int(-Abs(titlenum/ListNum))) '计算页数
If pageNum<1 Then pageNum=1 end if
If page>PageNum Then page=pageNum End If
Response.Cookies("Page")=Page '将页码写入Cookies
'====================================================================
Call JCC_Board_Top
Call Login_EN
If rsk1<>2 or bbsgl="admin" Then
Response.Write "<table width=743 align=center><tr><td colspan=4 height=30 class=light> <img src=../images/nav.gif> <a href=index.asp><font class=NavColor>论坛首页</a> >></font> <a href=index.asp?bbsid="&bbsid&"><font class=NavColor>"&Flname&"</a> >> "&boardname&" >>帖子列表</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> 〖<a href=dislist_jh.asp?page=1&boardid="&Bmid&">精华区</a>〗 <script src=online.asp?userwz="&boardname&"></script></td><td align=right>版主:"&bz&"</td></tr></table>"
Else
Response.Write "<table width=743 align=center><tr><td><a href=index.asp><font class=NavColor>论坛首页</a> >> "&boardname&"</font></td></tr><tr><td height=20>这个版面已被锁定,但你可以正常浏览 〖<a href=dislist_jh.asp?page=1&boardid="&Bmid&">精华区</a>〗 <script src=online.asp?userwz="&boardname&"></script></td><td align=right>版主:"&bz&"</td></tr></table>"
End If
Response.Write "<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 Application(BBSname&boardname+"bs")="" Then Application(BBSname&boardname+"bs")=1 End if
If Application(BBSname&boardname+"Bs"+Cstr(page))=Application(BBSname&boardname+"bs") and Application(BBSname&boardname+"Bsx")=Application(BBSname&"Bs") Then '---------
aRs=Application(BBSname&boardname+Cstr(page))
Else
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.MaxRecords = ListNum
sql="SELECT ID,BoardID,FileName,Subject,PostUser,PostNum,Hits,LastPostTime,LastPostUser,IsTop,IsBest,PollID FROM BT_Topic where BoardID="&Bmid&" OR IsTop=2 ORDER BY IsTop desc,LastPostTime desc "
rs.open sql,conn,1,1,&H0001
p=""
If rs.bof and rs.EOF Then
Response.Write "<tr><td height=27 colspan=6 class=light><center>没有任何记录</center></td></tr>"
p="true":rs.Close:Set rs=Nothing
Else
Application.Lock
Application(BBSname&boardname+"Bs"+Cstr(page))=Application(BBSname&boardname+"bs")
Application(BBSname&boardname+Cstr(page))=""
Application(BBSname&boardname+"Bsx")=Application(BBSname&"Bs")
Application.UnLock '-------------------
'rs.PageSize=ListNum '每页几条
'rs.absolutepage=page '移动到指定页的第一条记录
Rs.AbsolutePosition=Rs.AbsolutePosition+((Abs(Page)-1)*ListNum)
If page=pageNum Then aRs=rs.GetRows(-1) Else aRS=rs.GetRows(ListNum) End If '读取page页的ListNum条记录
rs.Close:Set Rs=Nothing
Application.Lock
Application(BBSname&boardname+cstr(page))=aRS
Application.UnLock
End If
AccessNum=AccessNum+1
END IF
IF p<>"true" THEN
For wz=0 To UBound(aRS,2) '读出主题列表
idimage="<img src=../images/tz1.gif alt='普通帖子'>" '处理加精,固顶,总固顶,投票帖子图标
If aRS(10,wz)="Y" Then idimage="<img src=../images/tz2.gif alt='精华帖子'>" End if
If aRS(9,wz)=1 Then idimage="<img src=../images/tz3.gif alt='固顶帖子'>" End if
If aRS(9,wz)=2 Then idimage="<img src=../images/tz4.gif alt='总固顶帖子'>" End if
If aRS(11,wz)<>"file" and aRS(11,wz)<>"" Then idimage="<img src=../images/poll.gif alt='投票帖子'>" End If
titlename=aRS(3,wz)
titlenamew=titlename
If len(titlename)>30 Then titlename=left(titlename,28): titlename=titlename+"..." End if
rename=aRS(8,wz)
kong="------"
If rename<>kong Then rename="<a href=LookUserInfo.asp?username="&rename&" title='查看最后的回复人资料'>"&rename&"</a>" End If
filelist=filelist+"<tr><td height=27 align=center class=light1>"&idimage&"</td><td class=light> <a href=bbs"&aRS(1,wz)&"/"&aRS(2,wz)&" title="&titlenamew&" target=_blank><font></font>"&titlename&"</a></td><td align=center class=light1><a href=LookUserInfo.asp?username="&aRS(4,wz)&" title='查看作者资料'>"&aRS(4,wz)&"</a></td><td align=center class=light>"&aRS(5,wz)&"/"&aRS(6,wz)&"</td><td align=center class=light1>"&aRS(7,wz)&"</td><td align=center class=light1>"&rename&"</td></tr>"
Next
End If
Response.Write filelist
'----------------翻页%>
</form><form name=dislist method=post action=dislist.asp?boardid=<%=Bmid%>>
<head>
</head>
<table border=0 width=743 cellspacing=0 cellpadding=0 class=table1 height=28><tr><td width=250>第<%=page%>页 共<%=pageNum%>页 本页<%=ListNum%>条 主题数 <%=titlenum%></td><td valign=top align=right><%=Pagination(PageNum,Bmid)%> 跳转到第<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><%
Else %><!--#include file="../inc/top1.inc"--><%
Call Login_EN
Response.Write "<center><table width=743><tr><td><a href=../index.asp><font class=NavColor>论坛首页</a> >> "&boardname&"</font></td></tr></table><center>"
Response.Write "<br><br><br>"+speak+"<br><br><br><br>"
End If
EndTime = Timer()
%><!--#include file="../inc/tom1.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -