WebService实例-域名查询~

最新推荐文章于 2021-08-02 19:35:06 发布

stefli

最新推荐文章于 2021-08-02 19:35:06 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP 文章标签： webservice function input 文档 border action

本文链接：https://blog.youkuaiyun.com/stefli/article/details/78345

ASP 专栏收录该内容

15 篇文章

订阅专栏

博客展示了一个域名注册查询表单，用户可输入域名进行查询。同时给出了相关程序代码，通过调用接口判断域名是否已注册，并提供了接口说明文档的链接。代码中包含表单提交、HTTP请求及字节转换函数等内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

查询表单：

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 = strReturn
End Function
%>
<br>
<br>
接口说明文档:<br>
<br>
    http://whois.aspsir.com/whois.asmx?wsdl