WebService实例-域名查询~

查询表单：

www.__________ [查询]
域名[www.stefli.com]居然还没有被注册!
　　
接口说明文档:
? 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 = strReturnEnd Function%><br><br>接口说明文档:<br><br>&nbsp;&nbsp;&nbsp;&nbsp;http://whois.aspsir.com/whois.asmx?wsdl