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

0 then >bf.T7wy  
Response.Write 错误 ： & err.description & `_OrBu[  
response.end #Z2'Y[@.  
End if n>q!m@ }<  
End Sub fF0i^E<  
Sub EndDB() Q*>)W{H&)  
Set objOraDB = Nothing "Bf8mEmp  
Set objOraSession = Nothing :,JaOn'  
End Sub r3g^0|)  
Function getTableList(str) ]E<Z5G1HD  
Dim strSql,strTmp y ;[~(Yg[  
Dim objRs w!20  
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 3tTOs  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) *{w0=J[15  
While Not objRs.Eof -|m3=#  
strA = objRs(uname) & . & objRs(tname) kPs?  
}b(hD|e  
If str=strA then a(A~S u97  
strTmp = strTmp & & strA & $3HqVqF^R  
Else [G|.  
strTmp = strTmp & & strA & ?`U_|Yo  
End if }Kgi!$<aQx  
objRs.MoveNext fI)XV7,X  
Wend /@ @F nQ++  
Set objRs = Nothing  9BtGzI\  
getTableList = strTmp Hloe7+5UD  
End Function X#&5?oq`  
% > p<r<Y%  
N3L$"g5^  
LBy`N_@  
ZR}v_]l^  
pKc!sdC  
All Tables : '\#q7YjaL  
=IMmtOvJ  
|KYl'"5\  
SF:98#pg  
Ww-x+U\l  
() y]jx-wc3O  
]jhi"BM  
JU>~[yAP  
>j=ZB3yZ  
~JL
qh  
f 3H uT=n  
  then U7x  
strSql = Select * from & tblname qIZ+%ZOu  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) lubsLI  
Response.Write lm4A%4-db  
for i=0 to rs.Fields.count-1 B46:LQ9[  
  Response.Write & rs.fields(i).name & %"H:
z  
next aH6j,R%  
Response.Write cj2Smgw&>  
While Not Rs.Eof -NwG' U~  
  Response.Write [}4zqY{  
  for i=0 to rs.fields.count -1 LLTr+@lj  
        Response.Write & Rs.Fields(i).Value &   X <xM '  
  next Y5GN7.  
  Response.Write       E"E(<a  
  Rs.MoveNext YdCl  
Wend M$EF 8  
Set Rs = Nothing aE07#  
end if "QOQ  
  % > nN{DO:_o  
\ZcI{t'a  
F\JS?zt2  
B1}i0pV,,  
7-B|B{]  
转自： ASP教程采集