PageRenderTime 27ms CodeModel.GetById 0ms RepoModel.GetById 0ms app.codeStats 0ms

/Wap/User/User_ExChange.asp

https://github.com/joechen2010/health
ASP | 415 lines | 397 code | 8 blank | 10 comment | 0 complexity | 2170fd4c9ee5d549ad200967edbf48a6 MD5 | raw file
    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

    2. 

  2. <%option explicit%>

    3. 

  3. <!--#include file="../Conn.asp"-->

    4. 

  4. <!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->

    5. 

  5. <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>

    6. 

  6. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"><wml>

    7. 

  7. <head>

    8. 

  8. <meta http-equiv="Cache-Control" content="no-Cache"/>

    9. 

  9. <meta http-equiv="Cache-Control" content="max-age=0"/>

    10. 

  10. </head>

    11. 

  11. <%

    12. 

  12. Dim KSCls

    13. 

  13. Set KSCls = New User_ExChange

    14. 

  14. KSCls.Kesion()

    15. 

  15. Set KSCls = Nothing

    16. 

  16. %>

    17. 

  17. </card>

    18. 

  18. </wml>

    19. 

  19. <%

    20. 

  20. Class User_ExChange

    21. 

  21.         Private KS,Action,Prev

    22. 

  22. 		Private Sub Class_Initialize()

    23. 

  23. 		    Set KS=New PublicCls

    24. 

  24. 		End Sub

    25. 

  25.         Private Sub Class_Terminate()

    26. 

  26. 		    Set KS=Nothing

    27. 

  27. 		End Sub

    28. 

  28. 		Public Sub Kesion()

    29. 

  29. 		    IF Cbool(KSUser.UserLoginChecked)=false Then

    30. 

  30. 			   Response.Redirect KS.GetDomain&"User/Login/"

    31. 

  31. 			   Exit Sub

    32. 

  32. 			End If

    33. 

  33. 			Action=KS.S("Action")

    34. 

  34. 			If Action="TypePoint" or Action="ShowPoint"  or Action="SavePoint" Then

    35. 

  35. 			   Response.Write "<card id=""main"" title=""兑换" & KS.Setting(45) & """>"

    36. 

  36. 			End IF

    37. 

  37. 			If Action="TypeEdays" or Action="ShowEdays" or Action="SaveEdays" Then

    38. 

  38. 			   Response.Write "<card id=""main"" title=""兑换有效期"">"

    39. 

  39. 			End If

    40. 

  40. 			If Action="TypeMoney" or Action="ShowMoney" or Action="SaveMoney" Then

    41. 

  41. 			   Response.Write "<card id=""main"" title=""" & KS.Setting(45) & "兑换账户资金"">"

    42. 

  42. 			End If

    43. 

  43. 			Response.Write "<p>"

    44. 

  44. 			Select Case KS.S("Action")

    45. 

  45. 			    '兑换点券

    46. 

  46. 			    Case "TypePoint":Call TypePoint()

    47. 

  47. 			    Case "ShowPoint":Call ShowPoint()

    48. 

  48. 				Case "SavePoint":Call SavePoint()

    49. 

  49. 				'兑换账户资金

    50. 

  50. 				Case "ShowMoney":Call ShowMoney()

    51. 

  51. 				Case "SaveMoney":Call SaveMoney()

    52. 

  52. 				'兑换有效天数

    53. 

  53. 				Case "TypeEdays":Call TypeEdays()

    54. 

  54. 				Case "ShowEdays":Call ShowEdays()

    55. 

  55. 				Case "SaveEdays":Call SaveEdays()

    56. 

  56. 			End Select

    57. 

  57. 			If Prev=True Then

    58. 

  58. 			   Response.Write "<anchor>返回上一页<prev/></anchor><br/>"

    59. 

  59. 			End If

    60. 

  60. 			Response.Write "<br/>"

    61. 

  61. 			Response.Write "<a href=""Index.asp?" & KS.WapValue & """>我的地盘</a><br/>" &vbcrlf

    62. 

  62. 			Response.Write "<a href=""" & KS.GetGoBackIndex & """>返回首页</a>" &vbcrlf

    63. 

  63. 			Response.Write "</p>" &vbcrlf

    64. 

  64.         End Sub

    65. 

  65. 		

    66. 

  66. 		Sub TypePoint()

    67. 

  67. 		    %>

    68. 

  68.             【兑换<%=KS.Setting(45)%>】<br/>

    69. 

  69.             用 户 名:<%=KSUser.UserName%><br/>

    70. 

  70.             资金余额:<%=KSUser.Money%> 元<br/>

    71. 

  71.             可用积分:<%=KSUser.Score%> 分<br/>

    72. 

  72.             可用<%=KS.Setting(45)%>:<%=KSUser.Point%><%=KS.Setting(46)%><br/><br/>

    73. 

  73.             使用<a href="User_ExChange.asp?Action=ShowPoint&amp;ChangeType=1&amp;<%=KS.WapValue%>">资金余额</a>兑换成<%=KS.Setting(45)%>,兑换比率:<%=KS.Setting(43)%>元:1<%=KS.Setting(46)%><br/><br/>

    74. 

  74.             使用<a href="User_ExChange.asp?Action=ShowPoint&amp;ChangeType=2&amp;<%=KS.WapValue%>">经验积分</a>兑换成<%=KS.Setting(45)%>,兑换比率:<%=KS.Setting(41)%>分:1<%=KS.Setting(46)%><br/>

    75. 

  75.             <%

    76. 

  76. 		End Sub

    77. 

  77. 		

    78. 

  78. 		Sub ShowPoint()

    79. 

  79. 		    Dim ChangeType:ChangeType=KS.S("ChangeType")

    80. 

  80. 			Response.Write "【兑换" & KS.Setting(45) & "】<br/>" &vbcrlf

    81. 

  81. 			Response.Write "用 户 名:"&KSUser.UserName&"<br/>" &vbcrlf

    82. 

  82. 			If ChangeType=1 Then

    83. 

  83. 			   Response.Write "资金余额:"&KSUser.Money&"元<br/>" &vbcrlf

    84. 

  84. 			Else

    85. 

  85. 			   Response.Write "可用积分:"&KSUser.Score&"分<br/>" &vbcrlf

    86. 

  86. 			End If

    87. 

  87.             Response.Write "可用" & KS.Setting(45) & ":" & KSUser.Point & KS.Setting(46) & "<br/>" &vbcrlf

    88. 

  88.             Response.Write "<br/>" &vbcrlf

    89. 

  89. 			If ChangeType=1 Then

    90. 

  90. 			   If Round(KSUser.Money)>Round(KS.Setting(43)) Then

    91. 

  91. 			      Response.Write "使用资金余额兑换成" & KS.Setting(45) & ",兑换比率:" & KS.Setting(43) & "元:1" & KS.Setting(46) & "<br/>" &vbcrlf

    92. 

  92. 				  Response.Write "单位(元):<input maxlength=""8"" size=""6"" value=""100"" name=""Money" & Minute(Now) & Second(Now) & """ emptyok=""false"" format=""*N""/>" &vbcrlf

    93. 

  93. 			   Else

    94. 

  94. 			      Response.Write "您目前资金余额不足，请充值后再来兑换！<br/>" &vbcrlf

    95. 

  95. 			   End If

    96. 

  96. 			Else

    97. 

  97. 			   If Round(KSUser.Score)>Round(KS.Setting(41)) Then

    98. 

  98. 			      Response.Write "使用经验积分兑换成" & KS.Setting(45) & ",兑换比率:" & KS.Setting(41) & "分:1" & KS.Setting(46) & "<br/>" &vbcrlf

    99. 

  99. 				  Response.Write "单位(分):<input maxlength=""8"" size=""6"" value=""100"" name=""Score" & Minute(Now) & Second(Now) & """ emptyok=""false"" format=""*N""/>" &vbcrlf

    100. 

  100. 			   Else

    101. 

  101. 			      Response.Write "您目前可用积分不足，不能兑换！<br/>" &vbcrlf

    102. 

  102. 			   End If

    103. 

  103. 			End If

    104. 

  104.             Response.Write "<anchor>执行兑换<go href=""User_Exchange.asp?" & KS.WapValue & """ method=""post"">" &vbcrlf

    105. 

  105.             Response.Write "<postfield name=""Action"" value=""SavePoint""/>" &vbcrlf

    106. 

  106.             Response.Write "<postfield name=""ChangeType"" value=""" & ChangeType & """/>" &vbcrlf

    107. 

  107.             Response.Write "<postfield name=""Money"" value=""$(Money" & Minute(Now) & Second(now) & ")""/>" &vbcrlf

    108. 

  108.             Response.Write "<postfield name=""Score"" value=""$(Score" & Minute(Now) & Second(now) & ")""/>" &vbcrlf

    109. 

  109.             Response.Write "</go></anchor><br/>" &vbcrlf

    110. 

  110. 			Response.Write "<br/>" &vbcrlf

    111. 

  111.             Response.Write "一旦兑换成功即不可逆!!!" &vbcrlf

    112. 

  112. 	    End Sub

    113. 

  113. 		

    114. 

  114. 		Sub SavePoint()

    115. 

  115. 	        Dim ChangeType:ChangeType=KS.S("ChangeType")

    116. 

  116. 			Dim Money:Money=KS.S("Money")

    117. 

  117. 			Dim Score:Score=KS.ChkClng(KS.S("Score"))

    118. 

  118. 			Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

    119. 

  119. 			RS.Open "Select * From KS_User Where UserName='" & KSUser.UserName & "'",Conn,1,3

    120. 

  120. 			If RS.EOF Then

    121. 

  121. 			   RS.Close:Set RS=Nothing

    122. 

  122. 			   Response.Write "出错啦!<br/>":Prev=True:Exit Sub

    123. 

  123. 		    End If

    124. 

  124. 			If ChangeType=1 Then

    125. 

  125. 			   If KS.ChkClng(Money)=0 Then

    126. 

  126. 			      RS.Close:Set RS=Nothing

    127. 

  127. 				  Response.Write "你输入的资金不正确,资金必须大于0!<br/>"

    128. 

  128. 				  Prev=True

    129. 

  129. 				  Exit Sub

    130. 

  130. 			   End If

    131. 

  131. 			   If KS.ChkClng(Money)<KS.ChkClng(KS.Setting(43)) Then

    132. 

  132. 			      RS.Close:Set RS=Nothing

    133. 

  133. 				  Response.Write "你输入的资金不正确,资金必须大于等于" & KS.Setting(43) &"!<br/>"

    134. 

  134. 				  Prev=True

    135. 

  135. 				  Exit Sub

    136. 

  136. 			   End If

    137. 

  137. 			   IF Round(RS("Money"))<Round(Money) Then

    138. 

  138. 			      RS.Close:Set RS=Nothing

    139. 

  139. 				  Response.Write "你可用资金不足，请充值后再来兑换!<br/>"

    140. 

  140. 				  Prev=True

    141. 

  141. 				  Exit Sub

    142. 

  142. 		       End If

    143. 

  143. 			   RS("Money")=RS("Money")-Money

    144. 

  144. 			   'RS("Point")=RS("Point")+Money/KS.Setting(43)

    145. 

  145. 			   RS.Update

    146. 

  146. 			   'ChannelID,InfoID,UserName,InOrOutFlag,Point,User,Descript

    147. 

  147. 			   Call KS.PointInOrOut(0,0,RS("UserName"),1,Money/KS.Setting(43),"System","账户资金兑换所得")

    148. 

  148. 			   Dim RSLog:Set RSLog=Server.CreateObject("ADODB.RECORDSET")

    149. 

  149. 			   RSLog.Open "Select * From KS_LogMoney",Conn,1,3

    150. 

  150. 			   RSLog.AddNew

    151. 

  151. 			   RSLog("UserName")=rs("UserName")

    152. 

  152. 			   RSLog("ClientName")=rs("RealName")

    153. 

  153. 			   RSLog("Money")=Money

    154. 

  154. 			   RSLog("CurrMoney")=rs("money")

    155. 

  155. 			   RSLog("MoneyType")=4

    156. 

  156. 			   RSLog("IncomeOrPayOut")=2 

    157. 

  157. 			   RSLog("OrderID")="0"

    158. 

  158. 			   RSLog("Remark")= "用于兑换" & KS.Setting(45) & ""

    159. 

  159. 			   RSLog("PayTime")=Now

    160. 

  160. 			   RSLog("LogTime")=Now

    161. 

  161. 			   RSLog("Inputer")="System"

    162. 

  162. 			   RSLog("IP")=KS.GetIP

    163. 

  163. 			   RSLog.Update

    164. 

  164. 			   RSLog.Close:set RSLog=Nothing

    165. 

  165. 		    Else

    166. 

  166. 		       If Score=0 Then

    167. 

  167. 			      RS.Close:Set RS=Nothing

    168. 

  168. 				  Response.Write "你输入的积分不正确,积分必须大于0!<br/>"

    169. 

  169. 				  Prev=True

    170. 

  170. 				  Exit Sub

    171. 

  171. 			   End If

    172. 

  172. 			   If KS.ChkClng(Score)<KS.ChkClng(KS.Setting(41)) Then

    173. 

  173. 			      RS.Close:Set RS=Nothing

    174. 

  174. 				  Response.Write "你输入的积分不正确,积分必须大于等于" & KS.Setting(41) &"!<br/>"

    175. 

  175. 				  Prev=True

    176. 

  176. 				  Exit Sub

    177. 

  177. 			   End If

    178. 

  178. 			   IF KS.ChkClng(RS("Score"))<KS.ChkClng(Score) Then

    179. 

  179. 			      RS.Close:Set RS=Nothing

    180. 

  180. 				  Response.Write "你可用积分不足，不能兑换!<br/>"

    181. 

  181. 				  Prev=True

    182. 

  182. 				  Exit Sub

    183. 

  183. 			   End If

    184. 

  184. 			   RS("Score")=RS("Score")-Score

    185. 

  185. 			   'RS("Point")=RS("Point")+Score/KS.Setting(41)

    186. 

  186. 			   RS.Update

    187. 

  187. 			   'ChannelID,InfoID,UserName,InOrOutFlag,Point,User,Descript

    188. 

  188. 			   Call KS.PointInOrOut(0,0,RS("UserName"),1,Score/KS.Setting(41),"System","积分兑换所得")

    189. 

  189. 			End IF

    190. 

  190. 			Response.Write "恭喜您，兑换" & KS.Setting(45) & "成功!<br/>"

    191. 

  191. 			RS.Close:Set RS=Nothing

    192. 

  192.  	    End Sub

    193. 

  193. 				

    194. 

  194. 		Sub ShowMoney()

    195. 

  195. 		    %>

    196. 

  196.             【兑换资金】<br/>

    197. 

  197.             用 户 名:<%=KSUser.UserName%><br/>

    198. 

  198.             资金余额:<%=KSUser.Money%>元<br/>

    199. 

  199.             可用积分:<%=KSUser.Score%>分<br/>

    200. 

  200.             可用<%=KS.Setting(45)%>:<%=formatnumber(KSUser.Point,2)%><%=KS.Setting(46)%><br/>

    201. 

  201.             <br/>

    202. 

  202.             将<%=KS.Setting(45)%>兑换成账户资金,兑换比率:1<%=KS.Setting(46)%>:<%=KS.Setting(43)%>元<br/>

    203. 

  203.             单位(<%=KS.Setting(46)%>):<input maxLength="8" size="6" value="<%=KS.ChkClng(KSUser.Point)%>" name="Point<%=Minute(Now)%><%=Second(now)%>" emptyok="false" format="*N"/>

    204. 

  204.             <%

    205. 

  205.             Response.Write "<anchor>执行兑换<go href=""User_Exchange.asp?" & KS.WapValue & """ method=""post"">" &vbcrlf

    206. 

  206.             Response.Write "<postfield name=""Action"" value=""SaveMoney""/>" &vbcrlf

    207. 

  207.             Response.Write "<postfield name=""Prepoint"" value=""" & KSUser.Point & """/>" &vbcrlf

    208. 

  208.             Response.Write "<postfield name=""Point"" value=""$(Point" & Minute(Now) & Second(now) & ")""/>" &vbcrlf

    209. 

  209.             Response.Write "</go></anchor><br/>" &vbcrlf

    210. 

  210. 			Response.Write "<br/>" &vbcrlf

    211. 

  211. 			Response.Write "一旦兑换成功即不可逆!!!<br/>" &vbcrlf

    212. 

  212.             Response.Write "说明：您可以将投稿获得的" & KS.Setting(45) & "兑换成账户资金余额，用于在本站商城进行消费。" &vbcrlf

    213. 

  213. 	   End Sub

    214. 

  214. 	   

    215. 

  215. 	   Sub SaveMoney()

    216. 

  216. 		   Dim Point:Point=KS.S("Point")

    217. 

  217. 		   If Round(Point)<=0 Then

    218. 

  218. 			  Response.Write "你输入的" & KS.Setting(45) & "不正确,必须大于0!<br/>"

    219. 

  219. 			  Prev=True

    220. 

  220. 			  Exit Sub

    221. 

  221. 		   End If

    222. 

  222. 		   Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

    223. 

  223. 		   RS.Open "Select * From KS_User Where UserName='" & KSUser.UserName & "'",Conn,1,3

    224. 

  224. 		   If RS.EOF Then

    225. 

  225. 		      RS.Close:Set RS=Nothing

    226. 

  226. 			  Response.Write "出错啦!<br/>"

    227. 

  227. 			  Prev=True

    228. 

  228. 			  Exit Sub

    229. 

  229. 		   End If

    230. 

  230. 		   IF Round(RS("Point"))<Round(Point) Then

    231. 

  231. 			   RS.Close:Set RS=Nothing

    232. 

  232. 			   Response.Write "你可用" & KS.Setting(45) & "不足!<br/>"

    233. 

  233. 			   Prev=True

    234. 

  234. 			   Exit Sub

    235. 

  235. 		   End If

    236. 

  236. 		   RS("Money")=RS("Money")+(Point*KS.Setting(43))

    237. 

  237. 		   RS.Update

    238. 

  238. 		   'ChannelID,InfoID,UserName,InOrOutFlag,Point,User,Descript

    239. 

  239. 		   Call KS.PointInOrOut(0,0,RS("UserName"),2,Round(Point),"System","用户兑换账户资金")

    240. 

  240. 		   Dim RSLog:Set RSLog=Server.CreateObject("ADODB.RECORDSET")

    241. 

  241. 		   RSLog.Open "Select * From KS_LogMoney",Conn,1,3

    242. 

  242. 		   RSLog.AddNew

    243. 

  243. 		   RSLog("UserName")=rs("UserName")

    244. 

  244. 		   RSLog("ClientName")=rs("RealName")

    245. 

  245. 		   RSLog("CurrMoney")=rs("money")

    246. 

  246. 		   RSLog("Money")=(point*KS.Setting(43))

    247. 

  247. 		   RSLog("MoneyType")=4

    248. 

  248. 		   RSLog("IncomeOrPayOut")=1 

    249. 

  249. 		   RSLog("OrderID")="0"

    250. 

  250. 		   RSLog("Remark")= "兑换资金所得"

    251. 

  251. 		   RSLog("PayTime")=Now

    252. 

  252. 		   RSLog("LogTime")=Now

    253. 

  253. 		   RSLog("Inputer")="System"

    254. 

  254. 		   RSLog("IP")=KS.GetIP

    255. 

  255. 		   RSLog.Update

    256. 

  256. 		   RSLog.Close:set RSLog=Nothing

    257. 

  257. 		   Response.Write "恭喜您，账户资金兑换成功!<br/>"

    258. 

  258. 		   RS.Close:Set RS=Nothing

    259. 

  259. 	   End Sub

    260. 

  260. 	   

    261. 

  261. 	   Sub TypeEdays()

    262. 

  262. 		    Response.Write "【兑换有效期】<br/>" &vbcrlf

    263. 

  263. 			Response.Write "用 户 名:" & KSUser.UserName & "<br/>" &vbcrlf

    264. 

  264. 			Response.Write "资金余额:" & KSUser.Money & "元<br/>" &vbcrlf

    265. 

  265.             Response.Write "可用积分:" & KSUser.Score & "分<br/>" &vbcrlf

    266. 

  266.             Response.Write "剩余天数:" &vbcrlf

    267. 

  267.             If KSUser.ChargeType=3 Then

    268. 

  268.                Response.Write "无限期<br/>" &vbcrlf

    269. 

  269.             Else

    270. 

  270. 			   Response.Write KSUser.GetEdays & "天<br/>" &vbcrlf

    271. 

  271. 			   Response.Write "<br/>" &vbcrlf

    272. 

  272.                Response.Write "使用<a href=""User_ExChange.asp?Action=ShowEdays&amp;ChangeType=1&amp;" & KS.WapValue & """>资金余额</a>兑换成有效天数,兑换比率:" & KS.Setting(44) & "元:1天<br/><br/>" &vbcrlf

    273. 

  273.                Response.Write "使用<a href=""User_ExChange.asp?Action=ShowEdays&amp;ChangeType=2&amp;" & KS.WapValue & """>经验积分</a>兑换成有效天数,兑换比率:" & KS.Setting(42) & "分:1天<br/>" &vbcrlf

    274. 

  274.             End if

    275. 

  275. 	   End Sub

    276. 

  276. 	   

    277. 

  277. 	   Sub ShowEdays()

    278. 

  278. 		    Dim ChangeType:ChangeType=KS.S("ChangeType")

    279. 

  279. 			Response.Write "【兑换有效期】<br/>" &vbcrlf

    280. 

  280. 			Response.Write "用 户 名:" & KSUser.UserName & "<br/>" &vbcrlf

    281. 

  281. 			If ChangeType=1 Then

    282. 

  282. 			   Response.Write "资金余额:" & KSUser.Money & "元<br/>" &vbcrlf

    283. 

  283.             Else

    284. 

  284.                Response.Write "可用积分:" & KSUser.Score & "分<br/>" &vbcrlf

    285. 

  285.             End If

    286. 

  286.             Response.Write "剩余天数:" &vbcrlf

    287. 

  287.             If KSUser.ChargeType=3 Then

    288. 

  288.                Response.Write "无限期<br/>" &vbcrlf

    289. 

  289. 			Else

    290. 

  290. 			   Response.Write KSUser.GetEdays & "天<br/>" &vbcrlf

    291. 

  291. 			   Response.Write "<br/>" &vbcrlf

    292. 

  292. 			   If ChangeType=1 Then

    293. 

  293. 			      If Round(KSUser.Money)<KS.Setting(44) Then

    294. 

  294.                      Response.Write "使用资金余额兑换成有效天数,兑换比率:" & KS.Setting(44) & "元:1天<br/>"&vbcrlf

    295. 

  295.                      Response.Write "单位(元):<input maxLength=""8"" size=""6"" value=""100"" name=""Money" & Minute(Now) & Second(Now) & """ emptyok=""false"" format=""*N""/>" &vbcrlf

    296. 

  296.                   Else

    297. 

  297.                      Response.Write "您目前资金余额不足，请充值后再来兑换！<br/>" &vbcrlf

    298. 

  298.                   End If

    299. 

  299.                Else

    300. 

  300.                   If Round(KSUser.Score)<KS.Setting(42) Then

    301. 

  301.                      Response.Write "使用经验积分兑换成有效天数,兑换比率:" & KS.Setting(42) & "分:1天<br/>" &vbcrlf

    302. 

  302.                      Response.Write "单位(分):<input maxLength=""8"" size=""6"" value=""100"" name=""Score" & Minute(Now) & Second(Now) & """ emptyok=""false"" format=""*N""/>" &vbcrlf

    303. 

  303.                   Else

    304. 

  304.                      Response.Write "您目前可用积分不足，不能兑换！<br/>" &vbcrlf

    305. 

  305.                   End If

    306. 

  306.                End If

    307. 

  307.                Response.Write "<anchor>执行兑换<go href=""User_Exchange.asp?" & KS.WapValue & """ method=""post"">" &vbcrlf

    308. 

  308.                Response.Write "<postfield name=""Action"" value=""SaveEdays""/>" &vbcrlf

    309. 

  309.                Response.Write "<postfield name=""ChangeType"" value=""" & ChangeType & """/>" &vbcrlf

    310. 

  310.                Response.Write "<postfield name=""Money"" value=""$(Money" & Minute(Now) & Second(Now) &")""/>" &vbcrlf

    311. 

  311.                Response.Write "<postfield name=""Score"" value=""$(Score" & Minute(Now) & Second(Now) & ")""/>" &vbcrlf

    312. 

  312.                Response.Write "</go></anchor>" &vbcrlf

    313. 

  313.                Response.Write "<br/>" &vbcrlf

    314. 

  314. 			   Response.Write "<br/>" &vbcrlf

    315. 

  315.                Response.Write "一旦兑换成功即不可逆!!!<br/>" &vbcrlf

    316. 

  316.             End If

    317. 

  317. 	    End Sub

    318. 

  318. 		

    319. 

  319. 	    Sub SaveEdays()

    320. 

  320. 	   	    Dim ChangeType:ChangeType=KS.S("ChangeType")

    321. 

  321. 			Dim Money:Money=KS.S("Money")

    322. 

  322. 			Dim Score:Score=KS.ChkClng(KS.S("Score"))

    323. 

  323. 			Dim tmpDays,ValidDays,RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

    324. 

  324. 			RS.Open "Select * From KS_User Where UserName='" & KSUser.UserName & "'",conn,1,3

    325. 

  325. 			If RS.EOF Then

    326. 

  326. 			   RS.Close:Set RS=Nothing

    327. 

  327. 			   Response.Write "出错啦!<br/>"

    328. 

  328. 			   Prev=True

    329. 

  329. 			   Exit Sub

    330. 

  330. 			End If

    331. 

  331. 			If ChangeType=1 Then

    332. 

  332. 			   If KS.ChkClng(Money)=0 Then

    333. 

  333. 			      RS.Close:Set RS=Nothing

    334. 

  334. 				  Response.Write "你输入的资金不正确,资金必须大于0!<br/>"

    335. 

  335. 				  Prev=True

    336. 

  336. 				  Exit Sub

    337. 

  337. 			   End If

    338. 

  338. 			   If KS.ChkClng(Money)<KS.ChkClng(KS.Setting(44)) Then

    339. 

  339. 			      RS.Close:Set RS=Nothing

    340. 

  340. 				  Response.Write "你输入的资金不正确,资金必须大于等于" & KS.Setting(44) &"!<br/>"

    341. 

  341. 				  Prev=True

    342. 

  342. 				  Exit Sub

    343. 

  343. 			   End If

    344. 

  344. 			   IF Round(RS("Money"))<Round(Money) Then

    345. 

  345. 			      RS.Close:Set RS=Nothing

    346. 

  346. 				  Response.Write "你可用资金不足，请充值后再来兑换!<br/>"

    347. 

  347. 				  Prev=True

    348. 

  348. 				  Exit Sub

    349. 

  349. 		       End If

    350. 

  350. 			   RS("Money")=RS("Money")-Money

    351. 

  351. 			   ValidDays=RS("Edays")

    352. 

  352. 			   TmpDays=ValidDays-DateDiff("D",RS("BeginDate"),now())

    353. 

  353. 			   If TmpDays>0 Then

    354. 

  354. 			      RS("Edays")=RS("Edays")+Money/KS.Setting(44)

    355. 

  355. 			   Else

    356. 

  356. 			      RS("BeginDate")=now

    357. 

  357. 				  RS("Edays")=Money/KS.Setting(44)

    358. 

  358. 			   End If

    359. 

  359. 			   RS.Update

    360. 

  360. 			   'UserName,InOrOutFlag,Edays,User,Descript

    361. 

  361. 			   Call KS.EdaysInOrOut(RS("UserName"),1,Money/KS.Setting(44),"System","账户资金兑换所得")

    362. 

  362. 			   Dim RSLog:Set RSLog=Server.CreateObject("ADODB.RECORDSET")

    363. 

  363. 			   RSLog.Open "Select * From KS_LogMoney",Conn,1,3

    364. 

  364. 			   RSLog.AddNew

    365. 

  365. 			   RSLog("UserName")=rs("UserName")

    366. 

  366. 			   RSLog("ClientName")=rs("RealName")

    367. 

  367. 			   RSLog("Money")=Money

    368. 

  368. 			   RSlog("CurrMoney")=RS("Money")

    369. 

  369. 			   RSLog("MoneyType")=4

    370. 

  370. 			   RSLog("IncomeOrPayOut")=2 

    371. 

  371. 			   RSLog("OrderID")="0"

    372. 

  372. 			   RSLog("Remark")= "用于兑换有效天数"

    373. 

  373. 			   RSLog("PayTime")=Now

    374. 

  374. 			   RSLog("LogTime")=Now

    375. 

  375. 			   RSLog("Inputer")="System"

    376. 

  376. 			   RSLog("IP")=KS.GetIP

    377. 

  377. 			   RSLog.Update

    378. 

  378. 			   RSLog.Close:set RSLog=Nothing

    379. 

  379. 		    Else

    380. 

  380. 		       If Score=0 Then

    381. 

  381. 			      RS.Close:Set RS=Nothing

    382. 

  382. 				  Response.Write "<script>alert('你输入的积分不正确,积分必须大于0!');history.back();</script>"

    383. 

  383. 				  Prev=True

    384. 

  384. 				  Exit Sub

    385. 

  385. 			   End If

    386. 

  386. 			   If KS.ChkClng(Score)<KS.ChkClng(KS.Setting(42)) Then

    387. 

  387. 			      RS.Close:Set RS=Nothing

    388. 

  388. 				  Response.Write "你输入的积分不正确,积分必须大于等于" & KS.Setting(42) &"!<br/>"

    389. 

  389. 				  Prev=True

    390. 

  390. 				  Exit Sub

    391. 

  391. 			   End If

    392. 

  392. 			   IF KS.ChkClng(RS("Score"))<KS.ChkClng(Score) Then

    393. 

  393. 			      RS.Close:Set RS=Nothing

    394. 

  394. 				  Response.Write "你可用积分不足，不能兑换!<br/>"

    395. 

  395. 				  Prev=True

    396. 

  396. 				  Exit Sub

    397. 

  397. 		       End If

    398. 

  398. 			   RS("Score")=RS("Score")-Score

    399. 

  399. 			   ValidDays=RS("Edays")

    400. 

  400. 			   TmpDays=ValidDays-DateDiff("D",RS("BeginDate"),now())

    401. 

  401. 			   If TmpDays>0 Then

    402. 

  402. 			      RS("Edays")=RS("Edays")+Score/KS.Setting(42)

    403. 

  403. 			   Else

    404. 

  404. 			      RS("BeginDate")=now

    405. 

  405. 			      RS("Edays")=Score/KS.Setting(42)

    406. 

  406. 			   End If

    407. 

  407. 			   RS.Update

    408. 

  408. 			   'UserName,InOrOutFlag,Edays,User,Descript

    409. 

  409. 			   Call KS.EdaysInOrOut(RS("UserName"),1,Score/KS.Setting(42),"System","积分兑换所得")

    410. 

  410. 			End IF

    411. 

  411. 			Response.Write "恭喜您，有效天数兑换成功!<br/>"

    412. 

  412. 			RS.Close:Set RS=Nothing

    413. 

  413. 	    End Sub

    414. 

  414. End Class

    415. 

  415. %> 

    416. 

  416.