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

0 then }&D WaO]J7  
Response.Write 错误 ： & err.description & klYX7?  
response.end Dpac^ST  
End if FxY}m  
End Sub 3
`?7<YJ  
Sub EndDB() ~P qM]^  
Set objOraDB = Nothing E=Bf1/c\  
Set objOraSession = Nothing RC"MdcD:]y  
End Sub :,7hWs
 
Function getTableList(str) ttQGo
Ukj  
Dim strSql,strTmp {fM'6;ak  
Dim objRs ~=LE0.3[  
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 i.&e  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) VGN5<?PrN  
While Not objRs.Eof !|uWH  
strA = objRs(uname) & . & objRs(tname) `RW HN/U  
Uc>lGo1j  
If str=strA then Z\rwO>3  
strTmp = strTmp & & strA & 4"ZP 'I;  
Else LOYk9m  
strTmp = strTmp & & strA & G!##X: 6'  
End if C.P*#_R  
objRs.MoveNext MjRHA^b  
Wend $HzBD.CF|x  
Set objRs = Nothing =XQ%t @z0  
getTableList = strTmp RP|`HkP-2  
End Function ?$pCsBDo  
% > yPp9\[+^j  
cVpp-Z|s8  
IPpN@  
y.k~Y0  
8Fh)eha9f  
All Tables : U/M>?G~  
>Tx?%nQ  
TX/Xt7#R:  
|e&\<LwsP  
3}1u
\(Mf  
() (9d&  
S hWJ72c  
e9tjw[+A  
="H%6S4'  
|Ez>J+uye(  
B[Scr5|  
  then P+sW[:  
strSql = Select * from & tblname 3?yg\  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) @mBQ?;qlK  
Response.Write Y=KTeYW`  
for i=0 to rs.Fields.count-1 UkC!1Jy  
  Response.Write & rs.fields(i).name & T-L||yE,h  
next vr l-$ii  
Response.Write X?',n 1  
While Not Rs.Eof }.(B}/$u  
  Response.Write bJ%h53  
  for i=0 to rs.fields.count -1 3"e,qY  
        Response.Write & Rs.Fields(i).Value &   |df Pki{  
  next xo&_bMO  
  Response.Write       mJnIwdW*  
  Rs.MoveNext BxmWIItz  
Wend 3d]S!=4H"  
Set Rs = Nothing J8(lIk:e  
end if &z3o7rif$  
  % > J@'wf8Ub  
"S]TP$O D  
 (ZizuHC  
'H!Uh]!  
BU_nh+dF  
转自： ASP教程采集