asp+XMLHTTP的国际域名查询系统(whois)源代码
来源:IT资讯站 发布时间:2008-02-16 09:23:00
标签:XMLHTTP,域名,查询,asp
刚刚心血来潮,编了一个国际域名查询的功能页面,比较简单,没有做什么美化和修饰,主要利用了服务器端的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>
0
投稿
猜你喜欢
- 很久之前就对jQuery.animate的实现非常感兴趣,不过前段时间很忙,直到前几天端午假期才有时间去研究。jQuery.animate的
- 数据库镜像方案有两种镜像运行模式。一种是“高安全性模式”,它支持同步操作。在高安全性模式下,当会话开
- 今天遇到这个问题,上网查到以下解决方法:1.检查你的磁盘剩余空间是否足够,如果没有磁盘剩余空间,则清理磁盘,腾出空间
- 使用cookie来判断来访者身份,是否是首次登陆, asp代码实例如下:< %@ LANGUAGE=&q
- 看lifesinger的《由Kimi找茬想到的》,我想到的:1、 我不同意将“合并付款”定调在“很多卖家都需要”。这个“很多”在卖家里面大概
- function chinese2unicode(Str) &nbs
- 1、关于页面元素的引用通过jquery的$()引用元素包括通过id、class、元素名以及元素的层级关系及dom或者xpath条件等方法,且
- 摘要: 本文由简到繁地介绍了以jQuery作为蓝本的js框架开发步聚, 希望借助本文大家对jQuery这样的框架内部有一个大致的认识。推荐:
- 经常看见有人问,MSSQL占用了太多的内存,而且还不断的增长;或者说已经设置了使用内存,可是它没有用到那么多,这是怎么一回事儿呢? 首先,我
- 许多人利用Session变量来开发ASP(Active Server Pages)。这些变量与任何编程语言中通用的变量非常相似,并且具有和通
- FrontPage 2003在功能上增强了不少,下面我们一起来看看新版本中比较突出的9个新功能。1.自定义浏览器分辨率预览检查 在
- 注意,在改变数值之前锁定应用,确保一段时间里只有一个客户执行该语句。<SCRIPT LANGUAGE="VBScr
- 1.1.1 摘要 相信大家对于SQL Transcation再熟悉不过,它确保了数据库的数据一致性和安全性,尤其在对数据执行增删时,如果发生
- 如何对设计进行评判,一定有很多答案,有利有弊。问100位设计师,会得到100种回答。用线上PV、UV等数据说话,更多受产品属性、运营动作影响
- 本人就职于一个本地门户网站,每天网站上的天气都得更新。久而久之感到相当麻烦,于是写了一个定时的新闻小偷,帖出来大家参考一下系统
- 问题:如何把具有相同字段的记录删除,只留下一条。 例如:表test里有id,name字段,如果有name相同的记录只留下一条,
- 什么是1433端口 1433端口,是SQL Server默认的端口,SQL Server服务使用两个端口:TCP-1433、UDP-1434
- 随着CSS3越来越热,CSS3动画也逐渐受到大家的关注。这次有幸修改淘宝网全站页头,小小地应用了下(详见http://www.taobao.
- 如何用POP3接收电子邮件?POP3大行其道,我看见朋友已经用Jmail和POP3接收邮件了。该如何做?以Jmail4.1为例,我们演示一下
- 其主要的优点便是无需再手工添加大量的信息了,可以指定对某一个站信息的截取进行批量录入,达到省时省力的目的。与其单纯的ASP小偷程序不同的是: