📄 liststudents.htm
字号:
<HTML><HEAD>
<TITLE>ActiveXDataObject(ADO)</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<CENTER>
<H3>使用ADO技术查询学生基本信息</H3>
<%
SET Conn=Server. CreateObject("ADODB.Connection")
Conn.open "DSN=vfpdbc;server=server00"
Set RS=conn.execute(SELECT no,name,birth,clan FROM XSQK)
%>
<P><TABLE BORDER=1>
<TR>
<%FOR I=0 TO RS.FieldsCount-1%>
<TD><B><%=RS(I).NAME%></B></TD>
<%NEXT%>
</TR>
<%DO While Not RS.EOF%>
<TR>
<%FOR I=0 TO RS.Fields.Count-1%>
<TD VALUE=TOP><%=RS(1)%></TD>
<%NEXT%>
<TR>
<%
RS.Movenext
Loop
RS Close
Conn.Close
%></TABLE></CENTER>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -