最新公告
网站改版[admin  2010年5月17日]  
推荐产品
推荐文章
当前位置：银河动力 >>

<% DIM dname,suffix,enc DIM snum DIM CheckForm DIM I,J dname = Request.Form("name") snum = Request.Form("suffix").Count enc = Request.Form("enc") IF enc="" THEN enc="E" END IF set CheckForm = new PostForm call CheckForm.AddItem("name",dname) call CheckForm.AddItem("enc",enc) call CheckForm.AddItem("client","agent22533") '输入您的代理号 FOR I=1 TO snum call CheckForm.AddItem("suffix",Request.Form("suffix")(I)) NEXT DIM Http Set Http = SERVER.CREATEOBJECT("Microsoft.XMLHTTP") DIM URL URL = "http://api.xinnet.com/domain/api.gb?method=check&charset=utf-8" Http.Open "POST",URL,FALSE DIM Result Http.send(CheckForm.form) Result = Http.ResponseText Response.Write("您查询的结果如下
") '为了调试，可以取消 DIM Str DIM Ret DIM Num1 DIM Num2 DIM Names(32),Checks(32) Str = Split(Result, "&", -1, 1) Ret = 0: Num1=1 : Num2=1 FOR J=0 TO UBound(Str) DIM Val Val = Split(Str(J),"=",-1,1) IF Val(0)="num" THEN IF Val(1)<=0 THEN Response.Write("检测错误
") ELSE Ret = Val(1) END IF END IF IF Ret<=0 THEN IF Val(0)="name" THEN IF Val(1)="null" THEN Response.Write("没有输入域名
") END IF ELSEIF Val(0)="auth" THEN Response.Write("授权访问认证失败
") END IF ELSE DIM Key1,Key2 Key1 = "name" & Num1 Key2 = "chk" & Num2 IF Val(0)=Key1 THEN Names(Num1-1)=Val(1) Num1=Num1+1 ELSEIF Val(0)=Key2 THEN Checks(Num2-1)=Val(1) Num2=Num2+1 END IF END IF NEXT FOR I=0 TO Ret-1 Chk = Checks(I) IF Chk=0 THEN Response.Write(Names(I) & ":不可注册
") ELSEIF Chk>0 THEN Response.Write (Names(I) & ":可以注册" & "  立刻注册
") ELSE Response.Write(Names(I) & ":检测失败
") END IF NEXT Set CheckForm = NOTHING Set Http = NOTHING %>

 cn的域名不能以个人名义进行注册，否则出现问题请自行解决！
.com .net .cn .org .cc
.com.cn .net.cn .org.cn .biz .info

 IE7.0开始全面支持中文域名，巨大商机就在眼前！
.com .net .org .中国 .网络 .公司
简体中文或GBK  繁体中文 
  请选择域名注册表单
所注域名： *
域名类型： *
域名所有人（中文）： *
域名所有人英文： *
域名联系人（中文）： *
域名联系人（英文）： *
省份：
通信地址（中文）： *
通信地址（英文）： *
邮政编码： *
电话： *
传真： *
电子邮件： *
阅读协议： 我已阅读协议 * 点此阅读协议>>
验证码：
关于我们  |  法律声明  |  投诉建议  |  网站地图  |  设为首页  |  加入收藏