www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\support\about.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/about.html")
	strHTML=Replace(strHTML, "{$SiteName}", NewAsp.MainSetting(1))
	strHTML=Replace(strHTML, "{$sitename}", NewAsp.MainSetting(1))
	GetHtmlContent=strHTML
End Function
%>