蓝雨 发表于 2007-7-10 17:37:00

关于金币赠送的修改

<p>plus_tools_pay.asp <br/>If Int(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text)<ToolsMoney\" target=\"_blank\">userinfo/@usermoney\").text)<ToolsMoney</a> Or Int(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@userticket\").text)<ToolsTicket\" target=\"_blank\">userinfo/@userticket\").text)<ToolsTicket</a> Then Dv_Tools.ShowErr(7):Exit Sub <br/>改为: <br/>If CCur(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text)<ToolsMoney\" target=\"_blank\">userinfo/@usermoney\").text)<ToolsMoney</a> Or CCur(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@userticket\").text)<ToolsTicket\" target=\"_blank\">userinfo/@userticket\").text)<ToolsTicket</a> Then Dv_Tools.ShowErr(7):Exit Sub </p><p>JoinVipGroup.asp <br/>If Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text<vipmoney\" target=\"_blank\">userinfo/@usermoney\").text<vipmoney</a> or vipmoney<MustNum Then <br/>改为: <br/>If CCur(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text\" target=\"_blank\">userinfo/@usermoney\").text</a>) < vipmoney Or vipmoney < MustNum Then </p><p>BuyPost.asp <br/>If GetMoney>Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text\" target=\"_blank\">userinfo/@usermoney\").text</a> Then <br/>改为: <br/>If GetMoney>CCur(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text\" target=\"_blank\">userinfo/@usermoney\").text</a>) Then </p><p>Plus_Tools_Postings.asp <br/>If Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text<0\" target=\"_blank\">userinfo/@usermoney\").text<0</a> Then Dv_Tools.ShowErr(17) : Exit Sub <br/>改为: <br/>If CCur(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text)<0\" target=\"_blank\">userinfo/@usermoney\").text)<0</a> Then Dv_Tools.ShowErr(17) : Exit Sub </p><p><br/>Savepost.asp(两处)</p><p>If ToMoney = 0 or ToMoney > Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text\" target=\"_blank\">userinfo/@usermoney\").text</a> Or ToMoney < 0 Then Response.redirect \"showerr.asp?ErrCodes=<li>您设置的金币值为空或者多于您拥有的金币数量。&action=OtherErr\" <br/>改为: <br/>If ToMoney = 0 or ToMoney > CCur(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text\" target=\"_blank\">userinfo/@usermoney\").text</a>) Or ToMoney < 0 Then Response.redirect \"showerr.asp?ErrCodes=<li>您设置的金币值为空或者多于您拥有的金币数量。&action=OtherErr\" </p><p>If ToMoney = 0 or ToMoney > Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text\" target=\"_blank\">userinfo/@usermoney\").text</a> Or ToMoney < 0 Then Response.redirect \"showerr.asp?ErrCodes=<li>您设置的金币值为空或者多于您拥有的金币数量。&action=OtherErr\" <br/>改为: <br/>If ToMoney = 0 or ToMoney > CCur(Dvbbs.UserSession.documentElement.selectSingleNode(\"<a href=\"http://myan.cn/bbs/mailtuserinfo/@usermoney\").text\" target=\"_blank\">userinfo/@usermoney\").text</a>) Or ToMoney < 0 Then Response.redirect \"showerr.asp?ErrCodes=<li>您设置的金币值为空或者多于您拥有的金币数量。&action=OtherErr\" </p>
页: [1]
查看完整版本: 关于金币赠送的修改