刚才发错了：百思不得其解： 这段程序错那儿了

[lengbohan]

百思不得其解： 这段程序错那儿了

<!--#INCLUDE VIRTUAL="/msadc/adcvbs.inc"-->
<%
dim con
dim cmd
dim bTemp

Set con=Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER=SQL Server;SERVER=dgg;UID=sa;DATABASE=Comment2;User

Id=sa;PASSWORD=;"
set cmd=Server.CreateObject("ADODB.Command")

cmd.ActiveConnection=Con
cmd.CommandType=adCmdStoredProc 'Line12
cmd.CommandText="AddNOCount"

cmd.Parameters.Append

cmd.CreateParameter("ReturnCode",adInteger,adParamReturnValue)

cmd.Parameters.Append

cmd.CreateParameter("CommentID",adInteger,adParamInput,4)
cmd.Parameters("CommentID")=Request( "CommentID" )

.....

错误信息

ADODB.Command error '800a0bb9'

应用程序使用的参数或者类型不正确，或者不在可以接受的范围之内，要不就是

与其他数据冲突。

/Comment3/AddNOCount.asp, line 12

[蝈蝈俊]

12行：
cmd.Parameters.Append ？？？？？？？？？？？？？？？
你没有参数呀，append 什么？？？？？？？？？

[lengbohan]

<!--#INCLUDE VIRTUAL="/msadc/adcvbs.inc"-->
<%
dim con
dim cmd
dim bTemp

Set con=Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER=SQL Server;SERVER=dgg;UID=sa;DATABASE=Comment2;User Id=sa;PASSWORD=;"

set cmd=Server.CreateObject("ADODB.Command")

'response.write (cmd is nothing)

cmd.ActiveConnection=Con
cmd.CommandText="AddNOCount"

'response.write cmd.CommandText

Cmd.CommandType = adCmdStoredProc
'Cmd.CommandType = adCmdUnknown

cmd.Parameters.Append cmd.CreateParameter("ReturnCode",adInteger,adParamReturnValue)

cmd.Parameters.Append cmd.CreateParameter("CommentID",adInteger,adParamInput,4)
cmd.Parameters("CommentID")=Request( "CommentID" )

cmd.Parameters.Append cmd.CreateParameter("TempUserID",adInteger,adParamInput,4)
cmd.Parameters("TempUserID")=Request( "TempUserID" )

cmd.Parameters.Append cmd.CreateParameter("bSuccess",adInteger,adParamOutput)

cmd.Execute

if cmd("ReturnCode")=0 then
Response.write cmd("bSuccess")
else
Response.write "-2"
end if

'0-Failed. 1-Success, -2-Error

set con=nothing
set cmd=nothing
%>

参数那是两行作一行

[蝈蝈俊]

现在那一行出错？？？？
12行是'response.write (cmd is nothing)呀

[lengbohan]

注释掉了呀？
咳， 反正就是那一行

ADODB.Command error '800a0bb9'

应用程序使用的参数或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。

/Comment3/AddNOCount.asp, line 19

[蝈蝈俊]

cmd.Parameters.Append cmd.CreateParameter("ReturnCode",adInteger,adParamReturnValue)
???????????
cmd.Parameters.Append 就是输入了参数的实际值。但
cmd.CreateParameter("ReturnCode",adInteger,adParamReturnValue)
仅仅是创建了个对象，对象并没有实列话。

[lengbohan]

还没到那儿呢，就出问题了嘛

[蝈蝈俊]

Cmd.CommandType = adCmdStoredProc
'Cmd.CommandType = adCmdUnknown

这？？？？？？

Cmd.CommandType = 4
试试

[lengbohan]

过了！
但下一行又有问题
应该是常数没有定义！
是不是还要include别的东西，程序才认识adCmdStoredProc
adinteger...

[蝈蝈俊]

我一直都是用自己输入数字常量
不用include
adParamReturnValue
这些常量你干脆输出来算了。肯定是这的错误。