社区应用 最新帖子 精华区 社区服务 会员列表 统计排行 社区论坛任务 迷你宠物
  • 3587阅读
  • 0回复

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

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then ;H'gT+t<c  
Response.Write 错误 : & err.description & 2`?!+")  
response.end W*N$'%  
End if g}x(hF  
End Sub zMi; A6  
Sub EndDB() o!c] (  
Set objOraDB = Nothing ABh&X+YD  
Set objOraSession = Nothing X4|4QgY  
End Sub  _; Y`  
Function getTableList(str) Oy57$  
Dim strSql,strTmp W-efv  
Dim objRs lIRlMLuG  
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 QDx$==Fo  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) XH}'w9VynR  
While Not objRs.Eof k8AW6oO/i  
strA = objRs(uname) & . & objRs(tname) he(A3{'  
a^U~0i@[S  
If str=strA then 9$ qm>,o  
strTmp = strTmp & & strA & *Hz^K0:8(  
Else E>|: D  
strTmp = strTmp & & strA & iBTYY{-wF  
End if #_93f |  
objRs.MoveNext 7!WA)@6  
Wend vw,rF`LjZ  
Set objRs = Nothing Jg}K.1Hs  
getTableList = strTmp W2FD+ wt  
End Function \%]I{  
% > $5D,sEC@  
!K f#@0E..  
anMF-x4/*q  
G 0%6ch^%  
UcOk3{(z$q  
All Tables : #|&Sc_#4)  
eq(am%3~  
*t[. =_v  
'(bgs   
/DQaGq/Ld  
() 2EZb )&Q  
hd),&qoW?  
WmY``  
l&iq5}[n&  
7(5xL T$  
"#[!/\=?:  
  then .ZvM^GJb  
strSql = Select * from & tblname =6"2UC&  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 'Vyt4^$%  
Response.Write 1N7Kv4,  
for i=0 to rs.Fields.count-1 91 =OF*w  
  Response.Write & rs.fields(i).name & \b%kf99  
next na9sm  
Response.Write KMI_zhyB  
While Not Rs.Eof kY*rb_2j  
  Response.Write &boOtl^  
  for i=0 to rs.fields.count -1 GrUCZ<S  
        Response.Write & Rs.Fields(i).Value &   1pArZzm>  
  next u%w`:v7Yo(  
  Response.Write       {}3${  
  Rs.MoveNext 'nXl>  
Wend yzqVz_Fi*W  
Set Rs = Nothing ]IoUwgpI)  
end if cWoPB _  
  % > `s\?w5[  
N5a*7EJv+  
N[s}qmPha  
9 FB19  
{q"OM*L(  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

引用
想找我?如果我即不在 石家庄经济学院论坛www.uebbs.net,也不在宿舍,那,我肯定是在去的路上

引用
描述
快速回复

您目前还是游客,请 登录注册
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
认证码:
验证问题:
10+5=?,请输入中文答案:十五