|
<%
Dim PageContent
Dim MakeHtml
MakeHtml=False
If EA_Pub.SysInfo(18)="0" Then
If Not EA_Pub.Chk_IsExistsHtmlFile("default.htm") Then
MakeHtml=True
Else
Response.Redirect "default.htm"
Response.End
End If
End If
PageContent=EA_Temp.Load_Template(0,"index")
EA_Temp.Title=EA_Pub.SysInfo(0)&" - 首页"
EA_Temp.Nav=""&EA_Pub.SysInfo(0)&" - 首页"
EA_Temp.ReplaceTag "SiteColumnTotal",EA_Pub.SysStat(0),PageContent
EA_Temp.ReplaceTag "SiteTopicTotal",EA_Pub.SysStat(1),PageContent
EA_Temp.ReplaceTag "SiteUserTotal",EA_Pub.SysStat(3),PageContent
EA_Temp.ReplaceTag "SiteMangerTopicTotal",EA_Pub.SysStat(2),PageContent
EA_Temp.ReplaceTag "SiteReviewTotal",EA_Pub.SysStat(4),PageContent
EA_Temp.ReplaceTag "MemberTopPost",EA_Temp.Load_MemberTopPost,PageContent
Call EA_Temp.Find_TemplateTag("ColumnNav",PageContent)
Call EA_Temp.Find_TemplateTag("DisList",PageContent)
Call EA_Temp.Find_TemplateTag("NewReview",PageContent)
PageContent=EA_Temp.Replace_PublicTag(PageContent)
If MakeHtml Then
Call EA_Pub.Save_HtmlFile("default.htm",PageContent)
Call EA_Pub.Close_Obj
Set EA_Pub=Nothing
Response.Redirect "default.htm"
Response.End
Else
Response.Write PageContent
End If
Call EA_Pub.Close_Obj
Set EA_Pub=Nothing
%>
是个首页文件..可是就没搞明白
哪位大哥能详解下 |
