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

0 then 1D6O=
j\  
Response.Write 错误 ： & err.description & FM[T
o  
response.end RY<b]|  
End if ?Fpl.t~  
End Sub )&Bv\Tfjt  
Sub EndDB() j}l8k@f  
Set objOraDB = Nothing 3>Snd9Q  
Set objOraSession = Nothing ;~1JbP  
End Sub w'XgW0j{  
Function getTableList(str) efR$s{n!  
Dim strSql,strTmp n#cN[C9  
Dim objRs qT @IY)e  
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 f tDV3If  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) q:^Cw8  
While Not objRs.Eof >IjLFM+U  
strA = objRs(uname) & . & objRs(tname) Ghc0{M<  
T%/w^27E  
If str=strA then hM w`
e  
strTmp = strTmp & & strA & o+TZUMm  
Else ,eCXT=6  
strTmp = strTmp & & strA & @D=`iG%  
End if K67? d  
objRs.MoveNext ;i>E@  
Wend SI5QdX  
Set objRs = Nothing Bx4GFCdifC  
getTableList = strTmp ]E^f8s0#V  
End Function 09s}@C  
% > I1O?)x~  
V0i$"|F+E  
[CX?Tt  
q/79'>`|ai  
'bPo 5V
|  
All Tables : v19`7qgR(  
,O$C9pH9  
wgrOW]e  
ArK9E!`^  
Lm#d.AD)  
() kELyD(^P`  
1A-EP@# J  
|'
_<(z  
[rU8 #4.  
89mre;v`  
)n@3@NV  
  then @un }&URp  
strSql = Select * from & tblname MGDv4cFE.  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) /GGu` f  
Response.Write TVwYFX  
for i=0 to rs.Fields.count-1 "s9gQAoaO  
  Response.Write & rs.fields(i).name & V}+;bbUc-  
next Y'1V(5/&  
Response.Write m28w4   
While Not Rs.Eof
?Nql7F4  
  Response.Write FoCkTp+/  
  for i=0 to rs.fields.count -1 U:hC!t:  
        Response.Write & Rs.Fields(i).Value &   " SqKS,J  
  next Y3>\;W*?  
  Response.Write       3 ?~+5DU  
  Rs.MoveNext zAJ
UL  
Wend 3HR]TQ%r  
Set Rs = Nothing +Ob#3PRy  
end if );H[lKy  
  % > 4+,Z'J%\[7  
T]-~?;Jh8  
[)vwg`]  
*PU,Rc()6  
w[YbL2p  
转自： ASP教程采集