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

有谁是你

　　查询表单： www.___ [查询] 域名[www.stefli.com]居然还没有被注册! 程序代码： 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 接口说明文档: <