Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'

[Microsoft][ODBC SQL Server Driver][SQL Server]将数据类型 numeric 转换为 int 时出错。

/wm/reg.asp，行 229




<%end sub
        sub go3
        '-------------------------
UserName=ReplaceBadChar(Request("UserName"))
PassWord=Request("PassWord")
PassWord2=Request("PassWord2")
EMail=Request("EMail")
Num=ReplaceBadChar(Request("Num"))
QQ=ReplaceBadChar(Request("QQ"))
Prompt=Request("Prompt")
answer=Request("answer")

If RegCook = "是" Then
Cook=Request.Cookies(homes)("username")
If Cook = "" Then
Response.Cookies(homes)("username")=session.sessionid
Response.Cookies(homes).Expires=Date+CookData
Else
call msginfpage("同"&CookData&"天不能重复注册!")
response.end
End If
End If

if UserName="" or EMail="" or QQ="" or Num="" or PassWord="" or PassWord2="" or Prompt="" or answer="" then
call msginfpage("请把必须填项目填写完整")
response.end
end if
if Ischinese(user) = true Then
call msginfpage("用户名必须为英文")
response.end
end if
if IsValidEmail(EMail) = false Then
call msginfpage("E-mail格式错误")
response.end
end if
if len(QQ)>12 or len(QQ)<5 then
call msginfpage("QQ必须控制在5-12字符内")
response.end
end if
if isnumeric(QQ)= false then
call msginfpage("QQ,电话,邮编必须为数字")
response.end
end if
if PassWord="" then
call msginfpage("第一次密码没有输入")
response.end
end if
if PassWord<>PassWord2 then
call msginfpage("两次密码验证失败")
response.end
end if
if len(PassWord)>16 or len(PassWord)<5 then
call msginfpage("密码必须控制在6-16字符内")
response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from [users] where name='"&UserName&"'",conn
if Not rs.Eof then
call msginfpage("此用户已经注册")
response.end
rs.close
else

    BoyName="完美世界"
    mtime=now()
    md5hb=UserName&PassWord
    md5pwd=md5(md5hb,32)
    cc="0x"
    md5pass=cc&md5pwd

sql1 = "exec adduser '"&UserName&"',"&md5pass&",'"&Prompt&"','"&answer&"','完美世界',"&Num&",'"&EMail&"','1','1','1','1','1','1','1','200811',"&QQ&","&md5pass&""    
conn.execute (sql1)

conn1.execute ("insert into [cm_user] (UserName,PassWord) values ('"&UserName&"','"&md5pass&"')")

If point <> "0" And cash <> "0" Then
set rs=conn.execute("select * from [users] where name='"&UserName&"'")
rsid=rs("ID")
sql2 = "exec adduserpoint "&rsid&",1,"&point&""
conn.execute (sql2)
sql3 = "exec usecash "&rsid&",1,0,1,"&point&","&cash&",1,0"
conn.execute (sql3)
End If

If point <> "0" And cash <> "0" Then
call msgpage("恭喜您,注册成功.系统并且赠送了您"&cash / 100&"元宝","index.htm")
Else
call msgpage("恭喜您,注册成功","index.htm")
End If
end if
end sub%>