asp实现的可以提醒生日的几种方法附代码

asp生日自动提醒小程式用ASP编写，调试通过，使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use
方法一：

最初写的一个用于班级网站的最近一个月同学生日的提醒小程序。虽然不怎么样，而且很乱，但是最起码是自己动脑筋去想的，所以我比较看重。ASP程序虽然有好多可以借鉴人家的。但是我想更多时候，我们应该在经典上有所突出，有所创新那不至于默守陈规而无永远只能做一个平凡的程序员。

<%
      dim     daydif
      dim     days "定义查询前后多少天内生日的同学,如60则查询前一个月后下一个月生日的同学名单。
      SQL="Select name,brithday from class "
            Set rs=server.CreateObject（"ADODB.RecordSet"）
            rs.Open SQL,con,1,1
            for i=1 to rs.recordcount     "读出所有的数据
                    if rs.eof then exit for
                    daydif=abs（datediff（"d",date,rs（"birthday"）））mod 365
                    if daydif < days
                          response.write rs（"name"）%>
                          response.write "<font color="#FF0000">"
                          response.write rs（"birthday"）&"、</font>"
                    end if
                    rs.movenext
            loop
            rs.Close
            Set rs=nothing
            %>

方法二：
<%
days1=split（date（）,"-"）
days2=split（DateAdd（"d",5,date（））,"-"）
sql="select [id],Memberid,birthday from customers "
if days1（1）<>days2（1） then
sql=sql+" where （month（birthday） = ""&days1（1）&"" or month（birthday）=""&days2（1）&""）"
else
sql=sql+" where month（birthday） = ""&days1（1）&"""
end if
sql=sql+" and day（birthday） between ""&days1（2）&"" and ""&days2（2）&"""
"Response.Write（sql）
set conn=server.CreateObject（"ADODB.connection"）
conn.open connstr
set rs=Conn.execute（sql）
if not rs.eof then%>
<script language="JavaScript">
window.onload = getMsg;
window.onresize = resizeDiv;
window.onerror = function（）{}
//短信提示使用（asilas添加）
var divTop,divLeft,divWidth,divHeight,docHeight,docWidth,objTimer,i = 0;
function getMsg（）
{
try{
divTop = parseInt（document.getElementById（"eMeng"）.style.top,10）
divLeft = parseInt（document.getElementById（"eMeng"）.style.left,10）
divHeight = parseInt（document.getElementById（"eMeng"）.offsetHeight,10）
divWidth = parseInt（document.getElementById（"eMeng"）.offsetWidth,10）
docWidth = document.body.clientWidth;
docHeight = document.body.clientHeight;
document.getElementById（"eMeng"）.style.top = parseInt（document.body.scrollTop,10） + docHeight + 10;// divHeight
document.getElementById（"eMeng"）.style.left = parseInt（document.body.scrollLeft,10） + docWidth - divWidth
document.getElementById（"eMeng"）.style.visibility="visible"
objTimer = window.setInterval（"moveDiv（）",10）
}
catch（e）{}
}
function resizeDiv（）
{
i+=1
if（i>500） closeDiv（）
try{
divHeight = parseInt（document.getElementById（"eMeng"）.offsetHeight,10）
divWidth = parseInt（document.getElementById（"eMeng"）.offsetWidth,10）
docWidth = document.body.clientWidth;
docHeight = document.body.clientHeight;
document.getElementById（"eMeng"）.style.top = docHeight - divHeight + parseInt（document.body.scrollTop,10）
document.getElementById（"eMeng"）.style.left = docWidth - divWidth + parseInt（document.body.scrollLeft,10）
}
catch（e）{}
}
function moveDiv（）
{
try
{
if（parseInt（document.getElementById（"eMeng"）.style.top,10） <= （docHeight - divHeight + parseInt（document.body.scrollTop,10）））
{
window.clearInterval（objTimer）
objTimer = window.setInterval（"resizeDiv（）",1）
}
divTop = parseInt（document.getElementById（"eMeng"）.style.top,10）
document.getElementById（"eMeng"）.style.top = divTop - 1
}
catch（e）{}
}
function closeDiv（）
{
document.getElementById（"eMeng"）.style.visibility="hidden";
if（objTimer） window.clearInterval（objTimer）
}
</script>
<DIV id=eMeng style="BORDER-RIGHT: #455690 1px solid; BORDER-TOP: #a6b4cf 1px solid; Z-INDEX:99999; LEFT: 0px; VISIBILITY: hidden; BORDER-LEFT: #a6b4cf 1px solid; WIDTH: 180px; BORDER-BOTTOM: #455690 1px solid; POSITION: absolute; TOP: 0px; HEIGHT: 116px; BACKGROUND-COLOR: #c9d3f3">
<TABLE style="BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid" cellSpacing=0 cellPadding=0 width="100%" bgColor=#cfdef4 border=0><TBODY>
<TR>
     <TD style="FONT-SIZE: 12px; BACKGROUND-IMAGE: url（msgTopBg.gif）; COLOR: #0f2c8c" width=30 height=24></TD>
     <TD style="FONT-WEIGHT: normal; FONT-SIZE: 12px; BACKGROUND-IMAGE: url（msgTopBg.gif）; COLOR: #1f336b; PADDING-TOP: 4px;PADDING-left: 4px" vAlign=center width="100%"> 生日提示：</TD>
     <TD style="BACKGROUND-IMAGE: url（msgTopBg.gif）; PADDING-TOP: 2px;PADDING-right:2px" vAlign=center align=right width=19><span title=关闭 style="CURSOR: hand;color:red;font-size:12px;font-weight:bold;margin-right:4px;" onclick=closeDiv（） >×</span><！-- <IMG title=关闭 style="CURSOR: hand" onclick=closeDiv（） hspace=3 src="msgClose.jpg"> --></TD>
