ATB Source Codes

Like webmaster forums Show Boardhelp.asp Source code

Return Download Like webmaster forums: download Boardhelp.asp Source code - Download Like webmaster forums Source code - Type:.asp
  1. <!--#include file=conn.asp-->
  2. <!-- #include file=inc/const.asp -->
  3. <!-- #include file="inc/dv_clsother.asp" -->
  4. <%
  5. Dvbbs.LoadTemplates("boardhelp")
  6. If DVbbs.BoardID=0 then
  7.         Dvbbs.stats=template.Strings(0)
  8.         Dvbbs.Nav()
  9.         Dvbbs.Head_var 2,0,template.Strings(1),"boardhelp.asp"
  10. Else
  11.         Dvbbs.stats=template.Strings(1)
  12.         Dvbbs.Nav()
  13.         Dvbbs.Head_var 1,Dvbbs.BoardNode.attributes.getNamedItem("depth").text,"",""
  14. End If
  15. Dim Rs,sql,i,H_title,H_content
  16. call main()
  17. Dvbbs.ActiveOnline()
  18. Dvbbs.footer()
  19.  
  20. Sub main()
  21. Dim TempLateStr,TempHelp,Helptitle,LookID,BoardHelp
  22. Helptitle=Request("title")
  23. LookID=Request("act")
  24. if LookID="" or not isNUmeric(LookID) Then
  25.         If Dvbbs.FoundIsChallenge or Dvbbs.Forum_ChanSetting(0)="1" Then
  26.         LookID=0
  27.         Else
  28.         LookID=3
  29.         End If
  30. End If
  31. If Request("view")<>"" and Request("view")="faq" Then
  32. FAQContent(LookID)
  33. BoardHelp=H_content
  34. Helptitle=H_title
  35. Else
  36. Select case LookID
  37. Case 0
  38. BoardHelp=BoardHelp0
  39. Case 1
  40. BoardHelp=BoardHelp1
  41. Case 2
  42. BoardHelp=BoardHelp2
  43. Case 3
  44. BoardHelp=BoardHelp3
  45. Case 4
  46. BoardHelp=BoardHelp4
  47. End Select
  48. End IF
  49. TempLateStr=template.html(0)
  50. TempHelp=template.html(2)
  51. TempHelp=Replace(TempHelp,"{$Title}",Helptitle)
  52. TempHelp=Replace(TempHelp,"{$Body}",BoardHelp)
  53. TempLateStr=Replace(TempLateStr,"{$TableWidth}",Dvbbs.mainsetting(0))
  54. TempLateStr=Replace(TempLateStr,"{$Main}",TempHelp)
  55.         If Dvbbs.FoundIsChallenge or Dvbbs.Forum_ChanSetting(0)="1" Then
  56.                 TempLateStr=Replace(TempLateStr,"{$GrayLink}",template.Strings(2))
  57.         Else
  58.                 TempLateStr=Replace(TempLateStr,"{$GrayLink}","")
  59.         End If
  60. TempLateStr=Replace(TempLateStr,"{$boardid}",Dvbbs.boardid)
  61. TempLateStr=Replace(TempLateStr,"{$BbsFaq}",BoardFAQ)
  62. Response.Write TempLateStr
  63. End Sub
  64.  
  65. Function BoardFAQ()
  66. Dim TempLeft,TempRs
  67. Set Rs=Dvbbs.Execute("Select H_ID,H_title From dv_help where not h_id=1 and H_ParentID=0 order by H_ParentID ")
  68. If not Rs.Eof Then
  69. SQL=Rs.GetRows(-1)
  70. Rs.close:Set Rs=Nothing
  71. For i=0 to  Ubound(SQL,2)
  72.         TempLeft=TempLeft + "<hr size=1><li><b>" + server.htmlencode(SQL(1,i)) + "</b>"
  73.         Set TempRs = Dvbbs.Execute("Select H_ID,H_ParentID,H_title From dv_help where H_ParentID="&SQL(0,i))
  74.         Do while not TempRs.eof
  75.         TempLeft = TempLeft + "<br>&nbsp;&nbsp;-- <a href=?boardid="&Dvbbs.boardid&"&view=faq&act="&TempRs(0)
  76.         TempLeft = TempLeft + " >"
  77.         TempLeft = TempLeft +   server.htmlencode(TempRs(2))
  78.         TempLeft = TempLeft + "</a>"
  79.         TempRs.movenext
  80.         loop
  81. Next
  82. TempRs.close
  83. set TempRs=nothing
  84. End If
  85. BoardFAQ=TempLeft
  86. End Function
  87.  
  88. Function FAQContent(SID)
  89. If not IsNumeric(SID) Then Exit Function
  90. Set Rs=Dvbbs.Execute("Select H_ID,H_ParentID,H_title,H_content,H_stype,H_bgimg,H_Addtime From dv_help where H_ID= "&SID)
  91. If not Rs.Eof Then
  92.         H_title=server.htmlencode(Rs(2))
  93.         H_content=Rs(3)
  94. End If
  95. Rs.close:Set Rs=Nothing
  96. End Function
  97.  
  98. Function BoardHelp0()
  99.         BoardHelp0=template.html(3)
  100. End Function
  101.  
  102. Function BoardHelp1()
  103. Dim TempLateStr
  104. TempLateStr=template.html(5)
  105. TempLateStr=Replace(TempLateStr,"{$RedClor}",Dvbbs.mainsetting(1))
  106. '金钱
  107. TempLateStr=Replace(TempLateStr,"{$RegUpMoney}",Dvbbs.Forum_user(0))
  108. TempLateStr=Replace(TempLateStr,"{$LoginUpMoney}",Dvbbs.Forum_user(4))
  109. TempLateStr=Replace(TempLateStr,"{$PostUpMoney}",Dvbbs.Forum_user(1))
  110. TempLateStr=Replace(TempLateStr,"{$ReplyUpMoney}",Dvbbs.Forum_user(2))
  111. TempLateStr=Replace(TempLateStr,"{$IsBestUpMoney}",Dvbbs.Forum_user(15))
  112. TempLateStr=Replace(TempLateStr,"{$IsDelUpMoney}",Dvbbs.Forum_user(3))
  113. '经验
  114. TempLateStr=Replace(TempLateStr,"{$RegUpEP}",Dvbbs.Forum_user(5))
  115. TempLateStr=Replace(TempLateStr,"{$LoginUpEP}",Dvbbs.Forum_user(9))
  116. TempLateStr=Replace(TempLateStr,"{$PostUpEP}",Dvbbs.Forum_user(6))
  117. TempLateStr=Replace(TempLateStr,"{$ReplyUpEP}",Dvbbs.Forum_user(7))
  118. TempLateStr=Replace(TempLateStr,"{$IsBestUpEP}",Dvbbs.Forum_user(17))
  119. TempLateStr=Replace(TempLateStr,"{$IsDelUpEP}",Dvbbs.Forum_user(8))
  120. '魅力
  121. TempLateStr=Replace(TempLateStr,"{$RegUpCP}",Dvbbs.Forum_user(10))
  122. TempLateStr=Replace(TempLateStr,"{$LoginUpCP}",Dvbbs.Forum_user(14))
  123. TempLateStr=Replace(TempLateStr,"{$PostUpCP}",Dvbbs.Forum_user(11))
  124. TempLateStr=Replace(TempLateStr,"{$ReplyUpCP}",Dvbbs.Forum_user(12))
  125. TempLateStr=Replace(TempLateStr,"{$IsBestUpCP}",Dvbbs.Forum_user(16))
  126. TempLateStr=Replace(TempLateStr,"{$IsDelUpCP}",Dvbbs.Forum_user(13))
  127. BoardHelp1=TempLateStr
  128. End Function
  129.  
  130. Function BoardHelp2()
  131. Dim TempLateStr,userclasslist
  132. TempLateStr=template.html(6)
  133. TempLateStr=Split(TempLateStr,"||")
  134. set rs=Dvbbs.execute("Select usertitle,MinArticle,GroupPic From Dv_UserGroups where not Minarticle=-1 order by MinArticle")
  135. do while not rs.eof
  136.         userclasslist=userclasslist&TempLateStr(1)
  137.         userclasslist=Replace(userclasslist,"{$GroupName}",RS(0))
  138.         userclasslist=Replace(userclasslist,"{$MinArticle}",RS(1))
  139.         userclasslist=Replace(userclasslist,"{$GroupPic}",RS(2))
  140. rs.movenext
  141. loop
  142. rs.close
  143. set rs=nothing
  144. BoardHelp2=TempLateStr(0)&userclasslist
  145. End Function
  146.  
  147. Function BoardHelp3()
  148. BoardHelp3=template.html(4)
  149. End Function
  150.  
  151. Function BoardHelp4()
  152. Dim TempLateStr,MaxLengh
  153. if Dvbbs.BoardID>0 Then
  154. TempLateStr=template.html(7)
  155. MaxLengh=Clng(Dvbbs.Board_Setting(16))/1024
  156. TempLateStr=Replace(TempLateStr,"{$OpenHtml}",iif(Dvbbs.Board_Setting(5),"可用","不可用"))
  157. TempLateStr=Replace(TempLateStr,"{$OpenUBB}",iif(Dvbbs.Board_Setting(6),"可用","不可用"))
  158. TempLateStr=Replace(TempLateStr,"{$OpenImage}",iif(Dvbbs.Board_Setting(7),"可用","不可用"))
  159. TempLateStr=Replace(TempLateStr,"{$OpenFlash}",iif(Dvbbs.Board_Setting(44),"可用","不可用"))
  160. TempLateStr=Replace(TempLateStr,"{$OpenPlayer}",iif(Dvbbs.Board_Setting(9),"可用","不可用"))
  161. TempLateStr=Replace(TempLateStr,"{$OpenEmcode}",iif(Dvbbs.Board_Setting(8),"可用","不可用"))
  162. TempLateStr=Replace(TempLateStr,"{$OpenUpLoad}",iif(Dvbbs.Board_Setting(3),"可用","不可用"))
  163. TempLateStr=Replace(TempLateStr,"{$MaxLengh}",MaxLengh)
  164. TempLateStr=Replace(TempLateStr,"{$OpenMoney}",iif(Dvbbs.Board_Setting(10),"可用","不可用"))
  165. TempLateStr=Replace(TempLateStr,"{$OpenEP}",iif(Dvbbs.Board_Setting(11),"可用","不可用"))
  166. TempLateStr=Replace(TempLateStr,"{$OpenCP}",iif(Dvbbs.Board_Setting(12),"可用","不可用"))
  167. TempLateStr=Replace(TempLateStr,"{$OpenPower}",iif(Dvbbs.Board_Setting(13),"可用","不可用"))
  168. TempLateStr=Replace(TempLateStr,"{$OpenArticle}",iif(Dvbbs.Board_Setting(14),"可用","不可用"))
  169. TempLateStr=Replace(TempLateStr,"{$OpenReplay}",iif(Dvbbs.Board_Setting(15),"可用","不可用"))
  170. TempLateStr=Replace(TempLateStr,"{$OpenBuy}",iif(Dvbbs.Board_Setting(23),"可用","不可用"))
  171. End If
  172. BoardHelp4=TempLateStr
  173. TempLateStr=template.html(8)
  174. TempLateStr=Replace(TempLateStr,"{$OpenHtml}",iif(Dvbbs.Forum_Setting(66),"可用","不可用"))
  175. TempLateStr=Replace(TempLateStr,"{$OpenUBB}",iif(Dvbbs.Forum_Setting(65),"可用","不可用"))
  176. TempLateStr=Replace(TempLateStr,"{$OpenImage}",iif(Dvbbs.Forum_Setting(67),"可用","不可用"))
  177. TempLateStr=Replace(TempLateStr,"{$OpenFlash}",iif(Dvbbs.Forum_Setting(71),"可用","不可用"))
  178. BoardHelp4=BoardHelp4&TempLateStr
  179. End Function
  180.  
  181. Function iif(expression,returntrue,returnfalse)
  182. If expression=1 Then
  183.         iif=returntrue
  184. Else
  185.         iif=returnfalse
  186. End If
  187. End Function
  188.  
  189. %>
