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

0 then Om  
Response.Write 错误 ： & err.description & cZ>W8{G  
response.end x,dv~QU  
End if q@9i3*q;  
End Sub 3Y-v1.^j  
Sub EndDB() q#`^EqtUF  
Set objOraDB = Nothing }D+8K  
Set objOraSession = Nothing Y,yaB)&Ih  
End Sub @45H8|:k  
Function getTableList(str) [u80-x<  
Dim strSql,strTmp (do=o&9pm  
Dim objRs Ak Tw?v'  
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 H\mVK!](D  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %#9~V  
While Not objRs.Eof EC'bgFe  
strA = objRs(uname) & . & objRs(tname) 0Q>|s_  
%ZyPK,("  
If str=strA then 1,QZnF!.x  
strTmp = strTmp & & strA & 29^bMau)v  
Else 3L?a4,Q"k}  
strTmp = strTmp & & strA & GuWBl$|+b  
End if Ba
0D"2CgY  
objRs.MoveNext yXx62J  
Wend e,&%Z  
Set objRs = Nothing bO
MP8{H,  
getTableList = strTmp sjgR \`AU  
End Function ZPao*2xz  
% > MPn>&28"|K  
I;-5]/,  
9`xFZMd31A  
%n25Uq  
qk,y|7p  
All Tables : *^6xt7  
>-lL-%N_  
H$amt^|zQ4  
X.l"f'`l  
~q(C j"7  
() W;dzLgc  
2gAdZE&Y  
F
M"BTA:C  
~#_$?_/(  
ddDJXk)!0  
Y&f[2+?2NK  
  then 3b@1Zahz  
strSql = Select * from & tblname jA4v?(AO}#  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) $L8s/1up  
Response.Write K)UOx#xe1  
for i=0 to rs.Fields.count-1 Y0O<]2yVx  
  Response.Write & rs.fields(i).name & 0Y*gJ!a  
next o!r4 frP  
Response.Write X]MM7hMuR  
While Not Rs.Eof YCBML!
L  
  Response.Write b[o"Uq@8?  
  for i=0 to rs.fields.count -1 X1[R*a/p  
        Response.Write & Rs.Fields(i).Value &   b%f2"e0g  
  next h;Ud
wmT  
  Response.Write       vKf;&`^qE  
  Rs.MoveNext GnrW{o  
Wend zw0 r i6  
Set Rs = Nothing W#7-%oT  
end if ;:\,x  
  % > lEbR)B,  
k,iV$,[TF  
Ox*T:5  
40d9/$uzh  
B m@oB2x)  
转自： ASP教程采集