| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 816 人关注过本帖
标题:求助!报错类型不匹配,高手请进
只看楼主 加入收藏
surpass_jn
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-8-1
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求助!报错类型不匹配,高手请进
错误如下:

1000000
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配

/user/TransferJb.asp,行 72





<%
  dim login
  login=replace(trim(request.Form("login")),"'","")
  if login="true" then
     dim username,money,BankPassWord,MemberOrder,BMoney,userid,Money1,Cip,sql,getdate
     'getdate=datetime()
     'response.Write getdate
     'response.End()
         CIP = Left(Replace(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"'",""),18)
        If CIP = "" Then CIP = Request.ServerVariables("REMOTE_ADDR")
     username=replace(trim(request.Form("username")),"'","")
     money=replace(trim(request.Form("money2")),"'","")
     BankPassWord=replace(trim(request.Form("BankPassWord")),"'","")
    
     if Session("UserName")=username then
        response.Write("<script language='javascript'>alert('不能对自己转帐!');history.go(-1);</script>")
        response.End()
     end if    
    
     CxGame.DbConn("QPGameUserDB")
     Set md5= New MD5obj
     BankPassWord=md5.calcMD5(BankPassWord)
     set rs=conn.execute("select * from AccountsInfo where UserID="&Session("UserID")&" and  InsurePass='"& BankPassWord &"'")
       if rs.eof then
          response.Write("<script language='javascript'>alert('您的银行密码错误!不能进行取银子操作');history.go(-1);</script>")
          response.End()
       else
          MemberOrder=clng(rs("MemberOrder"))          
       end if
       
     set rs=conn.execute("select * from AccountsInfo where Accounts='"& username &"'")
     if rs.eof then
        response.Write("<script language='javascript'>alert('没有此用户,请确认用户名是否正确!');history.go(-1);</script>")
        response.End()
     else
        userid=rs("userid")
     end if
    
     if clng(session("money")) < 10001 then
        response.Write("<script language='javascript'>alert('你没有太多的银子,不能转帐!');history.go(-1);</script>")
        response.End()
     end if
    
     if 100000 > clng(money) then
        response.Write("<script language='javascript'>alert('每次最少转帐100000!');history.go(-1);</script>")
        response.End()
     end if
    
     if clng(session("money"))-clng(money)<10000 then
        response.Write("<script language='javascript'>alert('保底银子为10000!');history.go(-1);</script>")
        response.End()
     end if
    
     if MemberOrder < 1 then
        BMoney=clng(money)*0.02
     end if
     if MemberOrder = 1 then
        BMoney=clng(money)*0.01
     end if
     if MemberOrder > 1 then
        BMoney=clng(money)
     end if
     Money1=clng(money)-clng(BMoney)
     response.Write Money
    
     CxGame.DbConn(RLWebDBPrefix&"TreasureDb")
     sql="insert into GameScoreTransfersLog (UserID,GameID,UserName,GameName,Money,BMoney,DateTime,IP) values ("& Session("UserID") &","& Session("GameID") &",'"& Session("UserName") &"','"& username &"',"& Money &","& BMoney &",'"& getdate() &"','"& Cip &"')"     =============》72行
response.Write sql
     response.End()
     set rs=conn.execute("insert into GameScoreTransfersLog (UserID,GameID,UserName,GameName,Money,BMoney,DateTime,IP) values ("&Session("UserID")&","& Session("GameID") &",'"& Session("UserName") &"','"& username &"',"& Money &","& BMoney &",'"& date() &"','"& Cip &"')")
    
     set rs=conn.execute("update GameScoreInfo set score=score-"& money &" where userid="&Session("UserID")&"")
     set rs=conn.execute("update GameScoreInfo set score=score+"& Money1 &" where userid="& userid &"")
     session("money")=clng(session("money"))-clng(money)
     response.Write("<script language='javascript'>alert('转帐成功!');location.href='TransferJb.asp';</script>")
  end if
%>


数据库图片
搜索更多相关主题的帖子: 类型 
2009-08-01 11:29
bozl
Rank: 2
等 级:论坛游民
帖 子:49
专家分:53
注 册:2007-10-23
收藏
得分:10 
Session("UserID") 这是个CHAR类型,
与你的INT类型不匹配,只要把数据库里对应的字段的类型改成CHAR就行了

魔の左手............
神の右手.............
2009-08-02 11:07
saitor
Rank: 10Rank: 10Rank: 10
等 级:青峰侠
威 望:5
帖 子:373
专家分:1520
注 册:2009-5-18
收藏
得分:10 
楼上神人改数据库......
Session出来的是object类型,请转成你数据库所对应的类型
2009-08-03 09:50
快速回复:求助!报错类型不匹配,高手请进
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033619 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved