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

/Wap/Shop/Preview.asp

https://github.com/joechen2010/health
ASP | 196 lines | 186 code | 5 blank | 5 comment | 0 complexity | fc8bae20f5c6ec96d748a417c5e0403e MD5 | raw file
    

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

    2. 

  2. <%

    3. 

  3. Option Explicit

    4. 

  4. '********************************

    5. 

  5. '* 程序功能：订单确认

    6. 

  6. '* 演示地址: http://wap.kesion.com/

    7. 

  7. '********************************

    8. 

  8. %>

    9. 

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

    10. 

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

    11. 

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

    12. 

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

    13. 

  13. <wml>

    14. 

  14. <head>

    15. 

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

    16. 

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

    17. 

  17. </head>

    18. 

  18. <card id="main" title="订单确认">

    19. 

  19. <p>

    20. 

  20. <%

    21. 

  21. Dim KSCls

    22. 

  22. Set KSCls = New ShoppingCart

    23. 

  23. KSCls.Kesion()

    24. 

  24. Set KSCls = Nothing

    25. 

  25. %>

    26. 

  26. </p>

    27. 

  27. </card>

    28. 

  28. </wml>

    29. 

  29. <%

    30. 

  30. Class ShoppingCart

    31. 

  31.         Private KS,DomainStr

    32. 

  32. 		Private ProductList

    33. 

  33. 		Private Sub Class_Initialize()

    34. 

  34. 		    Set KS=New PublicCls

    35. 

  35. 		    DomainStr=KS.GetDomain

    36. 

  36. 		End Sub

    37. 

  37.         Private Sub Class_Terminate()

    38. 

  38. 		    Call CloseConn()

    39. 

  39. 		    Set KS=Nothing

    40. 

  40. 		End Sub

    41. 

  41. 		Public Sub Kesion()

    42. 

  42. 		    Dim FileContent,Products,i,RS,strsql,CartStr

    43. 

  43. 			ProductList = KS.FilterIDs(Session("ProductList"))

    44. 

  44. 			

    45. 

  45. 			If Cbool(KSUser.UserLoginChecked)=False Then

    46. 

  46. 			   Response.Write "温馨提示：您还没有注册或登录。享受更多会员优惠，请先<a href=""User/Login/?../PayMent.asp"">登录</a>或<a href=""User/Reg/?../PayMent.asp"">注册</a>成为商城会员！<br/>" &vbcrlf

    47. 

  47. 			Else

    48. 

  48. 			   Response.Write "亲爱的"&KSUser.UserName&"<br/>" &vbcrlf

    49. 

  49. 			   Response.Write "【个人信息】<br/>" &vbcrlf

    50. 

  50. 			   Response.Write "用户组:"&KS.GetUserGroupName(KSUser.GroupID)&"<br/>" &vbcrlf

    51. 

  51. 			   Response.Write "可用资金:" & KSUser.Money & "元 " & KS.Setting(45) & ":" & KSUser.Point & "" & KS.Setting(46)&" 积分:" & KSUser.Score & "分<br/>" &vbcrlf

    52. 

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

    53. 

  53. 			End iF

    54. 

  54. 			

    55. 

  55. 			Set RS=Server.CreateObject("ADODB.RecordSet") 

    56. 

  56. 			If ProductList<>"" Then

    57. 

  57. 			   strsql="select ID,Title,ProductType,Price_Original,Price,Price_Member,Discount,TotalNum,GroupPrice from KS_Product where ID in ("&ProductList&") order by ID"

    58. 

  58. 			Else

    59. 

  59. 			   strsql="select ID,Title,ProductType,Price_Original,Price,Price_Member,Discount,TotalNum,GroupPrice from KS_Product where 1=0"

    60. 

  60. 			End If

    61. 

  61. 			RS.Open strsql,Conn,1,1

    62. 

  62. 			Dim TotalPrice,RealPrice,Price_Original,Discount,Amount,RealTotalPrice

    63. 

  63. 			Amount = 1

    64. 

  64. 			Do While Not RS.EOF

    65. 

  65. 			   Amount = KS.ChkClng(KS.S( "Q_" & RS("ID")))

    66. 

  66. 			   If Amount <= 0 Then 

    67. 

  67. 			      Amount = KS.ChkClng(Session("Amount"&RS("ID")))

    68. 

  68. 			      If Amount <= 0 Then Amount = 1

    69. 

  69. 			   End If

    70. 

  70. 			   Session("Amount"&RS("ID")) = Amount

    71. 

  71. 			   IF RS("TotalNum") < Amount Then

    72. 

  72. 			      Amount = 1

    73. 

  73. 				  Session("Amount"&RS("ID")) = 1

    74. 

  74. 				  Response.Write "对不起，"&RS("Title")&"暂时库存不足，请过段时间再来购买该商品！<br/><br/>"

    75. 

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

    76. 

  76. 				  Exit Sub

    77. 

  77. 			   End IF

    78. 

  78. 			   IF Cbool(KSUser.UserLoginChecked)=true Then

    79. 

  79. 			      If RS("GroupPrice")=0 Then

    80. 

  80. 				     RealPrice=RS("Price_Member")

    81. 

  81. 				  Else

    82. 

  82. 				     Dim RSP:Set RSP=Conn.Execute("Select Price From KS_ProPrice Where GroupID=" & KSUser.GroupID & " And ProID=" & RS("ID"))

    83. 

  83. 					 If RSP.Eof Then

    84. 

  84. 					    RealPrice=RS("Price_Member")

    85. 

  85. 					 Else

    86. 

  86. 					    RealPrice=RSP(0)

    87. 

  87. 					 End If

    88. 

  88. 					 RSP.Close:Set RSP=Nothing

    89. 

  89. 				  End If

    90. 

  90. 			   Else

    91. 

  91. 			      RealPrice=RS("Price")

    92. 

  92. 			   End If

    93. 

  93. 			   TotalPrice=TotalPrice+Round(RealPrice*Amount,2)

    94. 

  94. 			   Response.Write "编号:"&RS("ID")&" 名称:"&RS("Title")&"<br/>" &vbcrlf

    95. 

  95. 			   Response.Write "数量:"&Amount&" 原价:￥"&RS("Price_Original")&" 折扣:"&RS("Discount")&" 实价:￥"&RealPrice&" 总计:￥"&Round(RealPrice*Amount,2)&"<br/><br/>" &vbcrlf

    96. 

  96. 			   RS.MoveNext

    97. 

  97. 		    Loop

    98. 

  98. 		    RS.close:set RS=nothing

    99. 

  99. 			Dim PaymentDiscount:PayMentDiscount=KS.ReturnPayment(KS.S("PaymentType"),1)

    100. 

  100. 			Dim DeliveryMoney:DeliveryMoney=KS.ReturnDelivery(KS.S("DeliverType"),1)

    101. 

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

    102. 

  102. 			Dim IncludeTax:IncludeTax=KS.Setting(64)

    103. 

  103. 			Dim TaxMoney

    104. 

  104. 			If IncludeTax=1 Or KS.ChkClng(KS.S("NeedInvoice"))=0 Then TaxMoney=1 Else TaxMoney=1+Taxrate/100

    105. 

  105. 			TotalPrice=Round(TotalPrice,2)

    106. 

  106. 			'总金额 = (总价*付费方式折扣+运费)*(1+税率)

    107. 

  107. 			RealTotalPrice=Round((TotalPrice*PayMentDiscount/100+DeliveryMoney)*TaxMoney,2)

    108. 

  108. 			Response.Write "付款方式折扣率:"&PayMentDiscount&"% 运费:"&DeliveryMoney&"元 " &vbcrlf

    109. 

  109. 			Response.Write "价格含税:" &vbcrlf

    110. 

  110. 			If IncludeTax=1 Then Response.Write "是 " Else Response.Write "不含税 "

    111. 

  111. 			Response.Write "税率:"&TaxRate&"%<br/>" &vbcrlf

    112. 

  112. 			Response.Write "实际金额：("&TotalPrice&"×"&PaymentDiscount&"%＋"&DeliveryMoney&")×" &vbcrlf

    113. 

  113. 			If IncludeTax=1 Or KS.ChkClng(KS.S("NeedInvoice"))=0 Then Response.Write "100%" Else Response.Write "(1+" & TaxRate & "%)"

    114. 

  114. 			Response.Write "＝" & RealTotalPrice&" 元<br/>" &vbcrlf

    115. 

  115. 			Response.Write "合计:￥"&RealTotalPrice&"元<br/><br/>" &vbcrlf

    116. 

  116. 			

    117. 

  117. 			Dim ContactMan:ContactMan=KS.S("ContactMan")

    118. 

  118. 			Dim Address:Address=KS.S("Address")

    119. 

  119. 			Dim ZipCode:ZipCode=KS.S("ZipCode")

    120. 

  120. 			Dim Phone:Phone=KS.S("Phone")

    121. 

  121. 			Dim Email:Email=KS.S("Email")

    122. 

  122. 			Dim Mobile:Mobile=KS.S("Mobile")

    123. 

  123. 			Dim QQ:QQ=KS.S("QQ")

    124. 

  124. 			Dim PaymentType:PaymentType=KS.S("PaymentType")

    125. 

  125. 			Dim DeliverType:DeliverType=KS.S("DeliverType")

    126. 

  126. 			Dim InvoiceContent:InvoiceContent=KS.S("InvoiceContent")

    127. 

  127. 			Dim NeedInvoice:NeedInvoice=KS.ChkClng(KS.S("NeedInvoice"))

    128. 

  128. 			Dim Remark:Remark=KS.S("Remark")

    129. 

  129. 			If NeedInvoice="0" Then 

    130. 

  130. 			   InvoiceContent="不需要发票"

    131. 

  131. 			Else

    132. 

  132. 			   InvoiceContent="需要开据发票，发票信息如下:"&InvoiceContent

    133. 

  133. 			End If

    134. 

  134. 			

    135. 

  135. 			IF ContactMan="" Then

    136. 

  136. 			   Response.Write "请输入收货人姓名！<br/><br/>" &vbcrlf

    137. 

  137. 			   Response.Write "<anchor><prev/>还回上级</anchor><br/>" &vbcrlf

    138. 

  138. 			   Exit Sub

    139. 

  139. 			End IF

    140. 

  140. 			IF Address="" Then

    141. 

  141. 			   Response.Write "请输入收货人地址！<br/><br/>" &vbcrlf

    142. 

  142. 			   Response.Write "<anchor><prev/>还回上级</anchor><br/>" &vbcrlf

    143. 

  143. 			   Exit Sub

    144. 

  144. 			End IF

    145. 

  145. 			IF ZipCode="" Then

    146. 

  146. 			   Response.Write "请输入收货人邮编！<br/><br/>" &vbcrlf

    147. 

  147. 			   Response.Write "<anchor><prev/>还回上级</anchor><br/>" &vbcrlf

    148. 

  148. 			   Exit Sub

    149. 

  149. 			End IF

    150. 

  150. 			IF Phone="" Then

    151. 

  151. 			   Response.Write "请输入收货人电话！<br/><br/>" &vbcrlf

    152. 

  152. 			   Response.Write "<anchor><prev/>还回上级</anchor><br/>" &vbcrlf

    153. 

  153. 			   Exit Sub

    154. 

  154. 			End IF

    155. 

  155. 			IF Email="" Then

    156. 

  156. 			   Response.Write "请输入收货人的Email！<br/><br/>" &vbcrlf

    157. 

  157. 			   Response.Write "<anchor><prev/>还回上级</anchor><br/>" &vbcrlf

    158. 

  158. 			   Exit Sub

    159. 

  159. 			Else

    160. 

  160. 			   If KS.IsValidEmail(Email)=false Then

    161. 

  161. 			      Response.Write "请输入正确的电子邮箱！<br/><br/>" &vbcrlf

    162. 

  162. 				  Response.Write "<anchor><prev/>还回上级</anchor><br/>" &vbcrlf

    163. 

  163. 				  Exit Sub

    164. 

  164. 				End If

    165. 

  165. 			End IF

    166. 

  166. 	

    167. 

  167. 			Response.Write "请认真核对你的收货信息<br/>" &vbcrlf

    168. 

  168. 			Response.Write "收货人姓名:"&ContactMan&"<br/>" &vbcrlf

    169. 

  169.             Response.Write "收货人地址:"&Address&"<br/>" &vbcrlf

    170. 

  170.             Response.Write "收货人邮编:"&ZipCode&"<br/>" &vbcrlf

    171. 

  171.             Response.Write "收货人电话:"&Phone&"<br/>" &vbcrlf

    172. 

  172.             Response.Write "收货人邮箱:"&Email&"<br/>" &vbcrlf

    173. 

  173.             Response.Write "收货人手机:"&Mobile&"<br/>" &vbcrlf

    174. 

  174.             Response.Write "收货人ＱＱ:"&QQ&"<br/>" &vbcrlf

    175. 

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

    176. 

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

    177. 

  177.             Response.Write "发票信息:"&InvoiceContent&"<br/>" &vbcrlf

    178. 

  178.             Response.Write "备注留言:"&Remark&"<br/>" &vbcrlf

    179. 

  179.             Response.Write "<anchor>确认提交订单<go href=""Order.asp?"&KS.WapValue&""" method=""post"">" &vbcrlf

    180. 

  180.             Response.Write "<postfield name=""ContactMan"" value="""&ContactMan&"""/>" &vbcrlf

    181. 

  181.             Response.Write "<postfield name=""Address"" value="""&Address&"""/>" &vbcrlf

    182. 

  182.             Response.Write "<postfield name=""ZipCode"" value="""&ZipCode&"""/>" &vbcrlf

    183. 

  183.             Response.Write "<postfield name=""Phone"" value="""&Phone&"""/>" &vbcrlf

    184. 

  184.             Response.Write "<postfield name=""Email"" value="""&Email&"""/>" &vbcrlf

    185. 

  185.             Response.Write "<postfield name=""Mobile"" value="""&Mobile&"""/>" &vbcrlf

    186. 

  186.             Response.Write "<postfield name=""QQ"" value="""&QQ&"""/>" &vbcrlf

    187. 

  187.             Response.Write "<postfield name=""PaymentType"" value="""&PaymentType&"""/>" &vbcrlf

    188. 

  188.             Response.Write "<postfield name=""DeliverType"" value="""&DeliverType&"""/>" &vbcrlf

    189. 

  189.             Response.Write "<postfield name=""InvoiceContent"" value="""&InvoiceContent&"""/>" &vbcrlf

    190. 

  190.             Response.Write "<postfield name=""Remark"" value="""&Remark&"""/>" &vbcrlf

    191. 

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

    192. 

  192. 			Response.Write "<anchor><prev/>返回修改订单</anchor><br/><br/>" &vbcrlf

    193. 

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

    194. 

  194.         End Sub

    195. 

  195. End Class

    196. 

  196. %>

    197. 

  197.