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

0 then -6MPls+  
Response.Write 错误 ： & err.description & 4'faE="1)S  
response.end 1@Ba7>%'  
End if <n_?$ TJ  
End Sub (~|)Gmq2  
Sub EndDB() .)*&NY!nsl  
Set objOraDB = Nothing  hyxv+m[  
Set objOraSession = Nothing M:O*_>KF  
End Sub +5fB?0D;  
Function getTableList(str) F%L"Q>aHW  
Dim strSql,strTmp Eu|/pH=:  
Dim objRs q~>!_q]FE  
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 U& GPe
de  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) mmQC9nZ  
While Not objRs.Eof tFcQ.1  
strA = objRs(uname) & . & objRs(tname) ( w4XqVT  
m.P F'_)/  
If str=strA then ]n=z(2Z9lD  
strTmp = strTmp & & strA & u`EK^\R  
Else uNewWtUb(  
strTmp = strTmp & & strA & <mX5VGY9^  
End if "'BDVxp'w  
objRs.MoveNext I/'>MDB!  
Wend 58?WO}  
Set objRs = Nothing "]^U(m>f  
getTableList = strTmp CCpRQKb=  
End Function M_O$]^I3w  
% > ~vP_c(8f  
f*@ :,4@  
xK8m\=#  
NO/$}vw  
52^3N>X4X  
All Tables : N+V#=Uy  
Ob%iZ.D|3<  
[voc_o7AI  
S|d /?}C|e  
d%@0xsU1  
() VK4UhN2  
W}F~vx.  
H!NGY]z*  
[1~3\-Y  
iMry0z  
nUY)LnI  
  then C\rT'!Uk\Q  
strSql = Select * from & tblname <S_0=U  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) [YQtX_;w  
Response.Write oCwep^P(v  
for i=0 to rs.Fields.count-1 ;E}&{w/My  
  Response.Write & rs.fields(i).name & x~l"'qsK  
next e?\Od}Hbw  
Response.Write 0#c-
qy  
While Not Rs.Eof 1`II%mf[  
  Response.Write i Q3wi  
  for i=0 to rs.fields.count -1 Z$0mKw  
        Response.Write & Rs.Fields(i).Value &   w8>lWgN  
  next FpttH?^  
  Response.Write       7ey|~u2  
  Rs.MoveNext 5Bcmz'?!  
Wend "6e3Mj\  
Set Rs = Nothing ")boY/ P/w  
end if 7|Qb}[s  
  % > `,  |l  
yokZ>+jb  
Q2|6WE  
7DW-brd   
YU87l  
转自： ASP教程采集