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

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

级别: 经院博士
发帖
3975
铜板
4727
人品值
1147
贡献值
565
交易币
0
好评度
3833
信誉值
0
金币
0
所在楼道
学一楼
0 then H{nYZOf/  
Response.Write 错误 : & err.description & qmM%MPv  
response.end eGh7,wngH  
End if -C<Ni  
End Sub *QT|J6ng  
Sub EndDB() FkJX)  
Set objOraDB = Nothing =FtJa3mHK  
Set objOraSession = Nothing K]Onb{QY  
End Sub K JX@?1"  
Function getTableList(str) e<[0H 8  
Dim strSql,strTmp OGqsQ  
Dim objRs OlF5~VAbfb  
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 v9R"dc]0h  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) F_&bE@k  
While Not objRs.Eof 0[T>UEI?  
strA = objRs(uname) & . & objRs(tname) WbP*kV{  
jwd{CN%  
If str=strA then &9F(uk=X  
strTmp = strTmp & & strA & T^~9'KDd  
Else {IpIQ-@l  
strTmp = strTmp & & strA & e=%6\&q  
End if lYMNx|PF  
objRs.MoveNext }./_fFN@  
Wend C #A\Rfi  
Set objRs = Nothing 5zBayJh#  
getTableList = strTmp 1_z6O!rx  
End Function ;c;n.o.)/#  
% > 5};$>47m  
.A2u7*h&  
'N?t=A  
3@7<e~f  
-d8||X[  
All Tables : t[-0/-4  
HAr_z@#E  
x6c#[:R&  
<7%4=  
b-XC\  
() wuQ>|\Zs  
OK^0,0kS3  
bb^$]lT'  
Lv{xwHnE  
) "o+wSI1  
[Ifhh2  
  then MlM2(/ok  
strSql = Select * from & tblname f; "6I  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 4fCg{  
Response.Write -=A W. Z o  
for i=0 to rs.Fields.count-1 ;dh8|ujh  
  Response.Write & rs.fields(i).name & a|v}L,  
next }lzQMT  
Response.Write >`@yh-'r  
While Not Rs.Eof fx783  
  Response.Write njy^<7 ;  
  for i=0 to rs.fields.count -1 V ^U1o[`  
        Response.Write & Rs.Fields(i).Value &   i!=2 8|_  
  next ^QKL}xiV:  
  Response.Write       Dxwv\+7]  
  Rs.MoveNext 0y3<Ho,+$  
Wend ,t]qe  
Set Rs = Nothing <15POB  
end if %$l^C!qcY  
  % > 8uO@S*)0  
qWzzUM1=  
/<s $Am  
f @cs<x  
#!FLX*,  
转自: ASP教程采集
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
引用

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

引用
描述
快速回复

您目前还是游客,请 登录注册
批量上传需要先选择文件,再选择上传
认证码:
验证问题:
10+5=?,请输入中文答案:十五