Var conn = new ActiveXObject("ADODB.Connection");

//数据库连接字符串

conn.connectionString = "dsn =dbname;uid=userid;pwd=password";

//打开数据库连接

Conn.open();

//创建操作结果集

Var rs = new ActiveXObjext("ADODB.Recordest");

//sql语句

Var sql = "select * from tbname";

//打开结果集

rs.open(sql,conn,1,3);//1,打开只向前移动的游标3.开放式锁定

//迭代集合

while(!rs.EOF){

    F.write(rs("字段名"));//将结果写入文件

    rs.moveNext();//进入下一条记录

}