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

0 then 7e<\11uI]a  
Response.Write 错误 ： & err.description & 2v1dSdX,W  
response.end ~ouRDO  
End if lKy4Nry9  
End Sub 1?#Wg>7'  
Sub EndDB() X\]Dx./  
Set objOraDB = Nothing qk\LfRbj  
Set objOraSession = Nothing ig:z[k?  
End Sub \&%y4=y<sE  
Function getTableList(str) v!rOT/I  
Dim strSql,strTmp H?dEgubg7]  
Dim objRs o(Ro/U(Wu  
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 Sy34doAZ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) [E/^bM+  
While Not objRs.Eof `k'Dm:*`u4  
strA = objRs(uname) & . & objRs(tname) AG,;1b,:81  
\!'K#%]9  
If str=strA then +Ram%"Zwh  
strTmp = strTmp & & strA & /Oa.@53tK6  
Else %'[ pucEF  
strTmp = strTmp & & strA & %Z#[{yuFs  
End if Ya,(J0l  
objRs.MoveNext ^NOy:>  
Wend =zKbvwe%X  
Set objRs = Nothing F
[U0TP@&*  
getTableList = strTmp 29h
_oNO  
End Function h>jp.%oOu  
% > :X-\!w\  
}zV#?;}  

3})0p  
1 ,4V8gp  
3O'X;s2\d  
All Tables : U7Pn $l2!  
8*yky  
tsqWnz=)  
R{Qvpd$y  
ogKd}qTov  
()  ,zrShliU  
KXga{]G:  
=?- sazF&  
jT
q@@y  
Jl^THoEL  
JB\BP$ap  
  then &5;y&dh  
strSql = Select * from & tblname ffE>%M*  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) JQWW's}  
Response.Write vD4<G{  
for i=0 to rs.Fields.count-1 d9uT*5f  
  Response.Write & rs.fields(i).name & 9w,u4q  
next  Ry iS  
Response.Write 4\EvJg@Z.  
While Not Rs.Eof 1'g{tP"d  
  Response.Write AA0zt N  
  for i=0 to rs.fields.count -1 W/|C  
        Response.Write & Rs.Fields(i).Value &   @V# wYt  
  next lIF*$#`oh*  
  Response.Write       {uMqd-Uu  
  Rs.MoveNext FUU/=)^P$  
Wend 2T#>66^@q  
Set Rs = Nothing /w*;|4~Bf  
end if ^5![tTJ  
  % > ]gGCy '*)  
$5m_)]w4a  
jF%[.n[BU  
LC:bHM,e  
M4TFWOC1  
转自： ASP教程采集