Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr
FileList = "http://www.shbinfo.com/upload/article/2010-09/20100907023202153.jpg,http://www.shbinfo.com/upload/article/2010-09/20100907023204132.jpg,http://www.shbinfo.com/upload/article/2010-09/20100907022807105.jpg,http://www.shbinfo.com/upload/article/2010-09/20100907022606522.jpg,http://www.shbinfo.com/upload/article/2010-09/20100907022610899.jpg,http://www.shbinfo.com/upload/article/2010-09/20100907022611235.jpg,http://www.shbinfo.com/upload/article/2010-09/20100907022004217.jpg,http://www.shbinfo.com/upload/article/2010-09/20100907022206552.jpg,"
LinkList = "http://www.shbinfo.com/read_Article.aspx?sid=27&mid=18550,http://www.shbinfo.com/read_Article.aspx?sid=27&mid=18553,http://www.shbinfo.com/read_Article.aspx?sid=30&mid=18546,http://www.shbinfo.com/read_Article.aspx?sid=46&mid=18559,http://www.shbinfo.com/read_Article.aspx?sid=46&mid=18564,http://www.shbinfo.com/read_Article.aspx?sid=46&mid=18565,http://www.shbinfo.com/read_Article.aspx?sid=234&mid=18523,http://www.shbinfo.com/read_Article.aspx?sid=91&mid=18503,"
TxtList = "张一山正式到北影报到 与杨紫成同班同学(,维多利亚与女友结伴游夜店 对记者神情冰冷,张家辉、柳云龙加盟《建党伟业》 现场互飙,MIC男团现场设计T恤 创意互动取悦歌迷,蜜桃女生最爱唐禹哲 首次出席内衣秀害羞又,孟庭苇担任日月潭代言人 伊达邵高歌月亮的,成飞在研高难重点型号进入样机试制阶段,陕西横山杀人案10年4次重审未定案(图),"
FileListArr = Split(FileList,",")
LinkArr = Split(LinkList,",")
TxtListArr = Split(TxtList,",")
Dim CanPlay
CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5
Dim FilterStr
FilterStr = "RevealTrans(duration=2,transition=23)"
FilterStr = FilterStr + ";BlendTrans(duration=2)"
If CanPlay Then
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)"
Else
Msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.0或以上版本，否则您将只能看到部分的切换效果。",64
End If
Dim FilterArr
FilterArr = Split(FilterStr,";")
Dim PlayImg_M
PlayImg_M = 5 * 1000
Dim I
I = 1
Sub ChangeImg
Do While FileListArr(I)=""
I = I + 1
If I>UBound(FileListArr) Then I = 0
Loop
Dim J
If I>UBound(FileListArr) Then I = 0
Randomize
J = Int(Rnd * (UBound(FilterArr)+1))
Img.style.filter = FilterArr(J)
Img.filters(0).Apply
Img.Src = FileListArr(I)
Img.filters(0).play
Link.Href = LinkArr(I)
Txt.filters(0).Apply
Txt.innerHTML = TxtListArr(I)
Txt.filters(0).play
I = I + 1
If I>UBound(FileListArr) Then I = 0
TempImg.Src = FileListArr(I)
TempLink.Href = LinkArr(I)
SetTimeout "ChangeImg", PlayImg_M,"VBScript"
End Sub