初看上去没什么错误啊 你试试看 再报什么错?
dim con,rs,driver_name  
driver_name="Provider=MSDAORA.1;Password=wxct;User ID=office;Data Source=gis;Persist Security Info=True"  
set con = server.CreateObject("adodb.connection")  
con.open driver_name  
set rs=server.CreateObject("adodb.recordset")
rs.open "select ...",con,3,1
do while not rs.eof
   response.write rs(0)
  rs.movenext
loop