</TR>
<TR>
     <TD style="PADDING-RIGHT: 1px; BACKGROUND-IMAGE: url（1msgBottomBg.jpg）; PADDING-BOTTOM: 1px" colSpan=3 height=90> <DIV style="BORDER-RIGHT: #b9c9ef 1px solid; PADDING-RIGHT: 13px; BORDER-TOP: #728eb8 1px solid; PADDING-LEFT: 13px; FONT-SIZE: 12px; PADDING-BOTTOM: 13px; BORDER-LEFT: #728eb8 1px solid; WIDTH: 100%; COLOR: #1f336b; PADDING-TOP: 18px; BORDER-BOTTOM: #b9c9ef 1px solid; HEIGHT: 100%">近期将要过生日的会员有：<BR><BR> <DIV align=center style="word-break:break-all">
<%i=1
do while not rs.eof
Response.Write（"<a href="/System/AdmMember/Edit.asp？id="&rs（0）&"" title=""><font color="red">"&rs（1）&"</font></a>（"&month（rs（2））&"-"&day（rs（2））&"）  "）
if i mod 2 =0 then response.Write（"</br>"）
rs.movenext
i=i+1
loop%></DIV></DIV> </TD>
</TR>
</TBODY>
</TABLE>
</DIV>
<% end if
rs.close
set rs=nothing
conn.close（）
set conn=nothing %>

方法三：
sql server:
<%
If month（Now（））=12 and day（now（））>24 Then
sSql = "select FoodID, Strname, TimeID from Tfood where （ datediff（d,getdate（）,dateadd（year,datediff（Year,TimeID,GetDate（））,TimeID））<=200 and datediff（d,getdate（）,dateadd（year,datediff（Year,TimeID,GetDate（））,TimeID））>=0 ） Or （ datediff（d,getdate（）,dateadd（year,datediff（Year,TimeID,GetDate（））+1,TimeID））<=200 and datediff（d,getdate（）,dateadd（year,datediff（Year,TimeID,GetDate（））+1,TimeID））>=0 ）"
Else
sSql = "select FoodID, Strname, TimeID from Tfood where （ datediff（d,getdate（）,dateadd（year,datediff（Year,TimeID,GetDate（））,TimeID））<=200 and datediff（d,getdate（）,dateadd（year,datediff（Year,TimeID,GetDate（））,TimeID））>=0 ）"
End If
%>
Access:
<%
If month（Now（））=12 and day（now（））>24 Then
    sSql = "SELECT *
FROM customers
WHERE （ datediff（"d",date（）,dateadd（"yyyy",datediff（"yyyy",Birthday,date（））,Birthday））<=5 and datediff（"d",date（）,dateadd（"yyyy",datediff（"yyyy",Birthday,date（））,Birthday））>=0 ） Or （ datediff（"d",date（）,dateadd（"yyyy",datediff（"yyyy",Birthday,date（））+1,Birthday））<=5 and datediff（"d",date（）,dateadd（"yyyy",datediff（"yyyy",Birthday,date（））+1,Birthday））>=0 ）;"
    Else
     sSql = "SELECT *
FROM customers
WHERE （DateDiff（"d",date（）,DateAdd（"yyyy",DateDiff（"yyyy",[Birthday],date（））,[Birthday]））<=5 And DateDiff（"d",date（）,DateAdd（"yyyy",DateDiff（"yyyy",[Birthday],date（））,[Birthday]））>=0）;"
End If
%>