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><!-- <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
%>
如对本文有疑问，
点击进行留言回复！！
我要评论
网友评论