创建至数据库的 ADO 连接（ADO connection）
 打开数据库连接
 创建 ADO 记录集（ADO recordset）
 打开记录集（recordset）
 从数据集中提取你所需要的数据
 关闭数据集
 关闭连接

//创建至数据库的 ADO 连接（ADO connection）
Dim dbconn
dbconn = "连接字符串"
Set    DB = Server.Createobject("ADODB.Connection")
DB.connectiontimeout = 300

//打开数据库连接
DB.Open    dbconn

//创建 ADO 记录集（ADO recordset）
Set rs = Server.Createobject("ADODB.Recordset")            
strSQL = "" //sql查询语句

//打开记录集（recordset）  
rs.Open    strSQL,DB

if RS.EOF or RS.BOF    Then            
        RS.close
        DB.close    
Else    
    
//取数据(例子)

Do until RS.EOF    
//.......循环取数据            
    RS.Movenext            
    loop
        
    RS.close        
    DB.close        
    end if
   
  参考资料:http://homepage.yesky.com/