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

0 then nt;haeJ  
Response.Write 错误 ： & err.description & `(v='$6}  
response.end :@1eph0  
End if @Ys!DScY,  
End Sub F^N82  
Sub EndDB() ]Pry>N3G5  
Set objOraDB = Nothing h@:TpE+N  
Set objOraSession = Nothing Ct2j ZqCDo  
End Sub #O$  
Function getTableList(str) UbEb&9}  
Dim strSql,strTmp CPVjmRUF|  
Dim objRs lY~4'8^  
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 HS{(v;  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) *+TH#EL2  
While Not objRs.Eof } X^|$  
strA = objRs(uname) & . & objRs(tname) %{(x3\ *&  
nL$x|}XAcj  
If str=strA then :ml2.vP  
strTmp = strTmp & & strA & \Y|~2Ls8tu  
Else 'eo KZX+  
strTmp = strTmp & & strA & i<H wTmm$  
End if B=>RH!&  
objRs.MoveNext Q:|l`*.R  
Wend K=C!b?  
Set objRs = Nothing oY1';&BO9  
getTableList = strTmp rj6tZJZ#o0  
End Function Ma'_e=+A  
% > c9kzOQ2n  
2pzF5h  
'fcMuBc+4  
T[,/5J  
FP0G]=ME  
All Tables : {r>.G7P6  
{%VV\qaC
 
[zL7Q^~  
6ZKsz5:=  
JJltPGT~Oa  
() :(a]V"(&Eq  
e1>aTu@  
t6,wjN-J  
e'*`.^  
yz-,)GB6  
b B x?  
  then 4Sm]>%F':  
strSql = Select * from & tblname %r-V2)  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) p. R2gl1m  
Response.Write 3' ~gviI  
for i=0 to rs.Fields.count-1 B|C/ Rk6?  
  Response.Write & rs.fields(i).name & +$$$  
next #'-Sh7ycW  
Response.Write UK$ms~H  
While Not Rs.Eof `6[I^qG".  
  Response.Write
^K7ic,{  
  for i=0 to rs.fields.count -1 %.<H=
!$  
        Response.Write & Rs.Fields(i).Value &   JOb*-q|y  
  next j:}J}P  
  Response.Write       :}h>by=  
  Rs.MoveNext rQOWLg!"  
Wend t~e<z81p  
Set Rs = Nothing ~_9n.C  
end if b{d4xU8'  
  % > n:0}utU4  
bn(`O1r[(  
JXixYwm  
2+cNo9f  
ik"sq}u_]E  
转自： ASP教程采集