一聚教程网:一个值得你收藏的教程网站

热门教程

WebService实例-域名查询~

时间:2022-07-02 11:24:07 编辑:袖梨 来源:一聚教程网

接口说明文档:
http://whois.aspsir.com/whois.asmx?wsdl
  
程序代码:







www.


<%
strDomain = Request.Form("strDomain")
strUrl = "http://whois.aspsir.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)

热门栏目