多看阅读云空间客户端:一个ASP的问题,请教高人指点

在这个index.asp 中有一个FLASH广告链接我想把它弄掉,请高人指点哪行代码是关于它的!还是的改别的文件,谢谢!

<!--#include file="conn.asp"-->
<!--#include file="inc/Const.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/Channel_function.asp"-->
<%
dim StyleCon
dim MaxPageSize,rCount,PageNum,cUrl

PageTemplateType = 1
StyleCon = GetSpecialStyle(LZ8.SpecialID,0,PageTemplateType)
Call LZ8.LoadTemplate(PageTemplateType,0,StyleCon(0),StyleCon(1))
Title = LZ8.WebSetting(2)

LZ8.ShowPlace "","",LZ8.TemplateLanguage(0)
BoardID = PageTemplateType
Call main()

Sub main()
block = LZ8.PageStyle
block = ReplaceChannelTemplate(block)
block = LZ8.GetTemplate(block)
block = LZ8.GetTemplateTr(block)
block = Replace(block,"{$ShowPage}",ShowPage())
LZ8.footer(block)
End Sub

Function ReplaceChannelTemplate(TemplateStr)
dim ChannelTemplate,ChannelColNum,P_ChannelModule
Dim TempStr,Matches,Match
With re
.Pattern = "〖ChannelList〗〖Cols=(.[^=]*),ChannelModule=(.[^=]*)〗(.[^〗]*)〖\/ChannelList〗"
.IgnoreCase = True
.Global = True
ReplaceChannelTemplate = TemplateStr
Set Matches = .Execute(TemplateStr)
For Each Match in Matches
TempStr = Match.Value
TempStr = Replace(TempStr,Chr(13) & Chr(10),"")
ChannelColNum = .Replace(TempStr, "$1" )
P_ChannelModule = .Replace(TempStr, "$2" )
ChannelTemplate = .Replace(TempStr, "$3" )
TempStr = Replace(TempStr,"〖ChannelList〗","")
TempStr = Replace(TempStr,"〖Cols="& ChannelColNum &",ChannelModule="& P_ChannelModule &"〗","")
TempStr = Replace(TempStr,"〖/ChannelList〗","")
TempStr = Replace(TempStr,"""","")
ReplaceChannelTemplate = Replace(ReplaceChannelTemplate,Match.Value,ShowNowChannel(TempStr,ChannelColNum,P_ChannelModule))
Next
End With
End Function
else
TmpTemplate = "<td valign=""top"">"& P_Template
TmpTemplate = Replace(TmpTemplate,"{$Sys_ChannelID}", ChkIsNull(Dr(0,i)))
TmpTemplate = Replace(TmpTemplate,"{$Sys_ChannelName}", ChkIsNull(Dr(1,i)))
TmpTemplate = Replace(TmpTemplate,"{$Sys_ChannelDir}", ChkIsNull(Dr(2,i)))
TmpTemplate = Replace(TmpTemplate,"{$Sys_ChannelItemName}", ChkIsNull(Dr(3,i)))

TempShowNowChannel = TempShowNowChannel & TmpTemplate &"</td>"

if iii < Clng(P_ChannelColNum) then i=i+1

end if
Next
TempShowNowChannel = TempShowNowChannel &"</tr>" & vbNewLine
Next
END IF
TempShowNowChannel = TempShowNowChannel &"</table>" & vbNewLine
LZ8.Value = TempShowNowChannel
END IF
ShowNowChannel = LZ8.Value
' ShowNowChannel = TempShowNowChannel
End Function
%>