asp域名查询 - 编程论坛

#2

hmhz2009-12-18 10:28

你要有Whois 查询的接口地址，自己写是可以的，我记得以前看到过有asp写的域名信息查询的程序，你网上搜搜这样的源代码

#3

lele20072009-12-18 15:33

你要有Whois 查询的接口地址

版主，Whois接口地址我们应该有了。。我帅兄他们团队是新网金牌代理，域名。。，是新网的。。应该是有这个接口。。不知道有没有相关的例子可以参考一下。

我在网上搜索的有些是用ajax的小偷技术，还是调用了另人已写好的。。

如果有 Whois接口。。接下来应该做什么工作实现呢？

#4

hmhz2009-12-19 09:48

要是真有这个接口，那就通过这个接口所传送的参数相应会返回需要的信息
或者通过接收参数来得到相应的参数，就像paypal支付系统的IPN返回接口一样
所有的内容都会返回，但你可以选择性的接收你需要的内容就可以了
虽然Whois 这个接口我没有接触过，但理论上应该是相同的，复杂一点基本上会采用API技术

#5

lele20072009-12-21 19:17

噢。。
又要学习了

#6

lele20072010-01-17 13:35

呵呵。用这个实现了。。这个比接口快捷方便些。。

<%
'禁止缓存
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
response.Charset = "UTF-8"
dim xmlhttp,html,url,domain
domain = Cstr(request.QueryString("domain"))
url = "http://www.
set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.send()
html = xmlhttp.responseText

'------------------------我是谁谁？我是分割------------------------
'开始截取字符
dim StartStr,EndStr,OkHtml
StartStr = Instr(html,"")
EndStr = Instr(html,"")
OkHtml = mid(html,StartStr,EndStr-StartStr)
if Instr(OkHtml,"Found<br/>")>0 then
response.write "<font color='red'>乐乐提示：此域名未被注册</font>"
else
response.write OkHtml
end if
response.end
%>

谢谢。。hmhz

效果浏览地址：http://whois.

[ 本帖最后由 lele2007 于 2010-1-17 13:38 编辑 ]