求大神帮忙看下是哪里出错了ASP程序

一个asp的投资理财程序程序登入处理页面有两个功能 自动分红和返还本金功能 返还本金不能使用 求大神帮忙看下
数据库文件密码：2509775
数据库.rar (202.46 KB, 下载次数: 76)

2016-4-4 15:30 上传

点击文件名下载附件

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")))
   
9. 
   
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
    
23. 
    
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
    
30. 
    
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.                                
    
92. 
    
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.                                
     
261. 
     
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.        
     
276. 
     
277. 
     
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
     
287. 
     
288. rs.close
     
289. Set rs=Nothing
     
290. Set conn=nothing
     
291. %>

复制代码

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

商业求助，请联系客服处理