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/