使用xml http为网站增加域名查询功能,使用xml http为网站增加域名查询功能
【 tulaoshi.com - ASP 】
当我们准备建立一个Web站点时,就必须向域名登记机构申请一个Internet域名,因此,我们通常希望了解自己准备使用的域名是否已经被注册,这时,可以访问NIC站点http://www.nic.net,点击"whois"链接后输入需查询的域名,就可以得到我们需要的结果。
<script language="vbscript">
Sub submit1_onmouseup '当点击“查询”按钮时触发;
Dim objXML, objXSL, objFSO,strFile, strFileName, strXSL,strURL,TheForm
Set TheForm = Document.wordfind
window.status="正在检索数据···"
strURL="dns.asp"
Set objXML = CreateObject("Microsoft.XMLHTTP") '创建MS的XMLHTTP组件;
stra = "submit=submit&fqdn="&TheForm.words.value
objXML.Open "post",strURL,false '采用Post提交方式;
objXML.setrequestheader "content-length",len(stra)
objXML.setrequestheader "content-type","application/x-www-form-urlencoded"
objXML.send stra ' 发送信息
xmlGet = objXML.responseText '稍等片刻后,得到服务器端传回来的结果;
if instr(1,xmlGet,"This is not a valid .com .net .org .info or .biz domain name",1)<1 and len(trim(xmlGet))>100 then
if instr(1,xmlGet,"This domain is available",1)<1 then
if instr(1,xmlGet,"Registrant:",1) then
strFind1 =instr(1,xmlGet,"Registrant:",1)
else
strFind1 = instr(1,xmlGet,"<pre><FONT face=""Verdana, Arial",1)+65
strFind2 = instr(1,xmlGet,"</FONT></pre>",1)
strFind4=strFind2-strFind1
sHTML = mid(xmlGet,strFind1,strFind4)
TheForm.comments.value="查询结果:"+chr(13)+chr(10)+sHTML
window.status="查询结果:该域名已被占用"
else
TheForm.comments.value="恭喜你,此域名可用!"
window.status="查询结果:该域名仍然处于可用状态!"
end if
else
TheForm.comments.value= "无效的国际顶级域名!请输入以(.com .net .org .info or .biz)结尾的国际域名, 例如sun.com"
window.status="无效的国际顶级域名!请输入以(.com .net .org .info or .biz)结尾的国际域名, 例如CCTV.com"
end if
Set objXML = Nothing
end sub
</script>
<html><head><title>XMLHTTP之域名查询篇</title></head>[next]
<body bgColor=#cccca3>
<form method="post" name=wordfind onsubmit="javascript:return false">
请输入域名名称:<input type="text" value="cctv.com" name="words" size="69">
<input type="submit" value="查询" id=Submit1 name=Submit1>
<TEXTAREA name=comments readonly rows=10 cols=76></TEXTAREA>
</form></body></html>
<%dim xmlGet,objXML, objXSL, objFSO,strFile, strFileName, strXSL,strURL
xmlGet=""
if len(trim(Request.form("fqdn"))) > 1 then
strURL="http://www.domainbank.net/whoisresults_gen.cfm?show
来源:http://www.tulaoshi.com/n/20160129/1500448.html
-
上一篇:
FIF小组ASP互动视频教程
-
下一篇:
清除Windows系统垃圾详解
看过《使用xml http为网站增加域名查询功能》的人还看了以下文章
更多>>
-
使用xml http为网站增加域名查询功能
01-29
-
使用xmlhttp为网站增加域名查询功能
02-19
-
使用xmlhttp为网站增加股市行情查询功能
01-29
-
使用w3Sockets组件实现域名查询功能
01-29
-
使用XMLHTTP制作域名查询系统
01-29
-
使用XML HTTP发送超长XML表单数据
02-19
-
使用Flex结合Webservice完成域名查询
01-29
-
多个域名后缀同时查询的域名查询系统
01-29
-
XML入门指南(17)XML HTTP 请求
02-19
-
域名查询代码公布
01-29
延伸阅读
标签:
Web开发
html head title不刷新页面查询的方法/title meta http-equiv="Content-Type" content="text/html; charset=gb2312" /head script language="javascript" !--初始化,将数据岛中数据装入列表框中-- function loadinsel() { var employeeid,employeelastname; //分别...
标签:
ASP
<html <head <title不刷新页面查询的方法</title <meta http-equiv="Content-Type" content="text/html; charset=gb2312" </head <script language="javascript" <!--初始化,将数据岛中数据装入列表框中-- function loadinsel() { var employeeid,employeelastname; ...
标签:
PHP
<? if (isset($xx)) { $dodo=@file("http://www.e9china.com/cgi-bin/comdns.pl?raw=1&lookup=OK&fqdn=".$fqdn."&domain=".$domain."&root=".$root."&cdomain=2.7"); $i=0; while($dodo[$i]) { echo $dodo[$i];...
标签:
SQLServer
由于XML本身的诸多优点,XML技术已被广泛的使用,目前的好多软件技术同XML紧密相关,比如微软的。net 平台对xml提供了强大的支持,提供System.Xml以及其子命名空间下的类型来操作xml.Ado.net通过核心类型DataSet出色的把关系型数据库同xml进行了紧密集成。由于平常许多开发人员使用。net 来操作Sql server的到数据集后再转换成xml,所以往往忽略...
如果您有什么好的建议或者疑问,可以联系我们。 商务合作QQ:3272218541;3282258740。商务合作微信:13319608704;13319603564。
加好友请备注机构名称。让我们一起学习、一起进步tulaoshi.com 版权所有 © 2019 All Rights Reserved. 湘ICP备19009391号-3
微信公众号