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

0 then ;w(tXcXZ  
Response.Write 错误 ： & err.description & D@?Tq,
= [  
response.end >p?Vv0*  
End if ^=@`U_(,G  
End Sub \.K4tY+V  
Sub EndDB() j[Z<|Da  
Set objOraDB = Nothing [$e\?c  
Set objOraSession = Nothing <;P40jDL  
End Sub PHU$<>  
Function getTableList(str) 0qp Pz|h  
Dim strSql,strTmp /^rJ`M[;  
Dim objRs #Mm1yXNu  
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 /#-zI#iK  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) {NTMvJLm  
While Not objRs.Eof D
&-cNxh  
strA = objRs(uname) & . & objRs(tname) HD!2|b~@
 
eo&^~OVT  
If str=strA then q.s'z}  
strTmp = strTmp & & strA & IlfH  
Else 9YEE.=]T  
strTmp = strTmp & & strA & Z3q
r2/  
End if AQm#a;  
objRs.MoveNext >hv8zHOO:  
Wend ?)V|L~/  
Set objRs = Nothing <swfYT!N  
getTableList = strTmp kK%@cIXS3  
End Function CAbR+y  
% > q5#6PYIq  
tFvXVfml  
6^NL>|?  
U%V4@iz~\m  
FT[of(g^  
All Tables : opfg %*  
kps}i~Jb  
|YcYWok  
?X^.2+]*&  
i#KY'"P  
() ]Il}ymkIZ  
8/"R&yAh  
k, >*.Yoh  
(MzThGJK_  
=k\Qx),Ir  
y"Ios:v@-  
  then 5a%i%+;N  
strSql = Select * from & tblname ]QSQr*  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) apwA  
Response.Write +N2R'Phv  
for i=0 to rs.Fields.count-1 WGA"e  
  Response.Write & rs.fields(i).name & Nz;f| 2h  
next L2> )HG
 
Response.Write [pX cKN  
While Not Rs.Eof w:h([q4X  
  Response.Write MHQM'  
  for i=0 to rs.fields.count -1 THy{r_dx  
        Response.Write & Rs.Fields(i).Value &   AYsiaSTRqW  
  next o-
+H
-  
  Response.Write       @d_9NOmNT  
  Rs.MoveNext QP7N#mh  
Wend ]FEs
N6  
Set Rs = Nothing [vn"r^P  
end if >=K~*$&>  
  % > (Qd@Q,@(s  
zn#lFPj12  
-'rb+<v  
hh8U/dVk*  
 Q5
 =  
转自： ASP教程采集