<%
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 "
售后电话:0757-28139601
手机:15818018885
邮箱:kefu@ciga.net.cn
客服QQ:337553422