ADODB.Command '800a0bb9' 错误谁来帮助我下谢谢

fdsa232323 2008-03-09 11:01:04

ADODB.Command '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

\wwwroot\reg.asp, line 39

reg.asp代码如下：

<head>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">

</style>
</head>



<%
cdkey = trim(request("cdkey"))
password = trim(request("password"))
confirm_password = trim(request("confirm_password"))

if (password <> confirm_password) then
response.write "2次输入的密码不一致"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
strsql="select cdkey from CSL_CDKEY where cdkey='"&trim(request("cdkey"))&"'"
rs.open strsql,conn,1,1
if not( rs.eof and rs.bof ) then
response.write"注册失败"
response.write"你输入的用户名已经存在,请重新输入!<a href=javascript:history.go(-1)><font color=red>按此返回!</font>"
rs.close
else
crypt_password = CSTR(md5(password))
set cmd=server.CreateObject("adodb.command")
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_InsertCDKEY"

Set param = cmd.createparameter("@cdkey", advarchar, adparaminput, 50, cdkey)
cmd.Parameters.Append param
Set param = cmd.createparameter("@password", advarchar, adparaminput, 50, crypt_password)
cmd.Parameters.Append param

cmd.Parameters.Append cmd.CreateParameter("@_error",adInteger,adParamOutput)
cmd.Execute()

result=0
select case result
case 1
response.write"用户不能为空!!"
case 2
response.write"password不能null或空!!"
case 3
response.write"此帐号存在!!"
case 0
response.Write"<script language='javascript'>alert('感谢您注册成功!');window.self.close();</script>"
response.End
end select
end if
%>

...全文