域名查询!类型不匹配 求救了!!!
<%
DIM dname,suffix,enc
DIM snum
DIM CheckForm
DIM I,J
dname = Request.Form("dn")
snum = Request.Form("suffix").Count
enc = Request.Form("enc")
IF enc="" THEN
enc="E"
END IF
set CheckForm = new PostForm
call CheckForm.AddItem("dn",dname)
call CheckForm.AddItem("enc",enc)
call CheckForm.AddItem("client","AG5010 ") '输入您的代理号
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://dn.topbiz.cn/cgi-bin/Check"
Http.Open "POST",URL,FALSE
DIM Result
Response.Write("send[" & checkForm.form & "]<br>") '为了调试,可以取消
Http.send(CheckForm.form)
Result = Http.ResponseText
Response.Write("recv[" & Result & "]<br>") '为了调试,可以取消
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)="Ret" THEN
IF Val(1)<=0 THEN
Response.Write("检测错误<br>")
ELSE
Ret = Val(1)
END IF
END IF
%>
send[dn=1231&enc=E&client=AG5010+&suffix=&suffix=%2Ecn&suffix=%2Ecom%2Ecn&suffix=%2Enet%2Ecn&suffix=%2Eorg%2Ecn]
recv[Ret=4 Enc=E Name1=1231.cn Chk1=0 Name2=1231.com.cn Chk2=100 Name3=1231.net.cn Chk3=100 Name4=1231.org.cn Chk4=100 ]
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配
/asp/check.asp,行 47
谁能帮我调试呀!谢谢了