方法一: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.Command")
cmd.ActiveConnection=conn
str_sql="select*from tb_class where cate_id=0"
cmd.CommandType=1 '表示查询语句为sql语句
cmd.COmmandText=str_sql '指定查询指令
Set rs=cmd.Execute '执行查询,返回一个Recordset对象
方法三:Recordset对象,明确建立Recordset对象的方式
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=server.CreateObject("ADODB.Recordset") '建立一个Recordset 对象的实例
str_sql="select * from category where cate_id_sup=0"
rs.open str_sql,conn,1,1