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

0 then :y+B;qw  
Response.Write 错误 ： & err.description & 9J~:m$.  
response.end xwTijSj  
End if `z9)YH  
End Sub 2d-TU_JqX  
Sub EndDB() T@;! yz}Pf  
Set objOraDB = Nothing Gw ~{V  
Set objOraSession = Nothing %f3c7\=C  
End Sub |d,F-9iw  
Function getTableList(str) Pm$F2YrO3  
Dim strSql,strTmp FU_fCL8yA  
Dim objRs t8+?U^j  
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 yGba  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) F&=I7i  
While Not objRs.Eof ; cGv] A+  
strA = objRs(uname) & . & objRs(tname) U91 &|  
k2EHco0BG  
If str=strA then K :1g"  
strTmp = strTmp & & strA & oM6j>&$b  
Else ^cYStMjpy  
strTmp = strTmp & & strA & h&)fu{   
End if 3jvx2  
objRs.MoveNext r5t;'eCea  
Wend _*O7l  
Set objRs = Nothing 3p:=xL  
getTableList = strTmp Z5((1J9  
End Function jCU=+b=  
% > \Dn&"YG7  
z%OuI 8"'  
8';m)Jc  
:]vA2  
'S =sj}X  
All Tables : 8O,?|c=>  
P+[QI U  
^#]c0  
iJFr4o/R  
hT?6sWa  
() a "R7JjH  
%1Yz'AiW[  
j7K5SS_]  
k/%#>  
59V#FW
e-  
BbFa=H.  
  then Hal7 MP  
strSql = Select * from & tblname }K2 /&kZ  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) !_qskDc-  
Response.Write b)N[[
sOt  
for i=0 to rs.Fields.count-1 xpF](>LC(  
  Response.Write & rs.fields(i).name & .:rmA8U[  
next b3}Q#Y\G  
Response.Write M(yH%i^A  
While Not Rs.Eof *'6s63)I2  
  Response.Write 9X(Sk%  
  for i=0 to rs.fields.count -1 y<TOqn  
        Response.Write & Rs.Fields(i).Value &   <3b'm*  
  next k^z0Lo|)'  
  Response.Write       =4eUAeH {w  
  Rs.MoveNext >QXzMN}o  
Wend _IWxYp  
Set Rs = Nothing 2d-{Q8Pi  
end if tE@FvZC'=  
  % > l';pP^.q  
;(7-WnU8N  
C\7u<2c  
QIQfI05  
2Zy_5>~  
转自： ASP教程采集