利用XMLHTTP的国际域名查询系统源代码（一个页面，无需另外组件，原帖另附QQ在线状态检测）

刚刚心血来潮，编了一个国际域名查询的功能页面，比较简单，没有做什么美化和修饰，主要利用了服务器端的XMLHTTP访问第三方服务器实现域名查询功能。

有兴趣的朋友可以美化一下放在自己的网站上对外提供域名查询服务了。：）

国际域名查询系统：

 1   
 2Option Explicit   
 3Dim Domain,jnkcHTML,jnkcOutPut   
 4Domain = Request("domain")   
 5If Domain & "x" = "x" Then   
 6jnkcHTML = ""   
 7Else   
 8jnkcHTML = GetDetail("http://www.networksolutions.com/cgi-bin/whois/whois?SearchType=do&STRING=" & Domain)   
 9'这里也可以换成其他查询网址，但是下面的判断也应作相应修改。   
10End If   
11  
12Function GetDetail(jnkcUrl)   
13Dim jnkcXMLHTTP   
14Set jnkcXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")   
15jnkcXMLHTTP.Open "GET", jnkcUrl, False, "", ""   
16jnkcXMLHTTP.Send   
17GetDetail = jnkcXMLHTTP.ResponseText   
18Set jnkcXMLHTTP = Nothing   
19End Function   
20  
21If InStr(jnkcHTML,"Incorrect domain name query") > 1 Then   
22jnkcOutPut = "请输入正确的域名格式，如： CSDN.NET"   
23ElseIf InStr(jnkcHTML,"This name is available for registration") > 1 Or InStr(jnkcHTML,"No match") > 1 Then   
24jnkcOutPut = Domain & " 没有被注册，你可以马上注册"   
25ElseIf InStr(jnkcHTML,"Record expires on") > 1 Then   
26jnkcOutPut = Domain & " 已经被注册，以下是该域名的注册信息："   
27jnkcOutPut = jnkcOutPut & GetInfo()   
28ElseIf jnkcHTML = "" Then   
29jnkcOutPut = ""   
30Else   
31jnkcOutPut = "域名服务器出错"   
32End If   
33  
34Function GetInfo()   
35Dim jnkcStart,jnkcEnd,jnkcLength   
36jnkcStart = InStr(jnkcHTML,"

<pre") jnkcend='InStr(jnkcHTML,"</pre'>")
jnkcLength = jnkcEnd-jnkcStart+6
If jnkcStartjnkcEndjnkcLength > 1 Then
GetInfo = Mid(jnkcHTML,jnkcStart,jnkcLength)
GetInfo = DelA(GetInfo)
Else
GetInfo = "发生未知错误"
End If
End Function

Function DelA(jnkcValue)
Dim jnkcRegExp
Set jnkcRegExp = new RegExp
jnkcRegExp.IgnoreCase = true
jnkcRegExp.Global = True
jnkcRegExp.Pattern = "(<a[^>]>)(.)(</A>)"
DelA = jnkcRegExp.Replace(jnkcValue,"$2")
Set jnkcRegExp = Nothing
End Function

 1<html>
 2<head>
 3<title>江南昆虫国际域名查询系统</title>
 4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 5<meta content="EditPlus" name="Generator"/>
 6<meta content="JnKc" name="Author"/>
 7<meta content="" name="Keywords"/>
 8<style type="text/css">   
 9*{font-size:12px}   
10</style>
11</head>
12<body>
13<table align="center" width="600">
14<tr>
15<td><form method="get">
16<h3 align="center">江南昆虫国际域名查询系统</h3>   
17请输入要查询的域名：（如：csdn.net） <input name="domain"/><input type="submit" value="查询"/><br/>   
18本系统支持的域名为：[.com,.net,.org,.edu,.tv,.us,.name,.cc,.bz,.ws,.de,.be,.info,.biz]   
19</form>
20<hr/>```
21= jnkcOutPut

```