📄 例6－10.txt
字号:
<!--#INCLUDE file="ADOVBS.inc"-->
<%Dim Conn, RS
Dim StrSQL
Dim MusicID, MusicName,MusicLevel,MusicStars
%>
<HEAD>
<TITLE>影视在线</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY bgcolor="#ffffff" >
<%
'建立一个连接对象，并打开与数据源filmdata的连接
Set Conn=Server.CreateObject("ADODB.connection")
Conn.Open "Mydata"
'建立一个记录集对象
Set RS = Server.CreateObject("ADODB.Recordset")
%>
<TABLE width="700" border="0" cellspacing="0" cellpadding="0">
<%
'定义一个SQL命令串
StrSQL = "select filmID,name,level,stars from films"
'通过记录集的Open方法执行SQL命令串
RS.Open StrSQL,Conn,adOpenForwardOnly,adLockReadOnly
'将以表格的形式在页面上显示检索出的数据
While Not RS.EOF
'以下4条语句取出记录集Fields集合中的4个field对象的值
MusicID = RS.Fields("filmID").Value
MusicName = RS.Fields("name").Value
MusicLevel= RS.Fields("level").Value
MusicStars= RS.Fields("stars").Value
%>
<TR>
<TD height="21" width="45">
<A href="filmlist.asp?ID=<%= MusicID %>"><%= MusicName %></A>
</TD>
<TD height="21" width="45">
<%= MusicLevel %></A>
</TD>
<TD height="21" width="45">
<%= MusicStars %></A>
</TD>
</TR>
<%
'移向下一条记录
RS.MoveNext
Wend
'关闭记录集，关闭连接
RS.Close
Conn.Close
%>
</TABLE>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -