大家好,我想请问一下为什么调试的时候IE会出现“当前记录集不支持书签”的提示,应该怎样解决这样的问题呢?在此再次谢谢版主对我上次的帮助,无限感激。
<%
Dim cnn,rst,sSQL,i
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=Ring;" & "UID=Sa;PWD=123;DATABASE=pubs"
cnn.open
sSQL = "select * From authors"
rst.cursortype = adopenstatic
rst.open sSQL,cnn
if session("bk") <> "" then
rst.AbsolutePosition = Session("bk")
end if
if request.QueryString("op") = "first" then
rst.MoveFirst
end if
if request.QueryString("op") = "previous" and rst.absoluteposition <> 1 then
rst.move -1
end if
if request.QueryString("op") = "next" and rst.absoluteposition <> rst.Recordcount then
rst.move 1
end if
if request.QueryString("op") = "last" then
rst.movelast
end if
%>
<div align="center">
<table border="1" width="80%">
<caption><b><%=rst("au_lname")%>的个人资料</b></caption>
<%for i = 0 to rst.fields.count -1 %>
<tr><td><%=rst(i).name%></td><td><%=rst(i)%></td></tr>
<% next
session("bk") = rst.Bookmark
%>
</table>
<p>共<%=rst.recordcount%>条纪录 当前页次:<%=rst.absoluteposition%>/<%=rst.recordcount%>
<%if rst.absoluteposition <> 1 then %>
<a href="6-10.asp?op=first">第一条</a>
<a href="6-10.asp?op=previous">上一条</a>
<%else%>
<font color="darkgray">第一条</font>
<font color="darkgray">上一条</font>
<% end if %>
<% if rst.absoluteposition <> rst.recordcount then %>
<a href="6-10.asp?op=next">下一条</a>
<a href="6-10.asp?op=last">最后一条</a>
<% else %>
<font color="darkgray">下一条</font>
<font color="darkgray">最后一条</font>
</p>
<% end if
rst.close
%>
[此贴子已经被作者于2006-3-18 23:15:35编辑过]