www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\flash\index.asp

    <!--#include file="const.asp"-->
<%
Sub main()
	Dim HtmlContent,TPL_FilePath
	TPL_FilePath=Check_TPL_Path(NewAsp.ChannelID,2)&"\index"
	HtmlContent = NewAsp.LoadTemplate(TPL_FilePath)
	HtmlContent = Replace(HtmlContent, "{$pagetitle}", NewAsp.ChannelName)
	HtmlContent = Replace(HtmlContent, "{$channelid}", ChannelID)
	HtmlContent = Replace(HtmlContent, "{$classid}", 0)
	TPL_Scan HtmlContent
End Sub

Sub TPL_ParseNode(sTokenType, sTokenName, sVariant)
	Select Case sTokenType
		Case "newasp"
			ParseDataNode		sTokenName,sVariant
	Case Else
	End Select
End Sub

Sub ParseDataNode(sToken,sVariant)
	On Error Resume Next
	Select Case sToken
		Case "moremenu"		:	TPL_Echo moremenu(sVariant)
		Case "typemenu"		:	TPL_Echo typemenu(sVariant)
	End Select
	If Err Then Err.Clear
End Sub
%>