⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 d_clientmemorydayfrm1.asp

📁 一个很好的在线购物系统
💻 ASP
字号:
<!--#include file="../include/PubConn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title><link href="../cread.css" rel="stylesheet" type="text/css">
<base target="_self">
</head>
<body bgcolor="#FFFFFF">

<TABLE border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF">
  <TBODY>
    <TR>
      <TD width="21" align="right" valign="top"> </TD>
      <TD colspan="2" valign="top" width="100%">
      <TABLE border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF">
        <TBODY>
          <TR>
            <TD align="left" background="../pic/g414.gif" height="23" width="99%" valign="middle"><FONT size="-1"><IMG src="../pic/jinn.gif" width="133" height="12" border="0"></FONT></TD>
            <TD bgcolor="#ffffff" width="2"><IMG src="../pic/g415.gif" width="8" height="23" border="0"></TD>
          </TR>
          <TR>
            <TD width="99%">
            <table width="100%" border="0" height="122" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
    <td height="1">
   
    <%yr="-"+cstr(month(date()))+"-"+cstr(day(date()))
       
    set rs=server.CreateObject("adodb.recordset")  
     if rs.state=1 then  rs.close     
         rs.open "select * from D_BirthOrMemDay where (cDate(BirthDay) between cdate(cstr(year(cDate(BirthDay)))&'"&yr&"') and  cdate(cstr(year(cDate(BirthDay)))&'"&yr&"')+10) or (cDate(MemorializeDay) between cdate(cstr(year(cDate(MemorializeDay)))&'"&yr&"') and  cdate(cstr(year(cDate(MemorializeDay)))&'"&yr&"')+10)",pubconn,1,3  
              
     if rs.recordcount<1 then%>                                    
        <% response.write "没记录!"%><br>                                    
        <%response.end%>                                    
     <%end if%>                                                  
                        <br>                   
     <center><table border=0 cellspacing=0 width="100%" >                                          
        <tr>                                          
           <td align="center" height="28"><font color="#7F7C6D">客户名称</font></td>                                          
           <td align="center" height="28"><font color="#7F7C6D">联系人姓名</font></td>                                          
           <td align="center" height="28"><font color="#7F7C6D">生日</font></td>                                          
           <td align="center" height="28"><font color="#7F7C6D">结婚纪念日</font></td>                                          
        </tr>                                         
        <%rs.movefirst%>                                          
        <%if request("page1")<>"" then                                                          
                       page1=cint(request("page1"))                                                        
                    else                                                         
                       page1=1                                                         
                    end if                                                         
                    rs.pagesize=6                                                       
                    if page1>=rs.pagecount then                                                         
                       page1=rs.pagecount                                                         
                    else                                                         
                       if page1<1 then                                                         
                          page1=1                                                         
                       end if                                                         
                    end if                                                         
                    rs.absolutepage=page1                                                        
                    line=0%>                                          
                                                                            
                 <%j=0                                      
                for i=1 to rs.PageSize                                          
                                                                       
                   'do while  not rs.eof                                       
                       line=cint(line)+1                                      
                       j=j+1
                      %>                                                          
                                                                                                      
                      <tr >                                           
                          <td align="center"><%=rs.fields("clientname")%></td>                                          
                          <td align="center"><%=rs.fields("linkman")%></td>                                          
                              <%nf=cdate(cstr(year(cdate(rs("birthday"))))+yr)
                               if cDate(rs.fields("Birthday"))>=nf and cDate(rs.fields("Birthday"))<=nf+10   then%>                                          
                                  <td align="center" id=flashit><%=rs.fields("Birthday")%></td>                                          
                              <%else%>                                          
                                  <td align="center" ><%=rs.fields("Birthday")%></td>                                          
                              <%end if%>                                          
                              <%nf1=cdate(cstr(year(cdate(rs("MemorializeDay"))))+yr)
                              if cDate(rs.fields("MemorializeDay"))>=nf1 and cDate(rs.fields("MemorializeDay"))<=nf1+10 then%> 
                                 <td align="center" id=flashit><%=rs.fields("MemorializeDay")%></td>                                          
                              <%else%>                                          
                                 <td align="center"><%=rs.fields("MemorializeDay")%></td>                                          
                              <%end if%>                                             
                      </tr>                                          
                   <%rs.movenext%>                                          
                 <%'                                      
                                                      
                 'loop %>                                          
                <%                                      
                if  rs.eof then                                      
                exit for                                      
                end if                                      
                next                                      
                %>                                         
                                                        
     </table></center>             
    <p align="center">                                 
                                          
    <font size="2">                                 
                                          
    共<%=rs.pagecount%>页&nbsp;&nbsp; 第<%=page1%>页&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                                            
     <a href="D_ClientMemoryDayFrm1.asp?page1=1">首页</a>                                           
     <%if page1>1 then %>                                                                                 
         <a href="D_ClientMemoryDayFrm1.asp?page1=<%=(page1-1)%>">上页</a>                                                                               
     <% else%>                                                                               
         上页&nbsp;                                                                               
     <%end if%>                                                                        
     <%if page1<rs.pagecount then %>                                                                              
        <a href="D_ClientMemoryDayFrm1.asp?page1=<%=(page1+1)%>">下页</a>                                                                               
     <% else %>                                                                              
         下页&nbsp;                                                                               
     <% end if%>                                            
     <a href="D_ClientMemoryDayFrm1.asp?page1=<%=rs.PageCount%>">尾页</a>                                            
                                         
                                              
    </font>                                         
                                         
                                              
          </table>               
</TD>       
            <TD bgcolor="#ffffff" width="2%" background="../pic/g416.gif"></TD>       
          </TR>       
        </TBODY>       
      </TABLE>       
      </TD>       
    </TR>       
  </TBODY>       
</TABLE>       
      <SCRIPT language=JavaScript1.2> 
<!-- 
/* 
Flashing form element Script-  
?Dynamic Drive (www.dynamicdrive.com) 
For full source code, installation instructions, 
100's more DHTML scripts, and Terms Of 
Use, visit dynamicdrive.com 
*/ 
if (document.all&&document.all.flashit){ 
var flashelement=document.all.flashit 
if (flashelement.length==null) 
flashelement[0]=document.all.flashit 
function changecolor(which){ 
if (flashelement[which].style.color=='') 
flashelement[which].style.color="red" 
else 
flashelement[which].style.color="" 
} 
if (flashelement.length==null) 
setInterval("changecolor(0)",1000) 
else 
for (i=0;i<flashelement.length;i++){ 
var tempvariable='setInterval("changecolor('+i+')",'+'800)' 
eval(tempvariable) 
} 
} 
--> 
  </SCRIPT> 
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -