d_khmainfrm.asp

一个很好的在线购物系统

                 Highm_AssetScale=trim(request("m_AssetScale"))
                 Highm_benefitstatus=trim(request("m_benefitstatus"))
                 Highm_InformationSource=trim(request("m_InformationSource"))
                 sql=GetHighSql(Highm_clientname,Highm_type,Highm_level,Highm_BelongDepart,Highm_careeror,Highm_Area,Highm_occupation,Highm_AssetScale,Highm_benefitstatus,Highm_InformationSource)
                 rs.Open sql,pubconn,1,3
                 m_name1=""
                 m_type1=trim(Request("m_type"))
                 m_level1=""
              else          '''''''''''''''''''''''''''''''''''''''''''高级查询后的操作翻页
                 HightSearch=trim(request("HightSearch")) 
                 
                 if  HightSearch="True" then
                     temp1="#ffffff" 
                     temp2="#ffffcc" 
                     HightSearch=trim(request("HightSearch"))
                     Highm_clientname=trim(Request("Highm_clientname"))
                     Highm_type=trim(Request("Highm_type"))
                     Highm_level=trim(Request("Highm_level"))
                     Highm_BelongDepart=trim(request("Highm_BelongDepart"))
                     Highm_careeror=trim(request("Highm_careeror"))
                     Highm_Area=trim(request("Highm_Area"))
                     Highm_occupation=trim(request("Highm_occupation"))
                     Highm_AssetScale=trim(request("Highm_AssetScale"))
                     Highm_benefitstatus=trim(request("Highm_benefitstatus"))
                     Highm_InformationSource=trim(request("Highm_InformationSource"))
                     sql=GetHighSql(Highm_clientname,Highm_type,Highm_level,Highm_BelongDepart,Highm_careeror,Highm_Area,Highm_occupation,Highm_AssetScale,Highm_benefitstatus,Highm_InformationSource)
                     rs.Open sql,pubconn,1,3
                     m_name1=""
                     m_type1=trim(Request("m_type"))
                     m_level1=""     
                 else                                       '第一次装载        
                     m_name1=trim(Request("par_name"))
                     m_type1=trim(Request("par_type"))
                     m_level1=trim(Request("par_level"))                           
                     sql=GetSql(m_name1,m_type1,m_level1)
                     rs.Open sql,pubconn,1,3
                     'response.write sql
                 end if    
              end if%>
      <%end if%>     
       
          
          <form name=form1 method="post" action="D_khsubFrm.asp">               
               <table border="0" width="100%">
                <tr>
                 <td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15">  <b><font size="2">客户信息</font></b><hr width="40%" align="left" color="#C0C0C0" size="1"></td>   
                </tr>   
               </table>   
               <br><table border=1 cellspacing=0 width="100%" cellpadding="0" bordercolorlight="#FFFFFF" bordercolor="#000000" height="45">   
                  <tr bgcolor="F1E8DA">                       
                     <td align="right" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="14%">  
                     <p align="right"> 
                     客户名称</p> 
                     </td><td align="left" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="20%"><input type="text" name="m_name" size=24 value=<%=m_name1%>></td>  
                      
                      <input type="hidden" name="m_type" value=<%=m_type1%>>  
                       
                <%if m_type1="首次购买客户" or m_type1="重复购买客户" or m_type1="忠诚客户" then%>  
                                          
                      <td align="center" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="12%">
                        <p align="right">客户级别</p>
                     </td><td align="center" bordercolorlight="#F1E8DA" bordercolor="#F1E8DA" width="14%"> 
                      <select name="m_level" style="width:100">    
                             <option value="">请选择：    
                             <%if m_level1="战略客户" then%>    
                                  <option value="战略客户" selected>战略客户    
                             <%else%>    
                                  <option value="战略客户">战略客户    
                             <%end if%>         
                             <%if m_level1="价值客户" then%>    
                                  <option value="价值客户" selected>价值客户    
                             <%else%>    
                                  <option value="价值客户">价值客户    
                             <%end if%>         
                             <%if m_level1="一般客户" then%>    
                                   <option value="一般客户" selected>一般客户    
                             <%else%>    
                                   <option value="一般客户">一般客户    
                             <%end if%>                                                                      
                          </select></td>   
                <%else%>                      
                  <input type="hidden" name="m_level" value=<%=m_level1%>> 
                <%end if%>           
                      <td align="left" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">&nbsp;<input type="button" name="Search" value="查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"  onclick="Search_click()" >&nbsp;                                                                      
                      <input type="button" name="Search" value="高级查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="HighSearch_click()"></td>                                                   
                   </tr>                                                     
                 </table>                                                    
               <br>                                                  
                                                              
                <%if rs.RecordCount <=0 then%>                                                 
                     <table border=1 cellspacing="0" width="100%" bgcolor="#D1D1D1">                                                    
                       <tr>                                                    
                          <td bgcolor="#DDD2C4">&nbsp;</td>                                                  
                          <td bgcolor="#DDD2C4" ><p align="center">客户名称</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">客户类型</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">客户级别</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">区域</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">行业</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">电话</p></td>                                                   
                          <td bgcolor="#DDD2C4"><p align="center">传真</p></td>                                                   
                          <td bgcolor="#DDD2C4"><p align="center">业务员</p></td>                                                   
                       </tr>                                                           
                                                                      
                       </table><hr size="1" color="#808080">                                                   
                     <input type="hidden" name="page1" value=<%=page1%>>                                                  
                     <%'response.end%>                                              
                     <%'<input type="submit" value="新建" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" >                                   %>                                              
                <%else%>                                                             
                  <table border=1 cellspacing="0" width="100%" bgcolor="#D1D1D1">                                                    
                       <tr>                                                    
                          <td bgcolor="#DDD2C4">&nbsp;</td>                                                  
                          <td bgcolor="#DDD2C4" ><p align="center">客户名称</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">客户类型</p></td>                                
                          <%if m_type1="首次购买客户" or m_type1="重复购买客户" or m_type1="忠诚客户" then%>                                                  
                          <td bgcolor="#DDD2C4" ><p align="center">客户级别</p></td>                                                   
                          <%end if%>                               
                          <td bgcolor="#DDD2C4" ><p align="center">区域</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">行业</p></td>                                                   
                          <td bgcolor="#DDD2C4" ><p align="center">电话</p></td>                                                   
                          <td bgcolor="#DDD2C4"><p align="center">传真</p></td>                                                   
                          <td bgcolor="#DDD2C4"><p align="center">业务员</p></td>                                                   
                       </tr>                                                   
                  <%if request("page1")<>"" then                                                                
                       page1=cint(request("page1"))                                                              
                    else                                                               
                       page1=1                                                               
                    end if                                                               
                    rs.pagesize=10                        
                                         
                    '//重新定义电子邮件大小                     
                    redim mails(rs.pagesize)                     
                                                           
                    if page1>=rs.pagecount then                                                               
                       page1=rs.pagecount                                                               
                    else                                                               
                       if page1<1 then                                                               
                          page1=1                                                               
                       end if                                                               
                    end if                                                               
                    rs.absolutepage=page1                                                              
                    line=0%>                                                
                                                                                  
                 <%for i=1 to rs.PageSize                                                              
                       line=cint(line)+1                     
                                            
                       '//读数据到mails中去                     
                       mails(i)=rs("e_mail")						'读数据到mails数组                     
                     
                       %>                                                               
                       <%if  i mod 2 =0 then%>                                                             
                         <%backcolor="#f7f7f7"%>                                                             
                       <%else%>                                                                                
                         <%backcolor="#EDEBEC"%>                                                             
                       <%end if%>                                                                                         
                      <tr bgcolor=<%=backcolor%>>                                                             
                         <td width="18">                 
        		 <%if (userclass=2 and username=rs("authors") and departid=rs("departid")) or (userclass=3 and departid=rs("departid")) then%>                                                
                          <input type="checkbox"  name=<%="checkbox"&line%> value=1 id=checkbox1></td>                                                              
                      <%else%>                   
 						   <input type="checkbox" name="sc" value="1" onmousedown="qx()">                  
   						 <%end if%>                       
					 <input type="hidden"  name=<%="m_id"&line%> value=<%=rs.fields("clientnum")%> id=hidden1>                                                              
                         <td align="center"><a href="D_khsubFrm.asp?par_id=<%=rs.Fields("clientnum")%>&page1=<%=page1%>&lookup=<%=tag1%>&par_name=<%=m_name1%>&par_type=<%=m_type1%>&par_level=<%=m_level1%>"><%=rs.Fields("clientName")%></a></td>                                                              
                         <%if rs.fields("type")<>"" then%>                                                                                       
                             <td align="center"><%=rs.Fields("Type")%></td>                                                              
                         <%else%>                                                              
                             <td >&nbsp;</td>                                                              
                         <%end if%>                                
                      <%if m_type1="首次购买客户" or m_type1="重复购买客户" or m_type1="忠诚客户" then%>                                                             
                         <%if rs.fields("level")<>"" then%>                                                              
                             <td align="center"><%=rs.Fields("Level")%></td>                                                              
                         <%else%>                                                              
                             <td>&nbsp;</td>                                                              
                         <%end if%>                                                                  
                      <%end if%>                                 
                         <%if rs.Fields("Area")<>"" then%>                                                              
                             <td align="center"><%=rs.Fields("Area")%></td>                                                              
                         <%else%>