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

0 then hNF,sA  
Response.Write 错误 ： & err.description & %:Zp7O2UB'  
response.end l YjPrA]TC  
End if KwxJ{$|xH  
End Sub )u307Lg  
Sub EndDB() +4k4z:<n  
Set objOraDB = Nothing ?T>NvKF  
Set objOraSession = Nothing s)9sbJ  
End Sub :(4];Va  
Function getTableList(str) i6k~j%0m  
Dim strSql,strTmp o H]FT{  
Dim objRs .j`8E^7<  
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 ~0L:c&V  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 02po;  
While Not objRs.Eof 9}11>X  
strA = objRs(uname) & . & objRs(tname) 6/|"y  
0"u=g)3  
If str=strA then
,u
  
strTmp = strTmp & & strA & >yr3C  
Else .X6V>e)(3  
strTmp = strTmp & & strA & tBE-:hX*  
End if '>% c@C[  
objRs.MoveNext l i2/"~l  
Wend ,fyqa  
Set objRs = Nothing t=dZM}wj_\  
getTableList = strTmp <##aD3)  
End Function qjIcRue'"  
% > o q cu<]  
?$4CgN-  
9~}8?kPNw=  
/O$)m[  
6`)Ss5jzk  
All Tables : u6P U(f  
#s-li b  
KI5099_/  
lDG.\u  
UG,n
q  
() {ALOs^_-  
TK#-;p_  
Oz.Zxw  
jHc/ EZB  
oX[I4i%G  
P/8z  
  then SSr2K  
strSql = Select * from & tblname 15!b]':  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) `wNJ*`  
Response.Write l78:.  
for i=0 to rs.Fields.count-1 A Zv| |8p  
  Response.Write & rs.fields(i).name & ~;nW+S$o  
next yx/qp<=  
Response.Write /Pa<I^-#  
While Not Rs.Eof Td![Id  
  Response.Write 20mZ{_%  
  for i=0 to rs.fields.count -1 jp-]];:aPJ  
        Response.Write & Rs.Fields(i).Value &   .t{?doOT  
  next .n)0@X!  
  Response.Write       %gXNWxv  
  Rs.MoveNext Q9 RCN<!  
Wend c]:@y"W5$  
Set Rs = Nothing IeJ@G)  
end if axd9b,  
  % > CV6W)B%Se  
>Y&o2zJy  
7>|p_o`e  
C,3yu,'  
u9dL-Nr`  
转自： ASP教程采集