zoukankan      html  css  js  c++  java

  • 一個簡單的ASP執行OUTPUT和RETURN型的存儲過程

    1,表的結構如下:
    if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sbit]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
    drop table [dbo].[sbit]
    GO

    CREATE TABLE [dbo].[sbit] (
            [id] [int] IDENTITY (1, 1) NOT NULL ,
            [sbit] [char] (1) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
            [schar] [char] (1) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL 
    )     ON [PRIMARY]
    GO

    ALTER TABLE [dbo].[sbit] WITH NOCHECK ADD 
            CONSTRAINT [PK_sbit] PRIMARY KEY  CLUSTERED 
        (
                [id]
        )      ON [PRIMARY] 
    GO
    2,存儲過程
    2.1帶有兩個OUTPUT參數
    CREATE PROCEDURE sp_sbit_list
    @sbit   char(1),
    @num    int=0 output,
    @num_1  int=0 output
    AS
    set nocount on
    Declare @str varchar(1000)
    set @str='select * from sbit'
    if @sbit<>'' set @str=@str + ' where sbit=' + @sbit + ''
    set @str=@str + ' order by sbit'
    exec(@str)
    set @num=@@ROWCOUNT
    set @num_1=@num+1
    set nocount off
    GO
    3,相關的兩個ASP文件,一個是UTY.ASP內有一個連接DB的FUNCTION另外一個adovbs.inc里面是一些常量的定議,兩個文件都在根目錄下的UTY子目錄下,兩個文件的內容如下:
    UTY.ASP
    <%
    strIp    ="192.168.1.35"
    Function Opendb(conn_to)
        Application.Lock
            Dim conn
            Set conn = Server.CreateObject("ADODB.Connection")
        conn.ConnectionTimeout     = 50
        conn.CommandTimeout     = 120
            if UCase(conn_to)="MSC" then
        connString     = "Driver={sql server};uid=mscuser;pwd=;database=prs_msc;server="+strIP
            else
              'connString = "Driver={sql server};uid=apuser;pwd=prosperous;database=emsc;server="+strIP
          connString = "Driver={sql server};uid=sa;pwd=sa;database=DB_T;server=(local)"
          end if
      conn.open connString
            Set Opendb = conn
        Application.UnLock
    End Function

    %    >
    adovbs.inc:
    <%
    '----常用到的
    '    ---- DataTypeEnum Values ----
    Const adEmpty = 0
    Const adTinyInt = 16
    Const adSmallInt = 2
    Const adInteger = 3
    Const adBigInt = 20
    Const adUnsignedTinyInt = 17
    Const adUnsignedSmallInt = 18
    Const adUnsignedInt = 19
    Const adUnsignedBigInt = 21
    Const adSingle = 4
    Const adDouble = 5
    Const adCurrency = 6
    Const adDecimal = 14
    Const adNumeric = 131
    Const adBoolean = 11
    Const adError = 10
    Const adUserDefined = 132
    Const adVariant = 12
    Const adIDispatch = 9
    Const adIUnknown = 13
    Const adGUID = 72
    Const adDate = 7
    Const adDBDate = 133
    Const adDBTime = 134
    Const adDBTimeStamp = 135
    Const adBSTR = 8
    Const adChar = 129
    Const adVarChar = 200
    Const adLongVarChar = 201
    Const adWChar = 130
    Const adVarWChar = 202
    Const adLongVarWChar = 203
    Const adBinary = 128
    Const adVarBinary = 204
    Const adLongVarBinary = 205
    Const adChapter = 136
    Const adFileTime = 64
    Const adPropVariant = 138
    Const adVarNumeric = 139
    Const adArray = &H2000
    '---- ParameterDirectionEnum Values ----
    Const adParamUnknown = &H0000
    Const adParamInput = &H0001
    Const adParamOutput = &H0002
    Const adParamInputOutput = &H0003
    Const adParamReturnValue = &H0004
    '---- CommandTypeEnum Values ----
    Const adCmdUnknown = &H0008
    Const adCmdText = &H0001
    Const adCmdTable = &H0002
    Const adCmdStoredProc = &H0004
    Const adCmdFile = &H0100
    Const adCmdTableDirect = &H0200
    %    >
    4,運行時的ASP文件01.ASP
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
    <!-- #include file="uty/adovbs.inc"-->
    <!-- #include file="uty/uty.asp"-->
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=big5">
    <title>執行帶有output返回參數的存儲過程</title>
    </head>

    <body>
    <%
    set conn=opendb("DB_T")
    dim objCnn
    dim objCmd
    sbit    =""

    set objCmd=Server.CreateObject("Adodb.Command")
    Set rs = Server.CreateObject("ADODB.Recordset")
    objCmd.ActiveConnection    =conn
    objCmd.CommandText    ="sp_sbit_list" 
    objCmd.CommandType    =adCmdStoredProc 
    objCmd.Prepared     = true 

    objCmd.Parameters.Append _
    objCmd.CreateParameter(    "sbit",adChar,adParamInput,1,sbit)
    objCmd.Parameters.Append _
    objCmd.CreateParameter(    "num",adInteger,adParamOutput,4,0)
    objCmd.Parameters.Append _
    objCmd.CreateParameter(    "num_1",adInteger,adParamOutput,4,0)

    set rs=objCmd.Execute
    rs.close()
    response.Write(objCmd(    1) & "<br>" & objCmd(2))
    '打印出所有的參數值
    '    for each parm in objCmd.Parameters
    '    Response.Write parm.name &"="& trim(parm) &"<br>"
    '    next
    set objCmd=nothing
    response.Write(    "<br>")
    rs.open

    while not rs.eof
      response.Write(rs(    0) & "---" & rs(1) & "---" & rs(2))
        response.Write(    "<br>")
        rs.movenext
    wend

    rs.close():    set rs=nothing
    conn.close():    set conn=nothing
    %    >
    </body>
    </html>
    2.2(執行帶有RETURN和OUTPUT的存儲過程)
    CREATE PROCEDURE sp_sbit_list
    @sbit   char(1),
    @num    int=0 output,
    @num_1  int=0 output
    AS
    set nocount on
    Declare @str varchar(1000)
    set @str='select * from sbit'
    if @sbit<>'' set @str=@str + ' where sbit=' + @sbit + ''
    set @str=@str + ' order by sbit'
    exec(@str)
    set @num=@@ROWCOUNT
    set @num_1=@num+1
    if @num>0 return 1 else return 0
    set nocount off
    GO
    5,執行的ASP文件內容如下:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
    <!-- #include file="uty/adovbs.inc"-->
    <!-- #include file="uty/uty.asp"-->
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=big5">
    <title>執行帶有output返回參數的存儲過程</title>
    </head>

    <body>
    <%
    set conn=opendb("DB_T")
    dim objCnn
    dim objCmd
    sbit    =""

    set objCmd=Server.CreateObject("Adodb.Command")
    Set rs = Server.CreateObject("ADODB.Recordset")
    objCmd.ActiveConnection    =conn
    objCmd.CommandText    ="sp_sbit_list" 
    objCmd.CommandType    =adCmdStoredProc 
    objCmd.Prepared     = true 

    objCmd.Parameters.Append _
    objCmd.CreateParameter(    "return",adInteger,adParamReturnValue)
    objCmd.Parameters.Append _
    objCmd.CreateParameter(    "sbit",adChar,adParamInput,1,sbit)
    objCmd.Parameters.Append _
    objCmd.CreateParameter(    "num",adInteger,adParamOutput,4,0)
    objCmd.Parameters.Append _
    objCmd.CreateParameter(    "num_1",adInteger,adParamOutput,4,0)

    set rs=objCmd.Execute
    rs.close()
    response.write(    "RETURN:" & objCmd(0) )
    response.write(    "<br>")
    response.Write(    "OUTPUT:" & objCmd(2) & "&" & objCmd(3))
    '打印出所有的參數值,如果有return是必須放在參數的最前面,接收值的時候,如果有return
    '    第一個的值也是return也就是objcmd(0),接下來的就是第二個參數,第三個.
    '    所以上面的兩個output參數應該是objcmd(2) objcmd(3)
    '    for each parm in objCmd.Parameters
    '      Response.Write parm.name &"="& trim(parm) &"<br>"
    '    next
    set objCmd=nothing
    response.Write(    "<br>")
    rs.open

    while not rs.eof
      response.Write(rs(    0) & "---" & rs(1) & "---" & rs(2))
        response.Write(    "<br>")
        rs.movenext
    wend

    rs.close():    set rs=nothing
    conn.close():    set conn=nothing
    %    >
    </body>
    </html>
    下面有一种簡化寫法如下:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
    <!-- #include file="uty/adovbs.inc"-->
    <!-- #include file="uty/uty.asp"-->
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=big5">
    <title>執行帶有output返回參數的存儲過程</title>
    </head>

    <body>
    <%
    set conn=opendb("DB_T")
    dim objCnn
    dim objCmd
    sbit    =""

    Set rs = Server.CreateObject("ADODB.Recordset")
    set objCmd=Server.CreateObject("Adodb.Command")
    with objCmd
      .ActiveConnection     = conn               'conn是聯接數據庫字符串
      .CommandText      = "sp_sbit_list"     '存儲過程名稱
      .CommandType      = adCmdStoredProc    '說明這是一個存儲過程
      .Prepared         = true               '要求要命預編譯
      .Parameters.append .CreateParameter("@return",adInteger,adParamReturnValue)
      .Parameters.append .CreateParameter(    "@sbit",adChar,adParamInput,1,sbit)
      .Parameters.append .CreateParameter(    "@num",adInteger,adParamOutput,4,0)
      .Parameters.append .CreateParameter(    "@num_1",adInteger,adParamOutput,4,0)
          Set rs=.Execute
    end with
    rs.close()
    response.write(    "RETURN:" & objCmd(0) )
    response.write(    "<br>")
    response.Write(    "OUTPUT:" & objCmd(2) & "&" & objCmd(3))
    '打印出所有的參數值,如果有return是必須放在參數的最前面,接收值的時候,如果有return
    '    第一個的值也是return也就是objcmd(0),接下來的就是第二個參數,第三個.
    '    所以上面的兩個output參數應該是objcmd(2) objcmd(3)
    '    for each parm in objCmd.Parameters
    '      Response.Write parm.name &"="& trim(parm) &"<br>"
    '    next
    set objCmd=nothing
    response.Write(    "<br>")
    rs.open

    while not rs.eof
      response.Write(rs(    0) & "---" & rs(1) & "---" & rs(2))
        response.Write(    "<br>")
        rs.movenext
    wend

    rs.close():    set rs=nothing
    conn.close():    set conn=nothing
    %    >
    </body>
    </html>
    在添加參數的時候有"@"和沒有都可以,原則上最好是有較規範.

    申明

    非源创博文中的内容均收集自网上，若有侵权之处，请及时联络，我会在第一时间内删除．再次说声抱歉!!!

    博文欢迎转载，但请给出原文连接。
  • 相关阅读:
    Cesium中监听MOUSE_MOVE事件获取经纬度和高度
    CentOS系统重命名
    docker安装步骤
    nginx发布vue 项目
    解决git 本地代码与远程仓库冲突问题
    js通过className删除元素
    bootstrap treeview基本运用
    自定义组件模拟v-model
    使用a标签下载**.txt文件， 而不是直接打开
    mongoose 开源http库
  • 原文地址：https://www.cnblogs.com/Athrun/p/973761.html
Copyright © 2011-2022 走看看