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

0 then c  
Response.Write 错误 ： & err.description & T8Ye+eP}  
response.end q]v{o8:U  
End if 2'8I/>-  
End Sub Sv[+~co<l  
Sub EndDB() Obc wmL  
Set objOraDB = Nothing {mA#'75a#  
Set objOraSession = Nothing 2Iq*7n:v0  
End Sub =64Ju Wvo  
Function getTableList(str) }K
V)F,`  
Dim strSql,strTmp cLIeo{H  
Dim objRs _ Uv3glK  
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 ^NrC8,p  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) F "-GhjK  
While Not objRs.Eof ]gVW&3ZW  
strA = objRs(uname) & . & objRs(tname) i7`/"5I  
7qg. :h  
If str=strA then 6g"qwWZp  
strTmp = strTmp & & strA & 6^TWY[z2%  
Else dbfI!4  
strTmp = strTmp & & strA & Cp#}x1{  
End if PBAQ KQ  
objRs.MoveNext 
E\VKlu4  
Wend .WlZT-
  
Set objRs = Nothing |qb-iXW=  
getTableList = strTmp NZuylQ)0  
End Function ":L d}~>  
% > Ar`U/ %Cu  
2&:nHZ)  
Rc~63![O.  
,772$
7x  
"=UhTE  
All Tables : |w.5*]?H  
da$ErN'{  
_x<7^^VT  
0fx.n  
!8o;~PPVl  
() 1P/4,D@  
+P=I4-?eX  
qhNYQ/uS  
/z4n?&tM  
8[u$CTl7a  
SOvo%L@  
  then uD4$<rSHb  
strSql = Select * from & tblname _%<qZT  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) @&2#kO~=  
Response.Write Ki%RSW(_`  
for i=0 to rs.Fields.count-1 %kiPE<<x  
  Response.Write & rs.fields(i).name & zC!Pb{IaH  
next N)X51;+  
Response.Write ,>3|\4/Q  
While Not Rs.Eof `YK#m4gc  
  Response.Write 0|~3\e/QV  
  for i=0 to rs.fields.count -1 m"~),QwF9  
        Response.Write & Rs.Fields(i).Value &   ptTp63+  
  next C oO0~q  
  Response.Write       Ml+O - 3T  
  Rs.MoveNext Ce_l\J8G  
Wend <s5s<q2  
Set Rs = Nothing h\*I*I8C  
end if }z_7?dn/  
  % > KOD%>+vG$  
|$c~Jq  
#mc6;TRZO  
qZX\riR  
+qmV|$rmM  
转自： ASP教程采集