幻燈新聞修改方法，在RefreshFunction.asp文件中找到：

if ClassListStr <> "" then
FilterSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.Classid=FS_NewsClass.Classid and FS_News.DelTF=0 and FS_News.FilterNews=1 and FS_News.AuditTF=1 and FS_NewsClass.ClassEName='" & ClassListStr & "' order by FS_News.ID Desc"
else
FilterSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.Classid=FS_NewsClass.Classid and FS_News.DelTF=0 and FS_News.FilterNews=1 and FS_News.AuditTF=1 order by FS_News.ID Desc"
end if
Set RsFilterObj = Conn.Execute(FilterSql)

修改為：

dim TemppID,TemppSql,EndClassIDList
if ClassListStr <> "" then

TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassListStr & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
FilterSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.Classid=FS_NewsClass.Classid and FS_News.DelTF=0 and FS_News.FilterNews=1 and FS_News.AuditTF=1 and FS_NewsClass.ClassID in (" & EndClassIDList & ") order by FS_News.ID Desc"
else
FilterSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.Classid=FS_NewsClass.Classid and FS_News.DelTF=0 and FS_News.FilterNews=1 and FS_News.AuditTF=1 order by FS_News.ID Desc"
end if
Set RsFilterObj = Conn.Execute(FilterSql)

圖片新聞修改方法：

在RefreshFunction.asp文件中找到：

if ClassListStr = "" then
if RefreshType = "Index" then
PicSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass Where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.DelTF=0 and FS_News.PicNewsTF=1 and FS_News.AuditTF=1 order by FS_News.ID Desc"
elseif RefreshType = "Class" then
PicSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass Where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.ClassID='" & RefreshID & "' and FS_News.DelTF=0 and FS_News.PicNewsTF=1 and FS_News.AuditTF=1 order by FS_News.ID Desc"
elseif RefreshType = "News" then
TempSql = "Select ClassID from FS_News where NewsID='" & RefreshID & "' order by ID desc"
Set RsTempObj = Conn.Execute(TempSql)
if Not RsTempobj.Eof then
PicSql = "Select Top " & NewsNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass Where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.ClassID='" & RsTempobj("ClassID") & "' and FS_News.DelTF=0 and FS_News.PicNewsTF=1 and FS_News.AuditTF=1 order by FS_News.ID Desc"