asp+XMLHTTP的国际域名查询系统（whois）源代码
来源：IT资讯站 时间：2008-02-16 09:23:00
刚刚心血来潮，编了一个国际域名查询的功能页面，比较简单，没有做什么美化和修饰，主要利用了服务器端的XMLHTTP访问第三方服务器实现域名查询功能。
有兴趣的朋友可以美化一下放在自己的网站上对外提供域名查询服务了。：）
国际域名查询系统：
<％
Option Explicit
Dim Domain,jnkcHTML,jnkcOutPut
Domain = Request("domain")
If Domain & "x" = "x" Then
jnkcHTML = ""
Else
jnkcHTML = GetDetail("http://www.networksolutions.com/cgi-bin/whois/whois?SearchType=do&STRING=" & Domain)
'这里也可以换成其他查询网址，但是下面的判断也应作相应修改。
End If
Function GetDetail(jnkcUrl)
Dim jnkcXMLHTTP
Set jnkcXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
jnkcXMLHTTP.Open "GET", jnkcUrl, False, "", ""
jnkcXMLHTTP.Send
GetDetail = jnkcXMLHTTP.ResponseText
Set jnkcXMLHTTP = Nothing
End Function
If InStr(jnkcHTML,"Incorrect domain name query") > 1 Then
jnkcOutPut = "请输入正确的域名格式，如： CSDN.NET"
ElseIf InStr(jnkcHTML,"This name is available for registration") > 1 Or InStr(jnkcHTML,"No match") > 1 Then
jnkcOutPut = Domain & " 没有被注册，你可以马上注册"
ElseIf InStr(jnkcHTML,"Record expires on") > 1 Then
jnkcOutPut = Domain & " 已经被注册，以下是该域名的注册信息："
jnkcOutPut = jnkcOutPut & GetInfo()
ElseIf jnkcHTML = "" Then
jnkcOutPut = ""
Else
jnkcOutPut = "域名服务器出错"
End If
Function GetInfo()
Dim jnkcStart,jnkcEnd,jnkcLength
jnkcStart = InStr(jnkcHTML,"<pre")
jnkcEnd = InStr(jnkcHTML,"</pre>")
jnkcLength = jnkcEnd-jnkcStart+6
If jnkcStart*jnkcEnd*jnkcLength > 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
％>
<html>
<head>
<title>asp国际域名查询系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="JnKc">
<meta name="Keywords" content="">
<STYLE TYPE="text/css">
*{font-size:12px}
</STYLE>
</head>
<body>
<table width="600" align="center">
<tr>
<td><form method="get">
<h3 align="center">asp国际域名查询系统</h3>
请输入要查询的域名：（如：csdn.net） <input name="domain"><input type="submit" value="查询"><br>
本系统支持的域名为：[.com,.net,.org,.edu,.tv,.us,.name,.cc,.bz,.ws,.de,.be,.info,.biz]
</form>
<hr><％= jnkcOutPut ％>
</td>
</tr>
</table>
</body>
</html>
标签：XMLHTTP,域名,查询,asp
0
投稿猜你喜欢
网马解密大讲堂——网马解密中级篇(Eval篇)
2009-09-16 16:04:00
细品Dreamweaver MX 内建FW技术
2008-06-04 09:41:00
用户体验如何提升阿里巴巴的商业价值
2009-07-23 20:29:00
suggest项目总结-用户体验篇
2008-01-30 20:04:00
asp程序错误详细说明例表
2008-04-02 12:13:00
设计手机端应用时的一些建议
2011-05-14 16:45:00
XMLHTTP中setRequestHeader的参数问题
2008-09-30 10:48:00
混乱的标记语言XHTML2/HTML5
2009-07-31 14:27:00
浅谈JavaScript编程语言的编码规范
2010-08-18 12:08:00
分享SQL Server删除重复行的6个方法
2011-09-30 11:33:05
CSS改变字体而不影响网页
2010-10-20 20:11:00
图片滤镜效果[IE Only]
2009-06-14 19:49:00
ASP控制每页打印行数实例
2008-04-13 06:48:00
WorkBench管理操作MySQL
2010-10-14 14:21:00
MSSQL中递归SQL查询语句实例说明-
2011-09-30 11:42:43
让ASP也支持动态include文件
2008-05-08 13:00:00
6个网站改版时需要注意的问题
2010-02-26 10:47:00
网站重构到底是什么
2008-11-03 11:30:00
js页面文字选中后分享到新浪微博实现
2011-03-17 12:55:00
SQL的Join使用图解教程
2012-08-21 10:47:23
