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

0 then >l*9DaZ  
Response.Write 错误 ： & err.description & MBrVh6z>  
response.end p" W0$t.  
End if $>37PVVW  
End Sub !/9Sb1_~  
Sub EndDB() EF{'J8AQ  
Set objOraDB = Nothing <g1hdF0  
Set objOraSession = Nothing yFtf~8s3  
End Sub `5jB|
r/  
Function getTableList(str) ~g|0uO}.  
Dim strSql,strTmp B{7/A[$%C  
Dim objRs &=O1Qg=K  
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 AS^$1i:  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) tce8*:rNH  
While Not objRs.Eof m
K/P4]9g  
strA = objRs(uname) & . & objRs(tname) 7n]%`Yb  
nM}`H'0  
If str=strA then ;AA7wK 4  
strTmp = strTmp & & strA & #mx
fU>vQ:  
Else ^moIMFl  
strTmp = strTmp & & strA & TmH13N]  
End if hds4_  
objRs.MoveNext eTHh  
Wend l+qtA~V&2  
Set objRs = Nothing <T[ui  
getTableList = strTmp epyYo&x}  
End Function zgTi Az  
% > LMj'?SuH  
nECf2>Yp v  
;P#*R3   
tO;W?g  
8
uW:_t]q  
All Tables : PX/0  jv  
7u0R=q  
5!p'n#_  
_ 9]3S>Rn  
I"?&X4%e  
() >&z+ih  
(1
9<8a9G  
u6d~d\  
}f*S 9V  
XmR5dLc8  
<Wq{ V;$  
  then /hR]aw  
strSql = Select * from & tblname k;X1x65uP  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) aBLb i  
Response.Write K7Tell\`  
for i=0 to rs.Fields.count-1 JPKZU<:+V  
  Response.Write & rs.fields(i).name & M&-/&>n!  
next Vtk|WV?>P+  
Response.Write bUL9*{>G  
While Not Rs.Eof '" yl>"  
  Response.Write be@uHikp;v  
  for i=0 to rs.fields.count -1 3o^M%  
        Response.Write & Rs.Fields(i).Value &   <-aI%'?*  
  next >1zzDd_  
  Response.Write        p$v +L  
  Rs.MoveNext ,KaWP  
Wend 5nb6k,+E  
Set Rs = Nothing 6[7k}9`alz  
end if IQv>{h}  
  % > o)WSMV(&f  
,Yz+?SmSZ&  
=1Jo-!{{  
I/|n ma/ $  
"V2$g  
转自： ASP教程采集