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

0 then rD>*j~_+P  
Response.Write 错误 ： & err.description & 5s(1[(  
response.end Em[DHfu1Q  
End if JNcYJ[wqv  
End Sub L(GjZAP  
Sub EndDB() j*xV!DqC  
Set objOraDB = Nothing `y#UJYXQE  
Set objOraSession = Nothing 3D?sL!W  
End Sub E2)h?cs  
Function getTableList(str) x8GJY~:SW  
Dim strSql,strTmp -OSa>-bzNx  
Dim objRs 2Sm}On  
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 Dk48@`l2  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) .`?@%{  
While Not objRs.Eof IK*07h/!  
strA = objRs(uname) & . & objRs(tname) vn/.}GkpU  
@cU&n6C@  
If str=strA then 8enEA^  
strTmp = strTmp & & strA & :[;hu}!&  
Else [w ;kkMJAy  
strTmp = strTmp & & strA & ybp 
-$e  
End if <w3!!+oK"  
objRs.MoveNext +iOKbc'  
Wend r'gOVi4t1*  
Set objRs = Nothing  Q1@A2+ c  
getTableList = strTmp 9m
Z  
End Function |7x\m t  
% > yA47"R  
2wF8 P)  
36US5ef  
^n0]dizB  
X$/2[o#g  
All Tables : dH
( ('u[  
NHlk|Y#6b  
uslQ*7S[^  
Jmx Ko+-  
4@xE8`+bG  
() 1?Z4K/  
G@j0rnn>B  
hlt[\LP=$  
[$[:"N_  
*hcYGLx r  
cu+FM  
  then >LDhU%bH  
strSql = Select * from & tblname [` sL?&a  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) #:SNHM^><  
Response.Write Y`?-VaY  
for i=0 to rs.Fields.count-1 1^gl}^|B  
  Response.Write & rs.fields(i).name & Z1"
v}g  
next X.:]=,aGW  
Response.Write 2;w*oop,O  
While Not Rs.Eof 5h;+Ky!I  
  Response.Write ->N8#XH2=  
  for i=0 to rs.fields.count -1 zXRlo]  
        Response.Write & Rs.Fields(i).Value &   /hO1QT}xd  
  next orb_"Qw  
  Response.Write       + nF'a(  
  Rs.MoveNext ~K@'+5Pc  
Wend 2WG>, 4W2  
Set Rs = Nothing .YuJJJv  
end if ?,/U^rf^4  
  % > NIw\}[-Z0E  
5xL~`-IA&v  
1)Zf3Y8  
TsTPj8GAl[  
({o'd=nO  
转自： ASP教程采集