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

0 then xR'd}>`  
Response.Write 错误 ： & err.description & $IKN7  
response.end cL
p9|y0r  
End if WnQ'I=E#~  
End Sub AzGbvBI&V  
Sub EndDB() r
I)&.5^  
Set objOraDB = Nothing hAi'|;g  
Set objOraSession = Nothing fk#Ggp<  
End Sub 4P2p|Gc3  
Function getTableList(str) ),<h6$  
Dim strSql,strTmp "{{@N4^  
Dim objRs uxrNkZia  
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 4pDZ +}p  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Kd#64NSi$A  
While Not objRs.Eof PHsM)V+  
strA = objRs(uname) & . & objRs(tname) NFU=PS$  
G4F~V't  
If str=strA then #.j:P#  
strTmp = strTmp & & strA & 9Up>e  
Else Rlr[uU_  
strTmp = strTmp & & strA & Yk4ah$}%-^  
End if xoSBMf  
objRs.MoveNext ,!~U5~  
Wend p8y
<:8I  
Set objRs = Nothing +'e3YF+'  
getTableList = strTmp ?s0")R&  
End Function n[-d~Ce2{  
% > B*Q.EKD8s  
I#yd/d5^  
wS2N,X/Y  
u<@ 55k  
V6<Ki  
All Tables : !OH'pC5  
5OFb9YX  
t5p#g<$  
"MT{t><  
(w'k\y  
() [s!cc:JR
 
)o_$AbPt  
87V
XVI  
`tsqnw  
i];@e]   
X<"#=u(  
  then qmpU{fs  
strSql = Select * from & tblname '$OLU[(
Y  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) HLt;1:b  
Response.Write 9;c]_zt  
for i=0 to rs.Fields.count-1 PJcz] <  
  Response.Write & rs.fields(i).name & X?"Ro`S  
next X/wqfP  
Response.Write |Oaj Jux  
While Not Rs.Eof "2/VDB4!FG  
  Response.Write 1<9m^9_ro  
  for i=0 to rs.fields.count -1 t#J #DyY5  
        Response.Write & Rs.Fields(i).Value &   p&\x*~6u  
  next [2
6([H  
  Response.Write       xZ"kJ'C4}  
  Rs.MoveNext !NOvKC!  
Wend e.g$|C^$m  
Set Rs = Nothing 'uOp?g'7  
end if W,n0'";')  
  % > 0:Lm=9o  
]+S.#x`#
 
tU
7eW#"w  
Ec]cCLB  
{z%%(,I  
转自： ASP教程采集