接口说明文档:

http://whois.ASPsir.com/whois.asmx?wsdl

程序代码：

<%

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)

Dim strReturn

Dim I, ThisCharCode, NextCharCode

strReturn = ""

For I = 1 To LenB(vIn)

ThisCharCode = AscB(MidB(vIn, I, 1))

If ThisCharCode < &H80 Then

strReturn = strReturn & Chr(ThisCharCode)

Else

NextCharCode = AscB(MidB(vIn, I + 1, 1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

I = I + 1

End If

Next

bytes2BSTR = strReturn

End Function

%>

接口说明文档:

http://whois.ASPsir.com/whois.asmx?wsdl