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

0 then d%hA~E1rR  
Response.Write 错误 ： & err.description & v,0DGR~  
response.end wLbngO=VG  
End if =Ug_1w  
End Sub .p`'^$X^  
Sub EndDB() q4{tH  
Set objOraDB = Nothing Fn,|J[sC  
Set objOraSession = Nothing GLyh1qNX  
End Sub ]_?y[@ZP  
Function getTableList(str) >y[S?M  
Dim strSql,strTmp jq)|Uq'6  
Dim objRs bed+Ur&  
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 t3G'x1  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) \4k*Zk  
While Not objRs.Eof wNZ7(W.U  
strA = objRs(uname) & . & objRs(tname) i"xDQ$0G6  
%a `dOEO  
If str=strA then k:Q<Uanc[  
strTmp = strTmp & & strA & 3:Wr)>l}#  
Else gwJu&HA/  
strTmp = strTmp & & strA & I>aa'em  
End if Y>~JI;Cu`  
objRs.MoveNext
Q_.Fw\l$`  
Wend 1tdCzbEn+  
Set objRs = Nothing vEGK{rMA  
getTableList = strTmp "=.|QKC1`  
End Function  ZsZ1  
% > Z.pw!mu"  
Z&,}Fgl!F  
3;:V1_JA  
lQ"i]};<D  
L:-lqag!  
All Tables : s`RJl V  
'9@R=#nd  
"[yiNJ"kt  
vuBA&j0C  
*\",  qMp  
() #cS,5(BM  
@XC97kGWp  
dL(|Y{4  
R:N-y."La.  
+ctv]'P_  
K5&C}Ey1  
  then LnS>3$t*  
strSql = Select * from & tblname MFuI&u!g:  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) c ?XUb[  
Response.Write .Er/t"Qs;  
for i=0 to rs.Fields.count-1 '.,.F0{x  
  Response.Write & rs.fields(i).name & xQap44KPZ  
next u2-7vudh  
Response.Write 0h4}RmS  
While Not Rs.Eof ^<0NIu}  
  Response.Write Q
aR.8/xV  
  for i=0 to rs.fields.count -1 NCt sx /C  
        Response.Write & Rs.Fields(i).Value &   Xf9%A2 iB  
  next RCXSz  
  Response.Write       rrYp^xLa`  
  Rs.MoveNext PqLqF5`S  
Wend ;NE/!!  
Set Rs = Nothing &tCtCk%{j  
end if ZnLk :6'  
  % > T0%TeFY  
J|S^K kC  
mcr#Ze  
"%*lE0Tx  
*J5RueUG  
转自： ASP教程采集