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

0 then \C $LjSS-  
Response.Write 错误 ： & err.description & *]NG@^y  
response.end sa$CCQ  
End if I !=ew |  
End Sub X?&(i s  
Sub EndDB() U1}-]^\  
Set objOraDB = Nothing +Kw:z?  
Set objOraSession = Nothing ?55t0  
End Sub :sAb'6u1EU  
Function getTableList(str) gQMcQV]C$  
Dim strSql,strTmp ^<49NUB>  
Dim objRs FD:3;nUY7  
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 GX?R# cf  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) z{Z4{&M  
While Not objRs.Eof \ :To\6\Ri  
strA = objRs(uname) & . & objRs(tname) .R'<v^H  
vVQwuV  
If str=strA then \!M6-kmi  
strTmp = strTmp & & strA & r#rL~Rsd}  
Else A[:0?Ez=  
strTmp = strTmp & & strA & P0VXHE1p  
End if ix2V?\  
objRs.MoveNext `Y>'*4a\  
Wend *:S_v.Y3"  
Set objRs = Nothing $p:RnH\H1  
getTableList = strTmp vy&'A$ H  
End Function sG{fxha  
% > '/8{Mx+  
C{(&Yy"  
pURtk-Fr2  
WxLbf+0o  
M3 MB{cA2  
All Tables : I
v])s  
}7?_>  
6G.(o  
C.qNBl*  
'D_a2xo0  
() =rz7x  
:%G_<VAo!  
o;#:%  
lTb4quf8I  
ymH>] cUm  
m1bkY#\ U|  
  then Zp
8\n:  
strSql = Select * from & tblname o%3i(H  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) >7g #e,d  
Response.Write 'Ur1I"  
for i=0 to rs.Fields.count-1 [$\KS_,Mn  
  Response.Write & rs.fields(i).name & vH1IVF"DS  
next ^UU@7cSi|G  
Response.Write B xAyjA6  
While Not Rs.Eof {A^3<=|  
  Response.Write wwh1aV *  
  for i=0 to rs.fields.count -1 NM FgCL  
        Response.Write & Rs.Fields(i).Value &   uuHg=8(  
  next EzII!0 F  
  Response.Write       E8X(AZ 2  
  Rs.MoveNext ^!&6z4DP  
Wend 3CL1Z\8To  
Set Rs = Nothing _[)f<`!g_V  
end if Hk&op P9)  
  % > ^wass_8  
qwhDv+o  
i~Qnw-^B  
UHyGW$B  
qa-%j+  
转自： ASP教程采集