开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › 求大神帮忙看下是哪里出错了ASP程序
返回列表 发新帖
查看: 3904|回复: 1

[问与答] 求大神帮忙看下是哪里出错了ASP程序

[复制链接]
山村小伙 发表于 2016-4-4 15:30:39 | 显示全部楼层 |阅读模式
一个asp的投资理财程序程序登入处理页面有两个功能 自动分红和返还本金功能 返还本金不能使用 求大神帮忙看下
数据库文件密码：2509775
数据库.rar (202.46 KB, 下载次数: 76)
  1. <%@LANGUAGE="VBScript.Encode" CODEPAGE="936"%>
  2. <%Response.AddHeader "P3P", "CP=CAO PSA OUR"%>
  3. <!--#include file="inc/db_conn.asp"-->
  4. <!--#include file="inc/func.asp"-->
  5. <!--#include file="inc/md5.asp"-->
  6. <%
  7. username=ReplaceBadChar(Trim(request.form("username")))
  8. password=ReplaceBadChar(Trim(request.form("password")))

  10. sqlStr="select * from zy_user where user_username='"&username&"' and user_password='"&md5(password)&"'"
  11. set rs = server.createobject("ADODB.RecordSet")
  12. rs.open sqlStr,conn,1,3
  13. If rs.eof Then
  14. Call AlertUrl("登入失败，用户名或密码错误！","",3,3)
  15. ElseIf rs("user_lock")=1 Then
  16. Call AlertUrl("登入失败，账户异常，联系管理员解锁。","",3,3)
  17. Else
  18. rs("user_lasttime")=now()
  19. rs("user_ip")=RegIP()
  20. rs("user_count")=rs("user_count")+1
  21. rs("isonline")=1
  22. rs.update

  24.         session("user")=rs("user_username")
  25.         session("id")=rs("user_id")
  26.         session("vtime")=Now()
  27.         'Application.Lock
  28. '        Application("vtime")=Now()
  29. '        Application.UnLock

  31.         'response.redirect("mynotice.asp")
  32.         num=FormatNumber(siteticheng,2)
  33.         num=num*100  
  34. %>       
  35.        
  36.        
  37. <%
  38.         user=session("id")
  39.         huserid=session("id")
  40.         set itrs=server.CreateObject("adodb.recordset")
  41.         itsql="select * from [zy_useritem] where useritem_user="&session("id")
  42.         itrs.open itsql,conn,1,1
  43.         if not itrs.eof then
  44.                 do while not itrs.eof
  45.                
  46.                         item_id=itrs("useritem_item")
  47.                        
  48.                         sql10000="select * from zy_item where item_id="&item_id&"  order by item_id desc"
  49.                         set rs10000 = server.createobject("ADODB.RecordSet")
  50.                         rs10000.open sql10000,conn,1,3
  51.                         if not rs10000.eof then
  52.        
  53.                         if isvipdz=1 then
  54.                         returnmoney=rs10000("useritem_money")'2013-11-8         
  55.                         returnmoneyb=rs10000("useritem_money")
  56.                         else
  57.                          returnmoney=rs10000("item_money")'2013-11-8
  58.                         returnmoneyb=rs10000("item_money")
  59.                         end if
  60.                         '2013-11-14
  61.                         money=rs10000("item_fanhuan")
  62.                         pget=rs10000("pget")'2013-11-11
  63.                         dtmoney=returnmoney*pget/100'2013-11-11
  64.                         cishu=rs10000("item_cishu")
  65.                         zhouqi=rs10000("item_shijian")
  66.                        
  67.                         end if
  68.                        
  69.                         sqlStrb="select * from zy_useritem where useritem_user="&user&" and useritem_item="&item_id&" and  useritem_id="&itrs("useritem_id")&""
  70.                         set rsb = server.createobject("ADODB.RecordSet")
  71.                         rsb.open sqlStrb,conn,1,3
  72.                         useritem_timeb=rsb("useritem_time")
  73.                         useritem_time2b=rsb("useritem_time2")
  74.                         useritem_time4b=now()
  75.                         useritem_itemb=rsb("useritem_item")'2013-4-8
  76.                         returnb=rsb("return")'2013-11-8
  77.                         useritemidb=brsb("useritem_id")'2013-11-8
  78.                         dingtoub=rsb("dingtou")'2013-11-11
  79.                         ppgetb=rsb("ppget")'2013-11-11
  80.                         gmfeb=rsb("gmfe")'2013-11-11
  81.                         nowcishub=rsb("useritem_count")
  82.                         treturnmoneyb=Int(returnmoney*gmfeb)
  83.                         tmoneyb=Int(dtmoney*gmfe)
  84.                         rsb.close
  85.                         set rsb=nothing
  86.                        
  87.                        
  88.                        
  89.                         '判断返还时间和次数
  90.                                
  91.                                

  93.                        
  94.                        
  95.                         for k=nowcishub to (cint(cishu)-1)
  96.                        
  97.                        
  98.                        
  99.                         '返回分红
  100.                                
  101.                         sqlStr="select * from zy_useritem where useritem_user="&user&" and useritem_item="&item_id&" and  useritem_id="&itrs("useritem_id")&""
  102.                         set rs = server.createobject("ADODB.RecordSet")
  103.                         rs.open sqlStr,conn,1,3
  104.                         useritem_time=rs("useritem_time")
  105.                         useritem_time2=rs("useritem_time2")
  106.                         useritem_time4=now()
  107.                         useritem_item=rs("useritem_item")'2013-4-8
  108.                         return=rs("return")'2013-11-8
  109.                         useritemid=rs("useritem_id")'2013-11-8
  110.                         dingtou=rs("dingtou")'2013-11-11
  111.                         ppget=rs("ppget")'2013-11-11
  112.                         gmfe=rs("gmfe")'2013-11-11
  113.                         nowcishu=rs("useritem_count")
  114.                         treturnmoney=Int(returnmoney*gmfe)
  115.                         tmoney=Int(dtmoney*gmfe)
  116.                         rs.close
  117.                         set rs=nothing
  118.                                
  119.                         if cdate(useritem_time4)>=cdate(useritem_time2) and nowcishub<=cishu then
  120.                        
  121.                                         sqlStr1="select * from zy_useritem where useritem_user="&user&" and useritem_item="&item_id&" and  useritem_id="&itrs("useritem_id")&""
  122.                                         set rs = server.createobject("ADODB.RecordSet")
  123.                                         rs.open sqlStr1,conn,1,3
  124.                                         'response.write sqlStr1
  125.                                         rs("useritem_time1")=useritem_time2
  126.                                        
  127.                                         rs("useritem_time2")=DateAdd("d",zhouqi,rs("useritem_time2"))
  128.                                         response.write rs("useritem_time2")&"kk"
  129.                                         'response.end()
  130.                                         rs("useritem_count")=rs("useritem_count")+1
  131.                                         rs.update
  132.                                         rs.close
  133.                                         set rs=nothing
  134.                                        
  135.                
  136.                        
  137.                        
  138.                        
  139.                                 sqlStr2="select * from zy_moneylog"
  140.                                 set rs = server.createobject("ADODB.RecordSet")
  141.                                 rs.open sqlStr2,conn,1,3
  142.                                 rs.addnew
  143.                                 rs("moneylog_user")=user
  144.                                 rs("moneylog_time")=now()
  145.                                 rs("moneylog_ip")=request.ServerVariables("REMOTE_ADDR")
  146.                                 If dingtou=true Then             '2013-11-11       
  147.                                 rs("moneylog_money")=tmoney          '2013-11-11       
  148.                                 rs("moneylog_notice")="定投项目返款(+)"
  149.                                 else                                '2013-11-11       
  150.                                 rs("moneylog_money")=money
  151.                                 rs("moneylog_notice")="项目返款(+)"
  152.                                 end if                                '2013-11-11
  153.                                 rs("moneylog_xm")=item_id
  154.                                 rs.update
  155.                                 rs.close
  156.                                 Set rs=Nothing
  157.                                
  158.                                 set rs101 = server.createobject("ADODB.RecordSet")
  159.                                 sql101="select * from [zy_user] where user_id="&user
  160.                                 rs101.open sql101,conn,1,3
  161.                                 'response.write sql101&"<br/>"
  162.                                 'response.write dingtou&"KK"
  163.                                 'response.End()
  164.                                 If dingtou=true Then'2013-11-11       
  165.                                 rs101("user_money")=rs101("user_money")+tmoney'2013-11-11       
  166.                                 else
  167.                                 'response.write rs101("user_money")&"LLL"
  168.                                 'response.write "JJJ"
  169.                                 'response.End()
  170.                                 rs101("user_money")=rs101("user_money")+money'2013-11-11       
  171.                                 end if'2013-11-11       
  172.                                 rs101.update
  173.                                 rs101.close
  174.                                 Set rs101=Nothing
  175.                                
  176.                                 'response.end()
  177.                                
  178.                                 if fsMessage="yes" then
  179.                                
  180.                                 sqlStr11="select * from zy_item where item_id="&item_id&""
  181.                                         set rs11 = server.createobject("ADODB.RecordSet")
  182.                                         rs11.open sqlStr11,conn,1,3       
  183.                                         item_title=rs11("item_title")
  184.                                                 set rs11=nothing
  185.                                                 title="项目分红通知！"
  186.                                                 bodyMessage="<font color=""#FF0000"">尊敬的会员，您好！您投资的项目〖"&item_title&"〗已经分红到您账户，请查收！〖"&siteName&"〗</font>"
  187.                                                 sql="insert into zy_message(message_sender,message_user,message_title,message_content,message_data) values('『"&siteName&"』','"&huserid&"','"&title&"','"&bodyMessage&"','"&now()&"')"
  188.                                                 conn.execute(sql)
  189.                                                
  190.                                 end if
  191.                                                
  192.                        
  193.                                 end if
  194.                                
  195.                                 next
  196.                
  197.                        
  198.                         '本金返还
  199.                         sqlStrb="select * from zy_useritem where useritem_user="&user&" and useritem_item="&item_id&" and  useritem_id="&itrs("useritem_id")&""
  200.                         set rsb = server.createobject("ADODB.RecordSet")
  201.                         rsb.open sqlStrb,conn,1,3
  202.                         useritem_timeb=rsb("useritem_time")
  203.                         useritem_time2b=rsb("useritem_time1")
  204.                         useritem_time4b=now()
  205.                         useritem_itemb=rsb("useritem_item")'2013-4-8
  206.                         returnc=rsb("return")'2013-11-8
  207.                         useritemidb=brsb("useritem_id")'2013-11-8
  208.                         dingtoub=rsb("dingtou")'2013-11-11
  209.                         ppgetb=rsb("ppget")'2013-11-11
  210.                         gmfeb=rsb("gmfe")'2013-11-11
  211.                         nowcishub=rsb("useritem_count")
  212.                         treturnmoneyb=Int(returnmoney*gmfeb)
  213.                         tmoneyb=Int(dtmoney*gmfe)
  214.                         rsb.close
  215.                         set rsb=nothing
  216.                        
  217.                         if cint(nowcishub)=cint(cishu) then
  218.                        
  219.                        
  220.                         '判断是否返还本金
  221.                         if cdate(useritem_time4b)>=cdate(useritem_time2b) and cint(nowcishub)>=cint(cishu) then
  222.                        
  223.                         If isreturn=1 Then
  224.                                   If returnc=false Then
  225.                                 sqlStrrt="select * from zy_moneylog"
  226.                         set rsrt = server.createobject("ADODB.RecordSet")
  227.                         rsrt.open sqlStrrt,conn,1,3
  228.                         rsrt.addnew
  229.                         rsrt("moneylog_user")=huserid
  230.                         rsrt("moneylog_time")=now()
  231.                         rsrt("moneylog_ip")=request.ServerVariables("REMOTE_ADDR")
  232.                         If dingtou=true Then'2013-11-11          
  233.                         rsrt("moneylog_money")=treturnmoneyb
  234.                         rsrt("moneylog_notice")="返还定投本金(+)"
  235.                         else
  236.             rsrt("moneylog_money")=returnmoney
  237.             rsrt("moneylog_notice")="返还本金(+)"
  238.                         end if'2013-11-11
  239.                         rsrt("moneylog_xm")=item_id
  240.                         rsrt.update
  241.                         rsrt.close
  242.                         Set rsrt=Nothing
  243.                         'response.write "select * from [zy_useritem]  where useritem_id="&itrs("useritem_id")
  244.                         'response.end()
  245.                                 sqlf="update [zy_useritem] set return=true where useritem_id="&itrs("useritem_id")&""
  246.                                 conn.execute(sqlf)
  247.                                
  248.                                 'rs100("user_money")=rs100("user_money")+returnmoney
  249.                                 set rs100=server.CreateObject("adodb.recordset")
  250.                                 sql100="select * from [zy_user] where user_id="&user
  251.                                 rs100.open sql100,conn,1,3
  252.                                 If dingtou=true Then'2013-11-11          
  253.                                 rs100("user_money")=rs100("user_money")+treturnmoneyb
  254.                                 else
  255.                                 rs100("user_money")=rs100("user_money")+returnmoneyb
  256.                                 end if'2013-11-11
  257.                                 rs100.update
  258.                                 rs100.close
  259.                                 set rs=nothing
  260.                                

  262.                        
  263.                                   end if
  264.                         end if
  265.                        
  266.                         end if
  267.                        
  268.                        
  269.                          end if
  270.                
  271.        
  272.                 itrs.movenext
  273.                 loop
  274.         end if
  275.        


  278. %>       
  279.        
  280.        
  281.        
  282. <%       
  283.         'response.End()
  284.   Call AlertUrl("尊敬的会员您好，欢迎登录！您可自己投资赚钱，也可推荐会员注册赚钱：只要是通过您推荐链接注册成功会员的，您可以得到人民币"&sitefriendmoney&"元的奖励。而且通过您的推广链接注册成功的会员只要充值了您还可以得到"&num&"%的奖励。！",""&webPath&"mynotice.asp",5,5)       
  285. ' Call AlertUrl("尊敬的会员您好，欢迎登录！您可自己投资赚钱，也可推荐会员注册赚钱：只要是通过您推荐链接注册成功会员的，您可以得到人民币"&sitefriendmoney&"元的奖励。而且通过您的推广链接注册成功的会员只要充值了您还可以得到"&num&"%的奖励。！",""&webPath&"mynotice.asp",5,5)
  286. End If

  288. rs.close
  289. Set rs=Nothing
  290. Set conn=nothing
  291. %>
复制代码
ASP币如何冲？请看这里
回复

使用道具 举报

xuanxiao 发表于 2016-4-4 23:09:00 | 显示全部楼层
一个asp的投资理财程序程序登入处理页面有两个功能 自动分红和返还本金功能 返还本金不能使用 求大神帮忙看 ...
山村小伙 发表于 2016-4-4 15:30


商业求助，请联系客服处理
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号