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

0 then `}k&HRn  
Response.Write 错误 ： & err.description & %!ER@&1f&  
response.end @yU!sE:  
End if D&z'tf5  
End Sub #lBpln9  
Sub EndDB() C>w9 {h  
Set objOraDB = Nothing `mq
4WXO\  
Set objOraSession = Nothing 4! Oa4  
End Sub e6{[o@aM{  
Function getTableList(str) in=k:j,U0  
Dim strSql,strTmp zJG x5JC  
Dim objRs Z!]U&Ax`Z  
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 Q !RVD*(  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \pewbu5^  
While Not objRs.Eof u/!mN2{Rd  
strA = objRs(uname) & . & objRs(tname) 9Th32}H  
7U{b+=,wK  
If str=strA then L5zG0mC8  
strTmp = strTmp & & strA &  
:kp  
Else :]u}xDv3  
strTmp = strTmp & & strA & |7S4;  
End if 0XQ".:+h  
objRs.MoveNext 9?g]qy,1)  
Wend @ V7ooo!  
Set objRs = Nothing
wQdW lon  
getTableList = strTmp D)O6|DiO  
End Function #5ohmp,u  
% > 2#n$x*CY  
g6@NPQ  
^EuyvftZ  
-hG 9  
I7
G\X#,iz  
All Tables : WB=<W#?w7%  
k@t,[  
FQ9csUjpB  
bn*{*=(|  
_V7^sk!  
() MOqA$b  
+}(B856+  
3Q*RR"3  
l9ifUhe  
F"m}mf  
LKqog%,c  
  then cP#]n)<  
strSql = Select * from & tblname c>U{,z  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Pv2nV!X6  
Response.Write f<> YYeY  
for i=0 to rs.Fields.count-1 '#4mDz~  
  Response.Write & rs.fields(i).name & XJxs4a1[t  
next r;%zGFp  
Response.Write UwL"%0u  
While Not Rs.Eof >Dp6@%  
  Response.Write E!}-qbH^  
  for i=0 to rs.fields.count -1 7ck0S+N'b  
        Response.Write & Rs.Fields(i).Value &   2p3u6\y  
  next H8t{ >C)]  
  Response.Write       [
^(R1K  
  Rs.MoveNext 0ZID @^  
Wend Eps\iykB  
Set Rs = Nothing R 6yvpH  
end if $NGtxZp  
  % > eVCkPv*  
^cmP  
PM@s}(  
,~N+?k_  
<C.$Db&9  
转自： ASP教程采集