Question

asp从ACCESS数据库中随即读取 10条不重复的内容

<%dim db1,connstr1,conn1db1="1.mdb"set conn1 = server.CreateObject("ADODB.Connection")connstr1="DBQ="&server.mappath(db1)&";DRIVER={Microsoft Access Driver (*.mdb)};"conn1.Open connstr1%>
<td align="right" class="TableRow2"><b><%=sModuleName%>标题：</b></td> <td colspan="3" class="TableRow1"><input name="Author" type="text" size="30" value="★★在这里显示★★★">
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
我已经在代码中打开了数据库 我想 定意一个值 可以随即从数据库的NC_LIST 里的 GJC表中 随即抽取 10条记录(不能重复) 用 , 间隔 想最终实现的例子如下
newgjc="抽取1,抽取2,抽取3,抽取4,抽取5, ...... 抽取10"
只要代码

Answer 1

<%
set rs = server.CreateObject("adodb.recordset") '
rs.open "select top 10 ID,NR,BT,GJC from NC_list order by ID desc",conn,1,1
if rs.eof and rs.bof then
response.Write "还没有内容"
else
do while not rs.eof %>
<tr>
<td align="right" class="TableRow2"><b><%=sModuleName%>标题：</b></td>
td colspan="3" class="TableRow1"><input name="Author" type="text" size="30" value="<%=rs("NR")%>"></td>
</tr>
下同以上格式.....略
<%
rs.movenext
loop
rs.close
set rs = nothing
end if %>

追问

不对啊
Microsoft JET Database Engine '80040e37'
Microsoft Jet 数据库引擎找不到输入表或查询 'NC_list'。 确定它是否存在，以及它的名称的拼写是否正确。\a\admin_Article.asp, line 530

你看我上面数据库的定意 我是一个页面打开2个数据库 加了1

追答

rs 改为 rs1

追问

你发些什么破玩意 一点都不好使 根本不是随即显示10条 代码还出错 浪费我时间

追答

抱歉!
实在对不起你,请包涵!
我可以100%保证我写的查询语句是正确的,只是我匆略了是双数据库查询和你的"随即".

但也请你稍微礼貌一点点,稍微尊重一下在帮助你的人.
哪怕没帮到你,也没必要出口不逊并指责!
因为我们并没收你的服务费,只是在尽义务!

Answer 2

其实N您的这个问题就是写sql去实现
那么我提供一种思路 asp 好长时间没写过了希望能帮助到您
SELECT TOP n * FROM tanblename ORDER BY rnd([一个自动编号字段])
拿出来数据进行展示就ok了
和您做列表查询市一样的