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

0 then *$(9,y\  
Response.Write 错误 ： & err.description & 3ywBq9FGhp  
response.end IE'OK  
End if )oHIRsr  
End Sub Q0ev*MS9Z  
Sub EndDB() {[)J~kC+  
Set objOraDB = Nothing V`@@ufU}  
Set objOraSession = Nothing j_p.KF'[?  
End Sub d~
GT w:  
Function getTableList(str) nCXIWLw  
Dim strSql,strTmp o?/N4$&5l  
Dim objRs 9Z7o?S";  
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 - DL/Hk_r  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) h1JG^w$ 5  
While Not objRs.Eof @36^4E>h  
strA = objRs(uname) & . & objRs(tname) '<4OA!,^)  
O{SU
,"!y  
If str=strA then +,c;Dff  
strTmp = strTmp & & strA & @: %}clZ  
Else tEBf2|<  
strTmp = strTmp & & strA & +>c)5Jih  
End if pEhWgCL  
objRs.MoveNext !Bu<6  
Wend |wVoJO!O}  
Set objRs = Nothing w;r-TLf  
getTableList = strTmp ?ew^%1!W.  
End Function \=,+weGw@  
% > B^{bXhDp  
v|QFUa`  
Tje =vI  
VY~WkSi[<  
1sn!!  
All Tables : v_)cp9d]  
6mMJ$FY+  
&e3z)h  
oaRPYgh4  
\!z=x#!O$  
() :vX;>SH$p  
8
=)Aksu  
P#rwYPww\  
q0DoR@  
w?<:`  
&AOw(?2  
  then P%B1dRa  
strSql = Select * from & tblname r`wL_>"{n  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 5\EHu8  
Response.Write 'HW(RC0dR  
for i=0 to rs.Fields.count-1 e`#G
q0}8  
  Response.Write & rs.fields(i).name & U5izOFc  
next 5 BcuLRId:  
Response.Write fIWQ+E  
While Not Rs.Eof %>5Ht e<  
  Response.Write =eTI@pN`  
  for i=0 to rs.fields.count -1 +apIp(E+  
        Response.Write & Rs.Fields(i).Value &   "LXLUa
03  
  next My_fm?n  
  Response.Write       4ol=YGCI_  
  Rs.MoveNext ,MOB+i(3*u  
Wend |FPx8b;#  
Set Rs = Nothing 2tn%/gf'm  
end if BQ_\8Qt|  
  % > 7{az %I$h  
sy/J+==  
][wS}~):  
AVNB)K"  
2MB\!fh  
转自： ASP教程采集