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

0 then J4`08,  
Response.Write 错误 ： & err.description & O(&EnNm[2  
response.end bI]1!bi]i  
End if |8+<qgQ  
End Sub p@cPm8
L3  
Sub EndDB() gP/]05$e  
Set objOraDB = Nothing C,tlp  
Set objOraSession = Nothing XHN?pVZ7  
End Sub jy&p_v1  
Function getTableList(str) H[-zQ#I9  
Dim strSql,strTmp "Jv&=zJ  
Dim objRs v`w
Pdb  
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 yD(/y"P,9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) o"[qPZd>  
While Not objRs.Eof <&H.pN1_  
strA = objRs(uname) & . & objRs(tname) i}HF
  
@Ki`g(],P  
If str=strA then *l7 ojv  
strTmp = strTmp & & strA & ^GRd;v=-@  
Else X-n'?=  
strTmp = strTmp & & strA & S;|%'Sn|j9  
End if zaoZCyJT%  
objRs.MoveNext 1 #EmZ{*  
Wend [=V

8  
Set objRs = Nothing w5~<jw%>  
getTableList = strTmp tM@TT@.t~  
End Function DK4V/>@8  
% > 3FNj~=N  
Dhef|E<  
B'~.>,fg  
ky!'.3yoI  
}r,k*I'K  
All Tables : c-s ~q/  
:+[
q`  
\J1Jn~  
{a(YV\^y|H  
NINyg"g<  
() %PkJ7-/b|^  
8.9S91]=  
T}4RlIZF  
DoImWNLo  
_-^KqNyy  
bLf }U9  
  then Kq.)5%~>  
strSql = Select * from & tblname JsiJ=zo<  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) _jnH!M
w  
Response.Write nq_sbli  
for i=0 to rs.Fields.count-1 5ue{&z @T  
  Response.Write & rs.fields(i).name & BQw#PXp3  
next 8[zP2L!-  
Response.Write tK]r>?Y\  
While Not Rs.Eof &LYU#$sj  
  Response.Write ^iTjr$hQ;  
  for i=0 to rs.fields.count -1 se(_`a/4Q  
        Response.Write & Rs.Fields(i).Value &   jQ7RH/?_  
  next gbKms;:  
  Response.Write       neOR/]  
  Rs.MoveNext ZM4q@O)/  
Wend lfWxdi  
Set Rs = Nothing 
"3}Bv X  
end if rY($+O@a<  
  % > qFvtqv2  
[n66ZY#U]  
}vcC4 =t/  
6AzH'HF  
HfmTk5|/  
转自： ASP教程采集