例6-20.txt
来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」· 文本 代码 · 共 20 行
TXT
20 行
<!--#INCLUDE file="ADOVBS.inc"-->
<HEAD>
<TITLE> BackWard </TITLE>
</HEAD><BODY>
<%
Set Conn=Server.CreateObject ("ADODB.Connection")
Set RS=Server.CreateObject ("ADODB.RecordSet")
Conn.Open "MyData"
'打开记录集时,将指定游标的类型为adOpenStatic,可在记录集中前向或后向移动
RS.Open "SELECT * FROM sales",Conn,adOpenstatic
RS.MoveLast '移向最后一个记录
While Not RS.BOF
Reponse.Write ("<BR>"&RS("GoodsName"))
RS.Move.Previous '移向前一记录
Wend
RS.Close
Conn.Close
%>
</BODY>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?