asp下用OracleInProcServer完成对Oracle的连接和操作

0 then sqac>v  
Response.Write 错误 ： & err.description &  ;{BELv-4  
response.end &{y-}[~  
End if )#Y*]  
End Sub Uh?SDay  
Sub EndDB() T -C2V$1  
Set objOraDB = Nothing GIo&zPx  
Set objOraSession = Nothing 5x4JDaG2  
End Sub E+>Qpy  
Function getTableList(str)  z{``v|K  
Dim strSql,strTmp 6!Ji-'\"  
Dim objRs ;2)@NH  
strSql = Select at.table_name as tname,au.username as uname from all_tables at,all_users au Where au.username=at.owner order by au.username K-k;`s#  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) A(Ugam~}  
While Not objRs.Eof 69r<Z  
strA = objRs(uname) & . & objRs(tname) \|DcWH1  
292e0cE  
If str=strA then -`iZBC50  
strTmp = strTmp & & strA &  5ah]E  
Else o*I=6`j  
strTmp = strTmp & & strA & 2HkP$;lED  
End if e}kEh+4  
objRs.MoveNext cl1h;w9s  
Wend cL<  
Set objRs = Nothing lkFv5^%  
getTableList = strTmp 5cgDHs  
End Function %{&yXi:mS  
% > io$
AGi  
\ tF><  
rMfp%DMA  
Mh[;E'C6  
LJfd{R1y+  
All Tables : {Z1j>h$  
ui YZk3  
q*?LXKi  
/u*((AJ?Qv  
#r#UO  
() ^0ipM/Lg  
~F+{P4%`<  
vUvIZa  
aJOhji<b#L  
MY4cMMjp~  
[[Qu|?KEa  
  then =d.Z:L9d  
strSql = Select * from & tblname pDCQ?VW  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) <i%.bfQ/-  
Response.Write +Q}Y?([  
for i=0 to rs.Fields.count-1 mcpM<vY/H  
  Response.Write & rs.fields(i).name & c3Y\XzV3v  
next 68+9^  
Response.Write HKb8z@;%@  
While Not Rs.Eof ^6Hfq^ejt  
  Response.Write yFH)PQ_  
  for i=0 to rs.fields.count -1 xuv%mjQ  
        Response.Write & Rs.Fields(i).Value &   LylB3BM  
  next 2"c$#N  
  Response.Write       a~9U{)@F  
  Rs.MoveNext sD_Z`1  
Wend /F4rbL^:  
Set Rs = Nothing iaLsIy#h  
end if Zh6bUxr  
  % > }tua0{N:z  
TmoODG
>@  
,L6d~>=41  
g"FG7E&  
/3L1Un*  
转自： ASP教程采集