<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>