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

0 then >syQDB  
Response.Write 错误 ： & err.description & !a"RHg:HO  
response.end 0^l|W|.Z  
End if L*TPLS[lh  
End Sub xz1jRI$  
Sub EndDB() u{F^Ngy )  
Set objOraDB = Nothing zKycd
*X  
Set objOraSession = Nothing ykY#Y}?^  
End Sub 0'Kbh$LU  
Function getTableList(str) r;gtfX*  
Dim strSql,strTmp DA)mkp  
Dim objRs <ob+Ano$  
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 t{\,vI  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ?&Zfb  
While Not objRs.Eof }cov"o  
strA = objRs(uname) & . & objRs(tname) }}AooziH9  
aJ[K'5|  
If str=strA then >j [> 0D  
strTmp = strTmp & & strA & YzTmXwuA5  
Else Ij+ E/V  
strTmp = strTmp & & strA & q9GSUkb  
End if Rj&V~or  
objRs.MoveNext g. V6:>,  
Wend 2hOr#I$/  
Set objRs = Nothing yH\z+A|  
getTableList = strTmp E^uWlUb{  
End Function iOCx7j{BS  
% > 5

(@P1Bi  
h,:8TMJRRN  
"i+fO&LpZ  
"c[ D0{\{  
9$-V/7@)  
All Tables : >EQd;Af  
@lo6?9oNo  
9mdp\A  
h?f)Bt}ry  
h{s- e.  
() j7&57'
 
$tGk,.#j  
C
]22 [v4  
Tvd=EO  
oz!;sj{,D  
x1\a_Kt  
  then <S*o}:iB  
strSql = Select * from & tblname JgI+k Nx  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 5ZG-3qj  
Response.Write seT?:PCA  
for i=0 to rs.Fields.count-1 `^t0379e  
  Response.Write & rs.fields(i).name & 3*13XQ  
next 9(.P2yO  
Response.Write 4~< :Pj  
While Not Rs.Eof &.sfu$]  
  Response.Write ;Drt4fOxX  
  for i=0 to rs.fields.count -1 -p|@Enn  
        Response.Write & Rs.Fields(i).Value &   .Rq|F  
  next Jf<+VJ>t  
  Response.Write       (A.%q1h  
  Rs.MoveNext -]1
F]d
 
Wend }@-4*5P3  
Set Rs = Nothing /b*VFA/75  
end if 6qsT/  
  % > 2jQ|4$9j  
h=uv4&  
iV8j(HV  
G813NoS o  
l1X&Nw1W  
转自： ASP教程采集