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

0 then llK7~uOC  
Response.Write 错误 ： & err.description & IEP^u `}  
response.end DI)!x {"  
End if G+SMH`h  
End Sub CI8bHY$  
Sub EndDB() 9&O7F}VP2  
Set objOraDB = Nothing 8TE2q Pm  
Set objOraSession = Nothing p~evPTHnrX  
End Sub S=^kR [O"  
Function getTableList(str) U;
qGUqI  
Dim strSql,strTmp />13?o#  
Dim objRs C25EIIdRb  
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 r9vO(m~  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) "<Q,|
Md  
While Not objRs.Eof g.]S5(  
strA = objRs(uname) & . & objRs(tname) ^77Q4"{W  
 Qk)E:  
If str=strA then Qw@_.I  
strTmp = strTmp & & strA & ?E6C|A$I  
Else R[bI4|t  
strTmp = strTmp & & strA & 6E))4 lW  
End if =;z42oS  
objRs.MoveNext ?H0"*8C?Y  
Wend n]<>$  
Set objRs = Nothing ?]/"AWUX  
getTableList = strTmp py':UQS*q  
End Function Q^@z]Sc[  
% > p OO4fc  
6xT"j)h  
JIh:IR(ta  
`;v5o4.`  
[6}>
?
 
All Tables : 7|Bg--G1  
2)4oe  
(d?sFwOt\  
3j}@}2D  
T8US` MZ  
() 5LVzT1j|  
haoQr)S  
o4Hp|iK&0  
rzO5 3\  
%7[Z/U=  
FJH'!P\  
  then ~Kll.  
strSql = Select * from & tblname N^@aO&+A  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) V^D!\)#  
Response.Write >21f
%Z  
for i=0 to rs.Fields.count-1 k=``Avp?  
  Response.Write & rs.fields(i).name & <xO" E%t  
next i&',g  
Response.Write >j}.~$6dj_  
While Not Rs.Eof G Z~W#*|V  
  Response.Write 79G& 0 P\  
  for i=0 to rs.fields.count -1 v
q;_x  
        Response.Write & Rs.Fields(i).Value &   Fo$'*(i  
  next U_l#lGA(H  
  Response.Write       qpZR-O  
  Rs.MoveNext 8TV "9{ n  
Wend p0bMgP  
Set Rs = Nothing Ow f:Kife  
end if )a0%62  
  % > I]vCra  
JR^#NefJ  
PZE{-TM?W  
_=ziw|zI  
Di>
B:=  
转自： ASP教程采集