www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\index.asp
<!--#include file="../inc/template.inc"--> <% Sub Main() Set TPL_XmlDom=NewAsp.CreateXmlDoc("msxml2.FreeThreadedDOMDocument" & MsxmlVersion) If Not TPL_XmlDom.load(NewAsp.TemplatePath&"config.xml") Then Response.Write "载入模板配置文件出错!"&NewAsp.TemplatePath&"config.xml" Response.End End If Dim strHTML strHTML = NewAsp.LoadTemplate("index") If Len(TPL_Config(1))<2 Then strHTML = Replace(strHTML, "{$pagetitle}", NewAsp.MainSetting(1)&"首页") Else strHTML = Replace(strHTML, "{$pagetitle}", TPL_Config(1)) End If strHTML = Replace(strHTML, "{$channelid}", 0) strHTML = Replace(strHTML, "{$classid}", 0) TPL_Scan strHTML 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" End Select If Err Then Err.Clear End Sub %>