当前位置:主页 > TAG标签 > XMLHTTP
  • 使用XMLHTTP制作域名查询系统 日期:2009-02-17 19:05:35 点击:195 好评:0

    <% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft....

    共1页/1条
推荐内容