List.Asp
上传用户:btntkt
上传日期:2021-04-16
资源大小:5296k
文件大小:8k
源码类别:

WEB源码(ASP,PHP,...)

开发平台:

DOS

  1. <!--#include file="Inc/SysConfig.Asp"-->
  2. <!--#include file="Inc/Page_Cls.Asp"-->
  3. <%
  4. Dim PageString,strPageInfo
  5. YxBBs.CheckBoard()
  6. YxBBs.Head("")
  7. If YxBBs.BoardChild>0 Then PageString=ShowBoard()
  8. If YxBBs.BoardDepth>0 Then PageString=PageString&ShowListTop()&ShowTopic()&ShowListBottom()
  9. Response.Write(PageString)
  10. YxBBs.Footer()
  11. Set YxBBs=Nothing
  12. '获得下级论坛
  13. Function ShowBoard()
  14. Dim Temp,i,BoardTop,BoardList,BoardBottom,BoardStr
  15. BoardTop=YxBBs.Template.ReadTemplate("分区表格")
  16. BoardList=YxBBs.Template.ReadTemplate("版块列表")
  17. BoardBottom=YxBBs.Template.ReadTemplate("分区底部表格")
  18. For i=0 To Ubound(YxBBs.Board_Rs,2)
  19. Temp=""
  20. If Int(YxBBs.Board_Rs(1,i))=YxBBs.BoardID Then
  21. Temp = Temp & Replace(BoardTop,"{分类名称}",YxBBs.Board_Rs(3,i))
  22. ElseIf YxBBs.Board_Rs(2,i)=YxBBs.BoardID Then
  23. Temp=BoardList
  24. Temp=YxBBs.GetBoardInfo(Temp,i)
  25. End If
  26. BoardStr=BoardStr & Temp
  27. Next
  28. ShowBoard = BoardStr& BoardBottom & VbCrlf
  29. End Function
  30. Function Showonline()
  31. Dim Temp,BoardOnline,BoardUserOnline
  32. Temp=YxBBs.Template.ReadTemplate("版块在线")
  33. Temp=Replace(Temp,"{在线列表}","<span id=showon></span>")
  34. BoardOnline=YxBBs.Execute("select count(ID) from [YX_online] where BoardID="&YxBBs.BoardID&"")(0)
  35. Temp=Replace(Temp,"{在线信息}","论坛总在线:<b>"&YxBBs.AllOnlineNum&"</b>人,本版在线:<b>"&BoardOnline&"</b>人,本版有<b> "&YxBBs.UserOnlineNum&"</b> 会员和 <b>"&BoardOnline-YxBBs.UserOnlineNum&"</b> 游客在线。本版今日帖子<Font color=red>"&YxBBs.BoardTodayNum&"</Font>篇 ")
  36. If Session(YxBBs.CacheName&"online")="1" then
  37. Temp=Replace(Temp,"{在线列表开关}","<a target='hiddenframe' href='Online.Asp?Action=LoadIng&BoardID="&YxBBs.BoardID&"' onClick='ShowOnline();' ><span id='Showtxt' >关闭详细列表</span></a>")
  38. Temp=Temp&"<iframe name='hiddenframe' frameborder='0'  height='0' src='Online.Asp?Action=LoadIng&BoardID="&YxBBs.BoardID&"&id=1' id='hiddenframe'></iframe>"
  39. Else
  40. Temp=Replace(Temp,"{在线列表开关}","<a target='hiddenframe' href='Online.Asp?Action=LoadIng&BoardID="&YxBBs.BoardID&"' onClick='ShowOnline();' ><span id='Showtxt' >显示详细列表</span></a>")
  41. Temp=Temp&"<iframe name='hiddenframe' frameborder='0' height='0' id='hiddenframe'></iframe>"
  42. End If
  43. ShowOnline=Temp
  44. End Function
  45. Function ShowListTop()
  46. Dim Temp,Button,PostPic,Brule,rs
  47. PostPic=Split(YxBBs.Template.ReadTemplate("发帖图片"),"||")
  48. Button="<a href='Say.Asp?BoardID="&YxBBs.BoardID&"'>"&PostPic(0)&"</a> <a href='Say.Asp?action=vote&BoardID="&YxBBs.BoardID&"'>"&PostPic(1)&"</a>"
  49. Temp=YxBBs.Template.ReadTemplate("主题列表顶部")
  50. Temp=Replace(Temp,"{发帖按钮}",Button)
  51. Temp=Replace(Temp,"{版主}",YxBBs.BoardAdmin)
  52. Temp=Replace(Temp,"{版块ID}",YxBBs.BoardID)
  53. Temp=Replace(Temp,"{数据表ID}",YxBBs.TB)
  54.         Set Rs=YxBBs.execute("select Brule from [YX_Board] where BoardID="&YxBBs.BoardID&"")
  55.         If Rs("Brule")<>"" Then 
  56.         Temp=Replace(Temp,"{公告}",""&Rs("Brule")&"")
  57. Else  
  58. Temp=Replace(Temp,"{公告}","")
  59. End If
  60. If YxBBs.BBSSetting(10)="0" then Temp=Replace(Temp,"{显示在线}",ShowOnline()) Else Temp=Replace(Temp,"{显示在线}","")
  61. ShowListTop=Temp
  62. End Function
  63. Function ShowListBottom()
  64. Dim Temp,StrSearch
  65. StrSearch="<form name=search method=""post"" style=""margin:0"" action=""Search.Asp?SType=2&STime=0&tb="&YxBBs.TB&"&BoardID="&YxBBs.BoardID&""">快速搜索: <input name=""Key"" size=20 onkeyup=""ValidateTextboxAdd(this,'BtnSearch')"" onpropertychange=""ValidateTextboxAdd(this,'BtnSearch')""> <input name=""BtnSearch"" type=submit  value=' 搜 索 ' disabled></form>"
  66. Temp=YxBBs.Template.ReadTemplate("主题列表底部")
  67. Temp=Replace(Temp,"{分页}",strPageInfo)
  68. Temp=Replace(Temp,"{快速搜索}",StrSearch)
  69. Temp=Replace(Temp,"{版块下拉列表}",YxBBs.BoardList(2))
  70. ShowListBottom=Temp
  71. End Function
  72. Function ShowTopic()
  73. Dim intPageNow,arr_Rs,i,Pages,TopicImg,Conut,page
  74. Dim Temp,TopicS,Caption,Facepic,Moodpic,LastRe,RePageUrl,UploadType,RePage,leftn,ii
  75. intPageNow = Request.QueryString("page")
  76. Set Pages = New Cls_PageView
  77. Pages.strTableName = "[YX_Topic]"
  78. Pages.strPageUrl = "?BoardID="&YxBBs.BoardID
  79. Pages.strFieldsList = "TopicID,Face,Caption,Name,TopType,IsGood,AddTime,BoardID,LastTime,Hits,LastReply,UploadType,IsVote,ReplyNum,SqlTableID,IsLock,TitleType"
  80. Pages.strCondiction = "(BoardID="&YxBBs.BoardID&" or TopType=4 or TopType=5) And IsDel=False "
  81. Pages.strOrderList = "TopType desc,LastTime desc"
  82. Pages.strPrimaryKey = "TopicID"
  83. Pages.intPageSize = Int(YxBBs.BBSSetting(26))
  84. Pages.intPageNow = intPageNow
  85. Pages.strCookiesName = "BBSList"&YxBBs.BoardID'客户端记录总数
  86. Pages.Reloadtime=3'每三分钟更新Cookies
  87. Pages.strPageVar = "page"
  88. Pages.InitClass
  89. Arr_Rs = Pages.arrRecordInfo
  90. strPageInfo = Pages.strPageInfo
  91. Set Pages = nothing
  92. If IsArray(Arr_Rs) Then
  93. TopicImg=Split(YxBBs.Template.ReadTemplate("帖子状态图片"),"|")
  94. For i = 0 to UBound(Arr_Rs, 2)
  95. Moodpic=TopicImg(6)
  96. If Arr_Rs(13,i) > Int(YxBBs.BBSSetting(24)) Then Moodpic=TopicImg(5)
  97. If Arr_Rs(5,i) Then Moodpic=TopicImg(3)'精华
  98. If Arr_Rs(15,i) Then Moodpic=TopicImg(7)'锁定
  99. If Arr_Rs(12,i) Then Moodpic=TopicImg(4)'投票
  100. If Arr_Rs(4,i)=5 Then Moodpic=TopicImg(0)'总顶
  101. If Arr_Rs(4,i)=4 Then Moodpic=TopicImg(1)'区顶
  102. If Arr_Rs(4,i)=3 Then Moodpic=TopicImg(2)'顶
  103.                         If Arr_Rs(4,i)<>4 or (Arr_Rs(4,i)=4 And InStr(YxBBs.BoardRoots,"|"&Arr_Rs(7,i)&"|"))>0 Then
  104.                                 Facepic=""
  105.                                 If Arr_Rs(1,i)<>99 then Facepic="<img src='Images/face/"&Arr_Rs(1,i)&".gIf'>"
  106. UploadType=""
  107. If Arr_Rs(11,i)<>"" Then Facepic="<img title='此帖子含有附件' src='Inc/Editor/Images/common.gif' border=0> "
  108.                                 
  109. LastRe=split(Arr_Rs(10,i),"|")
  110. RePage=(Arr_Rs(13,i)+1)10
  111. If RePage<(Arr_Rs(13,i)+1)/10 Then RePage=RePage+1
  112. RePageUrl="Show.Asp?ID="&Arr_Rs(0,i)
  113. leftn=40
  114. If RePage>1 Then leftn=36
  115. Caption=UploadType
  116. Caption=Caption&"<a href="&Repageurl&">"&YxBBs.Cvt("<span title='发布时间:"&Arr_Rs(6,i)&"<br>最后回复:"&YxBBs.Fun.StrLeft(LastRe(1),20)&"'>"&YxBBs.Fun.StrLeft(Arr_Rs(2,i),leftn)&"</span>",Arr_Rs(16,i))&"</a>"
  117. If Repage>1 Then
  118. Caption=Caption&" [<img src='images/Edit.gif'><b> "
  119. If RePage<=5 Then
  120. For ii=2 To RePage
  121. Caption=Caption&"<a href='"&RePageurl&"&page="&ii&"'><font color=red>"&ii&"</font></a> "
  122. Next
  123. Else
  124. For ii=2 To 4
  125. Caption=Caption&"<a href='"&RePageurl&"&page="&ii&"'><font color=red>"&ii&"</font></a> "
  126. Next
  127. Caption=Caption&"... <a href='"&RePageurl&"&page="&RePage&"'><font color=red>"&RePage&"</font></a>"
  128. End If
  129. Caption=Caption&"</b> ]"
  130. End If
  131. dim newtime
  132.        newtime=YxBBs.BBSSetting(4)
  133. If Datediff("n",Arr_Rs(8,i),YxBBs.NowbbsTime)<=int(YxBBs.BBSSetting(4)) Then Caption=Caption&" "&TopicImg(8)
  134. Temp=YxBBs.Template.ReadTemplate("主题列表")
  135. Temp=Replace(Temp,"{状态}",Moodpic)
  136. Temp=Replace(Temp,"{表情}",Facepic)
  137. Temp=Replace(Temp,"{用户名称}","<a href='Profile.Asp?name="&Arr_Rs(3,i)&"' title='查看 "&Arr_Rs(3,i)&" 的资料'>"&Arr_Rs(3,i)&"</a>")
  138. Temp=Replace(Temp,"{回复数}",Arr_Rs(13,i))
  139. Temp=Replace(Temp,"{点击数}",Arr_Rs(9,i))
  140. Temp=Replace(Temp,"{最后时间}","<font title='时间:"&FORMATDATETIME(Arr_Rs(8,i),3)&"'>"&Datepart("yyyy",Arr_Rs(8,i))&"-"&Right(00&Datepart("m",Arr_Rs(8,i)),2)&"-"&Right(00&Datepart("D",Arr_Rs(8,i)),2)&"</font>")
  141. Temp=Replace(Temp,"{回复用户名称}","<a href='Profile.Asp?name="&LastRe(0)&"' title='查看 "&LastRe(0)&" 的资料'>"&LastRe(0)&"</a>")
  142.                                 Temp=Replace(Temp,"{主题}",Caption)
  143. TopicS=TopicS&Temp
  144. End If
  145. Next
  146. End If
  147. ShowTopic=TopicS
  148. End Function
  149. %>