最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
WebService实例-域名查询~
时间：2022-07-02 11:24:07 编辑：袖梨 来源：一聚教程网
接口说明文档:
http://whois.*a*sp*sir.com/whois.asmx?wsdl
程序代码：
strDomain = Request.Form("strDomain")
strUrl = "http://whois.*asps*i*r.com/whois.asmx/Lookup?strDomain=" & strDomain & ""
Set oXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
oXmlHttp.Open "GET", strUrl, False
oXmlHttp.Send()
If oXmlHttp.readyState 4 Then Response.Write Err.Description
strResult = bytes2BSTR(oXmlHttp.responseBody)
If Instr(strResult,"No match")0 Then
Response.Write "域名[www." & strDomain & "]居然还没有被注册!"
Else
Response.Write "呵呵,来晚了一步!域名已经被注册~"
End If
Set oXmlHttp = Nothing
Function bytes2BSTR(vIn)
http://whois.*a*sp*sir.com/whois.asmx?wsdl
程序代码：
strDomain = Request.Form("strDomain")
strUrl = "http://whois.*asps*i*r.com/whois.asmx/Lookup?strDomain=" & strDomain & ""
Set oXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
oXmlHttp.Open "GET", strUrl, False
oXmlHttp.Send()
If oXmlHttp.readyState 4 Then Response.Write Err.Description
strResult = bytes2BSTR(oXmlHttp.responseBody)
If Instr(strResult,"No match")0 Then
Response.Write "域名[www." & strDomain & "]居然还没有被注册!"
Else
Response.Write "呵呵,来晚了一步!域名已经被注册~"
End If
Set oXmlHttp = Nothing
Function bytes2BSTR(vIn)
相关文章
- 无主之地4支线任务适配肢体怎么做 支线任务适配肢体图文攻略 09-16
- 崩坏星穹铁道3.6版本抽数统计一览 09-16
- 原神操作盈月之镜内的机关操作流程 09-16
- 地下城堡4骑士与破碎编年史军团币获取途径 09-16
- 无主之地4支线任务适配肢体归来怎么完成 支线任务适配肢体归来图文攻略 09-16
- 无主之地4支线任务无人机游侠怎么做 支线无人机游侠图文攻略 09-16