54SA.COM|专注于系统运维管理,为中国SA提供动力!

54SA.COM|系统运维网

系统管理员之家Banner
当前位置: 主页 > Windows > 服务器 > WEB >

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

分享到:
时间:2010-10-28 21:29来源:未知 作者:Matin

  查询表单:

www.___ [查询]

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

程序代码:

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)

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

%>



接口说明文档:


[责任编辑:Lavy]

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
用户名:
最新评论 进入详细评论页>>