购物积分源码有问题,请求高手支援!

gsky2004 2009-08-02 10:15:46
以下是我的一个有问题的源代码,问题就是每次购物,不管商品积分是多少,积分每次都是累计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>
...全文
7 点赞 收藏 回复
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告