当前记录集不支持书签

[kkkgho]

我想随机读取数据库的数据,但是为什么rs.absoluteposition=x这样会出错呢??


<%
response.buffer=false
Set CONN=Server.CreateObject("ADODB.Connection")
CONN.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db18.mdb")
SQL = "SELECT * FROM tk"
Set rs = CONN.Execute ( SQL )
%>
<%
for i = 1 to 10
%>
<%
Randomize
x = int(rnd()*3000)
response.write (rs("tm") & x)
rs.absoluteposition=x

%>
<br>
<br>
<form name="form1" method="post action="">
<label>
<input type="radio" name="radiobutton" value="1">
A
</label>
<label>
<input type="radio" name="radiobutton" value="2">
B
</label>
<label>
<input type="radio" name="radiobutton" value="3">
C
<input type="radio" name="radiobutton" value="4">
D
</label>
<input name="hiddenField" type="hidden" value="<%=rs("th")%>">
</form>
<%
next
%>


ADODB.Recordset 错误 '800a0cb3'

当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。

/zhishi/index.asp，行 15

[hookee]

<%
response.buffer=false
Set CONN=Server.CreateObject("ADODB.Connection")
CONN.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db18.mdb")
SQL = "SELECT * FROM tk"
Set rs = CreateObject("ADODB.RecordSet")
rs.open SQL, CONN, 1, 3
%>

<%
for i = 1 to 10
%>

<%
Randomize
x = int(rnd()*3000)
response.write (rs("tm") & x)
rs.absoluteposition = x
%>

<br>
<br>
<form name="form1" method="post action="">
<label>
<input type="radio" name="radiobutton" value="1">
A
</label>
<label>
<input type="radio" name="radiobutton" value="2">
B
</label>
<label>
<input type="radio" name="radiobutton" value="3">
C
<input type="radio" name="radiobutton" value="4">
D
</label>
<input name="hiddenField" type="hidden" value=" <%=rs("th")%>">
</form>
<%
next
%>