例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 + -
显示快捷键?