关于购物积分源码的问题,请高手指教!
以下是我的一个有问题的源代码,问题就是每次购物,不管商品积分是多少,积分每次都是累计10,不会按实际分数计算,麻烦高手们指教修改。谢谢!
Sum = 0
While Not rs.eof
buynum=split(replace(buylist,"'",""),", ")
for i=0 to ubound(buynum)
if rs("prodid")=buynum(i) then
Quatity=buynum(i+1)
exit for
end if
next
if not isNumeric(Quatity) then Quatity=1
If Quatity <= 0 Then Quatity = 1
Sum = Sum + csng(rs("PriceList"))*Quatity*checkuserkou()/10
shichangSum = shichangSum + csng(rs("PriceOrigin"))*Quatity*checkuserkou()/10
jifenSum = jifenSum + csng(rs("jifenzhi"))*Quatity
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center" valign="middle"><input type="hidden" name="ProdId" value="<%=rs("ProdId")%>">
<a href='list.asp?ProdId=<%=rs("ProdId")%>'><%=rs("ProdName")%></a></td>
<td align="center" class="shich_cont"><%=FormatNum(rs("PriceOrigin"),2)%></td>
<td align="center"><font color="#FF0000"><b><%=FormatNum(rs("PriceList"),2)%></b></font></td>
<td align="center"><font color="#FF0000"><b>
<% if request.cookies("buyok")("userid")="" then
response.write "<a href='alogin.asp'><font color=red>"&huiyuanjia&"</font></a><br>"
else
response.write "<font color=red>"&FormatNum(rs("PriceList")*checkuserkou()/10,2)&"</font><br>"
end if
%>
</b></font></td>
<td align="center"> <input type="Text" name="<%=rs("ProdId")%>" value="<%=Quatity%>" size="4" maxlength="4" class="smallInput" >
<input type="submit" name="order" value="修改"> </td>
<td align=center><font color="#FF0000"><%=FormatNum(rs("PriceList")*Quatity*checkuserkou()/10,2)%></font></td>
<td align=center><%=rs("jifenzhi")%></td>
<td align=center><a href=check.asp?del=<%=rs("ProdId")%>>删除</a></td>
</tr>
<%
rs.MoveNext
Wend
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
<tr align="left">
<td colspan="6" bgcolor="#ffffff" height=35><table width="724" height="35" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="620">购物款总计:<font color="#FF0000">¥<%=FormatNum(Sum,2)%></font>
节省:<font color="#A72B31">¥<%=FormatNum(shichangsum-sum,2)%></font>
共获得积分:<font color="#FF0000"><%=jifensum%></font> </td>
<td> </td>