<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>域名查询</title>
<style type="text/css">
<!--
.STYLE1 {color: #3C3C3C}
-->
</style>
</head>

<body>
<span class="STYLE1">
<% 
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 
%> 
<style type="text/css"> 
<!-- 
body,td,th { 
font-family: 宋体; 
font-size: 12px; 
} 
--> 
</style> 

<script language="JavaScript"> 
<!-- 
function check() 
{ 
if (form1.dns.value=="") 
{ 
alert("请输入要查询域名"); 
form1.dns.focus(); 
return false; 
} 
if(form1.dns.value.length < 3 ) 
{ 
alert("域名不能少于三位"); 
form1.dns.focus(); 
return false; 
} 
} 
//--> 
</script> 
</span>
<table width="369" height="135" border="0" align="left" cellpadding="0" cellspacing="0" 
id="TABLEE"> 
<form method="post" name="form1" class="STYLE1" style="margin:0;padding:0;" onSubmit="javascript:return check()"> 
<tr> 
<td width="369" height="135" valign="top" background="images/dns_02.gif" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> 
<td height="30" valign="middle"><table width="100%" height="23" border="0" align="center" cellpadding="0" cellspacing="0" 
id="TABLE1"> 
<tr> 
<td width="42" height="23" align="center">www.</td> 
<td width="121" align="center"><input id="dns" type="text" size="15" name="dns" style="border:1px solid #ACACAC;" /></td> 
<td width="54" align="center"><input type="submit" value="查询" name="Submit" /></td> 
<td width="152"><% 
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="未被注册 <a href='tencent://message/?uin=390339146&amp;Site=&amp;Menu=yes' target='_blank'>我要注册</a>" 
else 
mes="网络延迟,请重新查找!" 
end if 
response.write "<b>"&dns& "."&trim(types(i))&"</b> <font color='#ff0000'>" & mes & "</font><br/>" 
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 & "<br/>" 
next 
end if 
%></td>
</tr> 
</table></td> 
</tr> 
<tr> 
<td height="13"><table width="100%" align="center" id="tablechecke"> 
<tr> 
<td width="92" height="25"><input id="checkbox" type="checkbox" checked="checked" value="com" name="checkbox" /> 
.com</td> 
<td width="89" height="25"><input type="checkbox" value="net" name="checkbox" /> 
.net </td> 
<td width="87" height="25"><input type="checkbox" value="org" name="checkbox" /> 
.org </td> 
<td width="81" height="25"><input type="checkbox" value="info" name="checkbox" /> 
.info </td> 
</tr> 
<tr> 
<td width="92" height="22"><input type="checkbox" value="biz" name="checkbox" /> 
.biz </td> 
<td width="89" height="22"><input type="checkbox" value="cc" name="checkbox" /> 
.cc </td> 
<td height="22"><input type="checkbox" value="tv" name="checkbox" /> 
.tv</td> 
<td width="81" height="22"><input type="checkbox" value="gov.cn" name="checkbox" /> 
.gov.cn</td> 
</tr> 
<tr> 
<td width="92" height="22"><input type="checkbox" value="com.cn" name="checkbox" /> 
.com.cn </td> 
<td width="89" height="22"><input type="checkbox" value="net.cn" name="checkbox" /> 
.net.cn </td> 
<td height="22"><input type="checkbox" value="org.cn" name="checkbox" /> 
.org.cn</td> 
<td width="81" height="22"><input type="checkbox" value="cn" name="checkbox" /> 
.cn</td> 
</tr> 
<tr> 
<td width="92" height="22"><input type="checkbox" value="hk" name="checkbox" /> 
.hk </td> 
<td width="89" height="22"><input type="checkbox" value="com.tw" name="checkbox" /> 
.com.tw </td> 
<td height="22"><input type="checkbox" value="idv.tw" name="checkbox" /> 
.idv.tw</td> 
<td width="81" height="22"><input type="checkbox" value="in" name="checkbox" /> 
.in</td> 
</tr> 
</table></td> 
</tr> 
</table></td> 
</tr></form> 
</table> 
</body>
</html>
