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

0 then 1G`5FU  
Response.Write 错误 ： & err.description & *tZ3?X[b  
response.end #|769=1  
End if PNLlJlYlP  
End Sub /Tl ybSC1  
Sub EndDB() vQXF$/S  
Set objOraDB = Nothing 4ybOK~z  
Set objOraSession = Nothing Brg0:5H   
End Sub `$ bQ8$+Ci  
Function getTableList(str) i-0AcN./p  
Dim strSql,strTmp T06w`'aL  
Dim objRs ~:!&}e5  
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 Vx0Hq`_1
4  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) -$s1k~o  
While Not objRs.Eof L}8 }Pns?&  
strA = objRs(uname) & . & objRs(tname) [ui
e]*^  
j }^?Snq  
If str=strA then rf$[8d  
strTmp = strTmp & & strA & jkuNafp}  
Else )tV]h#4  
strTmp = strTmp & & strA & $a\X(okx  
End if 0~<t :q!  
objRs.MoveNext .*FlB>1jy  
Wend FGwgSrXL7  
Set objRs = Nothing <0`"vPU  
getTableList = strTmp ~U?vB((j!  
End Function ,,9vk\  
% > \hzx?  
Pd  6  
n!b*GXb\  
$[=`*m  
?K}KSJ6_  
All Tables : JLyFkV/  
OK}8BY  
gJOswN;([  
)[sSCt]  
#@5 jOi  
() CA"`7<,  
&E k\  
4P24ySy9F  
WWTJ%Rd|  
Z[j-.,Qu  
;rF:$37^  
  then +fIyeX  
strSql = Select * from & tblname ~b4fk^u`+  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) v#IZSBvuQK  
Response.Write -H_7GVSnl  
for i=0 to rs.Fields.count-1 VxAR,a1+n  
  Response.Write & rs.fields(i).name & JY>I  
next DNM~/Oo  
Response.Write uoBPi[nK  
While Not Rs.Eof ,%m$_wA$  
  Response.Write eP3 itrH(  
  for i=0 to rs.fields.count -1 :\1&5Pm]  
        Response.Write & Rs.Fields(i).Value &   9Bmgz =8  
  next }S&SL)  
  Response.Write       L/cbq*L  
  Rs.MoveNext %^E>~  
Wend F{<rIR  
Set Rs = Nothing 2I
39fZa  
end if Un[#zh<4  
  % > &jPsdv h  
gzdgnF2  
8|Y^z_C  
~yf5$~Z  
MN)<Tr2f  
转自： ASP教程采集