PageRenderTime 30ms CodeModel.GetById 1ms RepoModel.GetById 0ms app.codeStats 0ms

/Wap/User/User_Order.asp

https://github.com/joechen2010/health
ASP | 426 lines | 400 code | 16 blank | 10 comment | 1 complexity | 36fc20308a4eb293f3246503f9243ae4 MD5 | raw file
    

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

    2. 

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

    3. 

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

    4. 

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

    5. 

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

    6. 

  6. <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. <card id="main" title="我的订单">

    12. 

  12. <p>

    13. 

  13. <%

    14. 

  14. Dim KSCls

    15. 

  15. Set KSCls = New User_Order

    16. 

  16. KSCls.Kesion()

    17. 

  17. Set KSCls = Nothing

    18. 

  18. %>

    19. 

  19. </p>

    20. 

  20. </card>

    21. 

  21. </wml>

    22. 

  22. <%

    23. 

  23. Class User_Order

    24. 

  24.         Private KS

    25. 

  25. 		Private CurrentPage,totalPut

    26. 

  26. 		Private RS,MaxPerPage

    27. 

  27. 		Private TempStr,SqlStr,Prev

    28. 

  28. 		Private InfoIDArr,InfoID,DomainStr

    29. 

  29. 		Private Sub Class_Initialize()

    30. 

  30. 			MaxPerPage =5

    31. 

  31. 		    Set KS=New PublicCls

    32. 

  32. 			DomainStr=KS.GetDomain

    33. 

  33. 		End Sub

    34. 

  34.         Private Sub Class_Terminate()

    35. 

  35. 		    Set KS=Nothing

    36. 

  36. 			Set KSUser=Nothing

    37. 

  37. 		End Sub

    38. 

  38. 		Public Sub Kesion()

    39. 

  39. 		    IF Cbool(KSUser.UserLoginChecked)=False Then

    40. 

  40. 			   Response.redirect DomainStr&"User/Login/"

    41. 

  41. 			   Exit Sub

    42. 

  42. 			End If

    43. 

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

    44. 

  44. 			    Case "ShowOrder" Call ShowOrder

    45. 

  45. 				Case "DelOrder" Call DelOrder

    46. 

  46. 				Case "SignUp"  Call SignUp

    47. 

  47. 				Case "AddPayment"  Call AddPayment '从账户余额付款

    48. 

  48. 				Case "SavePayment"  Call SavePayment

    49. 

  49. 				Case "PaymentOnline"  '在线支付

    50. 

  50. 				'Response.Redirect "User_PayOnline.asp?Action=Payonline&id=" & KS.S("ID")

    51. 

  51. 				Case Else Call OrderList

    52. 

  52. 			End Select

    53. 

  53. 			If Prev=True Then

    54. 

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

    55. 

  55. 			End If

    56. 

  56. 			Response.Write "<br/>"

    57. 

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

    58. 

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

    59. 

  59. 		End Sub

    60. 

  60. 		

    61. 

  61. 		Sub OrderList()

    62. 

  62. 		    If KS.S("page") <> "" Then

    63. 

  63. 			   CurrentPage = CInt(KS.S("page"))

    64. 

  64. 			Else

    65. 

  65. 			   CurrentPage = 1

    66. 

  66. 			End If

    67. 

  67. 			Response.Write "【我的订单】<br/>"

    68. 

  68. 			SqlStr="Select * From KS_Order Where UserName='" & KSUser.UserName &"' order by id desc"

    69. 

  69. 			Set RS=Server.createobject("adodb.recordset")

    70. 

  70. 			RS.open SqlStr,Conn,1,1

    71. 

  71. 			If RS.EOF And RS.BOF Then

    72. 

  72. 			   Response.Write "您没有下任何订单!<br/>"

    73. 

  73. 			Else

    74. 

  74. 			   totalPut = RS.RecordCount

    75. 

  75. 			   If CurrentPage < 1 Then

    76. 

  76. 			      CurrentPage = 1

    77. 

  77. 			   End If

    78. 

  78. 			   If (CurrentPage - 1) * MaxPerPage > totalPut Then

    79. 

  79. 			      If (totalPut Mod MaxPerPage) = 0 Then

    80. 

  80. 				     CurrentPage = totalPut \ MaxPerPage

    81. 

  81. 				  Else

    82. 

  82. 				     CurrentPage = totalPut \ MaxPerPage + 1

    83. 

  83. 				  End If

    84. 

  84. 			   End If

    85. 

  85. 			   If CurrentPage = 1 Then

    86. 

  86. 			      Call ShowContent

    87. 

  87. 			   Else

    88. 

  88. 			      If (CurrentPage - 1) * MaxPerPage < totalPut Then

    89. 

  89. 			         RS.Move (CurrentPage - 1) * MaxPerPage

    90. 

  90. 					 Call ShowContent

    91. 

  91. 			      Else

    92. 

  92. 			         CurrentPage = 1

    93. 

  93. 					 Call ShowContent

    94. 

  94. 			      End If

    95. 

  95. 			   End If

    96. 

  96. 			End If

    97. 

  97. 		    Call  KS.ShowPageParamter(totalPut, MaxPerPage, "User_Order.asp", True, "条订单", CurrentPage, KS.WapValue)

    98. 

  98. 		End Sub

    99. 

  99. 		

    100. 

  100. 		Sub ShowContent()

    101. 

  101. 		    Dim i,MoneyTotal,MoneyReceipt

    102. 

  102. 			Do While Not RS.Eof

    103. 

  103. 			%>

    104. 

  104.             编号:<a href="User_Order.asp?Action=ShowOrder&amp;ID=<%=RS("ID")%>&amp;<%=KS.WapValue%>"><%=rs("orderid")%></a><br/>

    105. 

  105. 			时间:<%=rs("inputtime")%><br/>

    106. 

  106. 			金额:<%=formatnumber(rs("MoneyTotal"),2)%> 收款金额:<%=formatnumber(RS("MoneyReceipt"),2)%><br/>

    107. 

  107.             <%

    108. 

  108. 			If RS("NeedInvoice")=1 Then

    109. 

  109. 			   If RS("Invoiced")=1 Then

    110. 

  110. 			      Response.Write "发票已开,"

    111. 

  111. 			   Else

    112. 

  112. 			      Response.Write "发票未开,"

    113. 

  113. 			   End If

    114. 

  114. 			End If

    115. 

  115. 			If RS("Status")=0 Then

    116. 

  116. 			   Response.Write "等待确认"

    117. 

  117. 			ElseIf RS("Status")=1 Then

    118. 

  118. 			   Response.Write "已经确认"

    119. 

  119. 			ElseIf RS("Status")=2 Then

    120. 

  120. 			   Response.Write "已结清"

    121. 

  121. 			End If

    122. 

  122. 			Response.Write ","

    123. 

  123. 			If RS("MoneyReceipt")<=0 Then

    124. 

  124. 			   Response.Write "等待汇款"

    125. 

  125. 			ElseIf RS("MoneyReceipt")<RS("MoneyTotal") Then

    126. 

  126. 			   Response.WRITE "已收定金"

    127. 

  127. 			Else

    128. 

  128. 			   Response.Write "已经付清"

    129. 

  129. 			End If

    130. 

  130. 			Response.Write ","

    131. 

  131. 			If RS("DeliverStatus")=0 Then

    132. 

  132. 			   Response.Write "未发货"

    133. 

  133. 			ElseIf RS("DeliverStatus")=1 Then

    134. 

  134. 			   Response.Write "已发货"

    135. 

  135. 			ElseIf RS("DeliverStatus")=2 Then

    136. 

  136. 			   Response.Write "已签收"

    137. 

  137. 			End If

    138. 

  138. 			Response.Write "<br/>"

    139. 

  139. 			

    140. 

  140. 			MoneyReceipt=RS("MoneyReceipt")+MoneyReceipt

    141. 

  141. 			MoneyTotal=RS("MoneyTotal")+MoneyTotal

    142. 

  142. 			Response.Write "<img src=""../Images/Hen.gif"" alt=""""/><br/>"

    143. 

  143. 			RS.MoveNext

    144. 

  144. 			I = I + 1

    145. 

  145. 			If I >= MaxPerPage Then Exit Do

    146. 

  146. 			Loop

    147. 

  147. 			

    148. 

  148. 			Response.Write "<br/>"

    149. 

  149. 			Response.Write "本页-合计:"&formatnumber(MoneyTotal,2)&" "

    150. 

  150. 			Response.Write "收款金额:"&formatnumber(MoneyReceipt,2)&"<br/>"

    151. 

  151. 			Response.Write "所有-总计:"&formatnumber(Conn.execute("Select sum(moneytotal) from KS_Order Where UserName='" & KSUser.UserName & "'")(0),2)&" "

    152. 

  152. 			Response.Write "收款金额:"&formatnumber(Conn.execute("Select sum(MoneyReceipt) from KS_Order Where UserName='" & KSUser.UserName & "'")(0),2)&"<br/>"

    153. 

  153. 		End Sub

    154. 

  154. 		

    155. 

  155. 		Sub ShowOrder()

    156. 

  156. 		    Dim ID:ID=KS.ChkClng(KS.S("ID"))

    157. 

  157. 			Dim RS:Set RS=Server.CreateObject("adodb.recordset")

    158. 

  158. 			RS.Open "Select * from ks_order where id=" & ID ,Conn,1,1

    159. 

  159. 			IF RS.Eof And RS.Bof Then

    160. 

  160. 			   RS.Close:Set RS=Nothing

    161. 

  161. 			   Response.Write "参数错误!<br/>"

    162. 

  162. 			   Prev=True

    163. 

  163. 			   Exit Sub

    164. 

  164. 		    End If

    165. 

  165. 			'返回订单详细信息

    166. 

  166. 			Response.Write "【订单信息】<br/>" &vbcrlf

    167. 

  167. 			Response.Write "订单编号:" & RS("ORDERID") & "<br/>"&vbcrlf

    168. 

  168. 			Response.Write "客户姓名:" & RS("Contactman") & "<br/>" &vbcrlf

    169. 

  169. 			Response.Write "用 户 名:" & RS("UserName") & "<br/>" &vbcrlf

    170. 

  170. 			Response.Write "【代 理 商】<br/>" &vbcrlf

    171. 

  171. 			Response.Write "购买日期:" & formatdatetime(RS("inputtime"),2) & "<br/>" & vbcrlf

    172. 

  172. 			Response.Write "下单时间:" & RS("inputtime") & "<br/>" & vbcrlf

    173. 

  173. 			If RS("NeedInvoice")=1 Then

    174. 

  174. 			   Response.Write "发票状态:"

    175. 

  175. 			   If RS("Invoiced")=1 Then

    176. 

  176. 				  Response.Write "已开"

    177. 

  177. 			   Else

    178. 

  178. 			      Response.Write "未开"

    179. 

  179. 			   End If

    180. 

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

    181. 

  181. 			End If

    182. 

  182. 			

    183. 

  183. 			Response.Write "订单状态:"	

    184. 

  184. 			If RS("Status")=0 Then

    185. 

  185. 			   Response.Write "等待确认"

    186. 

  186. 			ElseIf RS("Status")=1 Then

    187. 

  187. 			   Response.Write "已经确认"

    188. 

  188. 			ElseIf RS("Status")=2 Then

    189. 

  189. 			   Response.Write "已结清"

    190. 

  190. 			End If

    191. 

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

    192. 

  192. 			Response.Write "付款情况:"

    193. 

  193. 			If RS("MoneyReceipt")<=0 Then

    194. 

  194. 			   Response.Write "等待汇款"

    195. 

  195. 			ElseIf RS("MoneyReceipt")<RS("MoneyTotal") Then

    196. 

  196. 			   Response.Write "已收定金"

    197. 

  197. 			Else

    198. 

  198. 			   Response.Write "已经付清"

    199. 

  199. 			End If

    200. 

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

    201. 

  201. 			Response.Write "物流状态:"

    202. 

  202. 			If RS("DeliverStatus")=0 Then

    203. 

  203. 			   Response.Write "未发货"

    204. 

  204. 			ElseIf RS("DeliverStatus")=1 Then

    205. 

  205. 			   Response.Write "已发货"

    206. 

  206. 			ElseIf RS("DeliverStatus")=2 Then

    207. 

  207. 			   Response.Write "已签收"

    208. 

  208. 			End If

    209. 

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

    210. 

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

    211. 

  211. 			Response.Write "收货姓名:" & RS("contactman") & "<br/>" & vbcrlf

    212. 

  212. 			Response.Write "联系电话:" & RS("phone") & "<br/>" & vbcrlf

    213. 

  213. 			Response.Write "收货地址:" & RS("address") & "<br/>" & vbcrlf

    214. 

  214. 			Response.Write "邮政编码:" & RS("zipcode") & "<br/>" & vbcrlf

    215. 

  215. 			Response.Write "收货邮箱:" & RS("email") & "<br/>" & vbcrlf

    216. 

  216. 			Response.Write "收货手机:" & RS("mobile") & "<br/>" & vbcrlf

    217. 

  217. 			Response.Write "付款方式:" & KS.ReturnPayMent(rs("PaymentType"),0) & "<br/>" & vbcrlf

    218. 

  218. 			Response.Write "送货方式:" & KS.ReturnDelivery(rs("DeliverType"),0) & "<br/>" & vbcrlf

    219. 

  219. 			If RS("Invoiced")=1 Then

    220. 

  220. 			   Response.Write "发票信息:" & RS("InvoiceContent") & "<br/>" & vbcrlf

    221. 

  221. 			End If

    222. 

  222. 			Response.Write "备注留言:" & RS("Remark") & "<br/>" & vbcrlf

    223. 

  223. 			

    224. 

  224. 			Response.Write "<img src=""../Images/Hen.gif"" alt=""""/><br/>"

    225. 

  225. 			Dim TotalPrice,RSI:Set RSI=Server.CreateObject("ADODB.RECORDSET")

    226. 

  226. 			RSI.Open "Select * From KS_OrderItem Where OrderID='" & RS("OrderID") & "'",conn,1,1

    227. 

  227. 			If RSI.Eof Then

    228. 

  228. 			   RSI.Close:Set RSI=Nothing

    229. 

  229. 			   Response.Write "找不到相关商品!<br/>" & vbcrlf

    230. 

  230. 			Else	

    231. 

  231. 			   Do While Not RSI.EOF

    232. 

  232. 			      Response.Write "商品名称:<a href='" & DomainStr & "Show.asp?ID=" & RSI("proid") & "&amp;ChannelID=5&amp;"&KS.WapValue&"'>" & Conn.Execute("select title from ks_product where id=" & RSI("proid"))(0) & "</a><br/>" & vbcrlf

    233. 

  233. 				  Response.Write "数量单位:" & RSI("Amount") &""& Conn.Execute("select unit from ks_product where id=" & RSI("proid"))(0) & " "

    234. 

  234. 				  Response.Write "期限:" & RSI("ServiceTerm") & "<br/>"

    235. 

  235. 				  Response.Write "原价:" & formatnumber(RSI("price_original"),2) & " "

    236. 

  236. 				  Response.Write "实价:" & formatnumber(RSI("price"),2) & " "

    237. 

  237. 				  Response.Write "指定价:" & formatnumber(RSI("realprice"),2) & " "

    238. 

  238. 				  Response.Write "金额:" & formatnumber(RSI("realprice")*RSI("amount"),2) & "<br/>"

    239. 

  239. 				  'Response.Write "备注:" & RSI("Remark") & "<br/>"

    240. 

  240. 				  TotalPrice=TotalPrice+ RSI("realprice")*RSI("Amount")

    241. 

  241. 				  Response.Write "<img src=""../Images/Hen.gif"" alt=""""/><br/>"

    242. 

  242. 				  RSI.Movenext

    243. 

  243. 			   loop

    244. 

  244. 			   Response.Write "合计:" & formatnumber(totalprice,2) & "<br/>"

    245. 

  245. 			End If

    246. 

  246. 			RSI.Close:set RSI=Nothing

    247. 

  247. 			Response.Write "付款方式折扣率：" & RS("Discount_Payment") & "% 运费：" & RS("Charge_Deliver")&" 元 税率：" & KS.Setting(65) &"% 价格含税："

    248. 

  248. 			IF KS.Setting(64)=1 Then 

    249. 

  249. 			   Response.Write "是"

    250. 

  250. 			Else

    251. 

  251. 			   Response.Write "不含税"

    252. 

  252. 			End If

    253. 

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

    254. 

  254. 			Dim TaxMoney

    255. 

  255. 			Dim TaxRate:TaxRate=KS.Setting(65)

    256. 

  256. 			If KS.Setting(64)=1 Or rs("NeedInvoice")=0 Then TaxMoney=1 Else TaxMoney=1+TaxRate/100

    257. 

  257. 			Response.Write "实际金额：(" & rs("MoneyGoods") & "×" & rs("Discount_Payment") & "%＋"&rs("Charge_Deliver") & ")×"

    258. 

  258. 			If KS.Setting(64)=1 Or rs("NeedInvoice")=0 Then Response.Write "100%" Else Response.Write "(1＋" & TaxRate & "%)" 

    259. 

  259. 			Response.Write "＝" & formatnumber(rs("MoneyTotal"),2) & "元<br/>"

    260. 

  260. 			Response.Write "实际金额：￥" & formatnumber(rs("MoneyTotal"),2) & " "

    261. 

  261. 			Response.Write "已付款：￥" & formatnumber(rs("MoneyReceipt"),2) & " "

    262. 

  262. 			If RS("MoneyReceipt")<RS("MoneyTotal") Then

    263. 

  263. 			   Response.Write "尚欠款：￥" & formatnumber(RS("MoneyTotal")-RS("MoneyReceipt"),2) &""

    264. 

  264. 			End If

    265. 

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

    266. 

  266. 			

    267. 

  267. 			

    268. 

  268. 			Response.Write "注：“原价”指商品的原始零售价，“实价”指系统自动计算出来的商品最终价格，“指定价”指管理员根据不同会员组手动指定的最终价格。商品的最终销售价格以“指定价”为准。<br/>"

    269. 

  269. 			Response.Write "<br/>"

    270. 

  270. 			If rs("status")=0 And rs("DeliverStatus")=0 And rs("MoneyReceipt")=0 Then

    271. 

  271. 			   Response.Write "<a href=""User_Order.asp?Action=DelOrder&amp;ID=" & rs("id") & "&amp;" & KS.WapValue & """>删除订单</a> "

    272. 

  272. 			End If

    273. 

  273. 			If RS("MoneyReceipt")<RS("MoneyTotal") Then

    274. 

  274. 			   Response.Write "<a href=""User_Order.asp?Action=AddPayment&amp;ID=" & rs("id") & "&amp;" & KS.WapValue & """>从余额中扣款支付</a> "

    275. 

  275. 			End If

    276. 

  276. 			If rs("DeliverStatus")=1 Then

    277. 

  277. 			   Response.Write "<a href=""User_Order.asp?Action=SignUp&amp;ID=" & RS("ID") & "&amp;" & KS.WapValue & """>签收商品</a> "

    278. 

  278. 			End If

    279. 

  279. 			Response.Write "<a href=""User_Order.asp?" & KS.WapValue & """>订单首页</a><br/>"

    280. 

  280. 		End Sub

    281. 

  281. 

    282. 

  282. 		'删除订单

    283. 

  283. 		Sub DelOrder()

    284. 

  284. 		    Dim ID:ID=KS.ChkClng(KS.S("ID"))

    285. 

  285. 			If KS.S("Checked")="ok" Then

    286. 

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

    287. 

  287. 			   RS.Open "Select OrderID From KS_Order where status=0 and DeliverStatus=0 and MoneyReceipt=0 and id=" & ID,Conn,1,3

    288. 

  288. 			   If Not RS.EOF Then

    289. 

  289. 			      Conn.Execute("delete from ks_orderitem Where OrderID='" & rs(0) &"'")

    290. 

  290. 				  RS.Delete

    291. 

  291. 			   End if

    292. 

  292. 			   Response.redirect DomainStr&"User/User_Order.asp?" & KS.WapValue & ""

    293. 

  293. 			Else

    294. 

  294. 			    Response.Write "确定要删除此订单吗？"

    295. 

  295. 				Response.Write "<a href=""User_Order.asp?Action=DelOrder&amp;Checked=ok&amp;ID=" & ID & "&amp;" & KS.WapValue & """>确定</a> "

    296. 

  296. 				Response.Write "<a href=""User_Order.asp?Action=ShowOrder&amp;ID=" & ID & "&amp;" & KS.WapValue & """>取消</a><br/>"

    297. 

  297. 			End if

    298. 

  298. 		End Sub

    299. 

  299. 		

    300. 

  300. 		'签收商品

    301. 

  301. 		Sub SignUp()

    302. 

  302. 		    Dim OrderID,id:ID=KS.ChkClng(KS.S("ID"))

    303. 

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

    304. 

  304. 			RS.Open "Select * From KS_Order Where ID=" & ID,Conn,1,3

    305. 

  305. 			If RS.EOF Then

    306. 

  306. 			   RS.Close:Set RS=Nothing

    307. 

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

    308. 

  308. 			   Prev=True

    309. 

  309. 			   Exit Sub

    310. 

  310. 		    End If

    311. 

  311. 			RS("DeliverStatus")=2

    312. 

  312. 			RS("BeginDate")=Now

    313. 

  313. 			RS.Update

    314. 

  314. 			OrderID=RS("OrderID")

    315. 

  315. 			RS.Close:Set RS=Nothing

    316. 

  316. 			Conn.Execute("Update KS_LogDeliver Set Status=1 Where OrderID='" & OrderID & "'")

    317. 

  317. 			Response.redirect DomainStr&"User/User_Order.asp?Action=ShowOrder&ID="&ID&"&"&KS.WapValue&""

    318. 

  318. 		End Sub

    319. 

  319. 		

    320. 

  320. 		Sub AddPayment()

    321. 

  321. 		    Dim ID:ID=KS.ChkClng(KS.S("ID"))

    322. 

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

    323. 

  323. 			RS.Open "Select * From KS_Order Where ID="& ID,Conn,1,1

    324. 

  324. 			If RS.EOF Then

    325. 

  325. 			   RS.Close:Set RS=Nothing

    326. 

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

    327. 

  327. 			   Prev=True

    328. 

  328. 			   Exit Sub

    329. 

  329. 		    End If

    330. 

  330. 			%>

    331. 

  331.             <b>注意：支出信息一旦录入，就不能再修改！所以在保存之前确认输入无误！</b><br/><br/>

    332. 

  332.             使用账户资金支付订单<br/>

    333. 

  333.             用 户 名：<%=KSUser.UserName%><br/>

    334. 

  334.             客户名称：<%=RS("ContactMan")%><br/>

    335. 

  335.             资金余额：<%=KSUser.Money%>元<br/>

    336. 

  336.             支付内容：<br/>

    337. 

  337.             订单编号：<%=RS("OrderID")%><br/>

    338. 

  338.             订单金额：<%=RS("MoneyTotal")%>元<br/>

    339. 

  339.             已 付 款：<%=RS("MoneyReceipt")%>元<br/>

    340. 

  340.             支付成功后，将从您的资金余额中扣除相应款项。<br/>

    341. 

  341.             支出金额：<input maxLength="20" size="10" value="<%=RS("moneytotal")-RS("MoneyReceipt")%>" name="Money<%=Minute(Now)%><%=Second(Now)%>" />元<br/>

    342. 

  342.             

    343. 

  343.             <anchor>确认支付<go href="User_Order.asp?<%=KS.WapValue%>" method="post">

    344. 

  344.             <postfield name="Action" value="SavePayment"/>

    345. 

  345.             <postfield name="ID" value="<%=RS("id")%>"/>

    346. 

  346.             <postfield name="Money" value="$(Money<%=Minute(Now)%><%=Second(Now)%>)"/>

    347. 

  347.             </go></anchor>            

    348. 

  348.             <br/>

    349. 

  349.             <%

    350. 

  350. 		    RS.Close:Set RS=Nothing

    351. 

  351. 		End Sub

    352. 

  352. 		

    353. 

  353. 		'开始余额支付操作

    354. 

  354. 		Sub SavePayment()

    355. 

  355. 		    Dim ID:ID=KS.ChkClng(KS.S("ID"))

    356. 

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

    357. 

  357. 			If Not IsNumeric(Money) Then

    358. 

  358. 			   Response.Write "请输入有效的金额!<br/>"

    359. 

  359. 			   Prev=True

    360. 

  360. 			   Exit Sub

    361. 

  361. 			End If

    362. 

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

    363. 

  363. 			RS.Open "Select * From KS_Order Where ID=" & ID,Conn,1,3

    364. 

  364. 			If RS.EOF Then

    365. 

  365. 			   RS.Close:Set RS=Nothing

    366. 

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

    367. 

  367. 			   Prev=True

    368. 

  368. 			   Exit Sub

    369. 

  369. 		    End If

    370. 

  370. 			If Round(Money)>Round(KSUser.Money) Then

    371. 

  371. 			   Response.Write "错误信息<br/>"

    372. 

  372. 			   Response.Write "产生错误的可能原因：您输入的支付金额超过了您的资金余额，无效支付！<br/>"

    373. 

  373. 			   Prev=True

    374. 

  374. 			   RS.Close:Set RS=Nothing:Exit Sub

    375. 

  375. 		    End If

    376. 

  376. 			'从账户资金中扣除金额

    377. 

  377. 			Dim CurrMoney:CurrMoney=0

    378. 

  378. 			Dim RSU:Set RSU=Server.CreateObject("adodb.recordset")

    379. 

  379. 			RSU.Open "Select Money From KS_User Where UserName='" & RS("UserName") & "'",Conn,1,3

    380. 

  380. 			If Not RSU.Eof Then

    381. 

  381. 		       RSU(0)=RSU(0)-Money

    382. 

  382. 			   RSU.Update

    383. 

  383. 			   CurrMoney=rsu(0)

    384. 

  384. 		    End If

    385. 

  385. 			RSU.Close:Set RSU=Nothing

    386. 

  386. 			

    387. 

  387. 			RS("MoneyReceipt")=RS("MoneyReceipt")+Money

    388. 

  388. 			RS("Status")=1

    389. 

  389. 			RS.Update

    390. 

  390. 			

    391. 

  391. 			'写入资金明细

    392. 

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

    393. 

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

    394. 

  394. 			RSLog.AddNew

    395. 

  395. 		    RSLog("UserName")=RS("UserName")

    396. 

  396. 			RSLog("ClientName")=RS("Contactman")

    397. 

  397. 			RSLog("Money")=Money

    398. 

  398. 			RSLog("MoneyType")=4       '余额支付

    399. 

  399. 			RSLog("IncomeOrPayOut")=2  '支出

    400. 

  400. 			RSLog("OrderID")=RS("OrderID") 

    401. 

  401. 			RSLog("Remark")="支付订单费用，订单号：" & RS("Orderid")

    402. 

  402. 			RSLog("PayTime")=Now

    403. 

  403. 			RSLog("LogTime")=Now

    404. 

  404. 			RSLog("Inputer")=KSUser.UserName

    405. 

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

    406. 

  406. 			RSLog("CurrMoney")=CurrMoney

    407. 

  407. 			RSLog("ChannelID")=0

    408. 

  408. 			RSLog("InfoID")=0

    409. 

  409. 			RSLog.Update

    410. 

  410. 			RSLog.Close:Set RSLog=Nothing

    411. 

  411. 			'====================为用户增加购物应得积分========================

    412. 

  412. 			If RS("MoneyReceipt")>=RS("MoneyTotal") Then

    413. 

  413. 			   Dim RSP:set RSP=Conn.Execute("select point,id from ks_product where id in(select proid from KS_OrderItem where orderid='" & rs("orderid") & "')")

    414. 

  414. 			   do while not rsp.eof

    415. 

  415. 			      Dim Amount:Amount=Conn.Execute("select amount from ks_orderitem where orderid='" & RS("orderid") & "' and proid=" & RSP(1))(0)

    416. 

  416. 				  Conn.Execute("update ks_user set score=score+" & KS.ChkClng(rsp(0))*amount & " where username='" & ksuser.username & "'")

    417. 

  417. 				  RSP.MoveNext

    418. 

  418. 			   Loop

    419. 

  419. 			   RSP.Close:set RSP=Nothing

    420. 

  420. 			End If

    421. 

  421. 			'================================================================

    422. 

  422. 			RS.Close:Set RS=Nothing

    423. 

  423. 			Response.redirect DomainStr&"User/User_Order.asp?Action=ShowOrder&ID="&ID&"&"&KS.WapValue&""

    424. 

  424. 		End Sub

    425. 

  425. End Class

    426. 

  426. %> 

    427. 

  427.