Question

vbscript这段代码 如何兼容chorme和火狐

<script language="vbscript">
Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr
FileList = "2013050114385280569.jpg,2013050113521372045.jpg,2013050113390067694.jpg"
LinkList = "123.shtml,456.shtml,789.shtml"
TxtList = "<a href='123.shtml' target='_blank'>标题1</a>,<a href='456.shtml' target='_blank'>标题2</a>,<a href='789' target='_blank'>标题3</a>"
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.5或以上版本，否则您将只能看到部分的切换效果。",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)
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
</SCRIPT>

<TABLE WIDTH="100%" height="100%" BORDER="0" CELLSPACING="" CELLPADDING="0">
<TR ID="NoScript">
<TD Align="Center" Style="Color:White">对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。</TD>
</TR>
<TR Style="Display:none" ID="CanRunScript"><TD HEIGHT="100%" Align="Center" vAlign="Center"><a id="Link" target='_blank'><Img ID="Img" width="335" height="180" Border="0" ></a>
</TD></TR><TR Style="Display:none"><TD><a id=TempLink ><Img ID="TempImg" Border="0"></a></TD></TR>
</TABLE>
<Script Language="VBScript">
NoScript.Style.Display = "none"
CanRunScript.Style.Display = ""
Img.Src = FileListArr(0)
Link.Href = LinkArr(0)
SetTimeout "ChangeImg", PlayImg_M,"VBScript"
</Script>

Answer 1

　　您好！很高兴为您答疑。
　　VBScript是IE所特有的客户端脚本，非ie或ie内核浏览器，如火狐都是不支持VBScript的。
　　如果对我们的回答存在任何疑问，欢迎继续问询。

追问

我也明白，但我想把这段代码改成能兼容谷歌和火狐的js代码,不知道能改不？

追答

目前只有javascript可以跨浏览器运行，您只有将这些代码实现的功能用javascript的语法翻一遍了。但是看到您使用了大量vbscript的特有函数，这些函数您在js下得自己实现一下。