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

0 then *w/})Y3^  
Response.Write 错误 ： & err.description & cc %m0p  
response.end u]!ZW&  
End if yH:gFEJ:x  
End Sub QsN%a>t  
Sub EndDB() ov@N13 ,$  
Set objOraDB = Nothing -wizUp  
Set objOraSession = Nothing }5I+VY7a  
End Sub }qk8^W{  
Function getTableList(str) ! ,*4d $  
Dim strSql,strTmp 7E}.P1  
Dim objRs 6(9S'~*'R  
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 }r)T75_1  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 3<L>BakD  
While Not objRs.Eof Mjr19_.S  
strA = objRs(uname) & . & objRs(tname) *$4EXwt'  
GCEcg&s=\S  
If str=strA then :K#z~#n  
strTmp = strTmp & & strA & C'a%piX  
Else ,o\-'   
strTmp = strTmp & & strA & At?]FjL6S  
End if <Y9 L3O`[  
objRs.MoveNext x9NcIa9  
Wend T]#S=]G  
Set objRs = Nothing <NVSF6`  
getTableList = strTmp IL\2?(&Z  
End Function 1J tt\yq  
% > I<["ko,t@?  
~53uUT|B  
y!,Ly_x$@  
i- v PJg1  
%( tu<  
All Tables : 2L!wbeTb;  
c[h{C!d1  
DviRD[+q"  
;#goC N.  
3a_=e B  
() Rb8wq.LqD  
:|P[u+v  
Tw{}Ht_Qq  
j-% vLL/  
n&j@7R  
>&mNC\PA  
  then =jWcD{;1I}  
strSql = Select * from & tblname 63EwV p/|  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ?m
RGFS  
Response.Write I1Jo8s  
for i=0 to rs.Fields.count-1 42{\u08Z  
  Response.Write & rs.fields(i).name & LZ?z5U:  
next *G6Py,- !f  
Response.Write Vo@gxC,  
While Not Rs.Eof }K8W%h
<3S  
  Response.Write Wvg
+5Q  
  for i=0 to rs.fields.count -1 }ob&d.XZ  
        Response.Write & Rs.Fields(i).Value &   .w .`1 g  
  next )e1&[0  
  Response.Write       \@3B%RW0  
  Rs.MoveNext ,y'E#_cTgQ  
Wend 4~bbng  
Set Rs = Nothing |lnMT)^D  
end if zP F0M(  
  % > orGkS<P  
C}= *%S  
)Td;2  
ecZT|X4u  
HoTg7/iK  
转自： ASP教程采集