help.asp

来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 60 行

<!--#include file="conn.asp" -->
<!--#include file="inc/const.asp"-->
<%
Dim NewCloud_Ads
Dim NowStats,HtmlTitle,Style_CSS,HtmlTempStr
Dim TempTopStr,TempFootStr,HelpInfo
Newasp.LoadTemplates ("help")
Set NewCloud_Ads = New Adcolumn_Cls
Select Case request("Action")
Case "statement"  '下载声明
	NowStats = Newasp.TempSet(1)
        HtmlTitle = Newasp.TempSet(1)
        HelpInfo = Newasp.TempHtml(2)
Case "anent"  '关于本站
	NowStats = Newasp.TempSet(2)
        HtmlTitle = Newasp.TempSet(2)
        HelpInfo = Newasp.TempHtml(3)
Case "ads"  '下载声明
	NowStats = Newasp.TempSet(4)
        HtmlTitle = Newasp.TempSet(4)
        HelpInfo = Newasp.TempHtml(5)
Case "about"
	NowStats = Newasp.TempSet(3)
        HtmlTitle = Newasp.TempSet(3)
        HelpInfo = Newasp.TempHtml(4)
Case "link"
	NowStats = Newasp.TempSet(5)
        HtmlTitle = Newasp.TempSet(5)
        HelpInfo = Newasp.TempHtml(6)
Case "cooperation"
	NowStats = Newasp.TempSet(6)
        HtmlTitle = Newasp.TempSet(6)
        HelpInfo = Newasp.TempHtml(7)
End Select 
TempTopStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
TempFootStr = Newasp.mainhtml(4)
Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
HtmlTempStr = TempTopStr & Newasp.TempHtml(0) & TempFootStr
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
HtmlTempStr = Replace(HtmlTempStr, "{$FootMeun}", Newasp.mainset(11))
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
If CInt(Newasp.Setting(5)) = 0 Then
        HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
Else
        HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
End If
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
HtmlTempStr = Replace(HtmlTempStr, "{$HelpInfo}", HelpInfo)
HtmlTempStr = Replace(HtmlTempStr, "{$HelpTitle}", HtmlTitle)
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(3))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(3))
Response.write HtmlTempStr
%>