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

0 then ']vX  
Response.Write 错误 ： & err.description & LwGcy1F.  
response.end ,(`@ZFp$  
End if g'Xl>q  
End Sub 2|%30i,vV  
Sub EndDB() D}"GrY5  
Set objOraDB = Nothing }(tGjx]  
Set objOraSession = Nothing aYj3a;EmU  
End Sub 7OWiG,  
Function getTableList(str) ?|hzAF"U  
Dim strSql,strTmp )%tf,3  
Dim objRs QHs]~Ja  
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 @6D<D6`  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) _~cmR<  
While Not objRs.Eof Y*}Sq|y  
strA = objRs(uname) & . & objRs(tname) A:NY:#uC  
sG VC+!E  
If str=strA then tcX7Ua(I`  
strTmp = strTmp & & strA & zWY6D4   
Else D\`$  
strTmp = strTmp & & strA & 9M7P]$^  
End if @s IZ  
objRs.MoveNext )nJ>kbO~8  
Wend J5o"JRJ"  
Set objRs = Nothing &1[5b8H;+  
getTableList = strTmp -xcz+pHQ  
End Function .Nf*Yqs0  
% > ~0}eNz*  
n
K|"
;  
^Ue.9#9T&g  
q@!:<Ra,){  
{ &qBr&kg  
All Tables : ry< P LRN  
Sph+kiy|  
vB Jva8;Q  

;I7Z*'5!  
VC+\RB#:-  
() <^~F~]wnH  
o+t?OG/0  
drZw#b  
vK{K#{  
ZV U9t  
+ mcN6/  
  then <Q0&[q;Z  
strSql = Select * from & tblname `Q8D[  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) #X8[g_d
/  
Response.Write Rk=B;  
for i=0 to rs.Fields.count-1 Qh[t##I/  
  Response.Write & rs.fields(i).name & /{U{smtdFl  
next gvJJ.IX]+  
Response.Write f/B--jq  
While Not Rs.Eof 7h<K)aT  
  Response.Write L~$RF {$  
  for i=0 to rs.fields.count -1 xpxm9ySwu  
        Response.Write & Rs.Fields(i).Value &   FX^E |  
  next +{
I\r|  
  Response.Write       e&5K]W0{  
  Rs.MoveNext }';&0p2Z  
Wend r&[~/m8zl  
Set Rs = Nothing t5k&xV=~ #  
end if pUr[MnQLf  
  % > M<)2  
kUt9'|9!  
w}0Qy  
=<05PB  
-AT@M1K7%  
转自： ASP教程采集