一段测试不用COMMAND对象来调用存储过程的ASP代码
类别: ASP教程
他说如果返回多个值,比如纪录集以及返回值一定要用COMMAND对象。。我现在终于搞定了。。:)
<%@ Language=VBScript %>
<%
\'一段测试不用COMMAND对象来调用存储过程的ASP代码
\'------------------------------------------------------------------------
\'CREATE PROCEDURE TopNewsSP
\' @intTopRow Int,
\' @vcInputMsg Varchar(20),
\' @vcReturnMsg Varchar(20) OUTPUT
\'AS
\' SET ROWCOUNT @intTopRow
\' SELECT id,标题,发布日期,关键字 FROM news WHERE 关键字 =\'公告通知\' ORDER BY 发布日期 DESC,Id DESC
\' SELECT id,标题,发布日期,关键字 FROM news WHERE 关键字 =\'娱乐新闻\' ORDER BY 发布日期 DESC,Id DESC
\' IF @vcInputMsg = \'男\'
\' SELECT @vcReturnMsg = \'男人\'
\' ELSE
\' SELECT @vcReturnMsg = \'女人\'
\'------------------------------------------------------------------------
Option Explicit
Dim Conn, Rs, RsCount, SqlQuery
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "itrd", "sa"
SqlQuery = "DECLARE @returnmsg varchar(20)" & VbCrLf & "EXEC TopNewsSP 5, \'男\', @returnmsg OUTPUT" & VbCrLf & "SELECT @returnmsg"
Set Rs = Conn.Execute(SqlQuery)
RsCount = 1
Do Until Rs Is Nothing
Rs.MoveFirst
While Not Rs.Eof
Response.Write Rs(0)
Rs.MoveNext
Wend
Response.Write "第" & RsCount & "个RS对象<br>"
RsCount = RsCount + 1
Set Rs = Rs.NextRecordSet
Loop
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
<%@ Language=VBScript %>
<%
\'一段测试不用COMMAND对象来调用存储过程的ASP代码
\'------------------------------------------------------------------------
\'CREATE PROCEDURE TopNewsSP
\' @intTopRow Int,
\' @vcInputMsg Varchar(20),
\' @vcReturnMsg Varchar(20) OUTPUT
\'AS
\' SET ROWCOUNT @intTopRow
\' SELECT id,标题,发布日期,关键字 FROM news WHERE 关键字 =\'公告通知\' ORDER BY 发布日期 DESC,Id DESC
\' SELECT id,标题,发布日期,关键字 FROM news WHERE 关键字 =\'娱乐新闻\' ORDER BY 发布日期 DESC,Id DESC
\' IF @vcInputMsg = \'男\'
\' SELECT @vcReturnMsg = \'男人\'
\' ELSE
\' SELECT @vcReturnMsg = \'女人\'
\'------------------------------------------------------------------------
Option Explicit
Dim Conn, Rs, RsCount, SqlQuery
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "itrd", "sa"
SqlQuery = "DECLARE @returnmsg varchar(20)" & VbCrLf & "EXEC TopNewsSP 5, \'男\', @returnmsg OUTPUT" & VbCrLf & "SELECT @returnmsg"
Set Rs = Conn.Execute(SqlQuery)
RsCount = 1
Do Until Rs Is Nothing
Rs.MoveFirst
While Not Rs.Eof
Response.Write Rs(0)
Rs.MoveNext
Wend
Response.Write "第" & RsCount & "个RS对象<br>"
RsCount = RsCount + 1
Set Rs = Rs.NextRecordSet
Loop
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
- 上一篇: 一些不常见的ASP调用存储过程的技巧
- 下一篇: 硬盘文件搜索代码
-= 资 源 教 程 =-
文 章 搜 索