split转成数组类型不匹配 - ASP

日-出

电梯直达

1^#

发表于 2010-1-10 23:07:05 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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)
类型不匹配

收藏0

使用道具举报

叛逆ぁ太上皇

2^#

发表于 2010-1-10 23:07:09 | 只看该作者

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

而且你的参数是ip你的sql语句里那里的id的参数呢？

回复支持反对

使用道具举报

√sdf

3^#

发表于 2010-1-10 23:07:14 | 只看该作者

一方面，对数组赋值直接写数组名，就像Set rs一样，你也没把rs的所有属性一起列出来赋值嘛。
另一方面，你的rs2也不是字符串啊，是不是要写rs2("ip")呢？

回复支持反对

使用道具举报

qz沒愛過mm

4^#

发表于 2010-1-10 23:07:18 | 只看该作者

ipArray=split(rs2,",")出错行

回复支持反对

使用道具举报

┈ㄝai〾噯儿

5^#

发表于 2010-1-10 23:07:21 | 只看该作者

craft001wen 在 2008-10-9 10:41 的发言：

直接定义数组名就可以了,如果要重新定义可用NEW
function checkip(ip) '检测指定IP是否投过票
dim ipArray
sql="Select ip from Candidate where id="&id
Set rs2=cnn.execute(sql)
ipArray=sp ...

我昨天测试数组：
dim arr1()
arr1(0)=1
arr1(1)=2
结果输出错误：下标出界
dim arr1(5)
arr1(0)=1
arr1(1)=2
错误同样是下标出界
应该就是你说的这个问题吧，应该直接定义？

回复支持反对

使用道具举报

简单快乐

6^#

发表于 2010-1-10 23:07:25 | 只看该作者

直接定义数组名就可以了,如果要重新定义可用NEW
function checkip(ip) '检测指定IP是否投过票
dim ipArray
sql="Select ip from Candidate where id="&id
Set rs2=cnn.execute(sql)
ipArray=split(rs2("ip"),",")
ipArray=New ipArray()
For i = 0 To UBound(ipArray)
if ip=ipArray(i) then
checkip=true
else
checkip=false
end if
next
end function

回复支持反对

使用道具举报

[日青](忝)

7^#

发表于 2010-1-10 23:07:30 | 只看该作者

不好意思问一下：
ipArray数组的元素都是字符型的吗？如果ip是数字型的是不是需要clng或别的函数转换一下？

回复支持反对

使用道具举报

ROCKY

8^#

发表于 2010-1-27 18:05:07 | 只看该作者

给我一个女人，我可以创造一个民族；给我一瓶酒，我可以带领他们征服全世界。。。。。。。。。

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册