WebService实例-域名查询~

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- WebService实例-域名查询~ (http://www.webasp.net/article/13/12795.htm)
-- 作者：未知
-- 发布日期： 2004-09-03
接口说明文档:
http://whois.aspsir.com/whois.asmx?wsdl
　　
程序代码：

<form name="form1" method="post" action="test.asp">
<table width="318" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="36"><div align="right">www.</div></td>
<td width="218"><input name="strDomain" type="text" id="strDomain" value="stefli.com" size="30" maxlength="30"></td>
<td width="42"><input type="submit" name="Submit" value="查询"></td>
</tr>
</table>
</form>
<%
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
%>
<br>
<br>
接口说明文档:<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;http://whois.aspsir.com/whois.asmx?wsdl

webasp.net