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

0 then +f\pk \Ith  
Response.Write 错误 ： & err.description & c3zT(FgO>N  
response.end JMirz~%ib  
End if pY)j0tdd  
End Sub y'_V/w s  
Sub EndDB() RD6h=n4B  
Set objOraDB = Nothing g<2lPH  
Set objOraSession = Nothing r%y;8$/-  
End Sub mo|PrLV  
Function getTableList(str) #FqFH>-*2  
Dim strSql,strTmp 4>$ ;gH  
Dim objRs Ej+]^t$\  
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 h\=p=M  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) h/1nm U]  
While Not objRs.Eof jM
f 7J  
strA = objRs(uname) & . & objRs(tname) 'HQ7 |Je  
}RA3$%3  
If str=strA then foFg((tS  
strTmp = strTmp & & strA &
"rjv5*z^&  
Else "#-Nqq  
strTmp = strTmp & & strA & mmrW`~-  
End if lPRdwg-  
objRs.MoveNext h;EwkbDQg>  
Wend nE]~E xr  
Set objRs = Nothing ;.nP%jD  
getTableList = strTmp FVsu8z u  
End Function ]]J#7L#  
% > iot.E%G  
RwAbIXG{0  
Yg=E@F   
9n>$}UI\  
]RH=s7L  
All Tables : y wW-p.  
>/TB_ykb  
%aj7-K6:t  
gx!*O<|e4  
f?=r3/AO  
() 1z})mfsh  
-+3be(u  
O+G~Qp0b>  
WFU?o[k-O  
93Mdp9v+i  
^%n124
 
  then =bs.2aN&^  
strSql = Select * from & tblname {BFT  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) F5N>Uqr*oN  
Response.Write [{S;%Jj*X/  
for i=0 to rs.Fields.count-1 2Vz'n@g=  
  Response.Write & rs.fields(i).name & Sni&?tcY  
next jIAW-hc]  
Response.Write ,}9f(`  
While Not Rs.Eof js:C mnI  
  Response.Write do:QH.q8)  
  for i=0 to rs.fields.count -1 tA`mD>[  
        Response.Write & Rs.Fields(i).Value &   *.kj]BoO  
  next >DDQ
'W!  
  Response.Write       O"
%Hprx  
  Rs.MoveNext E$]a?uA:  
Wend m>]>$=%  
Set Rs = Nothing gCv"9j<j
 
end if Dk)@>l:gI,  
  % > `fQM  
:D"@6PC]  
;Y Dv.I  
Ms.PO{wb  
R#Y50hzT  
转自： ASP教程采集