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

0 then 4/E>k <MA  
Response.Write 错误 ： & err.description & J
|N>}di  
response.end 1eMaKT_=  
End if 8|-064i>  
End Sub 95oh}c  
Sub EndDB() d6{
0[T^L  
Set objOraDB = Nothing y\}
<N6  
Set objOraSession = Nothing l#;o^H i  
End Sub @rxfOc0J#  
Function getTableList(str) r9$7P?zm  
Dim strSql,strTmp 1zc-$B`t
 
Dim objRs .:2=VLujU  
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 JbW!V
 Y  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) .$s=E8fW  
While Not objRs.Eof $jL+15^N0+  
strA = objRs(uname) & . & objRs(tname) n^k Uu2g|  
W0KSLxM  
If str=strA then eLyaTOZadu  
strTmp = strTmp & & strA & rI4N3d;C  
Else _43 :1!os  
strTmp = strTmp & & strA & 3R ZD=`  
End if 7A46?kfu  
objRs.MoveNext J)_IfbY  
Wend 99&PY[f:{  
Set objRs = Nothing MI*@^{G  
getTableList = strTmp T.iVY5^<  
End Function BxHfL8$1[$  
% > mY/x|)MmM  
#GA6vJ4^s  
Ar1X mHq  
XOd  
~{BR~\D  
All Tables : s&Ml1A:  
h}<Ie <  
Ol1P  
+u'y!@VV  
oSB0P  
() #;Z+X)  
_:.'\d(  
(S k+nD  
_-bEnF+/0  
jGKasI`  
6'QlC+E  
  then j[\aGS7u  
strSql = Select * from & tblname s14;\  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) XyE%<]  
Response.Write qjVhBu7A  
for i=0 to rs.Fields.count-1 iV8O<en&i  
  Response.Write & rs.fields(i).name & <[<]+r&*  
next \z)` pno  
Response.Write ~h6aTN  
While Not Rs.Eof $sBje*;  
  Response.Write yZ57uz  
  for i=0 to rs.fields.count -1 lO5*n|Ic,  
        Response.Write & Rs.Fields(i).Value &   D-4\AzIb  
  next Vh;P,no#  
  Response.Write       ">NPp\t>/Z  
  Rs.MoveNext +hKH\]  
Wend l?swW+x\  
Set Rs = Nothing O5?3nYHa  
end if !:w&eFC6  
  % > PR*qyELu  
_4MT,kN  
|!?`KO{  
|4A938'4j  
ck\gazo~q  
转自： ASP教程采集