2 回答

TA貢獻1827條經驗 獲得超8個贊
asp 連接Mysql數據:
第一步:配置ODBC數據源
在ODBC數據源中建立一個DSN。具體方法是:
1、打開控制面板中的ODBD數據源;
2、選擇“系統DSN”,添加一個新的DSN驅動程序;
3、選擇mysql odbc 3.51 driver,出現一個對話框供輸入MySQL:
(1)Windows DSN name:所要建立DSN的名稱,也就是數據庫的名稱;
(2)MySQL Host (name or ip):MySQL服務器的名稱或IP地址。一般填LocalHost ;
(3)MySQL database name:需要使用數據庫的名稱。
4、在MySQL管理程序中建立數據庫。
(1)user:連接數據庫的用戶名??商顁oot超級用戶;
(2)password:連接數據庫用戶口令??刹惶?;
(3)Port(if not 3306):MySQL在服務器的端口。填默認為3306;
(4)SQL command on connect:使用SQL命令連接數據庫。可不填。
全部填完后按OK保存。
第二步:編寫數據庫鏈接文件
例:有數據庫db_ebookrelease,數據表tb_commondata,字段:序號FID,名稱fTitle (程序如下:)
<%
dim driverName,chs
driverName="Driver={mysql odbc 3.51 driver};server=localhost;database=db_ebookrelease;uid=root;pwd=1;"
set conn=server.createobject("adodb.connection")
conn.open driverName
'查詢之前先執行下面這一句,這句是解決讀取數據庫亂碼問題的關鍵
set chs=conn.Execute("SET NAMES 'gb2312'")
'查詢表
sql = "SELECT * FROM tb_commondata"
Set rs = conn.Execute(sql)
if not rs.eof then
%>
<html>
<head>
</head>
<body>
<TABLE width="400">
<TR>
<TD width="63"><strong>序號</strong></TD>
<TD width="87"><b>名稱</b></TD>
</TR>
<%
Do While Not rs.EOF
%>
<TR>
<TD><%=rs("FID")%></TD>
<TD><%=rs("fTitle")%></TD>
</TR>
<%
rs.MoveNext
Loop
%>
</TABLE>
</body>
</html>
<%
Else
Response.Write("Sorry, no data found.")
End If
rs.Close
conn.Close
Set conn = Nothing
Set rsEmailData = Nothing
%>
添加回答
舉報