asp实现的可以提醒生日的几种方法附代码
2023-06-13 09:14:00 时间
asp生日自动提醒小程式用ASP编写,调试通过,使用方便-aspbirthdayautomaticallyremindsmallprogramswiththepreparationofASP,debug,easytouse
方法一:
最初写的一个用于班级网站的最近一个月同学生日的提醒小程序。虽然不怎么样,而且很乱,但是最起码是自己动脑筋去想的,所以我比较看重。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
%>
方法一:
最初写的一个用于班级网站的最近一个月同学生日的提醒小程序。虽然不怎么样,而且很乱,但是最起码是自己动脑筋去想的,所以我比较看重。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
%>
相关文章
- ASP实现MySQL数据库连接及编写代码(asp连接mysql代码)
- 数据库探索ASP环境搭建MySQL数据库方法(asp搭建mysql)
- 用ASP搭建MySQL网站技术实例(asp mysql 网站)
- asp.net下利用JS实现对后台CS代码的调用方法
- asp重定向页面的方法总结
- 利用ASP发送和接收XML数据的处理方法与代码
- asp关键词字符串分割如何实现方法
- 在asp.NET中字符串替换的五种方法
- ASP去掉字符串头尾连续回车和空格的Function
- asp查询xml的代码不刷新页面查询的方法
- ASP+MSSQL2000数据库被批量注入后的解决方法
- Asp.net5种页面转向方法
- Asp.netXML文档进行添加删改操作的实例代码
- ASP.NET中Application和Cache的区别分析
- ASP.NET中使用后端代码注册脚本生成JQUERY-EASYUI的界面错位的解决方法
- JqueryAutocomplete结合asp.net使用要点
- URL重写及干掉ASP.NET试图状态的实现方法
- asp.net分割字符串的几种方法小结
- ASP.NET网页打印(只打印相关内容/自写功能)
- 浅谈ASP.NET的include的使用方法
- asp.netLC.exe已退出代码为-1的原因分析及解决方法
- asp.net获取服务器基本信息的方法代码
- ASP.NET学习路线图浅谈
- Asp.net后台调用js2种方法
- asp.net传多个值到其它页面的具体实现
- asp.net导出excel数据的常见方法汇总