asp提醒生日的方法附代碼

2024-05-04 11:05:34

字體：大中小

來源：轉載

供稿：網友

在學習ASP之后我們可以利用ASP來實現生日自動提醒小程式，那么具體要如何實現呢？接下來就讓錯新小編為大分享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></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
%>