使用XMLHTTP制作域名查询系统的案例分析-创新互联
这篇文章给大家分享的是有关使用XMLHTTP制作域名查询系统的案例分析的内容。小编觉得挺实用的,因此分享给大家做个参考。一起跟随小编过来看看吧。
站在用户的角度思考问题,与客户深入沟通,找到华容网站设计与华容网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都做网站、网站设计、企业官网、英文网站、手机端网站、网站推广、域名注册、网站空间、企业邮箱。业务覆盖华容地区。如何使用XMLHTTP制作域名查询系统的代码案例
<% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = Nothing End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function %> <% if request("domain")<>"" then 'url=" referer=http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain") url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root") wstr=getHTTPPage(url) 'www.knowsky.com 'response.write Instr (wstr,"可以注册") if instr(lcase(wstr),"已被注册的域名")>0 then body="域名已经被注册" elseif instr(lcase(wstr),"未被注册的域名")>0 then body="域名未被注册" else body="网络延迟,请重新查找" end if end if %>
域名查询系统:<% if request("domain")>"" then response.Write(request("domain")&"."&request("root")&body) end if%> |
代码我已经在本地测试过了。正常通过。
感谢各位的阅读!关于使用XMLHTTP制作域名查询系统的案例分析就分享到这里了,希望以上内容可以对大家有一定的帮助,让大家可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到吧!
网站标题:使用XMLHTTP制作域名查询系统的案例分析-创新互联
地址分享:http://pwwzsj.com/article/gjjho.html