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

0 then f7)}A/$4+  
Response.Write 错误 ： & err.description & w[I%Id;E  
response.end ?=dyU(  
End if &Y\Vh}  
End Sub k`
62&"T  
Sub EndDB() ;gcQ9L  
Set objOraDB = Nothing ib/B!?/
 
Set objOraSession = Nothing 'vgw>\X(  
End Sub ?y>xC|kt  
Function getTableList(str) Se9I1~mX  
Dim strSql,strTmp :aV(i.LW  
Dim objRs $u|p(E:*  
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 4Smno%jq  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) <:-|>R".  
While Not objRs.Eof lj/?P9  
strA = objRs(uname) & . & objRs(tname) sOa`Tk  
#[vmS  
If str=strA then r50}j  
strTmp = strTmp & & strA & >k<.bEx(A  
Else ?5K.#>{  
strTmp = strTmp & & strA & FTI[YR8?Y  
End if 5JK{dis]k  
objRs.MoveNext 2P`hdg  
Wend bU/5ug.  
Set objRs = Nothing ;eI,1 [_  
getTableList = strTmp K 4j'e6  
End Function x/{  
% > BT: =  
8c`g{ *z  
*LOpbf  
H^_[nL
 
.t.H(Q9  
All Tables : 3;Kv9i<~LE  
,)hUL/r6  
uhSRl~tn  
j
2}C  
{wih)XNY  
() =>-:o:Cu{  
j+\I4oFN  
?w`uv9NUJ8  
\`;FL\1+W  
|y)Rlb#d  
K{B[(](  
  then DNcf2_m  
strSql = Select * from & tblname fLA!oeq{&}  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) sn '#]yM  
Response.Write +v2Fr}  
for i=0 to rs.Fields.count-1 }_u1'  
  Response.Write & rs.fields(i).name & &, hhH_W  
next B4
bC6$Lg  
Response.Write 3+@
p
  
While Not Rs.Eof `YVdIDl]  
  Response.Write YK!nV ,  
  for i=0 to rs.fields.count -1 f;!1=/5u-  
        Response.Write & Rs.Fields(i).Value &   <]eWr:;  
  next sDTCV8"w  
  Response.Write       n"N!76  
  Rs.MoveNext r03
79 _  
Wend oFB~)}f<v  
Set Rs = Nothing r&@#,g  
end if 75v 5/5zRn  
  % > 1q0DOf]!T  
RJYuyB  
bccJVwXv  
\-a^8{.^E  
-"YQo  
转自： ASP教程采集