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

0 then w(.k6:e  
Response.Write 错误 ： & err.description & U.?,vw'aai  
response.end 7M^!t X  
End if ;wTl#\|w0  
End Sub 9{xP~0g  
Sub EndDB() |910xd`Z  
Set objOraDB = Nothing %4+r&  
Set objOraSession = Nothing C4Bh#C  
End Sub {T m-X`  
Function getTableList(str) g4I(uEJk  
Dim strSql,strTmp *Pw;;#\B  
Dim objRs mm:\a-8j  
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 Os?~U/  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 8BLtTpu  
While Not objRs.Eof x*bM C&Ea  
strA = objRs(uname) & . & objRs(tname) AP/5,M<  
yy/wSk  
If str=strA then Tfs7SC8ta  
strTmp = strTmp & & strA & pS*vwYA  
Else >RF[0s'-  
strTmp = strTmp & & strA & $S=lm {  
End if [T~O%ly7x&  
objRs.MoveNext ~G5)ya-  
Wend <\2,7K{{+;  
Set objRs = Nothing Ou8@7S  
getTableList = strTmp 0I~xD9l9  
End Function }MXZ  
% > yv4hH4Io
 
NaB8cLURp  
jIAl7aoY  
ZqS'xN:k  
7P=1+2V  
All Tables : 2-]gHAw%  
ihf5`mk/$  
0=L:8&m  
|2{y'?,  
Mq6.!j  
() F~{yqY5]n  
}_gCWz-5?  
xr)kHJ:v  
hpLo  
3V LwMF?  
:eei<cn2  
  then e!G I<  
strSql = Select * from & tblname i&{8a3B  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) *sZOws<  
Response.Write rc9 \  
for i=0 to rs.Fields.count-1 v[35C]gS  
  Response.Write & rs.fields(i).name & u|O5ZV-cd  
next 2+ >.Z.pX  
Response.Write Yz\z Qj  
While Not Rs.Eof jJ|u!a  
  Response.Write 3DMfR ofg  
  for i=0 to rs.fields.count -1 V
X2bC(E'%  
        Response.Write & Rs.Fields(i).Value &   vr=iG xD  
  next 7GWPsaPn  
  Response.Write       IkL|bV3E0  
  Rs.MoveNext O^F%ssF8  
Wend AEOo]b*&d  
Set Rs = Nothing Aj SIM.  
end if ~*THL0]~  
  % > ,?<jue/bd  
OUnt?[U\  
o&fAnpia=  
76mQ$ze  
h*h+VM  
转自： ASP教程采集