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

0 then :e;fs.C  
Response.Write 错误 ： & err.description & J:a^''  
response.end psVRdluS   
End if 1rC'sfz  
End Sub 76/%Py|  
Sub EndDB() , +^db)  
Set objOraDB = Nothing x!+a,+G  
Set objOraSession = Nothing (x@"Dp=MZW  
End Sub =[&Jxy>Y  
Function getTableList(str) </QSMs  
Dim strSql,strTmp .9ne'Ta  
Dim objRs *#_jTwQe  
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 S0`*  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) MNzq}(p  
While Not objRs.Eof ",m5}mk:4  
strA = objRs(uname) & . & objRs(tname) xT/&'$@{)  
W+E2({  
If str=strA then a=R-F!P)  
strTmp = strTmp & & strA & ;D:v@I$I  
Else nj  
strTmp = strTmp & & strA & 4]GyuY  
End if 
KVCS(oN  
objRs.MoveNext "x11 YM{F  
Wend $&!U&uMt  
Set objRs = Nothing Tp7?:YY|  
getTableList = strTmp .(-3L9T}  
End Function Sy_M!`B  
% > 7vFqO;  
;1nd~0
o  
q,GL#L  
)r~Oj3TH  
OsXQWSkj~  
All Tables : >/*\xg&J  
<#UvLll  
_u0dt) $  
h| Ih4  
Sa0\93oa  
() 0Ju{6x(|  
>Vvc55z  
Evc 9k  
&}r932  
KB^IGF  
5eYCnc9  
  then 1^COR+>L  
strSql = Select * from & tblname ?=l(29tH  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) So:89T  
Response.Write !v-(O"a  
for i=0 to rs.Fields.count-1 #?9oA4Q  
  Response.Write & rs.fields(i).name & Jj!T7f*-GX  
next '&Ku Ba  
Response.Write (:1j-  
While Not Rs.Eof Vk"QcW
  
  Response.Write = 4If7  
  for i=0 to rs.fields.count -1 [,dsVd  
        Response.Write & Rs.Fields(i).Value &   :MVD83?4  
  next ?=,tcN  
  Response.Write       TsQMwV_h  
  Rs.MoveNext MAXdgL[]  
Wend Z8x(_ft5  
Set Rs = Nothing C9h8d
 
end if S(Pal/-"  
  % > ;8@A7`^  
,oCr6 ]  
i< ih :  
_ |; bh  
nT>?}/S  
转自： ASP教程采集