d_linkmanbrow.asp

一个很好的在线购物系统

    <td width="4%" height="24" align="center"  bgcolor="#DDD2C4">                                                                                                   
     详细                    
     </td>                                                                                                                   
                                                                                                                     
  </tr>                                                                                                                 
                                                                                                                 
   <% for n=1  to rslxr.pagesize

           mails(n)=rslxr("e_mail")  
        
   %>   
                               
        <%if  n mod 2=1 then                                           
            bg="#f7f7f7"                                             
       else                                           
            bg="#EDEBEC"                                            
       end if%>                                                                                                               
                                                                                                                   
  <tr bgcolor="<%=bg%>">                                                                               
                                                                                          
                                                                                                                 
    <td width="2%" height="23" align="center" width="122"><font size="2"></font>                       
     <input type="checkbox" name="xz" value="<%=n%>" <%if rslxr("Authors")<>Session("UserName")  then%>  disabled <%end if %>></td>                  
     <input type="hidden" name="LxrID<%=n%>" value="<%=rslxr("ID")%>"> 
  
                                                                                                      
      <td width="20%" height="23" align="center" width="131"><font size="2"><%=rslxr("ClientName")%> </font></td>                             
                                                                                                                 
      <td width="8%" height="23" align="center" width="131"><font size="2"><%=rslxr("linkMan")%> </font></td>                             
                                                                                                                 
      <td width="15%" height="23" align="center" width="84"><font size="2"><%=rslxr("HeadShip")%>&nbsp;                            
       </font>                            
    </td>                                                                                                              
      <td width="12%" height="23" align="center" width="98"><font size="2"><%=rslxr("e_mail")%>&nbsp;                            
       </font>                            
    </td>                                                                                                              
      <td width="10%" height="23" align="center" width="120"><font size="2"></font><%=rslxr("AttionPoint")%>&nbsp;</td>                                                                                                              
                                  
                                                                                                     
      <td width="4%" height="23" align="center" width="146"><font size="2"></font>                  
                          
<font size="2">                                                                                                   
     <a href="D_linkManDetail.asp?id=<%=rslxr("id")%>">详细</a>                  
       </font>                  
                          
     </td>                                                                                                  
  </tr>                                                                                                  
  <%                                                                                                  
     rslxr.movenext                                                                                                  
     if rslxr.eof then exit for                                                                                                  
  next                                                                                                  
  %>                                                                                                                 
 </table>                                                                                                                 
 <Script Language="VBscript">                                            
  					  Sub Sendto()  '给所选中的单位发送电子邮件                      
 						dim mails(20)                      
 						dim sm			  '要发送的电子邮件集合	                      
 						<% For n=1 to rslxr.pageSize %>                       
 							mails(<%=n%>)="<%=mails(n)%>"                      
  						<% next %>                      
  						                      
 						for each items in document.forms(1).elements  
  							if items.type="checkbox" then
  								if items.checked="True" then                      
  									myid=ccur(items.value)
  									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>
                                                                                                 
 </center>                          
</div>                          
                                                                                                
</center>                          
                                                                                                
<p align="left">                                                                                               
<font size="2">                                                                                                                
   共<%=rslxr.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="D_linkManbrow.asp?page=1&khmc=<%=khmc%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                      
   <a href="D_linkManbrow.asp?page=<%=(page-1)%>&khmc=<%=khmc%>">上页</a>&nbsp;                                                                                                                                     
   <% else%>                                                                                                                                    
   上页&nbsp;                                                                                                                                     
  <%  end if%>                                                                                                                                    
    <%if page<rslxr.pagecount then %>                                                                                                                                    
   <a href="D_linkManbrow.asp?page=<%=(page+1)%>&khmc=<%=khmc%>">下页</a>&nbsp;                                                                                                                                     
   <% else %>                                                                                                                                   
   下页&nbsp;                                                                                                                                     
  <%end if%><a href="D_linkManbrow.asp?page=<%=rslxr.pagecount%>&khmc=<%=khmc%>">尾页</a>&nbsp;&nbsp;</font>                                         
                                         
                                        
                                                                                                                                
      <select  name="page1" style="width:80" size="1">                                                     
                                                          
                                          
       <% for pcount=1 to rslxr.pagecount%>                                                                           
         <option value="<%=pcount%>">第<%=pcount%>页</option>                                        
       <%next%>                                                              
                                                                      
      </select><input type="button" value="GO" onclick="Gopage()"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                          
   &nbsp; <a href="javascript:window.print()" target="_self">打印</a>
                 
                   
    <br>        <br>        
 <input type="button" value="新增"  onclick="location.href='D_LinkMan.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                         
                       
 <input type="submit" value="删除"  name="del" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                           
 
 <input type="button" value="发送电子邮件"  onclick="sendto()"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                         
                               
                                               
 </form>                     
                                                                                                              
<%                   
rslxr.close                 
set rslxr=nothing                 
 end if %>                                  
                               
                                  
 </font>             
                               
                                  
</body>