config_send.asp

鄂尔多斯建站网全站程序(冬季修正版)

sub my_basket 
set rs=server.createobject("adodb.recordset") 
sql="select * from basket where d_webname='"&session("d_webname")&"' and basket_check=false order by basket_id desc" 
rs.open sql,conn,3,3 
%> 
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#404040" height="91">        
  <tr bgcolor="#333333"> 
    <td width="105%" height="22" colspan="5"> 
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr bgcolor="#333333"> 
          <td width="20%" height="20" align="center"><font color="#FFFFFF">商品名称</font></td>       
          <td width="20%" height="20" align="center"><font color="#FFFFFF">商品单价</font></td>       
          <td width="20%" height="20" align="center"><font color="#FFFFFF">订购数量</font></td>       
          <td width="20%" height="20" align="center"><font color="#FFFFFF">商品总额</font></td>       
          <td width="20%" height="20" align="center"><font color="#FFFFFF">删除商品</font></td>       
        </tr>       
      </table>       
    </td>       
  </tr> 
  <%if rs.eof then%>       
  <tr>       
    <td width="100%" bgcolor="#FFFFFF" align="center" height="29" colspan="5">未选购任何商品</td>       
  </tr> 
   <%else 
   do while not rs.eof%> 
  <tr>       
    <td width="20%" bgcolor="#FFFFFF" align="center" height="25"><%=rs("sort_name")%></td>       
    <td width="20%" bgcolor="#FFFFFF" align="center" height="25"><%=rs("price")%>/元</td>       
    <td width="20%" bgcolor="#FFFFFF" align="center" height="25"><%=rs("basket_count")%></td>       
    <td width="20%" bgcolor="#FFFFFF" align="center" height="25"><%=rs("basket_count")*rs("price")%>元</td>     
    <td width="20%" bgcolor="#FFFFFF" align="center" height="25">[ <a href="del.asp?action=del&basket_id=<%=rs("basket_id")%>">删除</a> ]</td>                                                                                                                                                                
  </tr>                                                                                                                 
 <%totalcash=totalcash+(rs("basket_count")*rs("price"))%>                                                                                                                                               
  <%rs.movenext                                                                                                                                                  
    loop                                                                                                                                                  
    end if                                                                                                                                                  
    rs.close                                                                                                                                                  
    set rs=nothing                                                                                                                                                  
  %>                                                                                                                                                  
  <tr>                                                                                                                                                        
    <td width="100%" bgcolor="#FFFFFF" height="15" colspan="5">                                                                                                                                                  
      <table border="0" cellpadding="0" cellspacing="0" width="100%">                                                                                                              
       <form method="post" action="basket_2.asp?totalcash=<%=totalcash%>">                                                                                                                                                  
        <tr>                                                                                                                                                  
          <td width="50%" height="29">                                                                                                                                                  
            <p align="center"><input class=button type=button value="继续购物" onclick="javascript:window.open('index.asp','_self','')" name="B4" style="background-color: #FFFFFF">&nbsp;               
            <input type="submit" value="收 银 台" name="B3" style="background-color: #FFFFFF">                                                                                                                                                      
          </td>                                                                                                                                                     
          <td width="50%" height="29"></td>                                                                                                                                                  
        </tr>                                                                                                                                                
        </form>                                                                                                                                                              
      </table>                                                                                                                                                  
    </td>                                                                                                                                                          
  </tr>                                                                                                                                                    
  <tr>                                                                                                                                                          
    <td width="100%" bgcolor="#FFFFFF" height="25" colspan="5">&nbsp; 总 额：<font color="#FF0000"><b><%=totalcash%></b></font>元</td>                                                                                                                                                                            
  </tr>                                                                                                                                                        
</table>                                                                                                                                                         
<%end sub                                                                                                                                                  
                                                                                                                                                  
sub basket_2                                                                                                                                                
    Set rs2 = Server.CreateObject("ADODB.Recordset")                                                                                                                                                
    sql="select * from basket where d_webname='"&session("d_webname")&"' and basket_check=false"                                                                                                                                                
    rs2.open sql,conn,3,3                                                                                                                                                
    if rs2.eof then                                                                                                                                                
        response.redirect("basket.asp")                                                                                                                                                
        response.end                                                                                                                                                
    else                                                                                                                                                
    on error resume next                                                                                                                                                
        sub_number=session("d_webname")&now()                                                                                                                                                
        sub_number=replace(sub_number,"-","")                                                                                                                                                
        sub_number=replace(sub_number," ","")                                                                                                                                                
        sub_number=replace(sub_number,":","")                                                                                                                                                
        do while not rs2.eof                                                                                                                                                
        rs2("basket_check")=true                                                                                                                                                
        rs2("sub_number")=sub_number                                                                                                                                                
                                                                                                                                                        
        rs2.movenext                                                                                                                                                
        loop                                                                                                                                                
        rs2.update                                                                                                                                                
    end if                                                                                                                                                
    rs2.close                                                                                                                                                
                                                                                                                                                    
    sql="select * from sub"                                                                                                                                                
    rs2.open sql,conn,3,3                                                                                                                                                
    rs2.addnew                                                                                                                                                
    rs2("d_webname")=session("d_webname")                                                                                                                                                
    rs2("sub_number")=sub_number                                                                                                                                                
    rs2.update                                                                                                                                                
    rs2.close                                                                                                                                      
    '=======================================================================                                                                                                                            
    Set rs = Server.CreateObject("ADODB.Recordset")                                                                                                                                             
    sql="select * from duser where d_webname='"&session("d_webname")&"'"                                                                                                                                             
    rs.open sql,conn,3,3                    
                                                                                                                                    
    %>                                                                                                                                                  
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#404040">                                                                                                                                                 
  <tr>                                                                                                                                                 
    <td width="100%" bgcolor="#FFFFFF">                                                                                                                                                 
      <table border="0" cellpadding="0" cellspacing="0" width="100%">                                                                                                                                                
        <tr>                                                                                                                                                
          <td width="18%" bgcolor="#999999" height="20">