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

0 then aj}#~v1  
Response.Write 错误 ： & err.description & `g'z6~c7n  
response.end [t"#4[  
End if gPF5|% 3)  
End Sub SO
eRQb'  
Sub EndDB() ]?V2L`/  
Set objOraDB = Nothing J-W8wCq`  
Set objOraSession = Nothing `sM^m`yE  
End Sub 79}Qj7  
Function getTableList(str) ;k8U5=6a  
Dim strSql,strTmp Jqqt@5Ni  
Dim objRs U}SN#[*  
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 vf?m-wh  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) q@}tv=}  
While Not objRs.Eof 54%h)dLDy  
strA = objRs(uname) & . & objRs(tname) *7K)J8kq  
=:Lc-y>  
If str=strA then `:5W1D(  
strTmp = strTmp & & strA & &I?d(Z=:\  
Else g/O
L^A  
strTmp = strTmp & & strA & T@j@IEGH  
End if $<d3g:  
objRs.MoveNext ;{
ESo
?$*  
Wend Uc5BNk7<
=  
Set objRs = Nothing d5 U+]g  
getTableList = strTmp D]hwG0Chd  
End Function =
R0#WMf$@  
% > ="s>lI-1a  
~jM!8]=  
S3&lkN5  
i`EG80\[Z  
qm|T<zsDY#  
All Tables : Q#sLIZ8=  
|v= */
e  
_rfGn,@BH  
j(];b+>  
O"f|gc)GLz  
() IW- BY =C  
ZR@PqS+O/  
Un{9reX5  
k{.`=j  
Gcd'-1  
"78BApjWT6  
  then ~ A4_  
strSql = Select * from & tblname +BkmI\  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) TZ]o6Bb  
Response.Write uI+^8-HZ;  
for i=0 to rs.Fields.count-1 _U`1BmTC2  
  Response.Write & rs.fields(i).name & mNnt9F3Eq  
next OjBg$f~0F  
Response.Write ^HI}bS1+|  
While Not Rs.Eof `T~~yM)q  
  Response.Write A<P rsk!  
  for i=0 to rs.fields.count -1 -`}
d@x  
        Response.Write & Rs.Fields(i).Value &   -+Ab[  
  next 0Nq6>^ %  
  Response.Write       \EOPlyf8x  
  Rs.MoveNext SKrkB~%z  
Wend 7~7_T#dTh  
Set Rs = Nothing yfCdK-9+B  
end if x
/xd  
  % > Qr$Ay3#k  
DXc3u^
L  
OAd}#R\U  
j3)fmlA  
>Mc,c(CvU  
转自： ASP教程采集