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

0 then ,q|;`?R;  
Response.Write 错误 ： & err.description & 0l&#%wmJ,  
response.end WQ>y;fi5/{  
End if U3UDA  
End Sub ?1kXV n$  
Sub EndDB() xYUC|c1Q9  
Set objOraDB = Nothing XzF-g*e  
Set objOraSession = Nothing OPtFz6  
End Sub YLVZ]fN=>  
Function getTableList(str) :G\X  
Dim strSql,strTmp K.T.?ug;:  
Dim objRs GjD^\d/  
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 !:<(p  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) #Z)8
,N  
While Not objRs.Eof lk?@ =U~  
strA = objRs(uname) & . & objRs(tname) ta'{S=^j  
'W2B**}  
If str=strA then d=v{3*a_4,  
strTmp = strTmp & & strA & Z\9DtvV
 
Else pDloew  
strTmp = strTmp & & strA & @j/|U04_Z  
End if .Fe_Z)i>h  
objRs.MoveNext [W#M(`}D  
Wend 3{*nG'@Mal  
Set objRs = Nothing Q 
eZg l!  
getTableList = strTmp 2:4:Q[{A  
End Function JsZLBq*lP  
% > o$%I{}9x  
P/e6b .M  
7)Y0D@wg  
gf\F%VmSN  
Z;qgB7-M  
All Tables : ]8;2Oh   
I"5VkeIx  
ZqK1|/\ rh  
6hX[5?}  
{
/E_l  
() lCAD $Ia~  
~p* \|YC  
"1iLfQ  
zZ*\v  
z 7 s&7)a  
J%mtlA  
  then b\9MM  
strSql = Select * from & tblname o NqIrYH'  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ]?3-;D.eG  
Response.Write J'H}e F`  
for i=0 to rs.Fields.count-1 B65"jy  
  Response.Write & rs.fields(i).name & k`u.:C&  
next ObyF~j}j  
Response.Write _ \LPP_  
While Not Rs.Eof t 8,VRFV  
  Response.Write &]_2tN=S$  
  for i=0 to rs.fields.count -1 lv=rL  
        Response.Write & Rs.Fields(i).Value &   I #8TY/XP  
  next ?[z@R4at  
  Response.Write       px>g  
  Rs.MoveNext #x|IEjoa  
Wend Rxfhk,I  
Set Rs = Nothing .FWi$B';  
end if 5%K(tRc|  
  % > %~$coZY^  
kx.8VUoM V  
YM<F7tp4  
J7Y lmi  
 Bl1^\[#  
转自： ASP教程采集