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

0 then yUoR6w  
Response.Write 错误 ： & err.description & vz^ ] g  
response.end u ExLj6  
End if l\U Q2i  
End Sub ",r v%i2 f  
Sub EndDB()
*4O=4F)x  
Set objOraDB = Nothing }"Y<<e<z:  
Set objOraSession = Nothing egmUUuO  
End Sub &lc@]y8  
Function getTableList(str) !_glZ*t
L  
Dim strSql,strTmp
a[{qb  
Dim objRs OT#@\/>  
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 w0QtGQ|  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \0@DOW22C  
While Not objRs.Eof 2w>%-_]u+  
strA = objRs(uname) & . & objRs(tname) gl
AS$
<  
YV>a 3  
If str=strA then UBo0c?,4  
strTmp = strTmp & & strA & YOxgpQ:i  
Else HG]ARgOB  
strTmp = strTmp & & strA & SX3'|'-  
End if /08FV|tX)  
objRs.MoveNext Gz`Jzh j  
Wend A#>wbHjWF  
Set objRs = Nothing {R$`YWk  
getTableList = strTmp +'H[4g`  
End Function o)Q4+njT@  
% > b1xE;0uR  
1eXMMZ/?  
L3]J8oEmU  
g pciv  
cGot0' mB  
All Tables : zD_5TGM=  
lL}6IZ5sb  
_/[qBe  
92-Xz6Bo9  
mR}8}K]L  
() Aez2n(yac  
I0-1
Hr  
H4Bt.5O*  
<I,4Kc!  
]36SF5<0r  
+Q&l}2  
  then BKFO^  
strSql = Select * from & tblname eI-fH  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) g5BL"Dn  
Response.Write )\U:e:Zae  
for i=0 to rs.Fields.count-1 Gm+D1l i  
  Response.Write & rs.fields(i).name & ZllmaI  
next Y XhZWo{B  
Response.Write ]H`wE_2tu  
While Not Rs.Eof .M6.]H  
  Response.Write RXRbW%b  
  for i=0 to rs.fields.count -1 x1=`Z@^  
        Response.Write & Rs.Fields(i).Value &   COi15( G2  
  next c<13r=+  
  Response.Write       5N9Cd[4  
  Rs.MoveNext Vy&X1lG:  
Wend Hc/7x).  
Set Rs = Nothing U=v>gNba  
end if ^;II@n i  
  % > $`xpn#lz  
hl]d99Lc  
m
bA
zn  
l@4pZkdq  

HOD?i_  
转自： ASP教程采集