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 %>