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

ntsky 2004-04-02 10:44:05

调用代码如下：：

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

%>




<%

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,'',''")

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

忘各位出手，，高分酬谢！

...全文

79 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

samillboy 2004-04-05

打赏
举报

不好意思接分，因为问题不是我解决的

dayanmao 2004-04-05

打赏
举报

关注。。

tzgpxl 2004-04-05

打赏
举报

接分，呵呵，给。。。。。。。

2599 2004-04-05

打赏
举报

恭喜你！是不是传递参数的时候传递错了？或者是多加了单引号？

ttkkyy 2004-04-05

打赏
举报

cmd.CommandType = adCmdStoredProc改为：
cmd.CommandType = 4

注：
类型这里好像只能用数字来代表

lovinglgz 2004-04-05

打赏
举报

一直听说存储过程这个名词
就是没机会用
今天算是看到了一点
学到不少东西

我刚学asp两周，呵呵
入门级的，我是学工业设计的
希望大家多多指教

aojiankd 2004-04-05

打赏
举报

不会不会,没看出来哪错

lxxstarii 2004-04-03

打赏
举报

学习学习，，，

ntsky 2004-04-03

打赏
举报

to： xhuad(DD.net
我在存储过程中有对空数据的处理的！！

另：：呵呵，表达能力不行啊！让大家误会了，还是 qizu(沁竹) 说的对啊！
我是请大家帮忙，解决了，中午结贴，不是说俺解决了！

bcsky 2004-04-03

打赏
举报

那恭喜楼主了。能否接点分

ntsky 2004-04-03

打赏
举报

不是啊！！那是是判断表单是否提交，提交有数据再进行处理！！
好象我贴的时候忘了把end if 贴上来了！
但是问题不是在这里的！！！

RFASK射频问问 2004-04-03

打赏
举报

人家是请大家帮解决，

可惜我不会帮顶

whghwujx 2004-04-03

打赏
举报

向楼主学习，给介绍介绍经验哈

bingbingcha 2004-04-03

打赏
举报

呵呵。。把问题说说吧！
if request.form<>"" then 这个不对吧！！

lgzz 2004-04-03

打赏
举报

是啊,我也觉得的,虽然对asp 不大懂,但这个怎么看都像是合法的!

qq027 2004-04-03

打赏
举报

这句是不是有问题：
if request.form<>"" then

request.form后面怎么没跟对象？？

webdevelop 2004-04-03

打赏
举报

解决了就好，顺便接分：）

xhuad 2004-04-03

打赏
举报

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")&"'"
试一下这样可以吗？因为怕返回的值为空值！