function checkip(ip) '检测指定IP是否投过票
    dim ipArray()
    sql="Select ip from Candidate where id="&id
    Set rs2=cnn.execute(sql)
    ipArray()=split(rs2,",")出错行
    For i = 0 To UBound(ipArray)
    if ip=ipArray(i) then
        checkip=true
    else
        checkip=false
    end if
    next
end function


错误提示如下：
# 错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配