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

0 then GA/afc,V  
Response.Write 错误 ： & err.description & CY{!BV'  
response.end 8O(L;
&h  
End if tLN^k;w  
End Sub 3 =c#LUA`  
Sub EndDB() ;m>/tD%  
Set objOraDB = Nothing zK1]o-wSAT  
Set objOraSession = Nothing I1l^0@J   
End Sub H?M:<q0|G  
Function getTableList(str) tPN CdA  
Dim strSql,strTmp &WL::gy_S  
Dim objRs GoAh{=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 (xWsyo(4  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) rIYO(}Fl  
While Not objRs.Eof HS ]c~  
strA = objRs(uname) & . & objRs(tname) vu91" 4Fa  
[hpkE lE  
If str=strA then %6rSLBw3  
strTmp = strTmp & & strA & V9qA'k  
Else ]];pWlo!  
strTmp = strTmp & & strA & {:VK}w  
End if JC-> eY"O2  
objRs.MoveNext d=8.cQL:E  
Wend ,Wu$@jD/]  
Set objRs = Nothing ceD6q~)  
getTableList = strTmp 'W4v>0
 
End Function }YBuS3{  
% > )!cucY  
x3#:C=  
p~=z)7%e'  
>3B{sn}  
7CSz  
All Tables : :@"o.8p   
Hm
!"%  
;~djbo0,X  
JhwHsx/  
V_D wHq2  
() 3!/J!X3L  
$d])>4eQ  
a#%*H
 
D.%%D%AdB  
&!O?h/&X3  
ZWGX*F#}P  
  then &"gX 7cK8  
strSql = Select * from & tblname mAGD qz>f  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) lo'#dpt<  
Response.Write ~6Fh,S1?  
for i=0 to rs.Fields.count-1 5mpql[v3P  
  Response.Write & rs.fields(i).name & -3~S{)  
next He5y;5  
Response.Write (Cq 38~mR  
While Not Rs.Eof ?wv3HN  
  Response.Write Vn:v{-i  
  for i=0 to rs.fields.count -1 \9tJ/~   
        Response.Write & Rs.Fields(i).Value &   =T26vu  
  next tjB)-=j[  
  Response.Write       );iJ9+ V}  
  Rs.MoveNext
;-Os~81o?  
Wend );}M"W8  
Set Rs = Nothing &08dW9H  
end if Lb<IEy77\  
  % > F%&lM[N%  
jPZ+~:m+  
n7~4*B
 
ss}-YnG  
4g2`[<S  
转自： ASP教程采集