www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\Boardhelp.asp
<!--#include file=conn.asp--> <!-- #include file=inc/const.asp --> <!-- #include file="inc/dv_clsother.asp" --> <% Mybbs.LoadTemplates("boardhelp") If Mybbs.BoardID=0 then Mybbs.stats=template.Strings(0) Mybbs.Nav() Mybbs.Head_var 2,0,template.Strings(1),"boardhelp.asp" Else Mybbs.stats=template.Strings(1) Mybbs.Nav() Mybbs.Head_var 1,Mybbs.Board_Data(4,0),"","" End If Dim Rs,sql,i,H_title,H_content call main() Mybbs.ActiveOnline() Mybbs.footer() Sub main() Dim TempLateStr,TempHelp,Helptitle,LookID,BoardHelp Helptitle=Request("title") LookID=Request("act") if LookID="" or not isNUmeric(LookID) Then If Mybbs.FoundIsChallenge or Mybbs.Forum_ChanSetting(0)="1" Then LookID=0 Else LookID=3 End If End If If Request("view")<>"" and Request("view")="faq" Then FAQContent(LookID) BoardHelp=H_content Helptitle=H_title Else Select case LookID Case 0 BoardHelp=BoardHelp0 Case 1 BoardHelp=BoardHelp1 Case 2 BoardHelp=BoardHelp2 Case 3 BoardHelp=BoardHelp3 Case 4 BoardHelp=BoardHelp4 End Select End IF TempLateStr=template.html(0) TempHelp=template.html(2) TempHelp=Replace(TempHelp,"{$Title}",Helptitle) TempHelp=Replace(TempHelp,"{$Body}",BoardHelp) TempLateStr=Replace(TempLateStr,"{$TableWidth}",Mybbs.mainsetting(0)) TempLateStr=Replace(TempLateStr,"{$Main}",TempHelp) If Mybbs.FoundIsChallenge or Mybbs.Forum_ChanSetting(0)="1" Then TempLateStr=Replace(TempLateStr,"{$GrayLink}",template.Strings(2)) Else TempLateStr=Replace(TempLateStr,"{$GrayLink}","") End If TempLateStr=Replace(TempLateStr,"{$boardid}",Mybbs.boardid) TempLateStr=Replace(TempLateStr,"{$BbsFaq}",BoardFAQ) Response.Write TempLateStr End Sub Function BoardFAQ() Dim TempLeft,TempRs Set Rs=Mybbs.Execute("Select H_ID,H_title From dv_help where not h_id=1 and H_ParentID=0 order by H_ParentID ") If not Rs.Eof Then SQL=Rs.GetRows(-1) Rs.close:Set Rs=Nothing For i=0 to Ubound(SQL,2) TempLeft=TempLeft + "<hr size=1><li><b>" + server.htmlencode(SQL(1,i)) + "</b>" Set TempRs = Mybbs.Execute("Select H_ID,H_ParentID,H_title From dv_help where H_ParentID="&SQL(0,i)) Do while not TempRs.eof TempLeft = TempLeft + "<br> -- <a href=?boardid="&Mybbs.boardid&"&view=faq&act="&TempRs(0) TempLeft = TempLeft + " >" TempLeft = TempLeft + server.htmlencode(TempRs(2)) TempLeft = TempLeft + "</a>" TempRs.movenext loop Next TempRs.close set TempRs=nothing End If BoardFAQ=TempLeft End Function Function FAQContent(SID) If not IsNumeric(SID) Then Exit Function Set Rs=Mybbs.Execute("Select H_ID,H_ParentID,H_title,H_content,H_stype,H_bgimg,H_Addtime From dv_help where H_ID= "&SID) If not Rs.Eof Then H_title=server.htmlencode(Rs(2)) H_content=Rs(3) End If Rs.close:Set Rs=Nothing End Function Function BoardHelp0() BoardHelp0=template.html(3) End Function Function BoardHelp1() Dim TempLateStr TempLateStr=template.html(5) TempLateStr=Replace(TempLateStr,"{$RedClor}",Mybbs.mainsetting(1)) '金钱 TempLateStr=Replace(TempLateStr,"{$RegUpMoney}",Mybbs.Forum_user(0)) TempLateStr=Replace(TempLateStr,"{$LoginUpMoney}",Mybbs.Forum_user(4)) TempLateStr=Replace(TempLateStr,"{$PostUpMoney}",Mybbs.Forum_user(1)) TempLateStr=Replace(TempLateStr,"{$ReplyUpMoney}",Mybbs.Forum_user(2)) TempLateStr=Replace(TempLateStr,"{$IsBestUpMoney}",Mybbs.Forum_user(15)) TempLateStr=Replace(TempLateStr,"{$IsDelUpMoney}",Mybbs.Forum_user(3)) '经验 TempLateStr=Replace(TempLateStr,"{$RegUpEP}",Mybbs.Forum_user(5)) TempLateStr=Replace(TempLateStr,"{$LoginUpEP}",Mybbs.Forum_user(9)) TempLateStr=Replace(TempLateStr,"{$PostUpEP}",Mybbs.Forum_user(6)) TempLateStr=Replace(TempLateStr,"{$ReplyUpEP}",Mybbs.Forum_user(7)) TempLateStr=Replace(TempLateStr,"{$IsBestUpEP}",Mybbs.Forum_user(17)) TempLateStr=Replace(TempLateStr,"{$IsDelUpEP}",Mybbs.Forum_user(8)) '魅力 TempLateStr=Replace(TempLateStr,"{$RegUpCP}",Mybbs.Forum_user(10)) TempLateStr=Replace(TempLateStr,"{$LoginUpCP}",Mybbs.Forum_user(14)) TempLateStr=Replace(TempLateStr,"{$PostUpCP}",Mybbs.Forum_user(11)) TempLateStr=Replace(TempLateStr,"{$ReplyUpCP}",Mybbs.Forum_user(12)) TempLateStr=Replace(TempLateStr,"{$IsBestUpCP}",Mybbs.Forum_user(16)) TempLateStr=Replace(TempLateStr,"{$IsDelUpCP}",Mybbs.Forum_user(13)) BoardHelp1=TempLateStr End Function Function BoardHelp2() Dim TempLateStr,userclasslist TempLateStr=template.html(6) TempLateStr=Split(TempLateStr,"||") set rs=Mybbs.execute("Select usertitle,MinArticle,GroupPic From Dv_UserGroups where not Minarticle=-1 order by MinArticle") do while not rs.eof userclasslist=userclasslist&TempLateStr(1) userclasslist=Replace(userclasslist,"{$GroupName}",RS(0)) userclasslist=Replace(userclasslist,"{$MinArticle}",RS(1)) userclasslist=Replace(userclasslist,"{$GroupPic}",RS(2)) rs.movenext loop rs.close set rs=nothing BoardHelp2=TempLateStr(0)&userclasslist End Function Function BoardHelp3() BoardHelp3=template.html(4) End Function Function BoardHelp4() Dim TempLateStr,MaxLengh if Mybbs.BoardID>0 Then TempLateStr=template.html(7) MaxLengh=Clng(Mybbs.Board_Setting(16))/1024 TempLateStr=Replace(TempLateStr,"{$OpenHtml}",iif(Mybbs.Board_Setting(5),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenUBB}",iif(Mybbs.Board_Setting(6),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenImage}",iif(Mybbs.Board_Setting(7),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenFlash}",iif(Mybbs.Board_Setting(44),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenPlayer}",iif(Mybbs.Board_Setting(9),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenEmcode}",iif(Mybbs.Board_Setting(8),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenUpLoad}",iif(Mybbs.Board_Setting(3),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$MaxLengh}",MaxLengh) TempLateStr=Replace(TempLateStr,"{$OpenMoney}",iif(Mybbs.Board_Setting(10),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenEP}",iif(Mybbs.Board_Setting(11),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenCP}",iif(Mybbs.Board_Setting(12),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenPower}",iif(Mybbs.Board_Setting(13),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenArticle}",iif(Mybbs.Board_Setting(14),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenReplay}",iif(Mybbs.Board_Setting(15),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenBuy}",iif(Mybbs.Board_Setting(23),"可用","不可用")) End If BoardHelp4=TempLateStr TempLateStr=template.html(8) TempLateStr=Replace(TempLateStr,"{$OpenHtml}",iif(Mybbs.Forum_Setting(66),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenUBB}",iif(Mybbs.Forum_Setting(65),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenImage}",iif(Mybbs.Forum_Setting(67),"可用","不可用")) TempLateStr=Replace(TempLateStr,"{$OpenFlash}",iif(Mybbs.Forum_Setting(71),"可用","不可用")) BoardHelp4=BoardHelp4&TempLateStr End Function Function iif(expression,returntrue,returnfalse) If expression=1 Then iif=returntrue Else iif=returnfalse End If End Function %>