<%
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="未被注册!"
else
mes="网络延迟,请重新查找!"
end if
response.write dns & "." & trim(types(i)) & ":" & mes & "
"
next
end if
%>
