网络编程
位置:首页>> 网络编程>> XML编程>> 使用xml http为网站增加域名查询功能(2)

使用xml http为网站增加域名查询功能(2)

 来源:互联网 发布时间:2008-05-29 13:42:00 

标签:

二、ASP XmlHttp编程简述:

1、客户端html页面:


<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


0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com