6-24.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 59 行

ASP
59
字号
<html>

<head>

<title>Fields对象的应用</title>
</head>

<body>

<%

Dim ConnStr,myConn,mySQL
ConnStr="Provider=SQLOLEDB;data source=(local);initial catalog=图书馆管理系统;user id=sa;password=;"  '参照表6-2的连接字符串
Set myConn=Server.CreateObject ("ADODB.Connection")
Myconn. ConnectionString=ConnStr
myConn.open  '直接打开数据库连接

set myRec=Server.CreateObject("ADODB.RecordSet")
'定义用于创建RecordSe的SQL语句
mySQL="select * from 学生信息表"

'打开RecordSe对象,传递SQL语句和其他参数
myRec.Open mySQL,myConn

response.write "学生信息表中的记录如下:"
%>

<Table border=1>
<TR>
<% 
For I=0 to myRec.Fields.count-1
%>
<Td><B>
<% =myRec(I).name %>
</B></TD>
<% next %>
</TR>
<%
do while not myRec.EOF 
%>
<TR>
<% 
For j=0 to myRec.Fields.Count-1 
%>
<Td VALIGN=TOP><% =myRec(j) %> </TD>
<% Next %>
</TR>
<%    
myRec.MoveNext
Loop
%>
</Table>



</body>

</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?