想做个动态效果!请求JS代码
来源:百度知道 编辑:UC知道 时间:2024/06/30 06:37:30
请把详细的代码写下~~2边都要!
我在这里先谢谢拉~~~
回答的朋友请留下QQ号码~~我测试后正确的朋友有实物相送~~~
请大虾们指点小弟一下!
没人知道吗???
' VB Script Document
Function BytesToStr(Binary)
Dim ReturnStr,EnAscNum,CnAscNum
ReturnStr = ""
For I = 1 To LenB(Binary)
EnAscNum = AscB(MidB(Binary,I,1))
If EnAscNum < &H80 Then
ReturnStr = ReturnStr & Chr(Cint(EnAscNum))
Else
CnAscNum = AscB(MidB(Binary,I+1,1))
ReturnStr = ReturnStr & Chr(Clng(EnAscNum) * &H100 + Cint(CnAscNum))
I=I+1
End If
Next
BytesToStr = ReturnStr
End Function
把上面的代码保存为1.vbs
function GetHtmlStr(Url){
var XmlHttp_Request;
try{
if(window.XMLHttpRequest){
XmlHttp_Request=new XMLHttpRequest();
}
if(window.ActiveXObject){
XmlHttp_Request=new ActiveXObject("Microsoft.XMLHTTP")
}
XmlHttp_Request.open("GET",Url,false);
XmlHttp_Request.setRequestHeader("Conten