设为首页 收藏本站

运维网

 找回密码
 立即注册
查看: 492|回复: 0

[经验分享] ASP + ORACLE 存储过程 返回结果集

[复制链接]
tdnmqwykpi

尚未签到
发表于 2016-7-27 09:27:01 | 显示全部楼层 |阅读模式
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif<%@Language="VBSCRIPT" CodePage="936" LCID="2052"%>
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif<%Option Explicit%>
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif<%
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'**********************************************
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'                     Coding By sjcatsoft                      |
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'               Please Keep the message,Thx            |
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'**********************************************
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif%>
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif<!-- #include file="../adovbs.inc" -->
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif<%
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    Dim cnOra
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    Function Connect2OracleServer
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Dim conStr
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        conStr = "Provider=MSDAORA.Oracle;Data Source=xx;user id=sr;password=bjlt"
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Set cnOra = Server.CreateObject("ADODB.Connection")
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        cnOra.CursorLocation = adUseClient '=3
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        On Error Resume Next
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        cnOra.Open conStr
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Connect2OracleServer = (Err.Number = 0)
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    End Function
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    Sub DisconnectFromOracleServer
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        If Not cnOra is Nothing Then
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            If cnOra.State = 1 Then
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                cnOra.Close
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            End If
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            Set cnOra = Nothing
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        End If
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    End Sub
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    Sub Echo(str)
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Response.Write(str)
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    End Sub
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    Sub OutputResult
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Dim cmdOra
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Dim rs
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Set cmdOra = Server.CreateObject("ADODB.Command")
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        With cmdOra
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            .CommandType = adCmdText  '=1
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            .CommandText = "{call PKG_TEST.GetItem(?,?)}"
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            .Parameters.Append cmdOra.CreateParameter("p1", adNumeric, adParamInput, 10, 1)
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            .Parameters.Append cmdOra.CreateParameter("p2", adVarChar, adParamInput,  10, "xx")
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            .ActiveConnection = cnOra
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            Set rs = cmdOra.Execute
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            If Not rs.Eof Then
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                While Not rs.Eof
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                    Echo rs(0)
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                    Echo "--"
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                    Echo rs(1)
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                    Echo "<br>"
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                    rs.MoveNext
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                Wend
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif                rs.Close
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            End If
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            Set rs = Nothing
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif            Set cmdOra = Nothing
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        End With    
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        DisconnectFromOracleServer
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    End Sub
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    If Connect2OracleServer Then
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        OutputResult
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    Else
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif        Response.Write(Err.Description)
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    End If
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif%>
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif<%
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'--------------------------------------SQL Script---------------------------------- 
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    '建包
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'-----------------------------------
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'    Create Or Replace Package       PKG_TEST 
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'      IS
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'       TYPE rfcTest IS REF CURSOR  ;
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'       PROCEDURE GETITEM
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'         ( p1 IN NUMBER, 
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'           p2 IN VARCHAR2,
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'           p3 OUT rfcTest
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'          );
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'     
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'    END; -- Package Specification PKG_TEST
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'=============================================
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif    '建包体
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'-----------------------------------
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'    Create Or Replace Package Body       PKG_TEST 
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'    IS
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'       PROCEDURE GETITEM
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'        ( p1 IN NUMBER, 
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'          p2 IN VARCHAR2,
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'          p3 OUT rfcTest
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'         )
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'        IS
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'       BEGIN 
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'           OPEN p3 FOR
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'           SELECT * FROM tablename WHERE id = p1 AND name=p2 AND rownum < 10 ;
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'       EXCEPTION
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'          WHEN OTHERS THEN
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'              NULL ;
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'       END;
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif'    END; -- Package Body PKG_TEST
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif%>
http://zu14.iyunv.com/Images/OutliningIndicators/None.gif

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表，该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有，请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意，请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息，一经发现立即删除。若您因此触犯法律，一切后果自负，我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集，我们仅提供一个展示、介绍、观摩学习的平台，我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责，亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏，不得用于商业或者其他用途，否则，一切后果均由您自己承担，我们对此不承担任何法律责任
7、如涉及侵犯版权等问题，请您及时通知我们，我们将立即采取措施予以解决
8、联系人Email：admin@iyunv.com 网址：www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址：https://www.yunweiku.com/thread-250015-1-1.html 上篇帖子： ORACLE如何查看INSERT\UPDATE\DELETE次数 下篇帖子： 自定义oracle字符串聚合函数
回复

使用道具 举报

返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群，最新一手资源尽在官方微信交流群！快快加入我们吧...

扫描微信二维码查看详情

客服 E-mail:iyunvcom@gmail.com

本站由青云提供云计算服务

运维网--中国最专业的运维工程师交流社区

豫ICP备20007574号-1 Copyright © 2012-2025

关于我们

发展历程

联系我们

关注我们

广告服务

广告案例

隐私条款

免责声明

用户登录

用户注册

版主守则

申请版主

手机版

金币获取

帮助中心

每日签到

Good Good

Study

Day Day

UP


客服E-mail:kefu@iyunv.com 客服QQ：1061981298


QQ群⑦：运维网交流群⑦ QQ群⑧：运维网交流群⑧ k8s群：运维网kubernetes交流群


提醒：禁止发布任何违反国家法律、法规的言论与图片等内容；本站内容均来自个人观点与网络等信息，非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来，其版权均归原作者及其网站所有，我们尊重他人的合法权益，如有内容侵犯您的合法权益，请及时与我们联系进行核实删除！



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表