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

0 then ,\laqH\ 1%  
Response.Write 错误 ： & err.description & #9M6 q  
response.end mrX 2w  
End if Cgq/#2BM  
End Sub C8 9c2  
Sub EndDB() 1
BO$xq  
Set objOraDB = Nothing ?^t"tY  
Set objOraSession = Nothing t{Ck"4Cg  
End Sub PeT _Ty  
Function getTableList(str) :iqFC >D  
Dim strSql,strTmp &7"a.&*9xX  
Dim objRs /T1zz2l~  
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 a+sHW<QeS  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) "Ah (EZAR  
While Not objRs.Eof l$N b1&  
strA = objRs(uname) & . & objRs(tname) 6bF?2 OC  
91d@/z  
If str=strA then Z M_ 6A1  
strTmp = strTmp & & strA & ywW
F+kR_  
Else qKNX^n;  
strTmp = strTmp & & strA & Y7
(E<1Yx  
End if ChO?Lm$y  
objRs.MoveNext uTTM%-DMHT  
Wend })RT2zw}  
Set objRs = Nothing 1henQiIO  
getTableList = strTmp >oSNKE  
End Function R1OC7q  
% > `]%\Y>(a}  
 O_^O1  
b~dm+5W7  
VtIPw&KHW  
erTb9`N4  
All Tables : f'P}]_3(  
=2!AK[KxX  
HEdOo~/~  
hp=TWt~  
m}/LMY  
() B w?Kb@  
x}o]R  
l}odW  
t9T3e  
<{!^  
o8B_;4uB  
  then 7xz~%xC.  
strSql = Select * from & tblname 9QE|
p  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) #vh1QV!Ho  
Response.Write 2c:H0O 0o  
for i=0 to rs.Fields.count-1 Dlz||==  
  Response.Write & rs.fields(i).name & :aHD'K  
next 'D#iT}Vu  
Response.Write eLE9-K+  
While Not Rs.Eof *: )hoHp&  
  Response.Write 94C)63V  
  for i=0 to rs.fields.count -1 bL*;6TzRK  
        Response.Write & Rs.Fields(i).Value &   SxV(.i'  
  next \|^fG9M~  
  Response.Write       N'hj  
  Rs.MoveNext P5M+usx  
Wend zWvG];fsN  
Set Rs = Nothing R{{d4=:S  
end if n.zVCKNH  
  % > 'A@[a_  
Bfhw0v]Z  
GBOz,_pw  
F%QZe*m[  
p_h)|*W{  
转自： ASP教程采集