asp生日自動(dòng)提醒小程式 用ASP編寫，調(diào)試通過(guò)，使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use
方法一： 

最初寫的一個(gè)用于班級(jí)網(wǎng)站的最近一個(gè)月同學(xué)生日的提醒小程序。雖然不怎么樣，而且很亂，但是最起碼是自己動(dòng)腦筋去想的，所以我比較看重。ASP程序雖然有好多可以借鑒人家的。但是我想更多時(shí)候，我們應(yīng)該在經(jīng)典上有所突出，有所創(chuàng)新那不至于默守陳規(guī)而無(wú)永遠(yuǎn)只能做一個(gè)平凡的程序員。 

<% 
dim daydif 
dim days '定義查詢前后多少天內(nèi)生日的同學(xué),如60則查詢前一個(gè)月后下一個(gè)月生日的同學(xué)名單。 
SQL="Select name,brithday from class " 
Set rs=server.CreateObject("ADODB.RecordSet") 
rs.Open SQL,con,1,1 
for i=1 to rs.recordcount '讀出所有的數(shù)據(jù) 
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 /> </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%'>近期將要過(guò)生日的會(huì)員有：<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 
%>