Function IEBinary_getByteAt(strBinary, iOffset)
IEBinary_getByteAt = AscB(MidB(strBinary, iOffset + 1, 1))
End Function
Function IEBinary_getBytesAt(strBinary, iOffset, iLength)
Dim aBytes()
ReDim aBytes(iLength - 1)
For i = 0 To iLength - 1
aBytes(i) = IEBinary_getByteAt(strBinary, iOffset + i)
Next
IEBinary_getBytesAt = aBytes
End Function
Function IEBinary_getLength(strBinary)
IEBinary_getLength = LenB(strBinary)
End Function
我在下载页面打包下载了包含Zepto的全部组件的压缩版。 把http://tgideas.github.io/motion/component/demo/slide/demo5.html 这个页面除了js改为本地加载了以外原封不动的copy下来,然后运行没有效果,还在页面里多了一段vbscript