标题: WebService 实例-域名查询功能实现 [打印本页] 作者: 有谁是你 时间: 2009-1-5 09:02 标题: 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
接口说明文档:
<