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

0 then ".=LzjE<gv  
Response.Write 错误 ： & err.description & ^
Nu0+S  
response.end ju= +!nGUa  
End if 0-9.u`)#yu  
End Sub djxM/"xo  
Sub EndDB() <P"4Mk7`s  
Set objOraDB = Nothing xO<
$xx  
Set objOraSession = Nothing G L> u3K  
End Sub cx(W{O"Jb  
Function getTableList(str) *xl930y  
Dim strSql,strTmp ra'h\m  
Dim objRs EC6Q<&]Iw  
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 +[sZE X  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 1>!wm0;x  
While Not objRs.Eof J^G#x}y  
strA = objRs(uname) & . & objRs(tname) yQXHEB  
eyiGe1^C  
If str=strA then u VZouw#  
strTmp = strTmp & & strA & H%*<t}  
Else aeBA`ry"B  
strTmp = strTmp & & strA & 5}/TB_W7j  
End if <R?_Yjsw  
objRs.MoveNext F$QAWs  
Wend {D(_"  
Set objRs = Nothing JrkjfoN  
getTableList = strTmp N2~q\BqA  
End Function Ve1O<i  
% > p FkqDU  
f~3_Rv!  
VTQxg5P c  
Viu+#J;l  
d/57;6I_  
All Tables : =eXJZPR  
Pc*+QtQ  
06&:X^  
pzMli^  
ZXf^HK  
() 3xJ_
%AD\'  
K`9ph"(Z  
J)w58/`?t  
+U%U3tAvs  
U
*Hw t\  
I#]$H#}Av  
  then jZm57{C#*?  
strSql = Select * from & tblname QDRgVP  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) NY5?T0/[  
Response.Write 39W6"^q"o  
for i=0 to rs.Fields.count-1 {&'u1yR  
  Response.Write & rs.fields(i).name & 0nF>E@j^[  
next T4\F=iw4  
Response.Write n%Vt r  
While Not Rs.Eof b ;Vy=f  
  Response.Write 0@9.h{s@  
  for i=0 to rs.fields.count -1 i6^COr  
        Response.Write & Rs.Fields(i).Value &   XeaO,P  
  next 4s!rrDN  
  Response.Write       ?U:LAub  
  Rs.MoveNext kpM5/=f/@  
Wend ;P-xKRU!Xx  
Set Rs = Nothing QES[/i +  
end if X5'QYZ6kv  
  % > QY,.|  
C^@~  
}ug|&25D  
pcM'j#;  
Vo%MG.IPB  
转自： ASP教程采集