WebService 实例-域名查询功能实现
查询表单： www.___ [查询] 域名居然还没有被注册! 程序代码： 4 Then Response.Write Err.Description strResult = bytes2BSTR(oXmlHttp.responseBody) If Instr(strResult,"No match")0 Then Response.Write "域名居然还没有被注册!" 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接口说明文档:
<
页:
[1]