常在网上转的一定注意到现在各大门户网站上面的flash焦点图广告效果，因本人使用的是科讯CMS，他的广告管理系统个人感觉确实不错，但是没有发现焦点图效果(虽然有一个随机显示广告的效果，只是我不喜欢这个而已)；没别的办法，只能自己动手丰衣足食了。没有任何演示地址，效果就和后世今生博客首页的一样；本人还在等待着kesionCMS7.0正式版的发布，先拿这个修改下，但是最终效果是不不会有任何改变的，只需要覆盖文件就可以使用了！毕竟这个广告管理可以说已经完美了。
好了，别的不再啰嗦下面分享下修改过程，以提供给和我一样有同样需求的人们！ 转载请注明出处：后世今生 www.21863.cn
主要修改文件是后台的“KS.Ads.asp”
第一步：在Sub Ggwlei(shu)中增加“<option value=8 <% if shu=8 then%>selected<%end if%>>幻灯广告显示</option>”
第二步：找到 Function Ggwlx(place) 中增加 “ Case 8:Ggwlx="幻灯片广告" ”
第三步：找到 Sub CreateJs(id) 在 case 7 后面加上以下代码：
str=str & "<!--" & vbcrlf
str=str & "var swf_width="& placewid &";" & vbcrlf
str=str & "var swf_height="& placehei &";" & vbcrlf
str=str & "var config=""2|0xffffff|0xff0000|50|0xffffff|0x0099ff|0x000000"";" & vbcrlf
PicStr = "var files='" & rst("gif_url") : LinkStr="var links='" & rst("url") : TextStr="var texts='" & rst("sitename")
rst.movenext
do while not rst.eof
PicStr=PicStr & "|"& rst("gif_url") : LinkStr=LinkStr&"|"&rst("url") : TextStr=TextStr & "|" & rst("sitename")
rst.movenext
loop
str=str & PicStr &"';"&vbcrlf&LinkStr&"';" &vbcrlf & TextStr &"';" & vbcrlf
str=str & "document.write('<object classid=\""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000\"" codebase=\""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0\"" width=\""'+ swf_width +'\"" height=\""'+ swf_height +'\"">');" & vbcrlf
str=str & "document.write('<param name=\""movie\"" value=\"""&DomainStr&"images/focus2.swf\"" />');" & vbcrlf
str=str & "document.write('<param name=\""quality\"" value=\""high\"" />');" & vbcrlf
str=str & "document.write('<param name=\""menu\"" value=\""false\"" />');" & vbcrlf
str=str & "document.write('<param name=\""wmode\"" value=\""opaque\"" />');" & vbcrlf
str=str & "document.write('<param name=\""FlashVars\"" value=\""config='+config+'&bcastr_flie='+files+'&bcastr_link='+links+'\"" />');" & vbcrlf
str=str & "document.write('<embed src=\"""&DomainStr&"images/focus2.swf\"" wmode=\""opaque\"" FlashVars=\""config='+config+'&bcastr_flie='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'& menu=\""false\"" quality=\""high\"" width=\""'+ swf_width +'\"" height=\""'+ swf_height +'\"" type=\""application/x-shockwave-flash\"" pluginspage=\""http://www.macromedia.com/go/getflashplayer\"" />');" & vbcrlf
str=str & "document.write('</object>');" & vbcrlf
str=str & "//-->" & vbcrlf |
OK啦 大功告成！进入后台添加广告试试，是不是增加了一幻灯片广告效果？此方法同样生产JS。
对了，最后还有一个FLASH文件，这个等这两天科讯7.0正式版发布我的郑州家政网修改好以后我会将此FLASH文件公布出来的！现在大家可以下载后世今生博客首页上的FLASH文件，一样的效果哦！
攒一个 ！！！
路过 来此看下！！