有谁有关于域名搜索是否注册的代码

[oscardon]

我找了好多，都用不了，还有很多没有必要的其它内容，只求域名搜索代码，

[kavenkk2]

人家要 域名 是否被注册的代码。。

[netdust]

自己做一下吧，不难的
用下面的函数向某个页面提交然后获取结果，通过返回结果的某些字符判断来确定结果。

<%
Rem 获取动态文件内容
Function getAspContent(ByVal url)
Dim xh
Set xh = Server.CreateObject("MicroSoft.XMLHTTP")
xh.Open "GET",url,false
xh.Send()
If xh.Status = 200 Then
getAspContent = streamToChar(xh.ResponseBody)
End If
Set xh = Nothing
End Function

Rem 转换流为字符
Function streamToChar(ByVal strStream)
Dim stream,s
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1
stream.Mode = 3
stream.Open()
stream.Write(strStream)
stream.Position = 0
stream.Type = 2
stream.Charset = "gb2312"
s = stream.ReadText()
stream.Close()
Set stream = Nothing
streamToChar = s
End Function
%>