让ASP搭配MYSQL

让ASP搭配MYSQL

所需要工具

mysql-4.1.11-win32
myodbc-3.51.11-1-dll
myodbc-3.51.11-1-win
mysqlcc-0.9.4-win32

注册文件Mydbc.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"="03.51" 
"ConnectFunctions"="YYY" 
"APILevel"="1" 
"CpTimeout"="120" 
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers] 
"myodbc driver"="installed" 

建立ASP文件链接数据库

例子如下
Windows DSN name: 所要建立DSN的名称
Mysql Host (name or ip):Mysql服务器的名称或者是IP地址，通常填localhost
Mysql database name: admin
Database: admin
password: 000000
Port(if not 3306):
SQL command on connect:

下面两种链接数据库的ASP代码

1. 使用DSN

<％ 
strConnection = "dsn=admin;driver={myodbd driver};server=localhost;uid=root;pwd=000000;database=admin" 
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 
％> 

2. 不使用DSN

<％ 
strconnection="DefaultDir=;Driver={myodbc driver};database=admin" 
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 
％>