d_sciencemainfrm.asp

一个很好的在线购物系统

                       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")%>                           
                       <%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> 
                              <%else%>   
 						   <input type="checkbox" name="sc" value="1" onmousedown="qx()">  
   						 <%end if%> 
 
                            </td> 
                             <input type="hidden"  name=<%="m_id"&line%> value=<%=rs.fields("clientnum")%> id=hidden1>          
                         <td><a href="D_SciencesubFrm.asp?par_id=<%=rs.Fields("clientnum")%>&page1=<%=page1%>&lookup=<%=tag1%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_area=<%=m_area1%>"><%=rs.Fields("clientName")%></a></td>          
                                     
                         <%if rs.Fields("Area")<>"" then%>          
                             <td ><%=rs.Fields("Area")%></td>          
                         <%else%>          
                             <td >&nbsp;</td>          
                         <%end if%>              
                         <%if rs.Fields("Occupation")<>"" then%>          
                             <td ><%=rs.Fields("Occupation")%></td>          
                         <%else%>          
                             <td >&nbsp;</td>          
                         <%end if%>           
                         <%if rs.Fields("Telophone")<>"" then%>          
                             <td><%=rs.Fields("Telophone")%></td>          
                         <%else%>          
                             <td >&nbsp;</td>          
                         <%end if%>           
                         <%if rs.Fields("Fax")<>"" then%>          
                             <td ><%=rs.Fields("Fax")%></td>          
                         <%else%>          
                             <td>&nbsp;</td>          
                         <%end if%>          
                         <%if GetYWYName(rs.Fields("stuffnum"))<>"" then%>          
                             <td><%=GetYWYName(rs.Fields("stuffnum"))%></td>          
                         <%else%>          
                             <td >&nbsp;</td>          
                         <%end if%>          
                      </tr>          
                      <%rs.MoveNext %>          
                      <%if rs.EOF then exit for%>          
                 <%next %>                           
                        
                 </table>          
                  <input type="hidden" name="page1" value=<%=page1%>>           
                  <input type="hidden" name="line" value=<%=line%>>                        
          <br>         
            <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>          
                     
         <font size="2">         
                      
                     
             共<%=rs.pagecount%>页&nbsp;&nbsp; 第<%=page1%>页</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   
         <a href="D_ScienceMainFrm.asp?page1=1&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_area=<%=m_area1%>"><font size="2">首页</font></a>           
         <font size="2">             
             <%if page>1 then %>                                              
               <a href="D_ScienceMainFrm.asp?page1=<%=(page1-1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_area=<%=m_area1%>">上一页</a>                                             
             <% else%>                                             
               上一页&nbsp;                                             
             <%end if%>                                        
             <%if page1<rs.pagecount then %>                                            
               <a href="D_ScienceMainFrm.asp?page1=<%=(page1+1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_area=<%=m_area1%>">下一页</a>                                             
             <% else %>                                            
               下一页&nbsp;                                             
             <% end if%>            
             <a href="D_ScienceMainFrm.asp?page1=<%=rs.PageCount%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_area=<%=m_area1%>">尾页</a></font>          
             &nbsp;&nbsp;&nbsp;&nbsp; <select name="page11" >            
                <%for i=1 to rs.pagecount%>           
                   <option value=<%=i%>><%=i%>           
                <%next%>           
             </select>           
             <input type="button"value="Go" name="BB" onclick="GoPage()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">&nbsp;&nbsp;&nbsp;&nbsp;           
 <a href="javascript:window.print()" target="_self">打印</a>         
             <hr>   
               <%if userclass>1 then%>          
             <input type="submit" value="新建" name="B1" 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="删除" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" name="B1">                        
               <%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%>  
          </form>           
      <%end if%>          
</BODY>