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

0 then +)"Rv%.  
Response.Write 错误 ： & err.description & }\?9Prsd  
response.end -;L'Jb>s76  
End if , i5_4  
End Sub WJnGF3G>  
Sub EndDB() @CmKF  
Set objOraDB = Nothing !EhKg)y=  
Set objOraSession = Nothing 3wq<@dRv4  
End Sub -m%`Di!E  
Function getTableList(str) `z0q:ME  
Dim strSql,strTmp /GC&@y0yi  
Dim objRs F9u?+y-xb  
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 5MAfuHq^  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ^F+7<$2  
While Not objRs.Eof TjEXR$:<  
strA = objRs(uname) & . & objRs(tname) =#S.t:HQ*  
JN|6+.GG  
If str=strA then 1d<Uwb>  
strTmp = strTmp & & strA & j/*1zu8Y  
Else *b. >  
strTmp = strTmp & & strA & nJ2x;';lA  
End if PU/<7P*  
objRs.MoveNext 96(Mu% l  
Wend 6^[4.D  
Set objRs = Nothing |2u=3#Jp  
getTableList = strTmp ZhA_d#qH  
End Function sjg`4^!wDD  
% > | :-i[G?n  
F`QViZ'n>#  
nOGTeKjEJ  
jRS{7rx%MH  
`Zm6e!dH-  
All Tables : 0\= du  
7PX`kI  
P.,U>m  
1 &9|~">{C  
@a?7D;+<  
() gVOAB-nw  
1*TbgxS~W  
0+*NHiH  
"^n,(l*4x  
J{1H$[W~}  
Zp9. ~&4o-  
  then EJ
9hgE  
strSql = Select * from & tblname a4__1N^Qj  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) U\Wo&giP[  
Response.Write V}#X'~Ob  
for i=0 to rs.Fields.count-1
l[38cF  
  Response.Write & rs.fields(i).name & Go)$LC0Mi  
next ){5Nod{}a  
Response.Write @owneSD qN  
While Not Rs.Eof S'jg#*$  
  Response.Write T$xBH  
  for i=0 to rs.fields.count -1 ;/j2(O^  
        Response.Write & Rs.Fields(i).Value &   >CqzC8JF  
  next ukW&\  
  Response.Write       FQDf?d5  
  Rs.MoveNext [X.bR$>  
Wend }aVZ\PDg  
Set Rs = Nothing 3 !@  
end if `OBzOM  
  % > 0Ds3wNz  
L=4+rshl!_  
l
<`>  
(90/,@66l  
e"nm<&  
转自： ASP教程采集