dim oraSession, oradb, sSql, oRs
Set oraSession = CreateObject("oracleinprocserver.xorasession")
Set oradb = oraSession.dbopendatabase("连接串", "用户名/密码", 0)
sSql = "sql语句"
'创建记录集
set oRs = Oradb.createdynaset(sSql,0)
具体可以查看oracle object for ole help
Set oraSession = CreateObject("oracleinprocserver.xorasession")
Set oradb = oraSession.dbopendatabase("连接串", "用户名/密码", 0)
sSql = "sql语句"
'创建记录集
set oRs = Oradb.createdynaset(sSql,0)
具体可以查看oracle object for ole help
<%
set conn=server.createobject("adodb.connection")
constr="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=xxx;Password=xxx;Data Source=db(数据库)"
conn.Open constrSQL="insert into test(a) values(sysdate)"
set rs=conn.execute(SQL)set rs=nothing
conn.close
set conn=nothingset conn=server.createobject("adodb.connection")
dns="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=xxx;Password=xxx;Data Source=db(数据库)"
conn.Open dnsSQL="select to_char(a,'hh24:mi:ss') from test"
set rs=conn.execute(SQL)
%>
<table border=1><tr>
<%
i=1
do while (not rs.eof)
%>
<td><%=rs.fields(0).value%></font></td>
<%
if i mod 13 =0 then response.write "<tr></tr>"
i=i+1
rs.movenext
loop
%></tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
session("DSN") = "system_user"
session("UserID") = "user"
session("Pwd") = "pwd"
set Session("dbConn") = server.CreateObject("ADODB.connection")
Session("dbConn").Open Session("DSN"), Session("UserID"), Session("Pwd")
set dbconn=session("dbconn")
http://www.vbip.com/books/1861001789/chapter_1789_10.asp
很详细的