d_khindexmainfrm.asp

一个很好的在线购物系统

                    if currentpage>=rs.pagecount then                             
                       currentpage=rs.pagecount                             
                    else                             
                       if currentpage<1 then                             
                          currentpage=1                             
                       end if                             
                    end if                    
                    line=0    
                    rs.absolutepage=currentpage %>              
                                             
                 <%     for i=1 to rs.pagesize                         
                       line=cint(line)+1         
                       mails(i)=rs("e_mail")						'读数据到mails数组         
                                                    
                  if i mod 2=1 then%>            
 				 <tr  bgcolor="#f7f7f7">               
  				<%else%>            
 				 <tr bgcolor="#EDEBEC">             
      		    <%end if%>    
                          
                         <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>       
                         <%else%>         
 						   <input type="checkbox" name="sc" value="1" onmousedown="qx()">        
   						 <%end if    
   						 %>          
                           </td>        
					 	 <input type="hidden"  name=<%="m_id"&line%> value=<%=rs.fields("clientnum")%> >                            
                         <td align="center">    
                         <a href="D_khindexsubfrm.asp?par_id=<%=rs.Fields("clientnum")%>&page1=<%=currentpage%>&lookup=Lookup"><%=rs.Fields("clientName")%></a>　</td>                                                             
                         <%    
                         if rs.Fields("Area")<>"" then%>                            
                             <td align="center"><%=rs.Fields("Area")%>　</td>                            
                         <%else%>                            
                             <td >　</td>                            
                         <%end if%>                                
                         <%if rs.Fields("Occupation")<>"" then%>                            
                             <td align="center"><%=rs.Fields("Occupation")%>　</td>                            
                         <%else%>                            
                             <td >　</td>                            
                         <%end if%>                             
                         <%if rs.Fields("Telophone")<>"" then%>                            
                             <td align="center"><%=rs.Fields("Telophone")%>　</td>                            
                         <%else%>                            
                             <td >　</td>                            
                         <%end if%>                             
                         <%if rs.Fields("Fax")<>"" then%>                            
                             <td align="center"><%=rs.Fields("Fax")%>　</td>                            
                         <%else%>                            
                             <td>　</td>                            
                         <%end if%>                            
                         <%if rs.Fields("stuffnum")<>"" then    
                         ywymc=rs.Fields("stuffnum")    
                         ywysql="select name from a_stuffinfo where stuffnum='"&ywymc&"'"    
                         set ywyrs=pubconn.execute(ywysql)    
                         %>                            
                             <td align="center"><%=ywyrs("name")%></td>                            
                         <%else%>                            
                             <td >　</td>                            
                         <%end if%>                            
                      </tr>                            
                      <%rs.MoveNext %>                            
                      <%if rs.EOF then exit for%>                            
                 <%next%>                            
                    <Script Language="VBscript">          
  					  Sub SendMailClick()  '给所选中的单位发送电子邮件         
   					  	         
 						dim mails(20)         
 						dim sm			  '要发送的电子邮件集合	         
 						<% For i=1 to rs.pageSize %>          
 							mails(<%=i%>)="<%=mails(i)%>"         
  						<% next %>         
  						         
 						for each items in document.forms(1).elements                      
  							if items.type="checkbox" then                      
  								if items.checked="True" then                      
  									myid=ccur(mid(items.name,9,2))                      
  									if mails(myid)<>"" then                      
  										if sm<>"" then                      
  											sm=sm+","+mails(myid)                      
  										else                      
  											sm=sm+mails(myid)                      
  										end if                      
  									end if                      
  								end if  									                      
  							end if    											                      
  						next         
 	  				           
					  if sm="" then         
 		  				 msgbox "请至少选择一个有效的电子邮件地址！",48,"错误信息"         
 	  				  else         
 		 				sm="mailto:"+sm         
 		 				document.location.href=sm         
   	  				  end if         
  					End Sub         
				       </Script>          
                          
                  <input type="hidden" name="line" value="<%=line%>">           
                 </table>         <br>                                       
               <font size="2">                                       
             共<%=rs.pagecount%>页    
                                  
                 <a href="D_khindexmainfrm.asp?currentpage=1&bz=<%=bz%>&xxly=<%=xxly%>&hy=<%=hy%>&qy=<%=qy%>&amp;xsbm=<%=xsbm%>&amp;khmc=<%=khmc%>&ywy=<%=ywy%>">第一页</a>                                   
                                           
           <%if currentpage<pagenum then%>                                                                     
                 <a href="D_khindexmainfrm.asp?currentpage=<%=(currentpage+1)%>&bz=<%=bz%>&xxly=<%=xxly%>&hy=<%=hy%>&qy=<%=qy%>&amp;xsbm=<%=xsbm%>&amp;khmc=<%=khmc%>&ywy=<%=ywy%>">下一页</a>                                                                    
                 <% else%>                                                                    
                  下一页                                                                    
                 <%end if                                                            
                 if currentpage>1 then%>                                                                  
                 <a href="D_khindexmainfrm.asp?currentpage=<%=(currentpage-1)%>&bz=<%=bz%>&xxly=<%=xxly%>&hy=<%=hy%>&qy=<%=qy%>&amp;xsbm=<%=xsbm%>&amp;khmc=<%=khmc%>&ywy=<%=ywy%>%>">上一页</a>                                                                    
                 <% else %>                                                                   
                  上一页                                                                    
                 <% end if    
                 %>                                
                   <a href="D_khindexmainfrm.asp?currentpage=<%=rs.PageCount%>&bz=<%=bz%>&xxly=<%=xxly%>&hy=<%=hy%>&qy=<%=qy%>&amp;xsbm=<%=xsbm%>&amp;khmc=<%=khmc%>&ywy=<%=ywy%>">最后一页</a>                                            
               </font>     
               <select name="page1" >                                     
                <%                            
                for j=1 to rs.pagecount%>                                     
                   <option value=<%=j%>><%=j%>                                     
                <%next%>                                        
             </select>                              
       <%if bz="" then%>                          
           <input type="button" value="Go" name="pagebtn" onclick="win1()" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                           
            <%else%>                          
         <input type="button" value="Go" name="pagebtn" onclick="win()" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                          
        <%end if%>      
    <a href="javascript:window.print()" target="_self">打印</a>
                                     
             <hr size="1"> <%else%>    
 <p align="center">                                             
