以下是ASP读取数据库并循环显示的示例代码：
<%
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "ConnectionString" ' 数据库连接字符串
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM TableName", conn ' 查询语句和连接对象
While Not rs.EOF
Response.Write("<p>" & rs("FieldName") & "</p>") ' 每次循环输出一个字段内容
rs.MoveNext ' 游标下移
Wend
rs.Close ' 关闭记录集
conn.Close ' 关闭数据库连接
%>其中，ConnectionString需要替换成实际的数据库连接字符串，TableName需要替换成数据库中的表名，FieldName需要替换成需要输出的字段名。
该代码使用了ADODB对象实现了连接数据库、查询数据、循环输出的功能。需要注意的是，在输出字段内容时，我们可以使用Response.Write将其输出到页面中。每次循环完毕后，需要将游标下移，否则将会导致无限循环输出同一个记录。最后，需要关闭记录集和数据库连接对象。
以下是一个简单的 ASP 代码示例，用于从数据库中读取数据并循环显示：
<%
‘定义数据库连接信息
Dim connStr
connStr = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:Database.accdb;Persist Security Info=False;”
‘创建数据库连接对象和查询对象
Dim conn, rs
Set conn = Server.CreateObject(“ADODB.Connection”)
Set rs = Server.CreateObject(“ADODB.Recordset”)
conn.Open(connStr)
rs.Open “SELECT * FROM [TableName]”, conn
‘循环读取并显示每一条记录的相关数据
Do Until rs.EOF
Response.Write "<p>" & rs("column1") & " " & rs("column2") & "</p>"
rs.MoveNextLoop
‘关闭数据库连接和查询对象
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
上面的代码中需要替换的部分：
- connStr：数据库连接字符串，需要根据自己的数据库信息进行修改。
- [TableName]：要读取数据的表名，需要替换成实际的表名。
- column1、column2：要显示的字段名，需要根据实际情况进行修改。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/159303.html
