www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\support\advertise.asp
<!--#include file="../conn.asp"--> <!--#include file="../common/const.asp"--> <!--#include file="../inc/template.inc"--> <% Call Main() Call TPL_Flush() NewAsp.PageEnd() Sub Main() Dim strHTML strHTML = NewAsp.LoadTemplate("common") strHTML = Replace(strHTML, "{$pagetitle}", "广告合作") 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 "content" : TPL_Echo GetHtmlContent() End Select If Err Then Err.Clear End Sub Function GetHtmlContent() Dim strHTML strHTML=NewAsp.ReadTextFile("../common/template/advertise.html") strHTML=Replace(strHTML, "{$SiteName}", NewAsp.MainSetting(1)) strHTML=Replace(strHTML, "{$sitename}", NewAsp.MainSetting(1)) GetHtmlContent=strHTML End Function %>