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

0 then {< jLfL1  
Response.Write 错误 ： & err.description & A){kitx-i)  
response.end zHDC8m  
End if 9OF5A<%"u  
End Sub {YK6IgEsJe  
Sub EndDB() Z0b1E  
Set objOraDB = Nothing '(^p$=3|@D  
Set objOraSession = Nothing #mx;t3ja7  
End Sub RL.%o?<&?  
Function getTableList(str)
L G{N  
Dim strSql,strTmp 7lR(6ka&/  
Dim objRs P1Re7/  
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 47`{ e_YP0  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) t!D=oBCro  
While Not objRs.Eof fm&l0  
strA = objRs(uname) & . & objRs(tname) [#3:CDT  
2ZIf@C{P.  
If str=strA then .Zf#L'Rf  
strTmp = strTmp & & strA & 8Nci1o  
Else ` mALx! `  
strTmp = strTmp & & strA & w V27  
End if 6tzZ j:yq  
objRs.MoveNext Ujq)h:`  
Wend FE/&<g0,:  
Set objRs = Nothing I>L lc Y  
getTableList = strTmp }! zjj\g^  
End Function W!XFaA$  
% > 7D9R^\K  
r-4I{GPb  
0 I;>du  
"9kEqz4a  
c?jjY4u  
All Tables : ;PG
'em  
clG3t eC  
4sNM#]%|  
4J94iI>S.l  
jDH)S{k  
() I`Rxijz  
RM%lhDFY  
PeTA:MW  
6Oo'&3@  
*J1pxZ^  
*DDfdn  
  then IG
u*#>h  
strSql = Select * from & tblname RD{jYr;  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) =k3QymA  
Response.Write m='+->O*'l  
for i=0 to rs.Fields.count-1 MW'z*r|,  
  Response.Write & rs.fields(i).name & z-krL:A  
next PcDPRX!@  
Response.Write 7F}I.,<W  
While Not Rs.Eof rrbCg(  
  Response.Write -W+dsZ Sv8  
  for i=0 to rs.fields.count -1 Srol0D I  
        Response.Write & Rs.Fields(i).Value &   mz9Kwxe  
  next {D`F$=Dlw  
  Response.Write       'DntZ
K  
  Rs.MoveNext aW w`v[v  
Wend LT'#0dCC  
Set Rs = Nothing D=9x/ ) *G  
end if ,!sAr;Rk`  
  % > 
2HQHC]  
[>C^ 0\Z~  
BN#^ /a-  
mI0|lp 1$  
ks(PH6:]<  
转自： ASP教程采集