<font size="2">经查询，没有记录显示!<br><br><br><br>           
<% end if%>           
     <%if userclass>1 then%>                           
  <input type="button" value="新增" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="javascript:location.href='d_khindexsubfrm.asp?b1=新增'">                               
<%else%>           
  <input type="button" value="新增" onclick="javascript:location.href='qx.asp'" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="javascript:location.href='d_khindexsubfrm.asp'">                                
<%end if%>              
       
         
 <input type="submit" value="删除" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" >                  
 <%if userclass>1 then%>             
 <input type="button" value="发送邮件" name="SendMail" onclick="SendMailClick()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">                  
  <%else%>           
  <input type="button" value="发送邮件" onclick="javascript:location.href='qx.asp'" name="sendmail" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">                                
<%end if%>                 
       
   </form>      
                           
<table border="0" width="100%" cellspacing="0" cellpadding="0">    
  <tr>    
    <td width="16%" align="center"><A      
                        href="D_KHMainFrm.asp?par_type=潜在客户">潜在客户</A></td>    
    <td width="16%" align="center"><A      
                        href="D_KHMainFrm.asp?par_type=预期客户">预期客户</A>      
    </td>    
    <td width="17%" align="center"><A      
                        href="D_KHMainFrm.asp?par_type=首次购买客户">首次购买客户</A>      
    </td>    
    <td width="17%" align="center"><A      
                        href="D_KHMainFrm.asp?par_type=重复购买客户">重复购买客户</A>      
    </td>    
    <td width="17%" align="center"><A      
                        href="D_KHMainFrm.asp?par_type=忠诚客户">忠诚客户</A>      
    </td>    
    <td width="17%" align="center"><A      
                        href="D_KHMainFrm.asp?par_type=拒绝客户">拒绝客户</A>      
    </td>    
  </tr>    
</table>    
           
</BODY>