能改的基本上我都改过了，有一些也通过百度找到了答案。。可是这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() 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.这个是上传到空间的测试站！

源码发给我，帮你看下，63572063@或发qq里

已发到邮箱非常感谢老师帮忙

你把有二行未执行代码前面的分号去掉，这两句被注释了，当然不会执行，还有后面的数据库sql语句后面的，都改成where   1=1

第一个问题，按照老师的说法我改动如下。并且把这里面所有的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
%>

又尝试了再SPL里添加了一段代码如下
 rstmp("Grow")    = 500  系统到是没有提示出错。但是金币数仍然是零

money字段才是金币

那个我试过的加的不是金币是现金，是提现金额的历史

我把后天的管理密码给你发过去了。昨天忘给你发了。就在你邮箱里。

经过老师的提醒。我终于把第一个问题解决了。现在已经可以自己奖励金币了。。谢谢！~老师


第二个问题老师能给知道下么