用responseXML返回,服务端写XML

解决方案 »

  1.   

    <script language=vbscript>
    function codeChange(str)
    finalstr = ""
    for i = 1 to lenb(str)
    icharcode = ascb(midb(str,i,1))
    if icharcode < &H80 then
    finalstr = finalstr & chr(icharcode)
    else
    inextcode = ascb(midb(str,i+1,1))
    finalstr = finalstr & chr(clng(icharcode) * &H100 + cint(inextcode))
    i = i + 1
    end if
    next
    codeChange = finalstr
    end functionfunction getXML(Url)
    set connect = createobject("Microsoft.XMLHTTP")
    call connect.open ("GET",Url,false) 
    connect.send()
     getXML= codeChange(connect.responsebody)
    end function
    </script>
      

  2.   

    就是用VBS效率太差了,遇到对方网页大点就很长时间没反映
      

  3.   

    1.htm文件在本机运行没有问题,但反对服务器上就会提示“没有权限”
      

  4.   

    如果长时间没反映,用XMLHTTP的异步执行。
    这里有好多代码,查一下。
      

  5.   

    ASP的服务器端运行的代码一切正常,只是太慢,取新浪等网站的内容时太慢,经常把服务器搞死想换成客户端运行的JS,减轻服务器的压力,谁知有这么多问题
    1、JS中用XMLHTTP获取时出现乱码,JS下无法转换,用VBS转换效率太差,慢
    2、本机上运行HTM文件中的XMLHTTP时一切正常,放到服务器上就出现“没有权限”的错误,必须降低IE的安全级别才行算了,我放弃,等今后有时间用DLL试试