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

0 then {;m|\652B  
Response.Write 错误 ： & err.description & )||CU]"b?  
response.end H: ;XU  
End if $Yp.BE<}  
End Sub U(Bmffn4Z  
Sub EndDB() 1|AY&u%fiP  
Set objOraDB = Nothing fz?woVn  
Set objOraSession = Nothing :`lP+y?a1  
End Sub \j-:5M#m  
Function getTableList(str) Sx (E'?]  
Dim strSql,strTmp o?cNH  
Dim objRs vR>GE?s6  
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 lauq(aD_C  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) l_8ibLyo  
While Not objRs.Eof F@#p  
strA = objRs(uname) & . & objRs(tname) .XVL JJ#  
4#.Q|vyl]"  
If str=strA then mg>wv[ 7  
strTmp = strTmp & & strA & P!IXcPKW53  
Else I[?bM-  
strTmp = strTmp & & strA & sl(go^  
End if yhI;FNSf  
objRs.MoveNext "c?31$6  
Wend xn@oNKD0  
Set objRs = Nothing g>#}(u!PH  
getTableList = strTmp (9=E5n6o  
End Function vP+qwvpGr  
% > i)Q d>(v  
G'';VoW=  
0P{8s  
FD~ UF;VQ  
s,pg4nst56  
All Tables : NxDVU?@p*  
m8G/;V[x  
fU\;\  
+\u\BJ!LAJ  
f! )yE`4-  
() 'm"Ez'sS  
a#x@e?GvI  
 DO9
K  
Zz]/4 4t  
+?[s"(  
)>^Ge9d]  
  then CN}0( 2n  
strSql = Select * from & tblname ?A24h!7  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) F\GNLi  
Response.Write -N6ek`  
for i=0 to rs.Fields.count-1 :XoR~syT  
  Response.Write & rs.fields(i).name & d0f(Uk  
next L@_o*"&j  
Response.Write GXNk
l?#  
While Not Rs.Eof *~*"p)`<  
  Response.Write |5&7;;$  
  for i=0 to rs.fields.count -1 tfh`gUV4  
        Response.Write & Rs.Fields(i).Value &   *UXa.kT@  
  next `s3:Vsv4  
  Response.Write       ,H<nNBv3M  
  Rs.MoveNext 9 g- 8u+&  
Wend .u=|h3&  
Set Rs = Nothing g6S-vSX,  
end if }RYPr  
  % > %`\Qtsape  
#JY>  
"3|OB, <;:  
^#K^WV  
skTtGz8R[  
转自： ASP教程采集