【IT168 服务器学院】MYSQL数据库以它短小、方便、速度快、免费等优点成为很多网站目前首选数据库，但一般都是用PHP+MYSQL相结合来开发各种动态页面，其实ASP也可以使用MYSQL数据库开发动态页面，小弟我也是刚刚学会，不敢独享，所以特写了这篇文章供大伙参考。

我的环境是WINDOWS98+PWS4.0+mysql-3.23.32-win+PHP4

必要的软件：PWS4.0(呵呵，废话)

mysql-3.23.32-win(这个是最新版的)

myodbc-2.50.36-dll(这个是最重要的，MYSQL ODBC的驱动程序，可以到www.mysql.com下载)

第一步：安装MYSQL     ODBD的驱动程序，将下载的myodbd-2.50.46-dll文件复制到windows\system目录下(windows2000是winnt/system32)然后建立一新文件，扩展名为reg(就是注册表文件),将以下内容复制到该文件中。

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\myodbc driver]

"UsageCount"=dword:00000002

"Driver"="C:\\WINDOWS\\System\\myodbc.dll"

"Setup"="C:\\WINDOWS\\System\\myodbc.dll"

"SQLLevel"="1"

"FileUsage"="0"

"DriverODBCVer"="02.50"

"ConnectFunctions"="YYY"

"APILevel"="1"

"CpTimeout"="120"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers]

"myodbc driver"="installed"

保存后双击该文件，将上面代码注册到WINDOWS注册表中。

如果安装在windows2000中,则Driver和Setup主键的值要做相应改变，这里我想就不用多说了。

如果成功，在控制面板/ODBD数据源的驱动程序里将看到myodbd driver这一项！

第二步：建立ASP文件链接数据库。

这里有两种方法，一种是在ODBC数据源中建立一个系统DSN。后来我发现不建立也可以在ASP中使用MYSQL,方法在下文将讲道。

打开控制面板/ODBD数据源，选择系统DSN,然后添加一个新的DSN,驱动程序选择myodbd driver,会出现一个对话框供输入mysql

相关信息。

Windows DSN name: 所要建立DSN的名称

Mysql Host (name or ip):Mysql服务器的名称或者是IP地址，通常填localhost

Mysql database name:需要使用数据库的名称，数据库在Mysql管理程序中建立。这里我们使用一个例子。数据库名：hc188，里面有数据表：user 数据表有两个字段分别是：username和password,随便插入几个数据。

user:链接数据库的用户名，我填的是root超级用户

password:链接数据库用户密码，如果没有，可以不填

Port(if not 3306)：Mysql在服务器的端口，如果不填默认为3306

SQL command on connect:使用sql命令链接数据库，这项可以不填

填写完毕后选择OK保存。

下面链接数据库的ASP代码！

＜%

strConnection = "dsn=hc188;driver={myodbd driver};server=localhost;uid=root;pwd=;database=hc188"

Set adoDataConn = Server.CreateObject("ADODB.Connection")

adoDataConn.Open strConnection

strQuery = "SELECT * FROM user"

Set rs = adoDataConn.Execute(strQuery)

If Not rs.BOF Then

%＞

＜TABLE＞

＜TR＞

＜TD＜b＞username＜/b＞＜/TD＞

＜TD＞＜b＞password＜/b＞＜/TD＞

＜/TR＞

＜%

Do While Not rs.EOF

%＞

＜TR＞

＜TD＞＜%=rs("username")%＞＜/TD＞

＜TD＞＜%=rs("password")%＞＜/TD＞

＜/TR＞

＜%

rs.MoveNext

Loop

%＞

＜/TABLE＞

＜%

Else

Response.Write("Sorry, no data found.")

End If

rs.Close

adoDataConn.Close

Set adoDataConn = Nothing

Set rsEmailData = Nothing

%＞