ASP中怎么调用JS中的数组
要实现生成一个不重复的随机数组,然后利用该数组中的数据,访问数据库,达到随机输出数据库中数据的目的,在但运行到该行代码时提示:vntarray2类型不匹配:rs.move...
要实现生成一个不重复的随机数组,然后利用该数组中的数据,访问数据库,达到随机输出数据库中数据的目的,
在但运行到该行代码时提示:vntarray2类型不匹配:
rs.move vntarray2(i) ' 移到该随机行
下面是部分代码,请路过的指点下怎么调用数组vntarray2,来实现输出功能;
下面是JS随机生成一个数组:
<script language="javascript">
function rnddig(istart,iend,isum)
dim i,j,vntarray()
redim vntarray(iend-istart)
j=istart
for i=0 to iend-istart
vntarray(i)=j
j=j+1
next
dim vntarray2(),temp,x,y
redim vntarray2(isum-1)
y=iend-istart+1
x=0
temp=vntarray
do while x<isum
dim a
randomize
vntarray2(x)=temp(int(rnd*y))
a=" "&vntarray2(x)&" "
temp=split(trim(replace(chr(32)&join(temp)&chr(32),a," ")))
x=x+1
y=y-1
loop
rnddig=join(vntarray2)
end function
</script>
下面是调用生成的随机数组,提示类型不匹配:
<%
n=20 '取任意20条记录
sql = "select * from Question"
rs.open sql,conn,1,1
count=rs.recordcount '记录总数
%>
<script>
rnddig 1,count,n
</script>
<%
IF Count<>empty Then
for i = 0 to n-1 '循环n次
rs.move vntarray2(i) '移到该随机行,运行时提示vntarray2类型不匹配
rs_num=0
while (not rs.eof)
rs_num=rs_num+1
response.write rs("Question")
rs.movefirst '把指针移到第一条
wend
next
End IF
rs.close %> 展开
在但运行到该行代码时提示:vntarray2类型不匹配:
rs.move vntarray2(i) ' 移到该随机行
下面是部分代码,请路过的指点下怎么调用数组vntarray2,来实现输出功能;
下面是JS随机生成一个数组:
<script language="javascript">
function rnddig(istart,iend,isum)
dim i,j,vntarray()
redim vntarray(iend-istart)
j=istart
for i=0 to iend-istart
vntarray(i)=j
j=j+1
next
dim vntarray2(),temp,x,y
redim vntarray2(isum-1)
y=iend-istart+1
x=0
temp=vntarray
do while x<isum
dim a
randomize
vntarray2(x)=temp(int(rnd*y))
a=" "&vntarray2(x)&" "
temp=split(trim(replace(chr(32)&join(temp)&chr(32),a," ")))
x=x+1
y=y-1
loop
rnddig=join(vntarray2)
end function
</script>
下面是调用生成的随机数组,提示类型不匹配:
<%
n=20 '取任意20条记录
sql = "select * from Question"
rs.open sql,conn,1,1
count=rs.recordcount '记录总数
%>
<script>
rnddig 1,count,n
</script>
<%
IF Count<>empty Then
for i = 0 to n-1 '循环n次
rs.move vntarray2(i) '移到该随机行,运行时提示vntarray2类型不匹配
rs_num=0
while (not rs.eof)
rs_num=rs_num+1
response.write rs("Question")
rs.movefirst '把指针移到第一条
wend
next
End IF
rs.close %> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询