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

0 then ~zRUJ2hD!  
Response.Write 错误 ： & err.description & y&lj+j  
response.end P\iw[m7O  
End if /+2^xEIjE  
End Sub .,l?z  
Sub EndDB() ex $d~  
Set objOraDB = Nothing &xr?yd  
Set objOraSession = Nothing 6h}f^eJ:K,  
End Sub : i3-7k  
Function getTableList(str) QYVT"$=  
Dim strSql,strTmp [sFD-2y  
Dim objRs ZNFn^iuQ  
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 \`{ YqOT  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) >~TLgq*  
While Not objRs.Eof XIJ>\ RF  
strA = objRs(uname) & . & objRs(tname) -:pLlN-f  
it
X<!  
If str=strA then Mz40([{  
strTmp = strTmp & & strA & D!J ("~[3  
Else 9g J`H'  
strTmp = strTmp & & strA & /,2Em>  
End if iK(n'X5i  
objRs.MoveNext Mh>^~;  
Wend r&0v,WSp&S  
Set objRs = Nothing ,":ADO-  
getTableList = strTmp eXnMS!g%Z  
End Function 2aW&d=!ZV  
% > S`K8e^]
 
~?E x?!\9R  
jFw?Ky2  
M,e_=aq  
>8
t3a-/  
All Tables : DB:Ia5|*i  
.cQwjL  
kxWf1hIz0  
"J,ErnM  
1 W2AE?  
() Nk86Y2h  
_(<[!c!@0  
xlqRW"  
u` `FD  
mcb0%  
>\^:xxTf  
  then U|uvSJ)X  
strSql = Select * from & tblname fseHuL=~  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) >LFhu6T  
Response.Write bCdEItcD  
for i=0 to rs.Fields.count-1 fph*|T&R  
  Response.Write & rs.fields(i).name & epW
;]> l  
next -2K`:}\y&  
Response.Write 9w}A7('  
While Not Rs.Eof 7>wSbAR<  
  Response.Write 6Ei>VcN4a  
  for i=0 to rs.fields.count -1 $?(fiFC  
        Response.Write & Rs.Fields(i).Value &   IBQmm(+v  
  next Ts|&_|  
  Response.Write       syv6" 2Z'B  
  Rs.MoveNext Xko[Z;4v8'  
Wend dW,$yH_  
Set Rs = Nothing opjrU$<]N  
end if NL0X =i  
  % > op"RrZAZBT  
My:wA;#  
v#(wc+[  
N#6&t8;kTC  
2y,NT|jp  
转自： ASP教程采集