让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_MACHINESOFTWAREODBCODBCINST.INImyodbc 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_MACHINESOFTWAREODBCODBCINST.INIODBC 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 
  TDbusername/b/TD 
  TDbpassword/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 
  TDbusername/b/TD 
  TDbpassword/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 
  %