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

0 then I/B*iW^  
Response.Write 错误 ： & err.description & ?hmuAgOtbh  
response.end 4JO[yN  
End if *|4/XHi  
End Sub g\2/Ia+/@  
Sub EndDB() BjyV&1tRV!  
Set objOraDB = Nothing $Ph#pM(  
Set objOraSession = Nothing
6 h%,%  
End Sub Tlm:
:S   
Function getTableList(str) Fks #Y1rI  
Dim strSql,strTmp JP,yRb\  
Dim objRs }?)U`zF)7}  
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 p]eVby"  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 9;7|MPbR  
While Not objRs.Eof (V x2*Aw]  
strA = objRs(uname) & . & objRs(tname) OLZs}N+;]  
Gk']Ma2J}  
If str=strA then ucYweXsO3  
strTmp = strTmp & & strA & 5W!#,jz  
Else &[z<p  
strTmp = strTmp & & strA & WYN0,rv1:+  
End if iLt2L;v>h  
objRs.MoveNext j  Gp&P  
Wend 8n,/hY>w  
Set objRs = Nothing 3y%,f|ju  
getTableList = strTmp LC,6hpmh  
End Function Bra}HjHO  
% > -#Ys67,4N  
JJHO E{%  
()Q#@?c~  
%"Ia]0  

(M2hK[  
All Tables : M?_7*o]!  
7n)ob![\d  
/!'Png0!  
w `nm}4M  
T'ei>]y]  
() TD sjNFe3  
[XhG7Ly  
60G(jO14  
Alk+MwjR  
`t"7[Zk  
f>iDqC4  
  then cE^Ljk  
strSql = Select * from & tblname L0)w~F ?m  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) %Jji<M]  
Response.Write J9/EJ'My  
for i=0 to rs.Fields.count-1 Z*+y?5+L"P  
  Response.Write & rs.fields(i).name & Z<iK(?@O  
next Y?6}r;<  
Response.Write ^;sE)L6  
While Not Rs.Eof bA1O]:`  
  Response.Write >a;LBQ0  
  for i=0 to rs.fields.count -1 6j Rewj  
        Response.Write & Rs.Fields(i).Value &   q2P_37  
  next PJO.^OsM  
  Response.Write       tlM >=s'T  
  Rs.MoveNext TkR#Kzv380  
Wend cGyR_8:2cv  
Set Rs = Nothing 0g2rajS  
end if \UP=pT@  
  % > 2fgYcQ8`  
Zb7%$1)L~  
p}Um+I=1  
B7wzF"  
Qv<p$Up6  
转自： ASP教程采集