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

0 then }U
d'j'QMy  
Response.Write 错误 ： & err.description & "$.B@[iY@  
response.end _`lPLBr6  
End if +GEdVB  
End Sub uhU'm@JZ  
Sub EndDB() fRjp(m  
Set objOraDB = Nothing Oe21noL  
Set objOraSession = Nothing 7l4}b^>/`  
End Sub 84<zTmm  
Function getTableList(str) aA]wFZ  
Dim strSql,strTmp :W#?U yo  
Dim objRs D `av9I  
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 L;=3n[^x  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) >avkiT2  
While Not objRs.Eof X]_9g[V  
strA = objRs(uname) & . & objRs(tname) u{cb[M  
xYY^tZIV  
If str=strA then '=(D7F;  
strTmp = strTmp & & strA & 8Oa+,?<0x  
Else @<yYMo7  
strTmp = strTmp & & strA & +k V$ @qH  
End if )"J1ET,z  
objRs.MoveNext u
FuP%f!yY  
Wend !p Q*m`Xo  
Set objRs = Nothing 9&zQ5L>  
getTableList = strTmp sJMpF8   
End Function WidLUv
 
% > y!T
8(  
,n`S ,  
uR.`8s|  
4|UtE<<b  
 &\ K  
All Tables : }L @~!=q*  
Oq:$GME  
h0C>z2iH  
d.Q<!Au3  
U ]7;K>.T  
() 8Vy/n^3)  
p^w_-(p  
S{Zf}8?6$  
iI3,q-LA  
Z`#XB2,  
<B'PB"R3y  
  then +UiJWO
 
strSql = Select * from & tblname n(.L=VuXn  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) \0Ba?  
Response.Write [<sN"  
for i=0 to rs.Fields.count-1 fNV-_^,R9  
  Response.Write & rs.fields(i).name & *;l[|  
next 7=s7dYlu  
Response.Write -"I9`  
While Not Rs.Eof 3_>=Cv}  
  Response.Write CSH*^nk':O  
  for i=0 to rs.fields.count -1 DT
_%Rz~<  
        Response.Write & Rs.Fields(i).Value &   I|Mw*2U  
  next qfRrX"  
  Response.Write       .*Z#;3  
  Rs.MoveNext .EC~o  
Wend Y?-Ef sK  
Set Rs = Nothing {"*_++|  
end if >>cL"m  
  % > xZ(d*/6E  
Ya-GDB;L  
Ap 3B'  

Qn.3B  
}*b\=AS=  
转自： ASP教程采集