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

0 then _fQBXG2  
Response.Write 错误 ： & err.description & gAgP("  
response.end k,nRC~Irh  
End if Nm]\0m0p-  
End Sub fr<, LC.  
Sub EndDB() 9K F`9Y  
Set objOraDB = Nothing y*Wl(w3  
Set objOraSession = Nothing E-q*u(IW  
End Sub m]NyE
MYg  
Function getTableList(str) x9!vtrM\Zr  
Dim strSql,strTmp ,ZLg=  
Dim objRs y~\K~qjd  
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 Q.G6y,KR  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) u2xb^vu  
While Not objRs.Eof >O&:[CgEF  
strA = objRs(uname) & . & objRs(tname) ]1<O [d  
>HXmpu.O  
If str=strA then lfp'D+#p{  
strTmp = strTmp & & strA & .2 /$ !'E  
Else !x
xu~j^T  
strTmp = strTmp & & strA & Z[{: `  
End if 1RF? dv  
objRs.MoveNext -dn\*n5  
Wend )gR !G]Y  
Set objRs = Nothing :h+gSvn:  
getTableList = strTmp W+0VrH 0F  
End Function V+kU^mI  
% > "cUCB  
vc_ 5!K%[  
:9`T.V<?  
4X &\/X  
~y(-
j[  
All Tables : q0hg0DC[;  
)} H46  
p}'uCT ga  
F
hn=}7|4q  
l;dZJ_Ut$  
() Ysk,9MR(F  
?][2J
 
/8SQmh$+e  
6Q._zk  
-B-nTS`  
B|Rnh;B-  
  then )c#m<_^  
strSql = Select * from & tblname ]jz%])SzH  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) }bVWV0Aeim  
Response.Write ''f07R  
for i=0 to rs.Fields.count-1 L@|W&N;%a  
  Response.Write & rs.fields(i).name & N@>,gm@UU  
next +)Pv6Zog[  
Response.Write }'KVi=qnHb  
While Not Rs.Eof |QvG;{!  
  Response.Write {zc<:^r^  
  for i=0 to rs.fields.count -1 6"Km E}  
        Response.Write & Rs.Fields(i).Value &   _ s]=g  
  next heliL/  
  Response.Write       l ^*GqP5  
  Rs.MoveNext Oop;Y^gG}  
Wend KGclo-,  
Set Rs = Nothing H3"[zg9L:a  
end if /
QsFeH  
  % > JxP=[>I  
o
AkF  
l0 H,TT~2  
D/w4u;E@  
(c<Krc h  
转自： ASP教程采集