ASP使用MySQL数据库的方法

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

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
%＞