在ASP中连接数据库需要使用ADODB对象来实现，以下是一个简单的ASP连接数据库的示例代码：
<%
'设置连接字符串
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:mydatabase.mdb"
'创建ADODB连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
'打开数据库连接
conn.Open connStr
'执行SQL查询语句
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM mytable", conn
'遍历查询结果
Do While Not rs.EOF
Response.Write rs("column1") & "<br />"
rs.MoveNext
Loop
'关闭数据库连接和记录集
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>在上面的示例中，我们首先设置了连接字符串connStr，然后创建了一个ADODB连接对象conn，并通过conn.Open方法打开了数据库连接。接着我们创建了一个ADODB记录集对象rs，通过rs.Open方法执行了一个SQL查询语句，并通过rs("column1")的方式获取查询结果的值。最后我们在循环中遍历了查询结果，并在页面中输出了查询结果。
请注意，上面的示例代码是一个简单的示例，实际开发中可能需要更复杂的操作和错误处理。另外，根据实际情况，连接字符串、SQL查询语句和输出结果可能会有所不同。
下面是一个简单的ASP连接数据库的代码示例：
<%
Dim connStr, conn
Set conn = Server.CreateObject("ADODB.Connection")
connStr = "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User Id=your_username;Password=your_password;"
conn.Open connStr
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM your_table", conn
Do While Not rs.EOF
Response.Write "Column1: " & rs("column1") & " Column2: " & rs("column2") & "<br>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>请注意，在上面的代码中要替换以下内容：
- your_server：数据库服务器名
- your_database：数据库名称
- your_username：数据库用户名
- your_password：数据库密码
- your_table：数据库表名
- column1和column2：要查询的列名
请根据你的实际情况修改这些内容，并确保数据库连接字符串中的提供程序和数据源信息正确。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/149051.html
