asp连接mysql数据库详细实现代码

set cOnn= server.createobject("adodb.connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=Shops;USER=root;PASSWORD=xxx;"

<%
'测试读取MySql数据库的内容
strcOnnection="driver={mysql odbc 3.51 driver};database=weste_net;server=localhost;uid=root;password="
'无需配置dsn
set adodatacOnn= server.createobject("adodb.connection")
adodataconn.open strconnection
strquery = "select * from News"
set rs = adodataconn.execute(strquery)
if not rs.bof then
%>


序列号


<%
do while not rs.eof
%>




<%
rs.movenext
loop
%>

标题
<%=rs("News_id")%>	<%=rs("News_Title")%>

<%
else
response.write("无数据.")
end if
rs.close
adodataconn.close
set adodatacOnn= nothing
set rsemaildata = nothing
%>

conn.execute("set names '" & myChareSet & "'")

Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;PORT=3333;DATABASE=Shops;USER=root;PASSWORD=xxx;"