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

0 then ;.<HpDfG_  
Response.Write 错误 ： & err.description & kkW}:dBl  
response.end ^x$1N
f  
End if ,B /b>i  
End Sub 8Q"1I7U  
Sub EndDB() acgx')!c  
Set objOraDB = Nothing E^A!k=>  
Set objOraSession = Nothing >vR2K^  
End Sub 6$kh5$[  
Function getTableList(str) I0><IaFy  
Dim strSql,strTmp ef!f4u\  
Dim objRs tv Zq):c  
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 $Yp.BE<}  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) U(Bmffn4Z  
While Not objRs.Eof 2Q7X"ek~[  
strA = objRs(uname) & . & objRs(tname) fz?woVn  
:`lP+y?a1  
If str=strA then }:u-l3e  
strTmp = strTmp & & strA & Sx (E'?]  
Else |qwx3 hQ?  
strTmp = strTmp & & strA & vR>GE?s6  
End if lauq(aD_C  
objRs.MoveNext l_8ibLyo  
Wend F@#p  
Set objRs = Nothing .XVL JJ#  
getTableList = strTmp 4#.Q|vyl]"  
End Function mg>wv[ 7  
% > :."6g)T  
I[?bM-  
mxu!$wx  
uHRxV"@}[1  
lA;qFXaN>  
All Tables : K`60[bdp  

:6&#u.\u  
]"?<y s  
L "'d(MD  
X<pNc6  
() 5sj$XA?5  
M ac?HI  
\zwm:@lG  
.>~er?-  
U_.}V  
m8G/;V[x  
  then \rO!lvX  
strSql = Select * from & tblname +\u\BJ!LAJ  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) f! )yE`4-  
Response.Write 'i:lV'  
for i=0 to rs.Fields.count-1 a#x@e?GvI  
  Response.Write & rs.fields(i).name &  DO9
K  
next +?[s"(  
Response.Write .<xD'54  
While Not Rs.Eof }f% Qk0^  
  Response.Write Y*O Bky  
  for i=0 to rs.fields.count -1 B52dZb  
        Response.Write & Rs.Fields(i).Value &   d0f(Uk  
  next L@_o*"&j  
  Response.Write       GXNk
l?#  
  Rs.MoveNext !4<A|$mQ  
Wend ?AQA>D#W  
Set Rs = Nothing ts("(zI1E  
end if ^R)]_  
  % > 2$VSH&  
"DH>4Q] d  
U!K#g_}  
+x/vZXtOK  
>6@,L+-6r  
转自： ASP教程采集