ASP网上购书(九)

;
      <td width="11%" bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">折扣</font></div></td>
      <td width="7%" bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">数量</font></div></td>
      <td width="12%" bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">小计</font></div></td>
      <td width="9%" bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">修改数量</font></div></td>
‘并且计算出你购买了几本书籍，打折后总共应该付多少钱。
<%dim iii '定义总价
   iii=0
   dim bookscount,books '定义判断有几个bookid
   bookscount=request.QueryString("id").count
   do while not rs.eof
 dim quatity '判断input 名
  Quatity = CInt( Request( "ckxp"&rs("bookid")) )
 If Quatity <=0 Then Quatity = 1
 %>
    <tr>
      <td bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 5px'><%=trim(rs("bookname"))%>
        <input type=hidden name=bookname value=<%=trim(rs("bookname"))%>></td>
      <td bgcolor="#EFF5FE"><div align="center"><%=formatnumber(rs("shichangjia"),2)&"元"%></div></td>
      <input type=hidden name=huiyuanjia value=<%=rs("huiyuanjia")%>>
      <td bgcolor="#EFF5FE"><div align="center"><%=formatnumber(rs("dazhe")*100,2)&"%"%></div></td>
      <td bgcolor="#EFF5FE"><div align="center">
          <input name="<%="ckxp"& rs("bookid")%>" type="text" size="3" value="<%=Quatity%>" onkeypress= "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"onpaste = "return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))"ondrop= "return regInput(this,/^[0-9]*$/,event.dataTransfer.getData('Text'))">
        </div></td>
      <td bgcolor="#EFF5FE"><div align="center">
          <%if Quatity<=1 then
   response.write formatnumber(rs("huiyuanjia")*1,2)&"元"
   else
   response.write formatnumber(rs("huiyuanjia")*Quatity,2)&"元"
   end if
    iii=formatnumber(rs("huiyuanjia")*Quatity+iii,2 )
   %>
‘如果还没有确定要购买，需要进行修改的话
<input type="submit" name="Submit" value="修改"  onclick="this.form.action='shopping.asp?id=<%=bookid%>';this.form.submit()">
‘计算出总计：
<%if bookscount=1 then books=rs("bookid")
 rs.movenext
 loop
 rs.close
   set rs=nothing%>
    <tr bgcolor="#EFF5FE">
 &

首页 上一页 6 7 8 9 10 11 12 下一页 尾页 9/12/12

ASP网上购书(九)相关范文