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

0 then 7P3/Ky@6  
Response.Write 错误 ： & err.description & >2>/ q?  
response.end HN`qMGW^  
End if Co
nik`  
End Sub =\2gnk~  
Sub EndDB() 9>-6Y  
Set objOraDB = Nothing  YMv}]  
Set objOraSession = Nothing &@@PJ!&  
End Sub w?u3e+  
Function getTableList(str) Mn&_R{{=  
Dim strSql,strTmp \Db`RvEmR  
Dim objRs 3S_H&>K  
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 AlDp+"|  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) +|g*<0T5<  
While Not objRs.Eof rQT%~oM:  
strA = objRs(uname) & . & objRs(tname) LYYz=oZOE!  
e?;c9]XO,o  
If str=strA then .u ikte  
strTmp = strTmp & & strA & +2:HgW  
Else ?0dmw?i  
strTmp = strTmp & & strA & /PSXuVtu5  
End if L7<30"7  
objRs.MoveNext `-U?{U}H  
Wend LyvR].p=5*  
Set objRs = Nothing Xe&9|M  
getTableList = strTmp %`s#p` Ol1  
End Function R%n*wGi_6b  
% > ?QFx
ds  
 "9[2vdSX  
;&|I/MVm  
]SAY\;,_  
qm/>\4eLt  
All Tables : +@fE
w  
B2$cY;LH  
sM)1w-
  
qY%|Uo  
|H5GWZ O{^  
() TtrO_D  
Ms5qQ<0v_  
$s1/Rmw  
Q}\\0ajS)  
q,7W,<-  
1l)j(,Zd*  
  then 7&P70DO  
strSql = Select * from & tblname pFMjfWD,C  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Jjj;v2uSK  
Response.Write dKEy6
C"@  
for i=0 to rs.Fields.count-1 <f:(nGj  
  Response.Write & rs.fields(i).name & -J6`  
next |PYy
hY  
Response.Write 6`'g ${U  
While Not Rs.Eof Q'^'G>MBJ  
  Response.Write )d3C1Pd>  
  for i=0 to rs.fields.count -1 sbVEA  
        Response.Write & Rs.Fields(i).Value &   cyd&bxPgj+  
  next C=Fu1H
pb  
  Response.Write       *wx%jbJo  
  Rs.MoveNext Sx~mc_ekY  
Wend R*
cef  
Set Rs = Nothing W.{+0xx  
end if _0u=}tc  
  % > JT<JS6vw#  
'tkQz  
"h1ek*(?<  
%$b}o7U"s  
UzSDXhzObf  
转自： ASP教程采集