呵呵。用这个实现了。。这个比接口快捷方便些。。
<%
'禁止缓存
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,"<!--bottom-->")
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 编辑 ]