首页 相关文章 使用XMLHTTP制作域名查询系统

使用XMLHTTP制作域名查询系统

<%
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.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body,Cset)
...[ 查看全文 ]

2016-01-29 标签:

使用XMLHTTP制作域名查询系统的相关文章

手机页面
收藏网站 回到头部