以下是使用ASP连接数据库的示例代码：
<%
' 设置数据库连接字符串
Dim connStr
connStr = "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
' 创建数据库连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
' 打开数据库连接
conn.Open connStr
' 执行SQL语句
Dim sql
sql = "SELECT * FROM 表名"
Dim rs
Set rs = conn.Execute(sql)
' 遍历结果集并输出数据
While Not rs.EOF
Response.Write rs("字段名1") & " - " & rs("字段名2") & "<br>"
rs.MoveNext
Wend
' 关闭结果集和数据库连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>请将代码中的以下部分替换为实际的数据库信息：
- 数据库服务器地址：替换为实际数据库服务器的地址
- 数据库名称：替换为实际需要连接的数据库名称
- 用户名：替换为实际的数据库用户名
- 密码：替换为实际的数据库密码
- 表名：替换为实际需要查询的表名
- 字段名1、字段名2：替换为实际表中存在的字段名
这段代码使用的是SQL Server的连接字符串，如果你使用的是其他数据库，可以根据实际情况修改连接字符串的Provider部分。
以下是ASP连接数据库的代码示例：
<%
' 定义数据库连接参数
Dim connStr
connStr = "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
' 创建数据库连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr
' 执行SQL查询语句
Dim strSQL
strSQL = "SELECT * FROM 表名;"
Dim rs
Set rs = conn.Execute(strSQL)
' 循环遍历查询结果
Do Until rs.EOF
' 获取字段值
Dim field1
field1 = rs("字段名1")
Dim field2
field2 = rs("字段名2")
' 输出字段值
Response.Write("字段名1: " & field1 & "<br>")
Response.Write("字段名2: " & field2 & "<br>")
' 移动到下一条记录
rs.MoveNext
Loop
' 关闭数据库连接和结果集
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>请将代码中的以下信息替换为你自己的数据库连接参数：
- 数据库服务器地址
- 数据库名称
- 用户名
- 密码
- 表名
- 字段名1、字段名2（根据实际情况进行替换）
以上代码示例使用的是SQL Server数据库，并使用了SQLOLEDB提供程序，如果你使用的是其他数据库，需根据数据库类型选择合适的提供程序，并修改连接参数。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/142798.html
