怎样计算折扣

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 怎样计算折扣 (http://www.webasp.net/article/1/769.htm)
-- 作者:未知
-- 发布日期: 2003-04-17
<%@ LANGUAGE = "VBScript"
ENABLESESSIONSTATE = False %>
<%
'Here we request the numeric percentages(%) of
'discount, ie: 2, 5, 10, 20, etc.:
percent_discount = "10"
'For multiplication, let's see if we need to
'add a zero after the decimal:
If Len(percent_discount) > 1 Then pd = "."&percent_discount&"" Else pd = ".0"&percent_discount&""
%>
<html>
<body>
<%
normal_cost = "50"
discounted_cost = normal_cost - (normal_cost * pd)
%>
Normal Cost: <%=FormatCurrency(normal_cost)%><br>
Discounted Cost: <%=FormatCurrency(discounted_cost)%>
</body>
</html>

webasp.net