28,390
社区成员
发帖
与我相关
我的任务
分享
Price_USD1=8,787.50
Price_USD2=8,740.00
Price_USD3=8,721.00
Price_USD4=8,692.50
Price_USD5=8,645.00
Price_typeid1=1
Price_typeid2=10
Price_typeid3=50
Price_typeid4=100
Price_typeid5=200
if ProdNum>=Price_typeid1 and ProdNum<Price_typeid2 then
jiage=Price_USD1
elseif ProdNum>=Price_typeid2 and ProdNum<Price_typeid3 then
jiage=Price_USD2
elseif ProdNum>=Price_typeid3 and ProdNum<Price_typeid4 then
jiage=Price_USD3
elseif ProdNum>=Price_typeid4 and ProdNum<Price_typeid5 then
jiage=Price_USD4
elseif ProdNum>=Price_typeid5 then
jiage=Price_USD5
end if
<%
Dim strPrizeName
'http响应的部分内容:prize=prize_1_name,prize_2_name,prize_3_name
'数组中样式:array("prize_1_name","prize_2_name","prize_3_name")
strPrizeName=Split(Request.form("prize"),",")
for i=1 to UBound(strPrizeName)+1
'此处可能产生前或后的空格,用Trim踢掉
Dim currItem:currItem=Trim(strPrizeName(i-1))
'单价
'strPrizeName(i-1)=prize_1_name 如果i=1
'Right(strPrizeName(i-1),4)=name
'Replace(strPrizeName(i-1),Right(strPrizeName(i-1),4),"unit")=单价的名称
Dim tmpUnit:tmpUnit=Replace(currItem,Right(currItem,4),"unit")
tmpUnit=Request.Form(tmpUnit)
'数量
'Left(strPrizeName(i-1),7)=prize_1
Dim tmpNumber:tmpNumber=Left(currItem,7)
tmpNumber=Request.Form(tmpNumber)
'消费金额
'单价*数量
Dim tmpBalance:tmpBalance=Int(Abs(tmpUnit))*Int(Abs(tmpNumber))
Response.Write "礼品"&i&"-->名称:"&currItem&"单价:"&tmpUnit&"数量:"&tmpNumber&"金额:"&tmpBalance&"<br/>"
next
%>