当前位置:编程学习 > asp >>

谁有中英文域名查询的asp代码啊?

就是能查询域名的代码 ,英文、中文都能查询的。
答案:<% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(jnkcUrl) Dim jnkcXMLHTTP Set jnkcXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") jnkcXMLHTTP.Open "GET", jnkcUrl, False, "", "" jnkcXMLHTTP.Send getHTTPPage = jnkcXMLHTTP.ResponseText Set jnkcXMLHTTP = Nothing End Function %>  
.com .net .org .info
<% if request.Form("Submit")="查询" then types=split(request.form("checkbox"),",") '获取当前选择的类型 dns=trim(request.form("dns")) for i=0 to ubound(types) ext=replace(trim(types(i)),".","") 'url=" http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&trim(types(i)) url=" http://panda.www.net.cn/cgi-bin/check_muitl.cgi?domain="&dns&"."&ext&" " wstr=getHTTPPage(url) if instr(wstr,"Domain name is not available")>0 then mes="已被注册" elseif instr(wstr,"Domain name is available")>0 then mes="未被注册 我要注册" else mes="网络延迟,请重新查找!" end if response.write ""&dns& "."&trim(types(i))&" " & mes & "
" next elseif request.Form("Submit")="中文查询" then types=split(request.form("checkbox"),",") '获取当前选择的类型 dns=trim(request.form("dnsmain")) for i=0 to ubound(types) ext=replace(trim(types(i)),".","") 'url=" http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&trim(types(i)) //多域名查询 url=" http://panda. www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&ext wstr=getHTTPPage(url) if instr(lcase(wstr),"已被注册的域名")>0 then mes="已被注册!" elseif instr(lcase(wstr),"未被注册的域名")>0 then mes="未被注册!"

上一个:用asp做快递系统,如何实现自动编号
下一个:怎样把ASP动态页转换成静态页

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,