悬赏：ASP题库程序，随机抽出 5 题?

2002-05-16 08:32:46 90 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

dy630 墨衍会员 · AI 创作全网分发关注 + 加入社区

使用Docker搭建SearXNG搜索引擎【代码】使用Docker搭建SearXNG搜索引擎。阅读详情

用Access 数据库
3Q!

...全文

Docker 与容器技术的未来：从 OCI 标准到 eBPF 的演进 OCI 的核心目标是创建一个开放的、厂商中立的容器技术标准。这意味着，只要一个容器镜像符合 OCI 镜像格式规范，它就可以在任何符合 OCI 运行时规范的容器运行时上运行。eBPF 是一种革命性的技术，它允许在 Linux 内核中安全地运行沙盒程序，而无需修改内核源代码或加载内核模块。这些程序可以注册到内核中的各种事件点（如网络包到达、系统调用、函数调用/返回），并在事件发生时执行自定义逻辑。核心思想是：在不将数据复制到用户空间的情况下，程序可以直接在内核中处理数据，极大地提高了效率和性能。阅读详情

dy630

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

wuya0531 2002-05-16

打赏
举报

联系我，发给你，刚好实习就做这个，sql
qq:6623560

BrightEye 2002-05-16

打赏
举报

随机取出n条记录的方法:
SELECT TOP n * FROM table_name ORDER BY NEWID()

top n，n就是要取出的记录数

wangfei2428 2002-05-16

打赏
举报

http://www.csdn.net/expert/topic/723/723789.xml?temp=.3942224

wangfei2428 2002-05-16

打赏
举报

sql环境下用
selec top N * from someTable where 题目类型='单选题' order by NewID()

access环境下随机读取单选题10条
//读取符合单选题的所有记录

count=10
strConnection="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/testdb.mdb")
strSQL = "SELECT id FROM tblQuestions where 题目类型='单选题'"

set objConn = Server.CreateObject("ADODB.Connection")
Set objRst = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnection
set objRst.ActiveConnection = objConn
objRst.LockType = adLockOptimistic
objRst.CursorType = adOpenKeySet
objRst.Open strSQL

//计算记录的个数
objRst.MoveLast
cnt = objRst.RecordCount
cnt1 = cnt
rndMax = cnt

//比较要输出的记录个数10与所有记录个数的大小
If CInt(count) < cnt Then
cnt1 = CInt(count)
End If

//随机抽出10条记录的id号，并用","连接
str = ","
str1 = ","

Do Until cnt1 = 0
Randomize
RndNumber = Int(Rnd * rndMax)

If (InStr(1, str1, "," & RndNumber & "," ) = 0) Then
str1 = str1 & RndNumber & ","
cnt1 = cnt1 - 1
objRst.MoveFirst
objRst.Move RndNumber
str = str & objRst("id") & ","
End If
Loop
objRst.Close
Set objRst = Nothing

//读出记录
sql = "SELECT * FROM tblQuestions WHERE (((InStr(1,'" & str & "',(',' & [id] & ',')))<>0)) "
Set objRst = Server.CreateObject("ADODB.Recordset")
set objRst.ActiveConnection = objConn
objRst.LockType = adLockOptimistic
objRst.CursorType = adOpenKeySet
objRst.Open sql
%>
...显示记录
<%
objRst.Close
Set objRst = Nothing

objConn.Close
Set objConn = Nothing
%>
其他依次类推。

悬赏：ASP题库程序，随机抽出 5 题?

相关推荐