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

0 then ( ]AErz+  
Response.Write 错误 ： & err.description & ~r]ZD)  
response.end 8.o[K  
End if 9*[!uu  
End Sub 3HO4h\mp  
Sub EndDB() S5"xb  
Set objOraDB = Nothing u4IgPCTZ+  
Set objOraSession = Nothing Y3-Tg~/~W  
End Sub eoR@5OA&  
Function getTableList(str) C]WVH\Pp  
Dim strSql,strTmp "h
7Z(Y  
Dim objRs <s9Sx>Zb  
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 W$EX6jTGI  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) K *{C:Y  
While Not objRs.Eof 3_fLafA  
strA = objRs(uname) & . & objRs(tname) cK(}B_D$  
IQGIU3O  
If str=strA then [dk|lkj@u\  
strTmp = strTmp & & strA & B6 x5E  
Else {AO3o<-h  
strTmp = strTmp & & strA & |QAmN>7U  
End if 8<^[xe  
objRs.MoveNext Yl&eeM  
Wend 5>j,P   
Set objRs = Nothing k|BY 7C  
getTableList = strTmp Xvi{A]V  
End Function 56>Zqtp*  
% > GE Xz)4[  
sG}}a}U1  
2a5yJeaIv*  
*W(b=u  
-3wg9uZ&  
All Tables : SQvicZAN)`  
y3 LWh}~E  
4J!1$  
QDBptI:  
g[8VfIe  
() i2N*3X~  
Lg9]kpOpa  
K.o?g?&<  
!h?N)9e  
bp_3ETK]P  
`WWf
?g  
  then 4yQ4lU,r  
strSql = Select * from & tblname W;~^3Hz6  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) %- %/3  
Response.Write @*is]d+Ya  
for i=0 to rs.Fields.count-1 8Ral%
I:gr  
  Response.Write & rs.fields(i).name & ;f?OT7>kN  
next d^ipf*aLC  
Response.Write A |NX"  
While Not Rs.Eof OTN"XKa$  
  Response.Write U=Z@Ipu5T  
  for i=0 to rs.fields.count -1 %04>R'mN  
        Response.Write & Rs.Fields(i).Value &   Y +HVn0~qz  
  next -<ZzYQk^h  
  Response.Write       tDy1Gh/c  
  Rs.MoveNext RvDqo d  
Wend "9LPq  
Set Rs = Nothing `dEWP;#cp  
end if [<wy@W  
  % > /PPk p9H{  
#kLM=a/_NO  
g0g/<Tv[  
lCd^
|E  
*'d5~dz=  
转自： ASP教程采集