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

0 then t+KW=eW  
Response.Write 错误 ： & err.description & 9Q1%+zjjMq  
response.end sg,\!'  
End if `&A`&-nc=  
End Sub ,w~3K%B4  
Sub EndDB() 1x_EAHZ>7  
Set objOraDB = Nothing U:*rlA@_.  
Set objOraSession = Nothing :Vxt2@p{  
End Sub xq;>||B
 
Function getTableList(str) >2
s6Y  
Dim strSql,strTmp :=B.)]F.)  
Dim objRs E.*hY+kGZ  
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 vt5w(}v(  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 0HWSdf|w  
While Not objRs.Eof KF'fg R  
strA = objRs(uname) & . & objRs(tname) c$ /.Xp  
/ <(|4e  
If str=strA then ~3bV~H#~m  
strTmp = strTmp & & strA & {Z/iYHv~#c  
Else Xgx/ubca0  
strTmp = strTmp & & strA & 1e[?}q]*  
End if t#.}0Te7  
objRs.MoveNext \r IOnZ.WK  
Wend Hpix:To  
Set objRs = Nothing +1wEoU.l2  
getTableList = strTmp *R+M#l9D`  
End Function 1<vJuF^  
% > wxHd^b  
-dovk?'Gj  
y7pBcyWTE=  
OFr"RGW"  
gqv+|:#  
All Tables : IER;d\_V<  
;cVK2'  
}`L;.9  
=-oP,$k  
M<Bo<,!ua  
() n*9QSyJN]  
S!A:/(^WB  
@2"uJ6o  
h1q3}-  
#v(As)4^  
-F/)-s6#!'  
  then FZgf"XM>  
strSql = Select * from & tblname Zw)=Y.y!  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) )vq}$W!:9  
Response.Write HBp??.r  
for i=0 to rs.Fields.count-1 (72%au  
  Response.Write & rs.fields(i).name & U)'YR$2<
 
next R>"pJbS;L  
Response.Write L<dh\5#p9Y  
While Not Rs.Eof 2(!W 9#]  
  Response.Write fP<==DK  
  for i=0 to rs.fields.count -1 }N9PV/a  
        Response.Write & Rs.Fields(i).Value &   eY`z\I  
  next $zOV*O2  
  Response.Write       06HU6d,  
  Rs.MoveNext dUB;ZB7  
Wend =eY  
Set Rs = Nothing +ase>'<N#  
end if 8o:h/F  
  % > Jhj ]`$J  
n5"i'o{w  
hD#Mhy5h  
#.u&2eyqQ  
{KSLB8gtL  
转自： ASP教程采集