www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\users\index.asp
<!--#include file="inc/const.asp"--> <!--#include file="inc/check.asp"--> <!--#include file="inc/common.asp"--> <% Call Main() Call TPL_Flush() NewAsp.PageEnd() Sub Main() Dim strHTML strHTML = NewAsp.LoadTemplate("users\index") strHTML = Replace(strHTML, "{$pagetitle}", TPL_Config(1)) 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 %>