📄 d_clientmemorydayfrm.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" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif"> <b><font size="2">客户纪念日提示</font></b><hr width="40%" align="left" color="#C0C0C0" size="1"></td>
</tr>
</table> <br><br>
<%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%>
<br><br><center><% response.write "没记录!"%></center><br><br>
<%response.end%>
<%end if%>
<center><table border=0 cellspacing=0 width="40%">
</table></center><br>
<center><table border=0 cellspacing=0 width="80%" >
<tr>
<td align="center" height="25" bgcolor="#D9C8A7">客户名称</td>
<td align="center" height="25" bgcolor="#D9C8A7">联系人姓名</td>
<td align="center" height="25" bgcolor="#D9C8A7">生日</td>
<td align="center" height="25" bgcolor="#D9C8A7">结婚纪念日</td>
</tr>
<%rs.movefirst%>
<%if request("page1")<>"" then
page1=cint(request("page1"))
else
page1=1
end if
rs.pagesize=10
if page1>=rs.pagecount then
page1=rs.pagecount
else
if page1<1 then
page1=1
end if
end if
rs.absolutepage=page1
line=0%>
<%for i=1 to rs.PageSize
' while not rs.eof
line=cint(line)+1%>
<%
if i mod 2=1 then%>
<tr bgcolor="#f7f7f7" >
<%else%>
<tr bgcolor="#EDEBEC" >
<%end if%>
<td align="center" height="20"><%=rs.fields("clientname")%></td>
<td align="center" height="20"><%=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 height="20"><%=rs.fields("Birthday")%></td>
<%else%>
<td align="center" height="20" ><%=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 height="20"><%=rs.fields("MemorializeDay")%></td>
<%else%>
<td align="center" height="20"><%=rs.fields("MemorializeDay")%></td>
<%end if%>
</tr> <%rs.movenext%>
<%if rs.eof then
exit for
end if%>
<%'wend%>
<%next%>
</table></center> <br><br><br>
<font size="2">
共<%=rs.pagecount%>页 第<%=page1%>页 <a href="D_ClientMemoryDayFrm.asp?page1=1">首页</a>
<%if page1>1 then %>
<a href="D_ClientMemoryDayFrm.asp?page1=<%=(page1-1)%>">上一页</a>
<% else%>
上一页 <%end if%>
<%if page1<rs.pagecount then %>
<a href="D_ClientMemoryDayFrm.asp?page1=<%=(page1+1)%>">下一页</a>
<% else %>
下一页
<% end if%>
<a href="D_ClientMemoryDayFrm.asp?page1=<%=rs.PageCount%>">尾页</a>
</font>
<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>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -