下面是一个使用ASP连接数据库的示例代码：
<%
'Define the connection string
Dim connStr
connStr = "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
'Define the SQL query
Dim strSQL
strSQL = "SELECT * FROM 表名"
'Create an ADO connection object
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
'Open the connection
objConn.Open connStr
'Create an ADO recordset object
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
'Execute the SQL query and retrieve the data
objRS.Open strSQL, objConn
'Render the data
Do Until objRS.EOF
Response.Write objRS("字段名1") & "<br>"
Response.Write objRS("字段名2") & "<br>"
'...
objRS.MoveNext
Loop
'Close the recordset and connection
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>请替换以下部分以与您的数据库连接相匹配：
- 数据库服务器地址：替换为您的数据库服务器的地址。
- 数据库名称：替换为您要连接的数据库的名称。
- 用户名和密码：替换为连接数据库所需的用户名和密码。
- 表名：替换为要从中检索数据的表的名称。
- 字段名1、字段名2等：替换为要输出的字段的名称。
请注意，此示例使用的是Microsoft SQL Server数据库。如果你使用的是其他类型的数据库（如MySQL），则需要相应地更改连接字符串。
以下是一个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)
' 显示查询结果
Response.Write "<table border='1'>"
Response.Write "<tr><th>ID</th><th>姓名</th><th>年龄</th></tr>"
While Not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("ID") & "</td>"
Response.Write "<td>" & rs("姓名") & "</td>"
Response.Write "<td>" & rs("年龄") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Wend
Response.Write "</table>"
' 关闭数据库连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>请根据你的实际情况修改connStr中的数据库连接信息、sql中的查询语句、表名、字段名等。此示例代码使用的是SQL Server数据库，你需要根据自己使用的数据库类型修改连接字符串的Provider部分。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/136795.html
