asp连接mysql视频_asp连接mysql

‘‘‘‘‘‘下载驱动文件

‘‘‘‘‘‘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

%>

do while not rs.eof

%>

编号标题

rs.movenext

Loop

%>

else

Response.Write("无数据！")

End if

rs.close

Set rs=Nothing

conn.Close

Set conn=Nothing

%>