asp可以实现,但javascript很难跨域操作

解决方案 »

  1.   

    <%
    function getcode(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
    getcode = finalstr
    end function
    set iconnect = createobject("Microsoft.XMLHTTP")
    icode = iconnect.open ("GET","http://www.***.com",false) 
    iconnect.send()
    myhtml = getcode(iconnect.responsebody)
    '这里对对读过来的myhtml是HTML格式,过滤掉特殊标志,用fso保存!其实过滤这一布就不好做!
    set iconnect=nothing 
    %>
      

  2.   

    用xmlhttp,得到responseText属性,就可以了。至于你要保存到本地文件,用fso操作吧