页面调用:
Function AddAmindLog(LoginName,LoginIP,LoginSoft,modes)
set cmd=server.CreateObject("adodb.command") '调用存储过程
set cmd.ActiveConnection=Conn
cmd.CommandText = "{call P_Kids_AdminLog_Add(?,?,?,?,?,?)}"
cmd.Parameters.Append cmd.CreateParameter("@NUM",adInteger,adParamOutput) '输出的值
cmd.Parameters.Append cmd.CreateParameter("@Plkids_AdminName",adVarChar,adParamInput,50)'输入值
cmd("@Plkids_AdminName")= LoginName '用户名
cmd.Parameters.Append cmd.CreateParameter("@LoginIP",adVarChar,adParamInput,50) '输入值
cmd("@LoginIP")= LoginIP '登陆IP
cmd.Parameters.Append cmd.CreateParameter("@LoginSoft",adVarChar,adParamInput,200) '输入值
cmd("@LoginSoft")= LoginSoft '详细信息
cmd.Parameters.Append cmd.CreateParameter("@LoginTime",adVarChar,adParamInput,50) '输入值
cmd("@LoginTime")= Now() '登录时间
cmd.Parameters.Append cmd.CreateParameter("@modes",adInteger,adParamInput,10) '输入值
cmd("@modes")= modes '登录结果
cmd.Execute() '执行操作
cmd=close
set cmd=nothing
AddAmindLog = "OK"
End Function
Result = AddAmindLog(LoginName,LoginIP,LoginSoft,1)存储过程:IF EXISTS(SELECT *FROM SYSOBJECTS WHERE NAME='P_Kids_AdminLog_Add')
DROP PROC P_Kids_AdminLog_Add
GO
CREATE PROC P_Kids_AdminLog_Add
@NUM  INT OUTPUT, --是否成功(1为成功0为失败)
--@Kids_AdminLog_Id INT, --管理员登陆记录表ID
@Plkids_AdminName VARCHAR(50), --登录名
@LoginIP VARCHAR(50), --登陆IP
@LoginSoft VARCHAR(200), --相信信息
@LoginTime VARCHAR(50), --登陆时间
@modes INT --登陆结果
AS
--@sum 是返回错误数量
DECLARE @SUM INT
BEGIN TRANSACTION  --事务开始 
INSERT INTO Kids_AdminLog VALUES(@Plkids_AdminName,@LoginIP,@LoginSoft,@LoginTime,@modes)
SET @SUM=@SUM+@@ERROR
IF @SUM<>0 
BEGIN
SET @NUM=0
ROLLBACK TRANSACTION --回滚操作
END
ELSE
BEGIN
SET @NUM=1
COMMIT TRANSACTION --提交操作
ENDGO
错误提示:错误类型:
ADODB.Command (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/pl-kids/Admin=!pl5/CheckLogin.asp, 第 81 行81行:cmd.Parameters.Append cmd.CreateParameter("@NUM",adInteger,adParamOutput) '输出的值