Asp连接Mysql代码

Asp连接mysql

首先安装mysql ODBC Driver 可以到mysql官方网站下载

<%

Dim conn,rs,connStr,sqlStr

connStr="Driver={MySql ODBC 5.1 Driver};server=127.0.0.1;database=dnt25;uid=root;pwd=root"

sqlStr="select directory,name,author,createdate from dnt_templates"

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

conn.open connStr

Set rs=conn.Execute(sqlStr)    '注意这里不能通过re.open sql,conn,1,1打开，因为mysql不支持游标，只能通过conn.Ececute()返回Rescord对象

 

If rs.EOF and rs.BOF Then

    Response.Write("没有任何信息")

End If

Do while not rs.Eof

Response.Write(rs("directory")&"
")

Response.Write(rs("name")&"
")

Response.Write(rs("author")&"
")

Response.Write(rs("createdate")&"

---

")

rs.moveNext

Loop

 

 

rs.close()

Set rs=Nothing

conn.close()

Set conn=Nothing

%>