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

0 then F92n)*[  
Response.Write 错误 ： & err.description & C?E;sRr0  
response.end KNK0w5  
End if ("{AY?{{  
End Sub $s) ^zm~  
Sub EndDB() Xf#;GYO|2  
Set objOraDB = Nothing LW2Sko?Yo  
Set objOraSession = Nothing ,xR^8G8  
End Sub />$)o7U`+  
Function getTableList(str) hW|t
~|j#_  
Dim strSql,strTmp _~_Hup  
Dim objRs !XtbZ-  
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 ~gX@2!D5k  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) D/{-  
While Not objRs.Eof (:hPT-1  
strA = objRs(uname) & . & objRs(tname) Gt 2rJ<>  
}. ,xhF[  
If str=strA then 3w^q0/GD  
strTmp = strTmp & & strA & f'#7i@Je  
Else O %)+ w  
strTmp = strTmp & & strA & wefQmRK  
End if 1p{\jCi,2  
objRs.MoveNext ^&cI+xZ2Y  
Wend >\>HRyt%  
Set objRs = Nothing yV`!Fq 1k  
getTableList = strTmp SJy?
^  
End Function f|b|\/.=  
% > p*dez!  
QY{f=  
b[u_r,b  
6X'RCJu%  
31bKgU{  
All Tables : "@Te!.~A.  
k_y@vW3  
{&2$1p/9'  
ETtK%%F0  
ls/:/x(5d  
() \x|(`;{  
yyiZV\ /  
[F6=JZ  
@B1rtw6  
/,B"H@J  
0dnm/'L  
  then np)-Yzr  
strSql = Select * from & tblname a Y{E'K=  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) S:oZ&   
Response.Write P}aJvFlmP  
for i=0 to rs.Fields.count-1 ^@t
n+'.  
  Response.Write & rs.fields(i).name & ZegsV|  
next D6v0n6w  
Response.Write 57HMWlg  
While Not Rs.Eof
"b} ^xy  
  Response.Write P~]BB.tog  
  for i=0 to rs.fields.count -1 !'PPj_Hp]  
        Response.Write & Rs.Fields(i).Value &   %3kqBH!d  
  next fTH?t_e  
  Response.Write       [#)$BXG~y  
  Rs.MoveNext #xts*{u-#  
Wend lffw7T~  
Set Rs = Nothing FiIN\  
end if !H.&"~w@  
  % > u}u2{pO!  
3K54:  
9{>m04888  
R?I(f(ib   
Q<78<#I  
转自： ASP教程采集