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

0 then 75Jh(hd(  
Response.Write 错误 ： & err.description & g#9KG  
response.end /<zBcpVNV  
End if n KDX=73  
End Sub +3]@0VM26;  
Sub EndDB() 9)aXLM4Y  
Set objOraDB = Nothing Ocx=)WKdW  
Set objOraSession = Nothing uAK-%Uu?  
End Sub 6H.D`"cj  
Function getTableList(str) X<,sc;"b`k  
Dim strSql,strTmp OHp 121  
Dim objRs 5W 5\*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 ^0~?3t5  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) V8[woJ5x  
While Not objRs.Eof 7!<cU  
strA = objRs(uname) & . & objRs(tname) Z-Bw?_e_K  
[AE]0cO@  
If str=strA then r}D`15IHJ  
strTmp = strTmp & & strA & 1i2jYDB"  
Else c6E@+xU  
strTmp = strTmp & & strA & JgYaA*1X  
End if KB*[b  
objRs.MoveNext #E{OOcM  
Wend ldI;DoE#U1  
Set objRs = Nothing @~QW~{y  
getTableList = strTmp 'u_'y  
End Function DH)@8)C  
% > tA}O'x  
5<,}^4wWZ  
:E@"4O?<Y)  
-]W AB9  
1UyI.U]  
All Tables : A;Xn#t ,(K  
 p&:RSO  
`Qaw]&O  
'WxcA)z0cQ  
$N+a4  
() Le|Ho^h,Y
 
vxk1RL*Xu  
WP2|0ib  
wEQV"I  
Co[  r
hs  
K}&|lCsb  
  then  \AoM'+  
strSql = Select * from & tblname iNd8M V  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) }yx'U 3  
Response.Write ]{.rx),  
for i=0 to rs.Fields.count-1 TP'EdzAT  
  Response.Write & rs.fields(i).name & cDm_QYQ  
next ;}=v|Dr&I.  
Response.Write A4Q8^^byY  
While Not Rs.Eof 3xp%o5K  
  Response.Write 1ncY"S/VO  
  for i=0 to rs.fields.count -1 %]r@vjeyd  
        Response.Write & Rs.Fields(i).Value &   6$9n_AS  
  next oizD:|  
  Response.Write       FTtYzKX(bv  
  Rs.MoveNext iW.8+?Xq&  
Wend #N[nvIi}  
Set Rs = Nothing efl6U/'Ij  
end if pWO,yxr:  
  % > eaYQyMv@  
M-T&K%/lW  
Nyow:7p  
HGh`O\f8  
|XLx6E2F  
转自： ASP教程采集