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

0 then Jy<hTd*q  
Response.Write 错误 ： & err.description & l Oxz&m  
response.end n@%Q 2_  
End if {&7%wZ"t_  
End Sub M:TN^ rA|  
Sub EndDB() 0>{&8:  
Set objOraDB = Nothing KTLq~Ru  
Set objOraSession = Nothing } V *  
End Sub u*}[fQ`aF  
Function getTableList(str) 8k~$_AT>u  
Dim strSql,strTmp _C"=Hy{  
Dim objRs C.]\4e  
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 4
gD;XNrV  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) :DWvH,{+&  
While Not objRs.Eof |z.x M>  
strA = objRs(uname) & . & objRs(tname) b-!+Q)  
_UP=zW  
If str=strA then c+S<U*  
strTmp = strTmp & & strA & J)o.@+Q}  
Else c?(;6$A  
strTmp = strTmp & & strA & #dO8) t  
End if skaPC#u  
objRs.MoveNext k|uW~I)  
Wend 80m<OW1  
Set objRs = Nothing ;[nomxu|?  
getTableList = strTmp  vNWCv  
End Function X 8/9x-E_  
% > 2><=U7~  
/6fa 7;  
X%X`o%AqC  
R;d)I^@  
0+3_CS++r  
All Tables : >;qAj!'  
Q' b@5o  
9!XXuMWU<  
4e`GMtp  
:<}1as!eo  
() "
kb[
}r4?  
~?6M4!u   
~W/|RP7S  
bv:M zYS  
LI~ofCp  
^+J3E4  
  then [k~}Fe)x  
strSql = Select * from & tblname ;bYS#Bid{V  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) qQN|\u+co  
Response.Write %m/W4Nk  
for i=0 to rs.Fields.count-1 }R&5Ye  
  Response.Write & rs.fields(i).name & -tPia=^  
next p[LPi5  
Response.Write VZz>)Kz:  
While Not Rs.Eof 2K:Rrn/cR  
  Response.Write 6[x6:{^J  
  for i=0 to rs.fields.count -1 u=QG%O#B  
        Response.Write & Rs.Fields(i).Value &   r'F)8%  
  next /`kM0=MMa  
  Response.Write       <Jc :a?ICe  
  Rs.MoveNext %VH{bpS|i:  
Wend ?zpN09e  
Set Rs = Nothing 6lAHB*`  
end if 'G)UIjl  
  % > QJ4=*tX)  
ztEM>xsk  
_8 C:Md`  
{,X}Btnwp  
F[@M?  
转自： ASP教程采集