您正在使用 IPV4 [3.235.130.73] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 007
2024年 劳动节 034
2025年 元 旦 279
2025年 春 节 307
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp实现的可以提醒生日的几种方法附代码
内容摘要: asp生日自动提醒小程式用ASP编写,调试通过,使用方便-aspbirthdayautomaticallyremindsmallprogramswiththepreparationofASP,debug,easytouse方法一:最初写的一个用于班级网站的最近一个月同学生日的提醒小程序。虽然不怎么样,而且很乱,但是最起码是自己动脑筋去想的,所以我比较看重。A......
asp生日自动提醒小程式用ASP编写,调试通过,使用方便-aspbirthdayautomaticallyremindsmallprogramswiththepreparationofASP,debug,easytouse

方法一:

最初写的一个用于班级网站的最近一个月同学生日的提醒小程序。虽然不怎么样,而且很乱,但是最起码是自己动脑筋去想的,所以我比较看重。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

%>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:asp实现二进制字符串转换为Unicode字符串

 

下一篇:用asp实现的截取指定格式字符串的代码

发布日期:2023/5/4
手机扫二维码直达本页
发布时间:12:37:15
点  击:4
录  入:壹家怡园
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....