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

• 关 键 词：
• microsoft
• server
• asp
• rip

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.qqread.com/network/server/j261348.html 更多内容请看SQL Server 索引和查询专题专题，或进入讨论组讨论。

【深 度 阅 读】 相 关 文 章

成人专用域名.xxx再度推迟

同一IP地址实现多域名对应多个Web站点

用好Excel的“区域名称”功能

新网再次被黑 大规模域名遭遇故障