请教一下：类型不匹配: 'cint'

独出心裁

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'cint'

/check.asp，行 32

大家好，这个怎么修改啊，我这个是下载的“军缘13.0商业版”，在运行的时候，出现了这个提示。代码J是：num=cint(sip(0))*256*256*256+cint(sip(1))*256*256+cint(sip(2))*256+cint(sip(3))-1         
我不懂程序，只是爱好，请问一下怎么修改呢？谢谢。

天天

这里应该可能是你用本地地址访问导致IP获取不正确。
在上面一行插入以下代码修复
完整代码：
sip=split(ip,".")
if ubound(sip)<>3 then sip=split("127.0.0.1",".")
for i=0 to ubound(sip)
        if not IsNumeric(sip(i)) then sip(i)=0
next
num=cint(sip(0))*256*256*256+cint(sip(1))*256*256+cint(sip(2))*256+cint(sip(3))-1

独出心裁

谢谢了。