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

0 then ( FRf.mv{  
Response.Write 错误 ： & err.description & xl^'U/  
response.end 90!Ib~7zH  
End if 9.B7Owgr89  
End Sub {mQJ6 G'ny  
Sub EndDB() GXl?Zg  
Set objOraDB = Nothing one>vi`=  
Set objOraSession = Nothing ;a`X|N9  
End Sub .%A2  
Function getTableList(str) +9J>'oe'D  
Dim strSql,strTmp @n(In$  
Dim objRs `dZ|}4[1  
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 6>I.*Qt \l  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ZIp=JR8o$  
While Not objRs.Eof ;=OH=+Rl  
strA = objRs(uname) & . & objRs(tname) ._Xtb,p{  
86g+c  
If str=strA then h(-&.Sm")H  
strTmp = strTmp & & strA & >e;f{  
Else <GN?J.B  
strTmp = strTmp & & strA & p rgjU  
End if %K7}yy&9C  
objRs.MoveNext *@nUas2"  
Wend |_*$+  
Set objRs = Nothing -wfV  
getTableList = strTmp ]Yex#K   
End Function Hi9z<l=$  
% > |Y11sDa9h  
:N}KScS|Wa  
Cj+=9Dc  
U^&Cvxc[[  
\irjIXtV  
All Tables :
ex458^N_  
]w>fnew  
<*(R+to^d  
wlM ?gQXU[  
S+Yg!RrNqj  
() vM/v}6;_K2  
".?{Y(~  
GcW}<g}  
hJsC \C,^  
Yur)_m  
;r"B?]JO  
  then 1,'^BgI,  
strSql = Select * from & tblname &NeYKh?  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 0pa^O$?p  
Response.Write +=Wdn)T  
for i=0 to rs.Fields.count-1 ^ZUgDQduc  
  Response.Write & rs.fields(i).name & ~+yo;[1Yc  
next wf%Ep#^6}  
Response.Write A>A'dQ69  
While Not Rs.Eof >r3< O=Z7  
  Response.Write 5Suc#0y  
  for i=0 to rs.fields.count -1 ot#kU 8f  
        Response.Write & Rs.Fields(i).Value &   79g>7<vp  
  next 0f/!|c  
  Response.Write       , % jTXb  
  Rs.MoveNext oH0F9*+W  
Wend 3G|fo4g  
Set Rs = Nothing Y26l,XIV  
end if +lJ]-U|P  
  % > 8T )ELhTj  
JSK5x(GlH  
-U[`pUY?f  
Fjt,  
$ n[7  
转自： ASP教程采集