域名查询的数据库接口?

mosane 2002-07-31 10:20:07
域名在线查询,就象新网、万网等等。

那个数据库不是我们更新的,也不是哪个提供商能够提供的,
是国际通用的。

很多网站都有域名查询的功能,不知道他们是怎么做的?
...全文
86 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
freezwy 2002-08-05
这个其实就是利用别人的系统,自己提交数据,然后取得结果并分析结果,输出你自己的结果就是了。
回复
dgz01 2002-08-05


*****
打工好辛苦
*****
钞票好难赚
*****
编程好伤神
*****
光阴好易混
*****
回复
mosane 2002-08-03
http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain"
支持中文域名吗?

有哪些是支持中文域名的?
回复
ehom 2002-08-03
NIC都不知道?NIC只管国际顶级域名!包括".com,.net,.org,.info,.name,.biz等等",".CC"和".TV"有它们的管理机构,中文域名是cnnic(中国互联网络信息中心)搞的,和3721的一样,实际应用价值不大!

中文域名信息的取得比较复杂,因为它返回的是表格,而非一段<pre></pre>的代码!像中国频道是直接调用CNNIC的查询系统返回详细资料!
http://cwhois.cnnic.net.cn/whois.jsp?entityname=domain&queryinfo=

当然分析其HTML代码也可以,代码要改!
回复
ehom 2002-08-03
NIC都不知道?NIC只管国际顶级域名!包括".com,.net,.org,.info,.name,.biz等等",".CC"和".TV"有它们的管理机构,中文域名是cnnic(中国互联网络信息中心)搞的,和3721的一样,实际应用价值不大!

中文域名信息的取得比较复杂,因为它返回的是表格,而非一段<pre></pre>的代码!像中国频道是直接调用CNNIC的查询系统返回详细资料!
http://cwhois.cnnic.net.cn/whois.jsp?entityname=domain&queryinfo=

当然分析其HTML代码也可以,代码要改!
回复
ehom 2002-08-02
http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain"
使用的是NIC的域名查询,查询国际域名它最好!

你可以使用几家域名管理机构的查询组合一下,当然也需要你自己写多些代码!

或者使用现成的!但原理都是取<pre></pre>中的代码!
http://210.192.103.70:801/whois2.php?domain=csdn&net=yes&work=whois //万网,net=yes表示后缀为.net
http://www.china-channel.com/checkdomain.asp?action=whois&domain= //中国频道,它支持.cc
http://bizcn.com/domainreg?module=whoisreg&domainname= //商务中国

中文域名也可以通过同样的方法获得!

你要的列表当然可以!用个循环获得域名有无注册(前半段代码)!然后根据结果动态生成带链接的域名列表!
回复
mosane 2002-08-02
谢谢。。因为这段代码有一点点错误,所以只看到“意外的错误”,我还以为没有详细信息呢,现在改好了:)谢谢。。

还有没有多一点地址?象上面这些:
http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain"
http://www.china-channel.com/checkdomain.asp?action=whois&domain=" & Domain
好象这两个都不能支持.中国、.CC等后缀。。??有什么解决方法吗?

这个一次只能查一个后缀,那就要把获取的信息分成列表再一个个查询,有没有更直接的方法?或者有没有完整点的源代码?

真的太谢谢了。解决了我再加200分。谢谢。:)
回复
ehom 2002-08-02
咳,说了半天,你根本没懂!难过!
回复
ehom 2002-08-02
上面的就是详细信息!
回复
nice90 2002-08-02
这个程序好象只能够在2000server下运行,因为里面才有Microsoft的XMLHTTP组件。
回复
nice90 2002-08-02
学习
to:ehom,你以前的气象预报系统同样是做了一个域名转换,那个函数同你今天这个大概是一致的。
回复
mosane 2002-08-02

反正查询某个已经注册的域名的详细信息又应该怎么查呢?

谢谢。
回复
ehom 2002-08-02
这不是什么接口!只是一点小技巧!
从查询到页面的HTML代码中截取出
<pre></pre>中的内容,其内容就是域名注册资料!
回复
mosane 2002-08-02

太谢谢你了。。

那想查询某个已经注册的域名的详细信息又是哪个接口?谢谢。
回复
ehom 2002-07-31
<%
on error resume next
Private d_exsit
Dim Retrieval
Dim Domain
Dim TakenHTML
Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
End With
Set Retrieval = Nothing
End Function
Domain = Replace(Request.Form("domain"),"www.","") & "." & Request.Form("ext")
if Domain=".com" or Request.Form("domain")="" then
Response.Write ("<script>alert('看看您什么忘记填写了?没有填写域名吧?');javascript:history.back(1)</script>")
response.end
end if
'TakenHTML = GetURL("http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain")
TakenHTML = GetURL("http://www.china-channel.com/checkdomain.asp?action=whois&domain=" & Domain)
d_exsit=1
if InStr(TakenHTML,"No entries") > 1 then

Response.Write Domain & "出错了,请返回!<br><br>"
else
if InStr(TakenHTML,"No match") > 1 then %>
祝贺您,您想注册的域名 <% =Domain %> 还没有被注册<p><a href="#" onClick="MM_openBrWindow('../formmail/domain.htm','','scrollbars=auto,width=500,height=500')">
点击这里,开始注册您的域名</a></p></font>
<% else %>
<font color="red"><br>很抱歉</font> 您想注册的域名 <% =Domain %> 已经被注册了!<p></p>请您换个域名再试</font>
<form method="post" action="search.asp" name="checkdomain" id=Form1>
www.<input type="text" name="domain" id=Text1>
<select name="ext" id=Select1>
<option value="com" selected>.com</option>
<option value="net">.net</option>
<option value="org">.org</option>
<option value="com.cn">.com.cn</option>
<option value="net.cn">.net.cn</option>
<option value="org.cn">.org.cn</option>
<option value="cc">.cc</option>
<option value="tv">.tv</option>
<option value="biz">.biz</option>
<option value="info">.info</option>
</select>
<input type="submit" name="Submit" value="查询" id=Submit1 onClick = "return submitchecken();">
</form>以下是此域名的详细注册信息<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% end if
end if
Function dowith()
Dim lStrURL
Dim pagebefore
Dim pageafter
Dim tempcontent
Dim pagestart
Dim pageend
dim temps
pageafter = "<PRE>"
pagebefore = "</PRE>"
tempcontent = TakenHTML
if d_exsit<>0 then
pagestart = InStr(1,tempcontent, pageafter,1)
If pagestart = 0 Then
dowith = "<font color=""red"">意外的错误2!</font>"
d_exsit = 3
Exit Function
Else
pagestart = pagestart + Len(pageafter) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
If pageend = 0 Then
dowith = "<font color=""red"">意外的错误!</font>"
d_exsit = 3
Exit Function
Else
pageend = pageend - pagestart '得到内容长度
tempcontent = Mid(tempcontent, pagestart, pageend)
End If
End If
Set pageregexp = New RegExp
pageregexp.Global = True
pageregexp.Pattern = "<[^>]*>"
tempcontent = pageregexp.Replace(tempcontent, "")
Set pageregexp = Nothing
dowith = tempcontent
End If
End Function
%>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-07-31 10:20
社区公告
暂无公告