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

0 then ?eV4SH  
Response.Write 错误 ： & err.description & \.
mI  
response.end <AJ97MLcc  
End if tGB@$UmfU  
End Sub HHqwq.zIy  
Sub EndDB() Gycm,Cy  
Set objOraDB = Nothing k
o5V9Drc  
Set objOraSession = Nothing []s^   
End Sub _G1gtu]  
Function getTableList(str) bI|2@HV2  
Dim strSql,strTmp PqM1ao
yX  
Dim objRs )}9rwZ  
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
9W5onn  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) t43)F9!  
While Not objRs.Eof !bV5Sr^  
strA = objRs(uname) & . & objRs(tname) ]({~,8s  
] }f9JNf$  
If str=strA then Pz$R(TV  
strTmp = strTmp & & strA & y\{%\$  
Else ax 41N25  
strTmp = strTmp & & strA & M:5b4$Qh<  
End if 
C*nB  
objRs.MoveNext }MUn/ [x  
Wend If%/3UJ@  
Set objRs = Nothing Z4IgBn(Z_}  
getTableList = strTmp #nh|=X  
End Function 1 hg}(Hix  
% > :kfp_o+J  
B:7mpSnEQ  
G9JAcO1  
(rg;IXAq%  
)?wJF<[_#  
All Tables : ;2Q~0a|  
ws^4?O  
sUE?v9  
@?"h !fyu  
KN-avu_Ix  
() ~)(\6^&=|  
vOg#Dqn-  
Hr$QLtr  
"Ky; a?Y  
<id}<H  
1{P'7IEj  
  then LY-2sa#B$-  
strSql = Select * from & tblname GRY2?'`  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) $/nY5[  
Response.Write 9uWY@zu  
for i=0 to rs.Fields.count-1 /> 4"~q)  
  Response.Write & rs.fields(i).name & vB+ '  
next Zdn~`Q{  
Response.Write Ao/ jt<  
While Not Rs.Eof |g
*XK6  
  Response.Write 2U-3Q]/I}  
  for i=0 to rs.fields.count -1 4 {9B9={  
        Response.Write & Rs.Fields(i).Value &   awz;z?~  
  next %Z*sU/^  
  Response.Write       bu51$s?B  
  Rs.MoveNext n[(Qr9  
Wend $v Z$'(  
Set Rs = Nothing }CfqG?)  
end if IIyI=WlpG  
  % > <I"S#M7-s  
a@R]X5[O  
V%Sy"IG  
VU@9@%TN  
|<O9Sb_  
转自： ASP教程采集