初看上去没什么错误啊 你试试看 再报什么错?
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
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
dns="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=office;Password=wxct;Data Source=gis"
con.Open "ETSD","office","wxct"
sql="select ..."
SET rs=con.Execute(sql)