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

时间:2021-05-28

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

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

<%
dimdaydif
dimdays'定义查询前后多少天内生日的同学,如60则查询前一个月后下一个月生日的同学名单。
SQL="Selectname,brithdayfromclass"
Setrs=server.CreateObject("ADODB.RecordSet")
rs.OpenSQL,con,1,1
fori=1tors.recordcount'读出所有的数据
ifrs.eofthenexitfor
daydif=abs(datediff("d",date,rs("birthday")))mod365
ifdaydif<days
response.writers("name")%>
response.write"<fontcolor="#FF0000">"
response.writers("birthday")&"、</font>"
endif
rs.movenext
loop
rs.Close
Setrs=nothing
%>

方法二:
<%
days1=split(date(),"-")
days2=split(DateAdd("d",5,date()),"-")
sql="select[id],Memberid,birthdayfromcustomers"
ifdays1(1)<>days2(1)then
sql=sql+"where(month(birthday)='"&days1(1)&"'ormonth(birthday)='"&days2(1)&"')"
else
sql=sql+"wheremonth(birthday)='"&days1(1)&"'"
endif
sql=sql+"andday(birthday)between'"&days1(2)&"'and'"&days2(2)&"'"
'Response.Write(sql)
setconn=server.CreateObject("ADODB.connection")
conn.openconnstr
setrs=Conn.execute(sql)
ifnotrs.eofthen%>
<scriptlanguage="JavaScript">
window.onload=getMsg;
window.onresize=resizeDiv;
window.onerror=function(){}
//短信提示使用(asilas添加)
vardivTop,divLeft,divWidth,divHeight,docHeight,docWidth,objTimer,i=0;
functiongetMsg()
{
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){}
}
functionresizeDiv()
{
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){}
}
functionmoveDiv()
{
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){}
}
functioncloseDiv()
{
document.getElementById('eMeng').style.visibility='hidden';
if(objTimer)window.clearInterval(objTimer)
}
</script>
<DIVid=eMengstyle='BORDER-RIGHT:#4556901pxsolid;BORDER-TOP:#a6b4cf1pxsolid;Z-INDEX:99999;LEFT:0px;VISIBILITY:hidden;BORDER-LEFT:#a6b4cf1pxsolid;WIDTH:180px;BORDER-BOTTOM:#4556901pxsolid;POSITION:absolute;TOP:0px;HEIGHT:116px;BACKGROUND-COLOR:#c9d3f3'>
<TABLEstyle='BORDER-TOP:#ffffff1pxsolid;BORDER-LEFT:#ffffff1pxsolid'cellSpacing=0cellPadding=0width='100%'bgColor=#cfdef4border=0><TBODY>
<TR>
<TDstyle='FONT-SIZE:12px;BACKGROUND-IMAGE:url(msgTopBg.gif);COLOR:#0f2c8c'width=30height=24></TD>
<TDstyle='FONT-WEIGHT:normal;FONT-SIZE:12px;BACKGROUND-IMAGE:url(msgTopBg.gif);COLOR:#1f336b;PADDING-TOP:4px;PADDING-left:4px'vAlign=centerwidth='100%'>生日提示:</TD>
<TDstyle='BACKGROUND-IMAGE:url(msgTopBg.gif);PADDING-TOP:2px;PADDING-right:2px'vAlign=centeralign=rightwidth=19><spantitle=关闭style='CURSOR:hand;color:red;font-size:12px;font-weight:bold;margin-right:4px;'onclick=closeDiv()>×</span><!--<IMGtitle=关闭style='CURSOR:hand'onclick=closeDiv()hspace=3src='msgClose.jpg'>--></TD>
</TR>
<TR>
<TDstyle='PADDING-RIGHT:1px;BACKGROUND-IMAGE:url(1msgBottomBg.jpg);PADDING-BOTTOM:1px'colSpan=3height=90><DIVstyle='BORDER-RIGHT:#b9c9ef1pxsolid;PADDING-RIGHT:13px;BORDER-TOP:#728eb81pxsolid;PADDING-LEFT:13px;FONT-SIZE:12px;PADDING-BOTTOM:13px;BORDER-LEFT:#728eb81pxsolid;WIDTH:100%;COLOR:#1f336b;PADDING-TOP:18px;BORDER-BOTTOM:#b9c9ef1pxsolid;HEIGHT:100%'>近期将要过生日的会员有:<BR><BR><DIValign=centerstyle='word-break:break-all'>
<%i=1
dowhilenotrs.eof
Response.Write("<ahref='/System/AdmMember/Edit.asp?id="&rs(0)&"'title=''><fontcolor='red'>"&rs(1)&"</font></a>("&month(rs(2))&"-"&day(rs(2))&")&nbsp;&nbsp;")
ifimod2=0thenresponse.Write("</br>")
rs.movenext
i=i+1
loop%></DIV></DIV></TD>
</TR>
</TBODY>
</TABLE>
</DIV>
<%endif
rs.close
setrs=nothing
conn.close()
setconn=nothing%>


方法三:
sqlserver:
<%
Ifmonth(Now())=12andday(now())>24Then
sSql="selectFoodID,Strname,TimeIDfromTfoodwhere(datediff(d,getdate(),dateadd(year,datediff(Year,TimeID,GetDate()),TimeID))<=200anddatediff(d,getdate(),dateadd(year,datediff(Year,TimeID,GetDate()),TimeID))>=0)Or(datediff(d,getdate(),dateadd(year,datediff(Year,TimeID,GetDate())+1,TimeID))<=200anddatediff(d,getdate(),dateadd(year,datediff(Year,TimeID,GetDate())+1,TimeID))>=0)"
Else
sSql="selectFoodID,Strname,TimeIDfromTfoodwhere(datediff(d,getdate(),dateadd(year,datediff(Year,TimeID,GetDate()),TimeID))<=200anddatediff(d,getdate(),dateadd(year,datediff(Year,TimeID,GetDate()),TimeID))>=0)"
EndIf
%>
Access:
<%
Ifmonth(Now())=12andday(now())>24Then
sSql="SELECT*
FROMcustomers
WHERE(datediff('d',date(),dateadd('yyyy',datediff('yyyy',Birthday,date()),Birthday))<=5anddatediff('d',date(),dateadd('yyyy',datediff('yyyy',Birthday,date()),Birthday))>=0)Or(datediff('d',date(),dateadd('yyyy',datediff('yyyy',Birthday,date())+1,Birthday))<=5anddatediff('d',date(),dateadd('yyyy',datediff('yyyy',Birthday,date())+1,Birthday))>=0);"
Else
sSql="SELECT*
FROMcustomers
WHERE(DateDiff('d',date(),DateAdd('yyyy',DateDiff('yyyy',[Birthday],date()),[Birthday]))<=5AndDateDiff('d',date(),DateAdd('yyyy',DateDiff('yyyy',[Birthday],date()),[Birthday]))>=0);"
EndIf
%>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章