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

0 then 9qZ|=r]y'  
Response.Write 错误 ： & err.description & NX+ eig</-  
response.end ;rF:$37^  
End if ER$~kFE2yP  
End Sub 0j/i):@  
Sub EndDB() ~ YZi"u  
Set objOraDB = Nothing 8>:2li  
Set objOraSession = Nothing HoM8V"8B  
End Sub VxAR,a1+n  
Function getTableList(str) JY>I  
Dim strSql,strTmp
wIbc8ze  
Dim objRs C$B?|oUJc  
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 VHws9)  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ]Otl(\v(h  
While Not objRs.Eof \=~<I  
strA = objRs(uname) & . & objRs(tname) gwF@'Uu  
!lB,2_  
If str=strA then q%^gG03.  
strTmp = strTmp & & strA & }W%}_UT  
Else U(qM( E  
strTmp = strTmp & & strA & z<P#djx  
End if xhMdn3~U  
objRs.MoveNext 2I
39fZa  
Wend ?Z7C0u#wd  
Set objRs = Nothing 8c$IsvJg  
getTableList = strTmp 1-gX=8]]  
End Function C{S6Ri  
% > ln!KL'T]  
}mJ)gK5b 6  
B "}GAk}V  
I`KN8ll  
9p$q@Bc  
All Tables :
`^N;%[c`z  
.g&BA15<F6  
E3KPJ`=!*"  
,9M \`6  
`0 F"zu  
() %BHq2~J  
h;unbz  
CGg6nCB  
D{z=)'/F  
+l3 vIN
 
QU4'x4YS  
  then #6m//0 u  
strSql = Select * from & tblname C"mb-n7s  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) KoXXNJax  
Response.Write 1X9sx&5H  
for i=0 to rs.Fields.count-1 n2O7n@8  
  Response.Write & rs.fields(i).name & C,z]q$4  
next wLUmRo56aR  
Response.Write >zhbipA  
While Not Rs.Eof  3i$AR  
  Response.Write rC*nZ*  
  for i=0 to rs.fields.count -1 (c*Dvpo1  
        Response.Write & Rs.Fields(i).Value &   YvHn~gNPhs  
  next +yea}uUE  
  Response.Write       Rx<pV_|H,  
  Rs.MoveNext XKK*RVs#  
Wend <(t<gS#  
Set Rs = Nothing JT-Zo OZ  
end if Cw2+@7?|  
  % > ,^,J[F  
bU,&|K/  
BPOWo8TqD^  
&]c9}Ic  
\%^3Izsc  
转自： ASP教程采集