灵域,盗墓笔记全集,盛世嫡妃凤轻小说

主頁 > 知識(shí)庫 > asp實(shí)現(xiàn)的可以提醒生日的幾種方法附代碼

asp實(shí)現(xiàn)的可以提醒生日的幾種方法附代碼

asp生日自動(dòng)提醒小程式用ASP編寫，調(diào)試通過，使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use
方法一：

最初寫的一個(gè)用于班級(jí)網(wǎng)站的最近一個(gè)月同學(xué)生日的提醒小程序。雖然不怎么樣，而且很亂，但是最起碼是自己動(dòng)腦筋去想的，所以我比較看重。ASP程序雖然有好多可以借鑒人家的。但是我想更多時(shí)候，我們應(yīng)該在經(jīng)典上有所突出，有所創(chuàng)新那不至于默守陳規(guī)而無永遠(yuǎn)只能做一個(gè)平凡的程序員。

%
      dim     daydif
      dim     days '定義查詢前后多少天內(nèi)生日的同學(xué),如60則查詢前一個(gè)月后下一個(gè)月生日的同學(xué)名單。
      SQL="Select name,brithday from class "
            Set rs=server.CreateObject("ADODB.RecordSet")
            rs.Open SQL,con,1,1
            for i=1 to rs.recordcount     '讀出所有的數(shù)據(jù)
                    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=關(guān)閉 style='CURSOR: hand;color:red;font-size:12px;font-weight:bold;margin-right:4px;' onclick=closeDiv() >×/span>!-- IMG title=關(guān)閉 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%'>近期將要過生日的會(huì)員有：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))")nbsp;nbsp;")
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
%>

標(biāo)簽：江門新余廣元雅安儋州錫林郭勒盟七臺(tái)河宣城

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp實(shí)現(xiàn)的可以提醒生日的幾種方法附代碼》，本文關(guān)鍵詞 asp,實(shí)現(xiàn),的,可以,提醒,生日,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

濮阳杆衣贸易有限公司

asp實(shí)現(xiàn)的可以提醒生日的幾種方法附代碼