Prinsip pengingat ulang tahun asp umumnya membandingkan tanggal lahir pengguna dengan tanggal saat ini. Jika kurang dari beberapa hari, pengingat akan ditampilkan.Berikut adalah beberapa metode untuk mengimplementasikan applet pengingat ulang tahun asp ditulis dalam ASP, lulus debugging, dan mudah digunakan - ulang tahun asp secara otomatis mengingatkan program kecil dengan persiapan ASP, debug, mudah digunakan
Metode satu:
Sebuah program kecil yang awalnya ditulis untuk digunakan di situs kelas untuk mengingatkan teman sekelas akan ulang tahun mereka dalam sebulan terakhir. Meskipun tidak terlalu bagus, dan sangat berantakan, setidaknya itu adalah sesuatu yang saya gunakan untuk memikirkannya dengan otak saya sendiri, jadi saya lebih menghargainya. Meskipun ada banyak program ASP yang bisa dipelajari dari orang lain. Namun menurut saya lebih sering, kita harus menonjol dari yang klasik dan berinovasi, agar tidak berpegang pada aturan lama dan hanya menjadi programmer biasa selamanya.
<%
hari redupdif
dim hari 'Tentukan jumlah hari sebelum dan sesudah menanyakan siswa yang berulang tahun dalam waktu tersebut. Misalnya, 60 menanyakan daftar siswa yang berulang tahun pada bulan berikutnya setelah bulan sebelumnya.
SQL=Pilih nama, ulang tahun dari kelas
Setel rs=server.CreateObject(ADODB.RecordSet)
rs.Buka SQL,kon,1,1
untuk i=1 hingga rs.recordcount 'Baca semua data
jika rs.eof lalu keluar untuk
haridif=abs(tanggaliff(h,tanggal,rs(ulang tahun)) )mod 365
jika haridif < hari
respon.tulis rs(nama)%>
respon.tulis <font color=#FF0000>
respon.tulis rs(ulang tahun)&、</font>
berakhir jika
rs.movenext
lingkaran
rs.Tutup
Tetapkan rs=tidak ada
%>
Metode dua:
<%
hari1=berpisah(tanggal(),-)
hari2=berpisah(TanggalTambah(hari,5,tanggal()),-)
sql=pilih [id],Memberid,ulang tahun dari pelanggan
jika hari1(1)<>hari2(1) maka
sql=sql+ di mana (bulan(ulang tahun) = '&hari1(1)&' atau bulan(ulang tahun)='&hari2(1)&')
kalau tidak
sql=sql+ di mana bulan(ulang tahun) = '&hari1(1)&'
berakhir jika
sql=sql+ dan hari(ulang tahun) antara '&hari1(2)&' dan '&hari2(2)&'
'Respon.Tulis(sql)
setel koneksi=server.CreateObject(ADODB.koneksi)
koneksi.buka koneksi
setel rs=Conn.eksekusi(sql)
jika bukan rs.eof maka%>
<bahasa skrip=JavaScript>
window.onload = getMsg;
window.onresize = ubah ukuranDiv;
jendela.onerror = fungsi(){}
//Penggunaan pengingat SMS (ditambahkan oleh asilas)
var divTop,divLeft,divWidth,divHeight,docHeight,docWidth,objTimer,i = 0;
fungsi dapatkan pesan()
{
mencoba{
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 = dokumen.body.clientWidth;
docHeight = dokumen.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
dokumen.getElementById(eMeng).style.visibility=terlihat
objTimer = jendela.setInterval(moveDiv(),10)
}
tangkapan(e){}
}
fungsi mengubah ukuranDiv()
{
saya+=1
jika(i>500) closeDiv()
mencoba{
divHeight = parseInt(document.getElementById(eMeng).offsetHeight,10)
divWidth = parseInt(document.getElementById(eMeng).offsetWidth,10)
docWidth = dokumen.body.clientWidth;
docHeight = dokumen.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)
}
tangkapan(e){}
}
fungsi pindahDiv()
{
mencoba
{
if(parseInt(document.getElementById(eMeng).style.top,10) <= (docHeight - divHeight + parseInt(document.body.scrollTop,10)))
{
jendela.clearInterval(objTimer)
objTimer = jendela.setInterval(resizeDiv(),1)
}
divTop = parseInt(document.getElementById(eMeng).style.top,10)
dokumen.getElementById(eMeng).style.top = divTop - 1
}
tangkapan(e){}
}
fungsi closeDiv()
{
document.getElementById('eMeng').style.visibility='tersembunyi';
if(objTimer) jendela.clearInterval(objTimer)
}
</skrip>
<DIV id=eMeng style='BORDER-RIGHT: #455690 1px solid; BORDER-TOP: #a6b4cf 1px solid; Z-INDEX:99999; : 180 piksel; #455690 1px padat; POSISI: absolut; ATAS: 0px; TINGGI: 116px; WARNA LATAR BELAKANG: #c9d3f3'>
<TABLE style='BORDER-TOP: #ffffff 1px solid;
<TR>
<TD style='UKURAN FONT: 12 piksel; GAMBAR LATAR BELAKANG: url(msgTopBg.gif); WARNA: #0f2c8c' lebar=30 tinggi=24></TD>
<TD style='BERAT FONT: normal; UKURAN FONT: 12px; GAMBAR LATAR BELAKANG: url(msgTopBg.gif); WARNA: #1f336b; '100%'>Pengingat ulang tahun:</TD>
<TD style='BACKGROUND-IMAGE: url(msgTopBg.gif); PADDING-TOP: 2px;PADDING-right:2px' vAlign=center align=right width=19><span /></TR>
<TR>
<TD style='PADDING-KANAN: 1px; GAMBAR LATAR BELAKANG: url(1msgBottomBg.jpg); -KANAN: 13px; BATAS-ATAS: #728eb8 1 piksel padat; KIRI PADDING: 13 piksel; UKURAN FONT: 12 piksel; solid; TINGGI: 100%'>Member yang akan berulang tahun dalam waktu dekat adalah:<BR><BR> <DIV align=center style='word-break:break-all'>
<%i=1
lakukan selagi tidak rs.eof
Response.Write(<a href='/System/AdmMember/Edit.asp?id=&rs(0)&' />jika saya mod 2 =0 maka respon.Write(</br>)
rs.movenext
saya=saya+1
lingkaran%></DIV></DIV> </TD>
</TR>
</TBODY>
</TABEL>
</DIV>
<% berakhir jika
rs.tutup
atur rs=tidak ada
samb.close()
setel samb=tidak ada %>
Metode ketiga:
server sql:
<%
Jika bulan(Sekarang())=12 dan hari(sekarang())>24 Maka
sSql = pilih FoodID, Strname, TimeID dari Tfood di mana ( tanggaliff(d,getdate(),dateadd(tahun,tanggaliff(Tahun,TimeID,GetDate()),TimeID))<=200 dan tanggaliff(d,getdate(), dateadd(tahun,tanggaliff(Tahun,TimeID,GetDate()),TimeID))>=0 ) Atau ( tanggaliff(d,getdate(),dateadd(tahun,tanggaliff(Tahun,TimeID,GetDate())+1,TimeID))<=200 dan tanggaliff(d,getdate(),dateadd(tahun,tanggaliff(Tahun,TimeID, GetDate())+1,TimeID))>=0 )
Kalau tidak
sSql = pilih FoodID, Strname, TimeID dari Tfood di mana ( tanggaliff(d,getdate(),dateadd(tahun,tanggaliff(Tahun,TimeID,GetDate()),TimeID))<=200 dan tanggaliff(d,getdate(), dateadd(tahun,tanggaliff(Tahun,TimeID,GetDate()),TimeID))>=0 )
Akhiri Jika
%>
Mengakses:
<%
Jika bulan(Sekarang())=12 dan hari(sekarang())>24 Maka
sSql = PILIH *
DARI pelanggan
DI MANA ( tanggaliff('d',date(),dateadd('yyyy',datediff('yyyy',Ulang Tahun,tanggal()),Ulang Tahun))<=5 dan tanggaliff('d',date(),dateadd( 'yyyy',datediff('yyyy',Ulang tahun,tanggal()),Ulang Tahun))>=0 ) Atau ( tanggaliff('d',date(),dateadd('yyyy',datediff('yyyy',Ulang Tahun,tanggal())+1,Ulang Tahun))<=5 dan tanggaliff('d',date(),dateadd( 'yyyy',dateiff('yyyy',Ulang tahun,tanggal())+1,Ulang Tahun))>=0 );
Kalau tidak
sSql = PILIH *
DARI pelanggan
WHERE (DateDiff('d',date(),DateAdd('yyyy',DateDiff('yyyy',[Ulang Tahun],tanggal()),[Ulang Tahun]))<=5 Dan DateDiff('d',date(),DateAdd('yyyy',DateDiff('yyyy',[Ulang Tahun],tanggal()),[Ulang Tahun]))>=0);
Akhiri Jika
%>