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

0 then YyI|^f8C  
Response.Write 错误 ： & err.description & ieObo foD  
response.end )xi|BqQz  
End if BV<LIrAS  
End Sub 7m1*Q@D  
Sub EndDB() m'%F,c)  
Set objOraDB = Nothing ;R/=9l  
Set objOraSession = Nothing nuvz!<5\{  
End Sub Z#9{1sHEP  
Function getTableList(str) ]E`DG  
Dim strSql,strTmp }O_6wi  
Dim objRs ,"DkMK4%  
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 ZV&=B%J bs  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %!WQ;(  
While Not objRs.Eof wLW!_D,/R  
strA = objRs(uname) & . & objRs(tname) J9{B  
p_[k^@$  
If str=strA then 1,4kw~tA  
strTmp = strTmp & & strA & ,"&vhgYU  
Else ]Qj65]  
strTmp = strTmp & & strA & ~fr1O`8  
End if _c`Gxt%  
objRs.MoveNext P4s:wuJ^  
Wend 64[j:t=N  
Set objRs = Nothing 7pkc*@t  
getTableList = strTmp n`Cm
bM@@  
End Function D`Fl*Wc4H  
% > u U\UULH0  
Q5baY\"9^  
pS51fF9  
tk~7>S  
ZQ@^(64  
All Tables : TMGZHOAt  
Dj?95Z,r  
16xM
?P  
pp/Cn4"w  
+>{{91mN  
() ytHa[U  
az7L0pp  
F7a\Luae  
F)!B%4  
sA:0b5_a  
Rg+V;C C~
 
  then m
/CA  
strSql = Select * from & tblname d[jxU/.p;  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 5'.j+{"  
Response.Write !k Hpw2  
for i=0 to rs.Fields.count-1 6D) vY  
  Response.Write & rs.fields(i).name & 9].!mpR  
next I8e{%PK  
Response.Write <^OGJ}G  
While Not Rs.Eof )4"G1R`3  
  Response.Write D{\hPv  
  for i=0 to rs.fields.count -1 ASPfzW2  
        Response.Write & Rs.Fields(i).Value &   pZF`+642  
  next P3);R>j  
  Response.Write       km.xy_v  
  Rs.MoveNext v"\Q/5p  
Wend o)srE5  
Set Rs = Nothing DL<r2h  
end if 4,UvTw*2z  
  % > Bz]j&`  
9qW^@5
m  
^\J/l\n  
yn"8Ma*  
eCdMDSFO3  
转自： ASP教程采集