大家帮忙看看这个问题怎么解答，救救小弟

[sookeer]

他们做了个网站，采用的是NB新闻系统，现在他们走了以后小弟接手，但是首页都是调用的文件，
<!--#Include File="conn.asp" -->
<!--#Include File="include/inc.asp"-->
<%
Dim PageContent
Dim MakeHtml

MakeHtml=False

If EA_Pub.SysInfo(18)="0" Then
If EA_Pub.SysInfo(26)="0" Then
EA_Pub.SysInfo(18)="1"
Else
If Not EA_Pub.Chk_IsExistsHtmlFile("default.htm") Then
MakeHtml=True
Else
Call EA_Pub.Close_Obj
Set EA_Pub=Nothing

Response.Redirect "default.htm"
Response.End
End If
End If
End If

PageContent=EA_Temp.Load_Template(0,"index")

EA_Temp.Title=EA_Pub.SysInfo(0)&" - 首页"
EA_Temp.Nav="<a href=""./""><b>"&EA_Pub.SysInfo(0)&"</b></a> - 首页"

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
%>这几句代码，基本上看不明白，我应该怎么入手阿，首页是如何修改呢？
谢谢！

[笨笨兔兔兔兔兔]

include/inc.asp

看这个文件

[sookeer]

<!--#Include File="cls_public.asp"-->
<!--#Include File="cls_template.asp"-->
<!--#Include File="cls_ini.asp"-->
<!--#Include File="cls_dboperation.asp"-->
<%
Dim EA_Pub,EA_Temp,EA_Ini,EA_DBO

ConnectionDatabase

Set EA_DBO=New cls_DBOperation
Set EA_Temp=New cls_Template
Set EA_Ini=New cls_Ini
Set EA_Pub=New cls_Public

If EA_Pub.SysInfo(1)="0" Then '如果已设定网站关闭
ErrMsg=EA_Pub.SysInfo(2) '显示系统设定中的关闭公告语
Call EA_Pub.ShowErrMsg(0,0)
End If

If EA_Pub.SysInfo(3)="1" Then '如果已设定网站定时打开
If EA_Pub.Chk_SystemTimer(EA_Pub.SysInfo(4)) Then Call EA_Pub.ShowErrMsg(0,0)
End If

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>

[笨笨兔兔兔兔兔]

cls_DBOperation
cls_Template
cls_Ini
cls_Public

查询这几个类

[sookeer]

第一次接触asp类，一般用什么编写呢？

[FIREGUNS]

NB也是套模板的.