asp页面中，如何查询域名是否已被注册 ？

[hanjie28]

大家都知道卖 域名注册 的网站有 域名查询 ，请问是如何提交查询是否已经被注册的？
随便一个网站，例如：http://www.paycity.com.cn/domain/domain.asp
能详细介绍下最好，或给个代码。
我QQ：3100974

[hanjie28]

自己顶下，急啊

[sky0120]

On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

if request("domain")<>"" then
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&"
root=trim(Replace(Request.Form("root")," ",""))
root="com,"&root
Allroot=split(root,",")
for i=0 to ubound(Allroot)
newurl=url&Allroot(i)&"=yes"
wstr=wstr&"|||"&getHTTPPage(newurl)
newurl=""
next
flag=split(wstr,"|||")
for i=1 to ubound(flag)
if instr(lcase(flag(i)),"已被注册的域名")>0 then
body="域名已经被注册"
elseif instr(lcase(flag(i)),"未被注册的域名")>0 then
body="域名未被注册"
else
body="网络延迟,请重新查找"
end if
Response.Write(Request.Form("domain")&"."&Allroot(i)&body&"<br/>")
next

end if

[sky0120]

http://community.csdn.net/Expert/topic/4689/4689078.xml?temp=.7533838

这里有解决方案

[netWild]

域名代理商通过代理密码和检测接口可以获取域名的注册状态

如果不是代理商，可以通过xmlhttp对域名检测网站抓取注册状态

另外一个办法就是把域名检测网站的检测界面放到iframe中

具体实现的方法不方便揭露，涉及到非法连接问题~~~嘿嘿