纵横随心邮
<% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(jnkcUrl) Dim CJXMLHTTP Set CJXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") CJXMLHTTP.Open "GET", jnkcUrl, False, "", "" CJXMLHTTP.Send getHTTPPage = CJXMLHTTP.ResponseText Set CJXMLHTTP = Nothing End Function %>
<%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?area_domain="&dns&"."&trim(types(i))&" " 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 "" next %>
"&dns& "."&trim(types(i))&"" & mes & "
<%end if%>

国际域名 .com    .net    .org
国内域名
新增域名 .info   .biz