📄 admin_shoppingcart.asp
字号:
Do While Not rsCartItem.EOF
dblAmount = rsCartItem("Quantity")
dblPrice = rsCartItem("Price_Original")
If PE_CLng(UserSetting(30)) = 1 And rsCartItem("EnableWholesale") = True And dblAmount >= rsCartItem("Number_Wholesale1") Then
strSaleType = "批发"
If dblAmount < rsCartItem("Number_Wholesale2") Then
dblTruePrice = rsCartItem("Price_Wholesale1")
Else
If dblAmount < rsCartItem("Number_Wholesale3") Then
dblTruePrice = rsCartItem("Price_Wholesale2")
Else
dblTruePrice = rsCartItem("Price_Wholesale3")
End If
End If
Else
Select Case GroupType
Case 0, 1 '未登录
Select Case rsCartItem("ProductType")
Case 1
dblTruePrice = rsCartItem("Price")
'strProductType = "正常销售"
'strDiscount = "─"
Case 2
'strProductType = "涨价商品"
dblTruePrice = rsCartItem("Price")
'strDiscount = "─"
Case 3
If Date < rsCartItem("BeginDate") Or Date > rsCartItem("EndDate") Then
dblTruePrice = dblPrice
'strProductType = "正常销售"
'strDiscount = "─"
Else
dblTruePrice = rsCartItem("Price")
'strProductType = "特价商品"
'strDiscount = rsCartItem("Discount") & "折"
End If
Case 5
'strProductType = "降价商品"
dblTruePrice = rsCartItem("Price")
'strDiscount = rsCartItem("Discount") & "折"
End Select
Case 2, 3 '注册会员
Select Case rsCartItem("ProductType")
Case 1
If rsCartItem("Price_Member") > 0 Then '如果指定了会员价
dblTruePrice = rsCartItem("Price_Member")
Else
dblTruePrice = rsCartItem("Price") * Discount_Member / 100
End If
Case 2
If rsCartItem("Price_Member") > 0 Then '如果指定了会员价
dblTruePrice = rsCartItem("Price_Member")
Else
dblTruePrice = rsCartItem("Price") * Discount_Member / 100
End If
Case 3, 5
If rsCartItem("ProductType") = 3 Then
If Date < rsCartItem("BeginDate") Or Date > rsCartItem("EndDate") Then
dblTempPrice = dblPrice
Else
dblTempPrice = rsCartItem("Price")
End If
Else
dblTempPrice = rsCartItem("Price")
End If
If rsCartItem("Price_Member") > 0 Then '如果指定了会员价
If rsCartItem("Price_Member") <= dblTempPrice Then
dblTruePrice = rsCartItem("Price_Member")
Else
dblTruePrice = dblTempPrice
End If
Else
If PE_CLng(UserSetting(12)) = 1 Then '如可以享受折上折优惠
dblTruePrice = dblTempPrice * Discount_Member / 100
Else
If dblPrice * Discount_Member / 100 >= dblTempPrice Then
dblTruePrice = dblTempPrice
Else
dblTruePrice = dblPrice * Discount_Member / 100
End If
End If
End If
Case Else
dblTruePrice = rsCart("Price")
End Select
Case 4 '代理商
dblTempPrice = rsCartItem("Price")
If rsCartItem("Price_Agent") > 0 Then '如果指定了代理价
dblTruePrice = rsCartItem("Price_Agent")
Else
If Discount_Member = 100 Then
dblTruePrice = dblTempPrice
Else
If PE_CLng(UserSetting(12)) = 1 Then '如可以享受折上折优惠
dblTruePrice = dblTempPrice * Discount_Member / 100
Else
If rsCartItem("Price_Original") * Discount_Member / 100 >= dblTempPrice Then
dblTruePrice = rsCartItem("Price_Original") * Discount_Member / 100
'strDiscount = Round(Discount_Member / 10, 1) & "折"
Else
dblTruePrice = dblTempPrice
End If
End If
End If
End If
End Select
End If
dblSubtotal = dblTruePrice * dblAmount
dblTotal = dblTotal + dblSubtotal
Response.Write " <tr valign='middle' class='tdbg' height='20'>"
Response.Write " <td width='*'><a href='Admin_Product.asp?Action=Show&ProductID=" & rsCartItem("ProductID") & "' target='_blank'>" & rsCartItem("ProductName") & "</a>"
Response.Write "</td>"
Response.Write " <td width='45' align=center>" & rsCartItem("Unit") & "</td>"
Response.Write " <td width='55' align='center'>" & dblAmount & "</td>"
Response.Write " <td width='85' align='right'>" & FormatNumber(dblPrice, 2, vbTrue, vbFalse, vbTrue) & "</td>"
Response.Write " <td width='85' align='right'>" & FormatNumber(dblTruePrice, 2, vbTrue, vbFalse, vbTrue) & "</td>"
Response.Write " <td width='85' align='right'>" & FormatNumber(dblSubtotal, 2, vbTrue, vbFalse, vbTrue) & "</td>"
Response.Write " <td width='65' align=center>"
If rsCartItem("ServiceTerm") > 0 Then
If DateAdd("yyyy", rsCartItem("ServiceTerm"), rsCartItem("BeginDate")) <= Now() Then
Response.Write "<font color='red'>"
End If
End If
Response.Write GetServiceTerm(rsCartItem("ServiceTerm"))
Response.Write "</td>"
Response.Write " </tr>"
If rsCartItem("SalePromotionType") > 0 And dblAmount >= rsCartItem("MinNumber") Then
Dim PresentNumber
If rsCartItem("SalePromotionType") = 3 Or rsCartItem("SalePromotionType") = 4 Then
PresentNumber = rsCartItem("PresentNumber")
Else
PresentNumber = Int(dblAmount / rsCartItem("MinNumber")) * rsCartItem("PresentNumber")
End If
If rsCartItem("SalePromotionType") = 1 Or rsCartItem("SalePromotionType") = 3 Then
If FoundInArr(PresentList, rsCartItem("ProductID"), ",") = True Then
Response.Write " <tr valign='middle' class='tdbg' height='20'>"
Response.Write " <td width='*'><a href='Admin_Product.asp?Action=Show&ProductID=" & rsCartItem("ProductID") & "' target='_blank'>" & rsCartItem("ProductName") & " <font color='red'>（赠送）</font></a>"
Response.Write "</td>"
Response.Write " <td width='45' align=center>" & rsCartItem("Unit") & "</td>"
Response.Write " <td width='55' align='center'>" & PresentNumber & "</td>"
Response.Write " <td width='85' align='right'>" & FormatNumber(dblPrice, 2, vbTrue, vbFalse, vbTrue) & "</td>"
Response.Write " <td width='85' align='right'>0</td>"
Response.Write " <td width='85' align='right'>0</td>"
Response.Write " <td width='65' align=center>"
If rsCartItem("ServiceTerm") > 0 Then
If DateAdd("yyyy", rsCartItem("ServiceTerm"), rsCartItem("BeginDate")) <= Now() Then
Response.Write "<font color='red'>"
End If
End If
Response.Write GetServiceTerm(rsCartItem("ServiceTerm"))
Response.Write "</td>"
Response.Write " </tr>"
End If
Else
Dim rsPresent, strPresentType
Set rsPresent = Conn.Execute("select * from PE_Product where ProductNum='" & rsCartItem("PresentID") & "' and ProductType=4")
If Not (rsPresent.BOF And rsPresent.EOF) Then
If FoundInArr(PresentList, rsPresent("ProductID"), ",") = True Then
If rsPresent("Price") > 0 Then
strPresentType = "换购"
Else
strPresentType = "赠送"
End If
Response.Write " <tr valign='middle' class='tdbg' height='20'>"
Response.Write " <td width='*'><a href='Admin_Product.asp?Action=Show&ProductID=" & rsPresent("ProductID") & "' target='_blank'>" & rsPresent("ProductName") & " <font color='red'>（" & strPresentType & "）</a>"
Response.Write "</td>"
Response.Write " <td width='45' align=center>" & rsPresent("Unit") & "</td>"
Response.Write " <td width='55' align='center'>" & PresentNumber & "</td>"
Response.Write " <td width='85' align='right'>" & FormatNumber(rsPresent("Price_Original"), 2, vbTrue, vbFalse, vbTrue) & "</td>"
Response.Write " <td width='85' align='right'>" & FormatNumber(rsPresent("Price"), 2, vbTrue, vbFalse, vbTrue) & "</td>"
Response.Write " <td width='85' align='right'>" & FormatNumber(rsPresent("Price") * PresentNumber, 2, vbTrue, vbFalse, vbTrue) & "</td>"
Response.Write " <td width='65' align=center>"
If rsPresent("ServiceTerm") > 0 Then
If DateAdd("yyyy", rsCartItem("ServiceTerm"), rsPresent("BeginDate")) <= Now() Then
Response.Write "<font color='red'>"
End If
End If
Response.Write GetServiceTerm(rsPresent("ServiceTerm"))
Response.Write "</td>"
Response.Write " </tr>"
dblTotal = dblTotal + rsPresent("Price") * PresentNumber
End If
End If
Set rsPresent = Nothing
End If
End If
rsCartItem.MoveNext
Loop
rsCartItem.Close
Set rsCartItem = Nothing
Response.Write " <tr class='tdbg' height='30' >"
Response.Write " <td colspan='5' align='right'><b>合计：</b></td>"
Response.Write " <td align='right'><b>￥" & FormatNumber(dblTotal, 2, vbTrue, vbFalse, vbTrue) & "</b></td>"
Response.Write " <td> </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write " </td>"
Response.Write " </table>"
End Sub
Sub Clear()
Dim DatepartType, TempDate, strDatepart
DatepartType = PE_CLng(Trim(Request("DatepartType")))
Select Case DatepartType
Case 0
TempDate = DateAdd("D", -1, Date)
strDatepart = "1天前"
Case 1
TempDate = DateAdd("D", -7, Date)
strDatepart = "1个星期前"
Case 2
TempDate = DateAdd("M", -1, Date)
strDatepart = "1个月前"
Case 3
TempDate = DateAdd("M", -3, Date)
strDatepart = "3个月前"
End Select
If SystemDatabaseType = "SQL" Then
Conn.Execute ("delete from PE_ShoppingCarts where UpdateTime<'" & TempDate & "'")
Else
Conn.Execute ("delete from PE_ShoppingCarts where UpdateTime<#" & TempDate & "#")
End If
Call WriteSuccessMsg("成功删除了 " & strDatepart & " 的记录！", "Admin_ShoppingCart.asp")
End Sub
Function SelectCart(CartID, IsPresent)
Dim rsCartItem, ProductList
ProductList = ""
If IsPresent = 1 Then
Set rsCartItem = Conn.Execute("select ProductID from PE_ShoppingCarts where CartID='" & CartID & "' and PresentID=1 order by CartItemID desc")
Else
Set rsCartItem = Conn.Execute("select ProductID from PE_ShoppingCarts where CartID='" & CartID & "' and PresentID=0 order by CartItemID desc")
End If
Do While Not rsCartItem.EOF
If ProductList = "" Then
ProductList = rsCartItem("ProductID")
Else
ProductList = ProductList & "," & rsCartItem("ProductID")
End If
rsCartItem.MoveNext
Loop
SelectCart = ProductList
Set rsCartItem = Nothing
End Function
Function GetServiceTerm(ServiceTerm)
Dim strServiceTerm
Select Case ServiceTerm
Case -1
strServiceTerm = "无限期"
Case 0
strServiceTerm = "无"
Case 1
strServiceTerm = "一年"
Case 2
strServiceTerm = "两年"
Case 3
strServiceTerm = "三年"
Case 4
strServiceTerm = "四年"
Case 5
strServiceTerm = "五年"
Case Else
strServiceTerm = "未知"
End Select
GetServiceTerm = strServiceTerm
End Function
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -