WebService实例-域名查询功能实现

www.___ [查询]

域名[www.stefli.com]居然还没有被注册!

程序代码：

<%

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://www.ltesting.net