about.asp

网络上经典的图片程序

<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/classmenu.asp"-->
<%
Dim HtmlContent,strHtml
Newasp.LoadTemplates 9999, 7, 0

HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent,"{$InstallDir}", Newasp.InstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0)
HtmlContent = Replace(HtmlContent,"{$PageTitle}",Newasp.HtmlSetting(1))
HtmlContent = ReadClassMenu(HtmlContent)
HtmlContent = ReadClassMenubar(HtmlContent)

strHtml = Newasp.Readfile("about.ini")
strHtml = Replace(strHtml,"{$SiteName}", Newasp.SiteName)
strHtml = Replace(strHtml,"{$SiteUrl}", Newasp.SiteUrl)
HtmlContent = Replace(HtmlContent,"{$TempContent}", strHtml)
Response.Write HtmlContent
CloseConn
%>