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

0 then 0> 6;,pd"  
Response.Write 错误 ： & err.description & 4rh*&'  
response.end B3P#p^  
End if LE|*Je3a  
End Sub as{^~8B  
Sub EndDB() :LuzKCvBP  
Set objOraDB = Nothing Pw"
o[8  
Set objOraSession = Nothing O@ GEl  
End Sub ]vPa A  
Function getTableList(str) Au6*hv3:  
Dim strSql,strTmp 4[S0~O{r  
Dim objRs g36\%L  
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 ]J t8]w  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 4<['%7U_[  
While Not objRs.Eof 2ja@NT  
strA = objRs(uname) & . & objRs(tname) jQKlJi2xu  
M#sDPT  
If str=strA then Y{ho[%  
strTmp = strTmp & & strA & bHr2LhQCN  
Else t ._PS3  
strTmp = strTmp & & strA & R7L:U+*V"  
End if btfjmR<Tp  
objRs.MoveNext ohdWEU,  
Wend 86^xq#+Uw  
Set objRs = Nothing fC
2  
getTableList = strTmp \k=.w  
End Function &~u=vuX  
% > [3s p  
uF!3a$4]  
yW$ja|^E  
pX:FXzYQ  
fC_dSM[{c  
All Tables : ;JcOm&d/hk  
5ml^3,x  
)TceNH  
.oJs"=h:m  
cm8-L[>E  
() &AMW?vO  
_u`NIpXSP  
s_=/p5\  
Ufz& 2  
LiyEF&_u  
hSZ0 }/  
  then :%dIX}F  
strSql = Select * from & tblname >b |TaQ  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) UC,43 z  
Response.Write VOYuog 5o  
for i=0 to rs.Fields.count-1 6 1=?(Iw  
  Response.Write & rs.fields(i).name & 3gW4\2|T  
next 3 <V{.T  
Response.Write i>9/vwe  
While Not Rs.Eof {(7D=\eU  
  Response.Write uv++Kj!  
  for i=0 to rs.fields.count -1 fb5]eec  
        Response.Write & Rs.Fields(i).Value &   7L[HtwI  
  next |S5N$[  
  Response.Write       9})!~r;|  
  Rs.MoveNext 41<.e`{  
Wend zfE;)K^"  
Set Rs = Nothing aW8Bx\q  
end if ?-g=Rfpag  
  % > OQ$77]XtvL  
Ge+&C RhyX  
ZDZPJp,  
lD!o4ZAo  
$X%GzrN  
转自： ASP教程采集