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

0 then .w2QiJ  
Response.Write 错误 ： & err.description & BC*vG=a  
response.end y_EkW f  
End if uw!  
End Sub JwCv(1$GM  
Sub EndDB() u$ [R>l9  
Set objOraDB = Nothing +13h*  
Set objOraSession = Nothing wI.i\S  
End Sub Vcn04j#Q  
Function getTableList(str) Vij P;  
Dim strSql,strTmp f0p+l-iEv  
Dim objRs = ms(dr^n  
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 Rs_0xh  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) f?8cO#GU  
While Not objRs.Eof Ww5c9orXn  
strA = objRs(uname) & . & objRs(tname) 6BM[RL?T  
9ZvBsG)  
If str=strA then fm$eJu  
strTmp = strTmp & & strA & t`NZ_w /  
Else !wiW#PR  
strTmp = strTmp & & strA & U |I>CDp  
End if SY\ UuZ  
objRs.MoveNext S<}2y9F  
Wend ].F
7. zi  
Set objRs = Nothing @_"B0$,-i  
getTableList = strTmp 1=BDqSZ@9  
End Function Td#D\d\R  
% > V.zKjoky@  
@sQ^6FK0G  
+Qy*s1fit  
79 zFF  
0#(K}9T)  
All Tables : uC\FW6K=m  
dmh6o
 *  
u8ofgcFYE  
^0"^Xk*  
Ow7NOhw  
() RC
7|@a  
*Q2;bmIc  
C!Cg.^;  
9~+A<X]Hd  
h(}$-'g  
FTM(y CN  
  then Z(Da?6#1  
strSql = Select * from & tblname ' JHCf  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) []HMUL]"  
Response.Write 5.gM]si  
for i=0 to rs.Fields.count-1 (<sZ8n=AD  
  Response.Write & rs.fields(i).name & l;i,V;@t  
next !0ly1T 9  
Response.Write Y.I-hl1<r  
While Not Rs.Eof zJ{?'kp  
  Response.Write 6o@}k9AN  
  for i=0 to rs.fields.count -1 89@\AjI  
        Response.Write & Rs.Fields(i).Value &   B;9"=0  
  next :}d`$2Dz  
  Response.Write       _\E{T5  
  Rs.MoveNext 
IOA"O9;  
Wend (]7*Kq  
Set Rs = Nothing i`o}*`//  
end if n^|;J*rD  
  % > x_9<&Aj6  
-r/G)Rs  
`|K,E  
b *IJ +  
H5t 9Mg
|  
转自： ASP教程采集