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+ 其中 (month(birthday) = '&days1(1)&' or month(birthday)='&days2(1)&')
else
sql=sql+ 其中 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； : 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=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'Align=center widign=center '100%'> 生日提示：</TD>
<TD style='BACKGROUND-IMAGE: url(msgTopBg.gif); PADDING-TOP: 2px;PADDING-right:2px' vAlign=center align=right width=19><span /></TR>
<TR>
<TD style='PADDING-RIGHT: 1px; BACKGROUND-IMAGE: url(1msgBottomBg.jpg); PADDING-BOTTOM: 1px' colSpan=3 height=90> <DIV style='BORDER PA-RIGHT: #b9c9ef 1pING= 7pING -RIGHT: 13px; BORDER-TOP: #728eb8 1px solid; PADDING-LEFT: 13px; FONT-SIZE: 12px; PADDING-BOTTOM: 13px; BORDER-LEFT: #728eb8 1px solid; WIDTH: 100%； 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)&' />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
%>