在 ASP 页面中查询数据库，可以使用 ADO (ActiveX Data Objects) 连接数据库并执行 SQL 查询语句。以下是一个简单的示例代码：
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User ID=your_username;Password=your_password;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM your_table", conn
Do While Not rs.EOF
Response.Write(rs("column1") & " - " & rs("column2") & "<br>")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>在上面的示例中，我们首先创建一个 ADO 连接对象 conn，并打开数据库连接。接着创建一个 Recordset 对象 rs，并执行一个 SELECT 查询语句来从数据库表中获取数据。然后，我们使用循环来遍历 Recordset 中的每一行数据，并将指定的列输出到页面上。
请注意，在实际应用中，你需要将示例代码中的 your_server、your_database、your_username、your_password、your_table 替换为实际的数据库连接信息和查询条件。此外，还需要确保你的 ASP 服务器和数据库服务器之间配置正确的连接权限和安全设置。
在ASP页面中查询数据库的代码如下：
<%
dim connStr, conn, rs
dim sql
'数据库连接字符串
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.mdb;"
'建立数据库连接
set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr
'查询数据库的SQL语句
sql = "SELECT * FROM tableName"
'执行查询
set rs = conn.Execute(sql)
'遍历查询结果
if not rs.EOF then
do while not rs.EOF
Response.Write(rs("columnName") & "<br>")
rs.MoveNext
loop
else
Response.Write("No data found.")
end if
'关闭数据库连接
rs.Close
conn.Close
set rs = nothing
set conn = nothing
%>以上代码首先建立数据库连接，然后执行查询并遍历查询结果，最后关闭数据库连接。在实际应用中，需要根据具体的数据库和表结构，修改连接字符串和SQL语句的内容。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/156686.html
