sql=select 邮件地址 from t1 where 地域='北京'
path=server.mappath("文件名.txt")
set fso=server.createobject("scripting.filesystemobject")
set f1=fso.OpenTextFile(path,1)
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
while not rs.eof
f1.writeline(rs.fields("邮件地址"))
wend