asp中连接数据库用什么代码

在ASP中连接数据库可以使用以下代码：

1. 使用ADODB对象连接数据库：

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
%>

其中，服务器地址是数据库服务器的地址，数据库名称是要连接的数据库的名称，用户名和密码是连接数据库的凭据。

2. 使用DSN连接数据库：

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=数据源名称;UID=用户名;PWD=密码;"
%>

其中，数据源名称是在控制面板中配置的数据源的名称，用户名和密码是连接数据库的凭据。

3. 使用连接字符串连接数据库：

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "连接字符串"
%>

其中，连接字符串是一种包含连接数据库所需信息的字符串，格式根据数据库类型和驱动程序而不同。

4. 执行SQL语句：

<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM 表名", conn
%>

其中，表名是要查询的数据库表的名称，conn是之前建立的数据库连接对象。

5. 关闭数据库连接：

<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

在完成数据库操作后，需要关闭数据库连接，释放资源。

以上是连接数据库的基本代码，根据具体的需求和数据库类型，可能需要进行一些额外的配置和调整。

在ASP中连接数据库可以使用以下代码：

1. 使用ADODB对象连接数据库

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDatabase;User ID=myUsername;Password=myPassword;"
%>

2. 使用DSN连接数据库

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=myDSN;UID=myUsername;PWD=myPassword;"
%>

3. 使用连接字符串连接数据库

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={SQL Server};Server=myServerAddress;Database=myDatabase;Uid=myUsername;Pwd=myPassword;"
%>

其中，需要替换的参数为：

• myServerAddress: 数据库服务器地址
• myDatabase: 数据库名称
• myUsername: 数据库用户名
• myPassword: 数据库密码
• myDSN: 数据源名称

连接成功后，可以使用conn对象执行SQL语句或者访问数据库。使用完毕后，需要关闭连接：

<%
conn.Close
Set conn = Nothing
%>

以上是ASP中连接数据库的常用代码，根据具体的数据库类型和连接方式，可以选择适合的代码进行连接。

在ASP中连接数据库，可以使用ADO（ActiveX Data Objects）来实现。ADO是一个用于访问数据源的组件库，可以连接各种类型的数据库，包括Microsoft Access、SQL Server、Oracle等。

下面是连接数据库的代码示例：

1. 引入ADO相关的对象和常量

<%
    <!--#include file="adovbs.inc"-->
    <!--#include file="adovbs.inc"-->
%>

2. 创建连接对象

<%
    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
%>

3. 设置连接字符串

<%
    Dim connStr
    connStr = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=MyDatabase;User ID=sa;Password=123456;"
    '根据数据库类型和连接信息设置连接字符串
%>

4. 打开数据库连接

<%
    conn.Open connStr
%>

5. 执行SQL语句

<%
    Dim sql
    sql = "SELECT * FROM MyTable"
    
    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn
%>

6. 处理查询结果

<%
    If Not rs.EOF Then
        Do Until rs.EOF
            '处理每一行数据
            Response.Write rs.Fields("FieldName").Value
            rs.MoveNext
        Loop
    Else
        '无数据
        Response.Write "No data found."
    End If
    
    rs.Close
    Set rs = Nothing
%>

7. 关闭数据库连接

<%
    conn.Close
    Set conn = Nothing
%>

以上是连接数据库的基本步骤，根据实际情况可以对代码进行调整和扩展。连接字符串的设置需要根据具体的数据库类型和连接信息进行修改。在执行SQL语句时，可以使用参数化查询来提高安全性。