求救,那位好心的大哥帮帮我嘛!
我是在做一个考试系统，其中要求按百分比随机确定参加考试人员名单我写了以下代码;
<%function differ(test,temp,count,i)
if i=1 then y=1 else y=i-1
for x=1 to y
if temp=test(x) then
temps=fix(count*rnd)
differ test,temps,count,i
temp=temps
end if
next
differ=temp
end function
for i=1 to count
sqlstr="select * from cadre_info where department='"&trim(department(a))&"'"
set rs=server.createobject("adodb.recordset")
rs.open sqlstr,conn,3,2
counts=rs.recordcount
temp=fix(counts*rnd)
test(i)=differ(test,temp,counts,i)
//response.write test(i)&"*<bR>"
rs.move test(i)
next%>
出现如下错误:
Microsoft VBScript 运行时错误 (0x800A001C)
堆栈溢出: 'differ'
错误在 differ test,temps,count,i
因为在其他地方用没有错误,在这里有错误我不知道怎么解决:有其他好多办法吗?如有,给个示例代码,将感激不尽!
