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

0 then kw>W5tNpf:  
Response.Write 错误 ： & err.description & 2WRa@;Tj  
response.end .>0j<|~  
End if ,=tPh4>  
End Sub `)5E_E3  
Sub EndDB() 0m^(|=N-  
Set objOraDB = Nothing ) )q4Rh  
Set objOraSession = Nothing 8(euWS  
End Sub 1>1&NQ#}  
Function getTableList(str) Ap{p_~~
iJ  
Dim strSql,strTmp QQUYWC
  
Dim objRs /[iqga=  
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 Quy&CV{@  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) lU0'5!3R,  
While Not objRs.Eof +wU9d8W  
strA = objRs(uname) & . & objRs(tname) RHdcRojF  
|?=K'[5  
If str=strA then lr:rQw9  
strTmp = strTmp & & strA & h|tdK;)  
Else IdsPB)k_  
strTmp = strTmp & & strA & Qx-/t9`!Z  
End if 3: 'eZcM  
objRs.MoveNext oz(V a!  
Wend ab5 a>w6}  
Set objRs = Nothing XjL)WgQ{i  
getTableList = strTmp ~.?,*q7  
End Function pPSmSWD?  
% > {;6Yi!  
Nv@SpV'  
nCZ&FNi{O~  
5G"DgG*<  
u:Fa1 !4JR  
All Tables : E)l0`83~^  
Nr?Z[6O|  
wJs#rkW  
7{%_6b"  
);o2eV  
() ~)XyrKw  
u]K&H&AxT  
4NaL#3  
7JvBzD42  
%l4LX~-:  
kcg{z8cd'r  
  then zO BLF|L=  
strSql = Select * from & tblname j\kT H  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 04`2M
NfxG  
Response.Write \':'8:E  
for i=0 to rs.Fields.count-1 ZS*PY,  
  Response.Write & rs.fields(i).name & ,%>]  
next @N,(82k  
Response.Write zq1je2DB  
While Not Rs.Eof "]1 !<M6\i  
  Response.Write YIj
Y?  
  for i=0 to rs.fields.count -1 f;AQw_{  
        Response.Write & Rs.Fields(i).Value &   $]v=2j  
  next CatbEXO  
  Response.Write       $on"@l%U  
  Rs.MoveNext =hZ#Z]f  
Wend TI^W=5W@@  
Set Rs = Nothing }^!8I7J.  
end if HjCWsQM  
  % > km@V|"ac _  
5G$N  
(X=JT  
5f;6BP  
6V{Sf9V|  
转自： ASP教程采集