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

0 then gg8)oc+w  
Response.Write 错误 ： & err.description & E>gLUMG$  
response.end G#@#j]8  
End if vb]uO ' l  
End Sub 2"j&_$#l5X  
Sub EndDB() ="f-I9y  
Set objOraDB = Nothing u$aN~6HG  
Set objOraSession = Nothing rc7c$3#X  
End Sub ,
,6lQ]wG  
Function getTableList(str) 0;,Y_61  
Dim strSql,strTmp E[=&6T4  
Dim objRs $G9E=wn  
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 C8YStT  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) nD>X?yz2  
While Not objRs.Eof w)1SZ}  
strA = objRs(uname) & . & objRs(tname) _ouZd.
 
o8IqO'  
If str=strA then H4{7,n  
strTmp = strTmp & & strA & (!0_s48f  
Else X7:Dw]t  
strTmp = strTmp & & strA & $P#+Y,r~\  
End if dVGcth;  
objRs.MoveNext 7lJ8<EP9 u  
Wend {ehYE^%N  
Set objRs = Nothing TaKHr$h  
getTableList = strTmp 6W7,EIf  
End Function J p%J02  
% > v<g#/X8  
rq1~%S  
~x_(v,NW  
?qn4ea-\P  
Do^yer~  
All Tables : 9)j"|5H  
3W.D^^)eCV  
`ZP[-:`  
99]s/KD2yb  
V/R@=[  
() #-R]HLW*  
~{kA;uw  
S_VzmCi  
K
K-+vq  
c\tw#;\9  
M$f_I +  
  then ?o/p}6  
strSql = Select * from & tblname `$3P@SO"  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) F0r5$Pl*  
Response.Write K+yi_n L  
for i=0 to rs.Fields.count-1 WFS6N.Ap  
  Response.Write & rs.fields(i).name & B8upv~U6  
next 2Y=Q%  
Response.Write MzlE  
While Not Rs.Eof TFhYu  
  Response.Write nRX<$OzTV  
  for i=0 to rs.fields.count -1
(KfdN'vW  
        Response.Write & Rs.Fields(i).Value &   X&K,,C  
  next }ASBP:c"t  
  Response.Write       do%.KIk  
  Rs.MoveNext xelh!AtE  
Wend d{C8}U  
Set Rs = Nothing y
G>sBc  
end if r&L1jT.  
  % > W}wd?WIps  
91#n Aj%  
2"Y=*s  
P|aSbsk:I<  
ab6D&  
转自： ASP教程采集