高分求救!!不够再给!关于asp存储过程。

ntsky ntsky 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
调用代码如下::


<%
'=========================================================
' 文 件 名: info_view_r.asp
' 最后修改日期: 2003-2-10
' 编 写 者:
' 功 能: 饼图信息
'=========================================================
'option explicit


%>

<!--#INCLUDE FILE = "../inc/conn.asp" -->
<!--#INCLUDE FILE = "../inc/ADOVBS.inc" -->

<%

if request.form<>"" then




dim info_kind,area_id,place_id,result,time1,time2,kind,cmd,out,arr,out2,i,j,sign,rs


info_kind=request.form("info_kind")

area_id=0
if request.form("area_id")<>"" then area_id=cint(request.form("area_id"))

place_id=0
if request.form("place_id")<>"" then area_id=cint(request.form("place_id"))
result=request.form("result")
time1=1900-1-1
if trim(request.form("time1"))<>"" then time1=trim(request.form("time1"))
time2=1900-1-1
if trim(request.form("time2"))<>"" then time1=trim(request.form("time2"))

kind=request.form("kind")

set cmd=server.CreateObject("adodb.command")
set cmd.ActiveConnection=conn

cmd.CommandText = "info_view" '存储过程名称
cmd.CommandType = adCmdStoredProc


cmd.Parameters.Append cmd.CreateParameter("info_kind",AdVarchar,adParaminput,4)
cmd.Parameters.Append cmd.CreateParameter("area_id",adtinyint,adParamInput)
cmd.Parameters.Append cmd.CreateParameter("place_id",AdSmallInt,adParamInput)
cmd.Parameters.Append cmd.CreateParameter("result",AdVarChar,adParaminput,5)
cmd.Parameters.Append cmd.CreateParameter("time1",addate,adParaminput)
cmd.Parameters.Append cmd.CreateParameter("time2",addate,adParaminput)
cmd.Parameters.Append cmd.CreateParameter("id",AdInteger,adParaminput)
cmd.Parameters.Append cmd.CreateParameter("out",AdVarChar,adParamOutput,250)
cmd.Parameters.Append cmd.CreateParameter("out2",AdVarChar,adParamOutput,250)


'输出参数

cmd("info_kind")=info_kind
cmd("area_id")=area_id
cmd("place_id")=place_id
cmd("result")=result
cmd("time1")=time1
cmd("time2")=time2
cmd("id")=session("m_id")
'cmd("out")=""
'cmd("out2")=""

************************************************************************
cmd.Execute 执行报错误!!
***********************************************************************
out=cmd("@out")
out2=cmd("@out2")

'cmd.close
'set cmd=nothing
conn.close
set conn=nothing



%>


</body>
</html>




存储过程头部为::

CREATE PROCEDURE info_view @info_kind varchar(4),@area_id tinyint,@place_id smallint,@result varchar(5),@time1 smalldatetime,@time2 smalldatetime,@id int,@out varchar(250) output,@out2 varchar(250) output


报错,说

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
[Microsoft][ODBC SQL Server Driver]没有执行可选特性
/corporation/info_view_r.asp, 第 86 行



什么是可选特性啊???郁闷啊!


我直接conn.execute("execute info_view '全部',0,0,'所发布信息','1990-12-1','2008-12-1',12,'',''")

倒是没有错误,但是却没有办法得到返回值啊!!



忘各位出手,,高分酬谢!
...全文
评论 22
收藏 已收藏
分享
返回顶部
ntsky
ASP 28,401 成员 356,940 内容