28,391
社区成员
发帖
与我相关
我的任务
分享asp连接MYSQL
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=UTF-8">
</HEAD>
<BODY>
<%
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
strDSNLess="dsn=para;driver={MySQL ODBC 3.51 Driver};uid=root;pwd=123;database=PARA"
conn.open strDSNLess
if conn.state=1 then
Response.Write "conn与数据库连接成功"
sql="select * from user"
set rs=Server.CreateObject("adodb.RecordSet")
rs.Open sql,conn,1,1
do while not rs.eof
Response.Write "<p>用户名："&rs("name")&" 密码："&rs("password")&"</p>"
rs.MoveNext
loop
rs.Close
set rs=nothing
else
Response.Write "conn与数据库连接失败"
end if
conn.close
set conn=nothing
%>
</BODY>
</HTML>
dsn,用户名，密码都对，但就是现实conn与数据库连接失
<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=UTF-8">
</HEAD>
<BODY>
<%
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
strDSNLess="dsn=para;driver={MySQL ODBC 3.51 Driver};uid=root;pwd=123;database=PARA"
conn.open strDSNLess
if conn.state=1 then
Response.Write "conn与数据库连接成功"
sql="select * from user"
set rs=Server.CreateObject("adodb.RecordSet")
rs.Open sql,conn,1,1
do while not rs.eof
Response.Write "<p>用户名："&rs("name")&" 密码："&rs("password")&"</p>"
rs.MoveNext
loop
rs.Close
set rs=nothing
else
Response.Write "conn与数据库连接失败"
end if
conn.close
set conn=nothing
%>
</BODY>
</HTML>
dsn,用户名，密码都对，但就是现实conn与数据库连接失
...全文
