|
楼主 |
发表于 2009 年 4 月 1 日 21:19:54
|
显示全部楼层
<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/cls_public.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)
HtmlContent = HTML.ReadAnnounceList(HtmlContent)
HtmlContent = HTML.ReadStatistic(HtmlContent)
HtmlContent = HTML.ReadUserRank(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
%> |
|