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

0 then {2`=qt2  
Response.Write 错误 ： & err.description & 3\;27&~gV  
response.end midsnG+jnf  
End if d7Ur$K\=y  
End Sub I|$ RJkD  
Sub EndDB() 9t@:4O  
Set objOraDB = Nothing l:]Nn%U(>  
Set objOraSession = Nothing  QH]M  
End Sub *b}>cn)<v  
Function getTableList(str) iA_8(Yo  
Dim strSql,strTmp 1p`+  
Dim objRs XS~- vF  
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 ')S;[=v  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Wl^R8w#Z$  
While Not objRs.Eof 1r r@  
strA = objRs(uname) & . & objRs(tname) 9@$,oM=  
h?\2_s  
If str=strA then o  A*G  
strTmp = strTmp & & strA & K7I&sS^x  
Else RnfXN)+P  
strTmp = strTmp & & strA & nA>sHy  
End if !k$}Kj)I  
objRs.MoveNext IGX:H)&*  
Wend *0Gz)'  
Set objRs = Nothing 3-40'$lE  
getTableList = strTmp vAP{;Q0i  
End Function 0JRD  
% > YC_3n5F%  
k6IG+:s  
~$O1`IT  
h$C@j~  
LE?u`i,e=+  
All Tables : -U2mfW  
T#:F]=  

V9x8R  
2^exL h  
k7_I$<YDj  
() bm&87  
*.y'(tj[  
#:3r4J%+~  
1H:ea7YVU  
hQJWKAf,/  
#`GbHxd  
  then {g/wY%u=  
strSql = Select * from & tblname dhRJg"vrQ  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) SA6hbcYk  
Response.Write G2mNm'0  
for i=0 to rs.Fields.count-1 VlW9UF-W  
  Response.Write & rs.fields(i).name & #G_/.h@  
next i8V0Ty4~N  
Response.Write DM7}&~  
While Not Rs.Eof SqB/4P  
  Response.Write Oo%!>!Lt,  
  for i=0 to rs.fields.count -1 1czG55 |  
        Response.Write & Rs.Fields(i).Value &   l%"`{   
  next p?rK`$U+J  
  Response.Write       hd^x}iK"  
  Rs.MoveNext !Cj(A"uqY  
Wend m% bE-#  
Set Rs = Nothing qR,.W/eS8  
end if 2tr :xi@  
  % > ZL91m`r  

I{n;4?  
&zN@5m$k;  
X7cWgo66T  
7u%a/<  
转自： ASP教程采集