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

0 then VN0We<\Z  
Response.Write 错误 ： & err.description & DAB9-[y+  
response.end IW3k{z  
End if //U1mDFT  
End Sub l%0bF9\  
Sub EndDB() a>'ez0C  
Set objOraDB = Nothing 4VWk/HK-!  
Set objOraSession = Nothing a/sjW  
End Sub 4Z( #;9f  
Function getTableList(str) EiL#Dwx  
Dim strSql,strTmp _\ToA9m  
Dim objRs NXU:b"G S  
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 $*fJKR_N  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) d;Vy59}eY  
While Not objRs.Eof 3@>F-N  
strA = objRs(uname) & . & objRs(tname) nqcq3o*B  
h:YD$XE  
If str=strA then G*fo9eu5$  
strTmp = strTmp & & strA & fu/8r%:h  
Else 1F^Q*t{  
strTmp = strTmp & & strA & $KiCs]I+  
End if }TmOoi(X@  
objRs.MoveNext E.oJ[;  
Wend H}^
'  
Set objRs = Nothing 5p;AON  
getTableList = strTmp >cu%Cs=m  
End Function VY0.]t  
% > 9y7N}T6  
~VGnE:  
yB b%#GW  
H U|.5tP  
3S0.sU~_U  
All Tables : Kg[OUBv  
nw+~:c
 
Bt+^H6cb  
/{i~CGc;"  
~MC|  
() 3o<d=@`r  
4T@:_G2b  
i"2OsGT  
+)Z]<O  
CdolZW-!"  
J1?

;'  
  then RJrz ~,}  
strSql = Select * from & tblname "g{q=[U}  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 1K72}Gj)ZL  
Response.Write *LT~:Gs#  
for i=0 to rs.Fields.count-1 p8rh`7  
  Response.Write & rs.fields(i).name & "[bkdL<  
next (m~>W"x/  
Response.Write b/SBQ"B%  
While Not Rs.Eof ]P4WfV d  
  Response.Write h3ygL"k  
  for i=0 to rs.fields.count -1
YB#fAU  
        Response.Write & Rs.Fields(i).Value &   JzyCeM
=  
  next 6#=jF[  
  Response.Write       %()d$.F  
  Rs.MoveNext B=_w9iVN  
Wend h<9s& p  
Set Rs = Nothing ,/;Aew;  
end if _:x]'w%  
  % > b IDUa  
ewDYu=`*  
({
f}Z-%  
o+A7hBM^  
5E!C?dv(z  
转自： ASP教程采集