<%
'连接数据库
set orasession=createobject("OracleInprocServer.XOraSession")
set oradatabase=orasession.dbopendatabase("10.187.16.52|orcl","system/manager",0)
%>
dim objconnection
dim objrecordset
dim varsql
set objconnection = server.createobject ("adodb.connection")
with objconnection
.connectionstring= "provider=MSDAORA;data source=数据库连接字府串;user id=用户名;password=密码;"
.open
end with
varsql="select * from al where (f_type='新闻报道' and f_pass=1 and f_locate=1) order by f_id desc" set objrecordset=objconnection.execute(varsql)