d_zyrymainfrm.asp

一个很好的在线购物系统

                     <%else%>               
                          <td align="center" height="20">　</td>          
                     <%end if%>          
                     <%if rs.Fields("BirthDay")<>"" then%>          
                          <td  align="center" height="20"><%=rs.Fields("BirthDay")%></td>          
                     <%else%>               
                          <td align="center" height="20">　</td>          
                     <%end if%>          
                     <%if rs.Fields("NativePlace")<>"" then%>          
                          <td  align="center" height="20"><%=rs.Fields("NativePlace")%></td>           
                     <%else%>               
                          <tdalign="center" height="19">       
                     <td align="center" height="20">　</td>         
                     <%end if%>         
                     <%if rs.Fields("Department")<>"" then%>         
                          <td align="center" height="20"><%=rs.Fields("Department")%></td>         
                     <%else%>              
                          <td height="20" >     
                          <p align="center">    
                          　</p>    
                     </td>        
                     <%end if%>        
                     <%if rs.Fields("HeadShip")<>"" then%>        
                         <td height="20"><%=rs.Fields("HeadShip")%></td>        
                     <%else%>            
                         <td height="20">　</td>        
                     <%end if%>         
                     <%if rs.Fields("Telephone")<>"" then%>        
                         <td height="20"><%=rs.Fields("Telephone")%></td>        
                     <%else%>            
                         <td  height="20">　</td>        
                     <%end if%>        
                     <%if rs.Fields("MobileTelephone")<>"" then%>        
                          <td  height="20"><%=rs.Fields("MobileTelephone")%></td>        
                     <%else%>        
                         <td  height="20">　</td>        
       
                     <%end if%>        
                     <%if  rs.Fields("OnOrOff")="1" then%>        
                          <td  height="20">    
                          <p align="center">    
                          在岗</p>    
                     </td>        
                     <%else%>        
                         <td  height="20" >    
                         <p align="center">    
                         已离岗</p>    
                     </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(0).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="page2" value=<%=page2%>>                     
              <input type="hidden" name="line" value=<%=line%>>                     
              <input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>><%'''''''客户序号%>        
              <input type="hidden" name="page1" value=<%=Request("page1")%>>        
              <input type="hidden" name="par_name" value=<%=Request("par_name")%>>        
              <input type="hidden" name="par_type"value=<%=Request("par_type")%>>        
              <input type="hidden" name="par_level" value=<%=Request("par_level")%>>        
              <input type="hidden" name="index" value=<%=request("index")%>>                                            
          </table><br>        
                     
            &nbsp;<font size="2">&nbsp;&nbsp;</font><font size="2">共<%=rs.pagecount%>页&nbsp;&nbsp; 第<%=page2%>页&nbsp;</font>   
       <font size="2">&nbsp; <a href="D_zyrymainFrm.asp?page2=1&index=<%=request("index")%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">首页</a>             
             <%if page2>1 then %>                                                  
               <a href="D_zyrymainFrm.asp?index=<%=request("index")%>&page2=<%=(page2-1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">上页</a>                                               
             <% else%>                                                
       上页&nbsp;                                                
             <%end if%>                                         
             <%if page2<rs.pagecount then %>                                               
               <a href="D_zyrymainFrm.asp?index=<%=request("index")%>&page2=<%=(page2+1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">下页</a>                                               
             <% else %>                                               
       下页&nbsp;                                                
             <% end if%>             
             <a href="D_zyrymainFrm.asp?page2=<%=rs.PageCount%>&index=<%=request("index")%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">尾页</a>&nbsp;</font>  
       <p><%if userclass>1 then%> <input type="submit" value="新建" name="B2" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">              
             <%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">                        
<%end if%>   
             <input type="submit" value="删除" name="B2" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">                
             <%rs.close%>                      
              <%if userclass>1 then%>                                     
  <input type="button" value="发送邮件" name="SendMail" onclick="SendMailClick()" class=hand style="background-color: #D1D1D1; font-size: 12px; border-style: solid; border-width: 1">                                                                                   
         <%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">                                                     
<%end if%>    
    <%aa="Lookup"%>                
    <%if request("index")="true" then%>               
       &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font size="2"> <a href="D_khindexsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>              
    <%else%>                                     
           <a href="D_khsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>                                      
       </font>                                     
    <%end if%> 
         
       </p> 
    </form>                                
</BODY>                                   
</HTML>