%
On Error Resume Next
Server.ScriptTimeOut=9999999
function bytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
end function
'------------------------------
function hsp(s_ss,h_s,b)
s_s=s_ss
n=instr(s_s,h_s)
s_l=len(s_s)
h_l=len(h_s)
if b=0 then
hsp=right(s_s,s_l-h_l-n+1)
else
hsp=right(s_s,s_l-n+1)
end if
end function
function qsp(s_ss,h_s,b)
s_s=s_ss
n=instr(s_s,h_s)
h_l=len(h_s)
if b=0 then
qsp=left(s_s,n-nw-1)
else
qsp=left(s_s,n-nw+h_l-1)
end if
end function
function msp(s_ss,h_a,h_b)
s_s=s_ss
a_w=instr(s_s,h_a)
a_l=len(h_a)
s_l=len(s_s)
s_s=right(s_s,s_l-a_l-a_w+1)
b_w=instr(s_s,h_b)
s_s=left(s_s,b_w-1)
msp=s_s
end function
function tjs(s_ss,h_a)
s_s=s_ss
j=0
do
a_w=instr(s_s,h_a)
if a_w=0 then exit do
a_l=len(h_a)
s_l=len(s_s)
j=j+1
if j>100 then exit do
s_s=right(s_s,s_l-a_w)
loop
tjs=j
end function
'------------------------------
if request("xz")="english" then
yuming=request.form("english")
session("yuming")=yuming
c1=request.form("c1") '.com
c2=request.form("c2") '.net
c3=request.form("c3") '.org
c4=request.form("c4") '.com.cn
c5=request.form("c5") '.net.cn
c6=request.form("c6") '.org.cn
c7=request.form("c7") '.cn
c8=request.form("c8") '.sh.cn
c9=request.form("c9") '.gov.cn
c10=request.form("c10") '.info
c11=request.form("c11") '.biz
if c1<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&com=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".com"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".com"+" 连接超时!
"
else
jieguos=jieguos+yuming+".com"+" 已被注册!
"
end if
end if
end if
if c2<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&net=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".net"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".net"+" 连接超时!
"
else
jieguos=jieguos+yuming+".net"+" 已被注册!
"
end if end if
end if
if c3<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&org=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".org"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".org"+" 连接超时!
"
else
jieguos=jieguos+yuming+".org"+" 已被注册!
"
end if
end if
end if
if c4<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&comcn=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".com.cn"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".com.cn"+" 连接超时!
"
else
jieguos=jieguos+yuming+".com.cn"+" 已被注册!
"
end if
end if
end if
if c5<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&netcn=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".net.cn"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".net.cn"+" 连接超时!
"
else
jieguos=jieguos+yuming+".net.cn"+" 已被注册!
"
end if
end if
end if
if c6<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&orgcn=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".org.cn"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".org.cn"+" 连接超时!
"
else
jieguos=jieguos+yuming+".org.cn"+" 已被注册!
"
end if
end if
end if
if c7<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&cn=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".cn"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".cn"+" 连接超时!
"
else
jieguos=jieguos+yuming+".cn"+" 已被注册!
"
end if
end if
end if
if c8<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&shcn=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".sh.cn"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".sh.cn"+" 连接超时!
"
else
jieguos=jieguos+yuming+".sh.cn"+" 已被注册!
"
end if
end if
end if
if c9<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&govcn=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".gov.cn"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".gov.cn"+" 连接超时!
"
else
jieguos=jieguos+yuming+".gov.cn"+" 已被注册!
"
end if
end if
end if
if c10<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&info=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".info"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".info"+" 连接超时!
"
else
jieguos=jieguos+yuming+".info"+" 已被注册!
"
end if
end if
end if
if c11<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&biz=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".biz"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".biz"+" 连接超时!
"
else
jieguos=jieguos+yuming+".biz"+" 已被注册!
"
end if
end if
end if
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if request("xz")="chinese" then
yuming=request.form("chinese")
session("yuming")=yuming
c12=request.form("c12") '.com
c13=request.form("c13") '.net
c14=request.form("c14") 'cn(中国)
c15=request.form("c15") '网络
c16=request.form("c16") '公司
if c12<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&com=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".com"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".com"+" 连接超时!
"
else
jieguos=jieguos+yuming+".com"+" 已被注册!
"
end if
end if
end if
if c13<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&net=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".net"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".net"+" 连接超时!
"
else
jieguos=jieguos+yuming+".net"+" 已被注册!
"
end if end if
end if
if c14<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&%D6%D0%B9%FA=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".cn(中国)"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".cn(中国)"+" 连接超时!
"
else
jieguos=jieguos+yuming+".cn(中国)"+" 已被注册!
"
end if
end if
end if
if c15<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&%CD%F8%C2%E7=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".网络"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".网络"+" 连接超时!
"
else
jieguos=jieguos+yuming+".网络"+" 已被注册!
"
end if
end if
end if
if c16<>"" then
urls="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="+yuming+"&big5=n&%B9%AB%CB%BE=yes"
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "get",urls,false
Http.send()
html=bytesToBstr(http.responsebody,"gb2312")
if instr(html,"未被注册")>0 then
jieguos=jieguos+yuming+".公司"+" 未被注册√现在注册
"
else
if instr(html,"连接超时的域名")>0 then
jieguos=jieguos+yuming+".公司"+" 连接超时!
"
else
jieguos=jieguos+yuming+".公司"+" 已被注册!
"
end if
end if
end if
end if
%>