| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5099 人关注过本帖
标题:在网上弄的源码,上传到空间后,整体运行正常可是有几处错误求帮忙看看。。 ...
只看楼主 加入收藏
pdsyingzi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2015-12-7
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:12 
在网上弄的源码,上传到空间后,整体运行正常可是有几处错误求帮忙看看。。有点长。!~
能改的基本上我都改过了,有一些也通过百度找到了答案。。可是这3个问题。我是始终找不到头绪也解决不了。求老师指导!


第一个问题,网站设置的有注册新会员,系统自动送金币500,可是这套源码没有,在个人中心明细中也能看到,系统有送但是没有数额也就0或者是空白。
下面是找到的相干的代码

if rs("loNum") = 1  then
    nStr = "恭喜您已成功注册为"& WebName & "的会员,\n\n"
    'nStr = nStr & "并同时获得系统赠送的"& on_ojb & Webjb &"新注册奖励,\n"
'    nStr = nStr & "只要再赚取500唯币即可兑换现金并申请支付了,加油哟^_^"
    Notice(nStr)
    sql = "update userlist set loNum = loNum + 1 where ID=" & Trim(Session("UserID"))
    conn.execute(sql)
    '首次登录奖励金币,这里不更新userlist,在注册的时候已经更新过
    sql = "select * from jifenlist where 1 = 0"
    set rstmp=server.createobject("adodb.recordset")
        rstmp.open sql,conn,1,3
        rstmp.addnew
            rstmp("UserID")  = Trim(Session("UserID"))
            rstmp("Jifen")   = on_ojb   'regok.asp页面设置奖励积分,这里需要设置对应的分值,这里是更新奖励记录
            rstmp("money")   = 0
            rstmp("Record")  = "首次登录奖励"& Webjb &"" '奖励记录,可以改成自己需要的
            rstmp("Time")    = Now()
        rstmp.update
    rstmp.close
    set rstmp = nothing
end if
%>


还有就是注册成功后只显示恭喜您已成功注册为"& WebName & "的会员,后面的两句不显示!~我自己改on_0jb之前的数据改为500结果错误。。呵呵还改了好几个地方都不对




第二个问题就是各种中心里有成长值兑换。直接报错!

错误提示
Microsoft VBScript 编译器错误 错误 '800a0409'
未结束的字符串常量
/growpay.asp,行 35
rsGrow("Record") = "成长值兑换,使用" & ExchangeGrow & "成长值兑换"& ExchangeJifen & "<%=Webjb


下面是代码
sql = "select * from jifenlist where 1 <> 1"
            set rsGrow=server.createobject("adodb.recordset")
            rsGrow.open sql,conn,1,3
            rsGrow.addnew
                rsGrow("userid") = Session("UserID")
                rsGrow("jifen") = ExchangeJifen
                rsGrow("money") = 0
                rsGrow("Record") = "成长值兑换,使用" & ExchangeGrow & "成长值兑换"& ExchangeJifen & "<%=Webjb%>"
                rsGrow("Grow") = - ExchangeGrow
                rsGrow("time") = now()
3个完整的源码.rar (13.01 KB)
rsGrow.update
            rsGrow.close
            Set rsGrow = nothing
            sql = "update userlist set UserGrow = UserGrow + " & ExchangeGrow & ", Jifen = Jifen + " & ExchangeJifen & " where id = " & Session("UserID")
            Conn.execute(Sql)
        end if



第三个是首页有个提现动态,但是我从后台操作几个提现,,主页不显示,,好像是没有调用到数据。,。这个我真是不懂。。。


我吧完整的源码发附件了。恳请各位老师帮忙指导。。
http://138678.vhost20.这个是上传到空间的测试站!



搜索更多相关主题的帖子: 百度 会员 空间 网上 网站 
2015-12-10 03:17
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:10 
源码发给我,帮你看下,63572063@或发qq里

QQ:63572063
2015-12-10 13:07
pdsyingzi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2015-12-7
收藏
得分:0 
回复 2楼 wangjy500
已发到邮箱非常感谢老师帮忙
2015-12-10 22:37
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:0 
你把有二行未执行代码前面的分号去掉,这两句被注释了,当然不会执行,还有后面的数据库sql语句后面的,都改成where   1=1

QQ:63572063
2015-12-11 09:08
pdsyingzi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2015-12-7
收藏
得分:0 
回复 4楼 wangjy500
第一个问题,按照老师的说法我改动如下。并且把这里面所有的SPL都改成where 1 = 1    结果注册提示顺利并提示系统赠送500金币,但是问题又来了。个人中心里的金币数量并没有增加仍然是零!
if rs("loNum") = 1  then
    nStr = "恭喜您已成功注册为"& WebName & "的会员,\n\n"
    nStr = "并同时获得系统赠送的"& 500 & Webjb &"新注册奖励,\n"
    nStr = "只要再赚取500唯币即可兑换现金并申请支付了,加油哟^_^"
    Notice(nStr)
    sql = "update userlist set loNum = loNum + 1 where ID=" & Trim(Session("UserID"))
    conn.execute(sql)
    '首次登录奖励金币,这里不更新userlist,在注册的时候已经更新过
    sql = "select * from jifenlist where 1 = 0"
    set rstmp=server.createobject("adodb.recordset")
        rstmp.open sql,conn,1,3
        rstmp.addnew
            rstmp("UserID")  = Trim(Session("UserID"))
            rstmp("Jifen")   = on_ojb   'regok.asp页面设置奖励积分,这里需要设置对应的分值,这里是更新奖励记录
            rstmp("money")   = 0
            rstmp("Record")  = "首次登录奖励"& Webjb &"" '奖励记录,可以改成自己需要的
            rstmp("Time")    = Now()
        rstmp.update
    rstmp.close
    set rstmp = nothing
end if
%>
2015-12-11 12:10
pdsyingzi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2015-12-7
收藏
得分:0 
回复 4楼 wangjy500
又尝试了再SPL里添加了一段代码如下
 rstmp("Grow")    = 500  系统到是没有提示出错。但是金币数仍然是零
2015-12-11 13:57
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:0 
money字段才是金币

QQ:63572063
2015-12-11 15:33
pdsyingzi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2015-12-7
收藏
得分:0 
回复 7楼 wangjy500
那个我试过的加的不是金币是现金,是提现金额的历史
2015-12-11 15:49
pdsyingzi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2015-12-7
收藏
得分:0 
回复 7楼 wangjy500
我把后天的管理密码给你发过去了。昨天忘给你发了。就在你邮箱里。
2015-12-11 16:18
pdsyingzi
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2015-12-7
收藏
得分:0 
回复 7楼 wangjy500
经过老师的提醒。我终于把第一个问题解决了。现在已经可以自己奖励金币了。。谢谢!~老师


第二个问题老师能给知道下么
2015-12-11 16:32
快速回复:在网上弄的源码,上传到空间后,整体运行正常可是有几处错误求帮忙看看 ...
数据加载中...
 
   



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

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