[分享]给大家贴一个随机出题的代码

hyjia 2006-05-12 01:55:44
大家还有什么好的方法,贴出来看看.

response.Write "一.单选题("&numtype1&"个×"&marktype1&"分)<br/>"
i=0
j=0
dim tarray(20)
sql="select * from 试题 where 类型=1"
rs.open sql,conn,1,1


'response.End()
'''''''''''''''''''''''''''''''''''''''''''''实现不重复出题的关键代码''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''2006-4-30 16:56
while(numtype1>0)
randomize
a=int(maxtype1*rnd+1)
doublequ=0
rs.movefirst
rs.move a
for each qu in tarray
if qu=rs("编号") then
doublequ=1
exit for
end if
next
if doublequ=0 then
response.Write j+1&") "&rs("题目")&"<br/>"
tarray(j)=rs("编号")
j=j+1
numtype1=numtype1-1
end if
'rs.movefirst
wend
'''''''''''''''''''''''''''''''''''''''''''''''hyjia''''''''''''''''''''''''''''''''''''''''''''
rs.close
...全文
74 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hyjia 2006-05-13
请问楼上 newid() 是什么?
  • 打赏
  • 举报
回复
hj3793 2006-05-12
sql="select * from 试题 where 类型=1 order by newid()"
rs.open sql,conn,1,1
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2006-05-12 01:55
社区公告
暂无公告