asp采用ODBC接口访问MySQL的方法

准备环境

首先，需要确保你已经安装了MySQL数据库，并且可以使用ODBC进行连接。若没有安装，请先到MySQL官网下载安装。另外，你也需要下载ODBC驱动程序，以便能够创建ODBC数据源。在这里，我们以MySQL 5.7 版本为例，下载 Connector/ODBC。

创建ODBC数据源

安装完ODBC驱动程序后，我们需要创建ODBC数据源，以实现ASP网页与MySQL的连接。具体步骤如下：

1) 打开控制面板，选择“管理工具”，再选择“数据源(ODBC)”。

2) 在弹出的“ODBC 数据源管理器”对话框中，选择“系统 DSN”选项卡，点击“添加”按钮。

3) 在弹出的“创建新数据源”对话框中，选择要创建的数据源类型，本文以MySQL ODBC 数据源为例，选择“MySQL ODBC 5.3 Unicode Driver”。

4) 根据服务器配置填写“配置数据源”对话框中的相关选项，如数据源名称、服务器、端口、用户名、密码等。其中，需要注意的是，在“数据库”中填入所要连接的MySQL数据库名称。

5) 配置完成后，点击“测试”按钮测试连接是否成功，若测试成功，则“测试连接成功”对话框提示。

编写ASP访问MySQL的程序

在成功创建ODBC数据源后，我们就可以在ASP程序中进行连接和操作MySQL数据库了。步骤如下：

1) 在ASP页面中定义数据库连接字符串。

例如：

<%
Dim connStr '数据库连接字符串
Set connStr=Server.CreateObject("ADODB.Connection")
connStr.Provider="MSDASQL"
connStr.ConnectionString="DSN=" & "MySQL_test" 'MySQL_test是刚刚创建的ODBC数据源名称
connStr.Open
%>

2) 在ASP页面中执行SQL语句。

例如，查询数据库中tb_user表的所有记录：

<%
Dim connStr '数据库连接字符串
Set connStr=Server.CreateObject("ADODB.Connection")
connStr.Provider="MSDASQL"
connStr.ConnectionString="DSN=" & "MySQL_test" 'MySQL_test是刚刚创建的ODBC数据源名称
connStr.Open

Dim rs '记录集
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tb_user",connStr
Do Until rs.EOF
  Response.Write rs("user_id") & " " & rs("user_name") & "<br>"
  rs.MoveNext
Loop
rs.Close

connStr.Close
%>

捕获异常信息

在使用ASP访问MySQL的过程中，可能会遇到各种异常错误。为了更好的调试程序，可以使用try...catch等语法结构截获异常信息。

例如：

<%
On Error Resume Next
Dim connStr '数据库连接字符串
Set connStr=Server.CreateObject("ADODB.Connection")
connStr.Provider="MSDASQL"
connStr.ConnectionString="DSN=" & "MySQL_test" 'MySQL_test是刚刚创建的ODBC数据源名称
connStr.Open
If Err.Number <> 0 Then
    Response.Write Err.Description
End If
%>

上述代码通过On Error Resume Next关键字语句将错误捕捉起来，如果连接失败，将Err.Description中的错误描述输出。

示例说明

以下示例演示了在ASP页面中插入一条新的用户记录，并查询所有用户记录：

<%
' 定义数据库连接字符串
Dim connStr 
Set connStr=Server.CreateObject("ADODB.Connection")
connStr.Provider="MSDASQL"
connStr.ConnectionString="DSN=" & "MySQL_test" 'MySQL_test是刚刚创建的ODBC数据源名称
connStr.Open

' 插入新记录
Dim user_name,user_age,user_sex
user_name = "张三"
user_age = 22
user_sex = "男"
connStr.Execute("insert into tb_user (user_name,user_age,user_sex) values ('" & user_name & "'," & user_age & ",'" & user_sex & "')")

' 查询所有记录
Dim rs 
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tb_user",connStr
Do Until rs.EOF
  Response.Write rs("user_id") & " " & rs("user_name") & " " & rs("user_age") & " " & rs("user_sex") & "<br>"
  rs.MoveNext
Loop
rs.Close

' 关闭数据库连接
connStr.Close
%>

上述代码通过执行insert into语句向tb_user表中插入一条新记录，然后查询所有记录，并输出结果。输出结果类似于：