福州阿里云代理商：asp连接数据库源码

luotuoemo • 2024年2月3日 14:26 • 阿里云 • 阅读 466

下面是一个使用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