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>&nbsp;&nbsp;-- <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

%>