1、在Inc/syscode_common.asp中加入以下定义
'==================================================
'过程名:ShowLogo
'作 用:显示网站LOGO
'参 数:无
'==================================================
function ShowLogo()
if LogoUrl<>"" then
response.write ""
if lcase(right(LogoUrl,3))<>"swf" then
response.write ""
else
Response.Write " "
end if
response.write ""
else
response.write ""
end if
end function
'==================================================
'过程名:ShowBanner
'作 用:显示网站Banner
'参 数:无
'==================================================
function ShowBanner()
if BannerUrl<>"" then
if lcase(right(BannerUrl,3))="swf" then
Response.Write " "
else
response.Write ""
end if
else
call ShowAD(1)
end if
end function
2、在top.asp中加入以下调用代码:
显示Logo
显示Banner
|