自己扩展的风讯3.1的幻灯片(2)_风讯Cms教程

FilterStr = FilterStr & "var focus_height="& PicHeightStr &";" & vbcrlf

if ShowTitleStr = "1" then
FilterStr = FilterStr & "var text_height=20;" & vbcrlf
else
FilterStr = FilterStr & "var text_height=0;" & vbcrlf
end if

FilterStr = FilterStr & "var swf_height = focus_height text_height;" & vbcrlf

FilterStr = FilterStr & "var pics='"& ImagesStr &"';" & vbcrlf
FilterStr = FilterStr & "var links='"& LinkStr &"';" & vbcrlf

if ShowTitleStr = "1" then
FilterStr = FilterStr & "var texts='"& TxtStr &"';" & vbcrlf
else
FilterStr = FilterStr & "var texts='';" & vbcrlf
end if

FilterStr = FilterStr & "document.write('');" & vbcrlf
FilterStr = FilterStr & "document.write('');" & vbcrlf
FilterStr = FilterStr & "document.write('');" & vbcrlf
FilterStr = FilterStr & "document.write('');" & vbcrlf
FilterStr = FilterStr & "document.write('');" & vbcrlf
FilterStr = FilterStr & "document.write('');" & vbcrlf
FilterStr = FilterStr & "" & vbcrlf
else
FilterStr="没有幻灯图片"
End if
RsFilterObj.Close
Set RsFilterObj = Nothing
FilterNewsEx = FilterStr
End Function
'###############################################################################################

打开同目录下的 selectfunction.asp 添加如下代码到 case "sitemap" 之前

'############ Flash 幻灯片 ###################
Case "filternewsEx"
if UBound(ParaArray) = 9 then
GetLableContent = FilterNewsEx(ParaArray(1),ParaArray(2),ParaArray(3),ParaArray(4),ParaArray(5),ParaArray(6),ParaArray(7),ParaArray(8),ParaArray(9))
else
GetLableContent = ""
Exit Function
end if
'#############################################

下载这个文件放在根目录下的 images 里
http://lady.33933.net/images/pixviewer.swf

这个Flash的幻灯片就添加好了。
按照原来的方法设置幻灯片 FilterNews
假如需要使用Flash幻灯片时就在 FilterNews 后面加上 Ex 如：FilterNewsEx 就可以了
演示地址：http://lady.33933.net/