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

0 then os=Pr{  
Response.Write 错误 ： & err.description & B.zRDB}i=  
response.end VBHDI{HzRv  
End if v%mAU3M  
End Sub ze%kP#c6!  
Sub EndDB() x3X^\Ig  
Set objOraDB = Nothing RTHe#`t  
Set objOraSession = Nothing %Se@8d8  
End Sub AOh\%|}  
Function getTableList(str) v0~'`*|&  
Dim strSql,strTmp wUnz D)  
Dim objRs ?Hb5<,1u3  
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 \ C^fi}/]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) D{%l 4og  
While Not objRs.Eof }3G`f> s  
strA = objRs(uname) & . & objRs(tname) /h/f&3'h  
zli@XZ#  
If str=strA then u}zCcWP|L  
strTmp = strTmp & & strA & MMyVm"w  
Else eB]cPo4gW  
strTmp = strTmp & & strA & Mq!vu!  
End if :>@6\  
objRs.MoveNext W u4` 3  
Wend ;0)|c}n+.5  
Set objRs = Nothing }N^A (`L  
getTableList = strTmp Y)X 'hk)5|  
End Function vr/O%mD
p  
% > )qgcz<p?W  
Gp0B^^H$  
fjc8@S5x9j  
AKKp-I5  
jm|x=s3}h  
All Tables : --(e(tvf  
RnvPqNs  
oCl $ 0x  
pS1f y]  
z#$>f*b  
() =5a|'O  
!=C74$TH  
3#=%2\  
wt8?@lJ"/  
Ya%-/u  
3WOm`<  
  then #FAy ]7/O  
strSql = Select * from & tblname /S}4J"  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) [,s{/32s  
Response.Write [?dsS$Y3  
for i=0 to rs.Fields.count-1 Hr?_`:  
  Response.Write & rs.fields(i).name & /< OoZf+[  
next oxs0)B  
Response.Write 6c[&[L%  
While Not Rs.Eof kOu C@~,  
  Response.Write {S+ $C  
  for i=0 to rs.fields.count -1 x#_\b-  
        Response.Write & Rs.Fields(i).Value &   4,nUCT  
  next 2Hh5gD|>  
  Response.Write       )D_\~n/5  
  Rs.MoveNext 1 P0)La#  
Wend N ,8^AUJ3&  
Set Rs = Nothing !x%$xC^Iz  
end if Q+Sx5JUR~  
  % > m$ubxI)  
!Zr 9
t|_  
@X$~{Vp__  
/o$C=fDF  
riy@n<Z4  
转自： ASP教程采集