myodbc-2.50.36-dll.zip,解壓 myodbc.dll 至 C:\Windows\System(Win2000 為 C:\WINNT\System32)。myodbc.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"
雙擊導入註冊表,控制面板 ODBC 數據源驅動程式頁可見 myodbc driver。
myodbc driver,填寫:| 欄位 | 範例值 |
|---|---|
| Windows DSN name | hc188 |
| MySQL Host | localhost |
| MySQL Database name | hc188 |
| User | root |
| Password | (空或實際密碼) |
| Port | 3306 |
<%
strConnection = "dsn=hc188;driver={myodbc 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><th>username</th><th>password</th></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 rs = Nothing
%>
strConnection = "Driver={myodbc driver};database=hc188;server=localhost;uid=root;pwd=;"
其餘代碼不變,直接用 adoDataConn.Open strConnection。
資料庫 hc188 → 表 user(username, password)插入幾條記錄即可驗證。