dim driverName,chs driverName="Driver={mysql odbc 3.51 driver};server=localhost;database=test;uid=loaer;pwd=123456;" set conn=server.createobject("adodb.connection") conn.open driverName
'查詢之前先執行下面這一句 set chs=conn.Execute("SET NAMES 'gb2312'")
'查詢數據庫表
sql = "SELECT * FROM tb_commondata" Set rs = conn.Execute(sql)
