方法一:Connection对象
Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
Dim rs '命令字符串
StrDSN="driver={MySQL ODBC 3.51 Driver};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
conn.open StrDSN
str_sql="select*from tb_class where cate_id=0"
Set rs=conn.Execute(str_sql) '建立一个RecorderSer对象实例rs
方法二:Command对象
Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
Dim rs '命令字符串
StrDSN="driver={MySQL ODBC 3.51 Driver};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
Dim cmd
cmd=Server.CreateObject("ADODB.C