asp域名查询代码

<%@ Language=VBScript %>
<%
Dim objDNS, strDomain, strIPAddress

strDomain = "example.com" ' 替换为你要查询的域名
Set objDNS = Server.CreateObject("MSXML2.ServerXMLHTTP")

' 使用DNS查询获取IP地址
objDNS.Open "GET", "http://dns.google/resolve?name=" & Server.URLEncode(strDomain) & "&type=A", False
objDNS.Send

' 解析响应获取IP地址
Dim xmlDoc
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.Async = "False"
xmlDoc.LoadXML(objDNS.responseText)

Dim xmlNodeList, xmlNode
Set xmlNodeList = xmlDoc.getElementsByTagName("address")
If xmlNodeList.Length > 0 Then
    Set xmlNode = xmlNodeList(0)
    strIPAddress = xmlNode.Text
    Response.Write "域名 " & strDomain & " 的IP地址是：" & strIPAddress
Else
    Response.Write "无法查询到域名 " & strDomain & " 的IP地址"
End If

Set objDNS = Nothing
Set xmlDoc = Nothing
%>