ASP远程连接MYSQL

发布网友 发布时间：2022-04-10 15:24

我来回答

共2个回答

懂视网 时间：2022-04-10 19:45

<%
‘‘‘‘‘‘下载驱动文件
‘‘‘‘‘‘https://dev.mysql.com/get/Downloads/Connector-ODBC/3.51/mysql-connector-odbc-3.51.30-winx64.msi 文件下载地址
‘‘‘‘‘‘‘gb2312 utf8 gbk
Dim conn, connstr, mycharset,strquery
mycharset = "utf8"
connstr="driver={mysql odbc 3.51 driver};database=qf_jzw;server=localhost;uid=root;password=root"
set conn=Server.CreateObject("adodb.connection")
conn.open connstr
conn.execute("set names ‘" & mycharset & "‘")
‘不加上面语句汉字部分可能会出现？？？乱码
%>
<%
strquery = "select * from qf_info limit 5,5"
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open strquery, conn, 1, 1
‘set rs = conn.execute(strquery)
if not rs.bof then
%>
<table>
<%
do while not rs.eof
%>
<tr>
<td>编号</td>
<td>标题</td>
</tr>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("title")%></td>
</tr>
<%
rs.movenext
Loop
%>
</table>
<%
else
Response.Write("无数据！")
End if
rs.close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>

asp连接mysql

标签：word   utf8   文件   .exe   标题   数据   record   cti   https   

热心网友 时间：2022-04-10 16:53

ODBC是谁调用?就装在哪台机器上.

<%

Dim Conn 

Dim ConnStr 

Set Conn = Server.CreateObject("ADODB.Connection") 

ConnStr = "DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=localhost;database=Shop;UID=root;PWD=123456" Conn.Open ConnStrresponse.Write(conn.state) '显示连接状态，若为1表示连接成功，若为0连接失败。

%>如有不对可百度,或者查询相关ADO文献

3.是否油权限账户密码是否正确.网络是否联通