<%
' 測試讀取 MySQL 資料庫
strConnection = "Driver={MySQL ODBC 3.51 Driver};Database=weste_net;Server=localhost;UID=root;PWD=;"
Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.Open strConnection
strQuery = "SELECT * FROM News"
Set rs = adoConn.Execute(strQuery)
If Not rs.BOF Then
%>
<table>
<tr><th>序號</th><th>標題</th></tr>
<%
Do While Not rs.EOF
%>
<tr><td><%=rs("News_id")%></td><td><%=rs("News_Title")%></td></tr>
<%
rs.MoveNext
Loop
%>
</table>
<%
Else
Response.Write "無資料."
End If
rs.Close
adoConn.Close
Set adoConn = Nothing
Set rs = Nothing
%>
MySQL ODBC 3.51 Driver(需先安裝 Connector/ODBC)Charset=utf8;,或頁面 @CodePage=65001Close 並 Set Nothing,避免連線洩漏現代替代方案: ASP.NET 使用 MySql.Data.MySqlClient (Connector/NET),效能更好、支援連線池、參數化查詢防 SQL Injection。