downloadBoardhelp.asp Source code - Download Like webmaster forums Source code
Related Source Codes/Software:
Quanzhou China networks limited - Admin admin admin 21.45KB
Love agent shop navigation friendship China buffet chain V1.0 - Fully functional, application link, points into on... 4.34KB
Source of party and Government official open source Government TS version v1.0 - I am a Government webmaster, not a computer traini... 10.95KB
Sunzhuang town government - Simple and practical! 5.15KB
160 Shenzhen rental rental information network - Rental information network-a very good site, which... 79.99KB
Journey of legends ASP.NET version system - Abbreviation for Cms is a Content Management Syste... 18.45KB
M media corporate website system v3.5.2 - M media on the powerful systems in addition to foc... 5.69KB
M media enterprise open source Web System v1.0.0 - M media on the powerful systems in addition to foc... 4.9KB
M media management system voted v2.1.0 - As computer and electronic communications technolo... 6.01KB
Chinese women's network the entire station source code - A woman's Web site package download, and a present... 22.95KB
China source download System v1.0 - This 3-to beautify the program downloaded by the i... 5.26KB
Ganzhou Windows network - Cover feature:Windows Home | News vertical and... 34.61KB
Strains of strain of beautiful personal home page Build20061004 - -----------Modified part-------------1: added ... 7.7KB
Southwest agricultural information network - Southwest agricultural information network, an agr... 98.89KB
ZWMOBI 3G mobile station system - Powerful business modules, including mobile B2C mo... 3.89KB
As a campus site system v2.0 - For most school,, to built features powerful of ma... 44.88KB
Evening student seating system 7 - Evening student seating system is facilitated the ... 26.4KB
94KK be reluctant network community beautification bate3 (new year Edition) - Kernel KB 94kkBBS Forum, new landscaping, further ... 24.82KB
QQ Flash Word - 1. powerful DIY feature, which is now immeasurably... 67KB
Zoomla! Eall CMS v2.0 - Waves CMS is committed to providing our webmasters... 11.31KB

 Back to top