<P><style>td { font-family: 宋体; font-size:9pt}</style><body bgcolor=eeeeee><table width=180 cellpadding=0 Cellspacing=1 bgcolor=dddddd align=center><% 'Berikut ini adalah kode spesifik yang diterapkan oleh algoritma kalender ini di ASP</P><P> 'Pertama tentukan apakah tahun dan bulan ditentukan, jika tidak, tampilkan If berdasarkan tahun dan bulan saat ini Request(ReqDate)= lalu CurrentDate=Dateelse CurrentDate=Trim(Request(ReqDate))end ifpyear=year(CurrentDate)pmonth=month(CurrentDate)</P><P> 'Kode berikut menghasilkan konten header tabel untuk tampilan kalender % > <tr align=KIRI bgcolor=#dddddd> <td lebar=14% tinggi=19 align=center> <tipe masukan=tombol nilai=<< onclick=JavaScript:location.href='?ReqDate=<%=DateAdd(m,-1,CurrentDate) %>'></td> <td colspan=5 align=center> <%=pyear% >Tahun<%=pmonth%>Bulan</td> <td width=14% align=center> <input type=button value=>> onclick=JavaScript:location.href='?ReqDate=<%=DateAdd(m,1,CurrentDate)%>'></td> </tr> <tr align=center bgcolor=#CCCCCC> <td width=14 % tinggi=19> hari</td> <td lebar=14%> satu</td> <td lebar=14%> dua</td> <td lebar=14%> tiga</td> <td lebar=14%> empat</td> <td lebar=14%> lima</td> <td lebar=14%> enam</td> </tr> <tr align=center bgcolor=ffffff tinggi=19> <% 'Karena di ASP tidak ada fungsi untuk mendapatkan jumlah hari dalam suatu bulan tertentu, kita perlu menggunakan algoritma lain untuk mendapatkannya. Algoritma ini sebenarnya sangat sederhana, yaitu menghitung jumlah hari antara tanggal 1 bulan yang akan ditampilkan dan tanggal 1 bulan berikutnya fromDate = FormatDateTime(month(CurrentDate) & /1/ & year(CurrentDate))toDate = FormatDateTime(DateAdd(m,1,fromDate))'Dapatkan hari dalam seminggu ketika hari pertama pada bulan yang akan ditampilkan adalah nunmonthstart=weekday(fromDate)-1'Dapatkan jumlah total hari antara hari pertama yang akan ditampilkan ditampilkan dan hari pertama bulan berikutnya ( Berapa hari dalam sebulan)nunmonthend=DateDiff(d,fromDate,toDate)' Tentukan berapa banyak baris tabel yang perlu digunakan untuk menampilkan kalender (setiap baris menampilkan 7 hari ) jika nunmonthstart+nunmonthend<36 lalu maxi=36else maxi=43end if'Loop untuk menghasilkan tabel dan menampilkan i=1do while i<maxi iv=i-nunmonthstart if i>nunmonthstart dan i<=nunmonthend+nunmonthstart lalu 'Jika apa yang ditampilkan adalah hari ini Kemudian tampilkan dengan latar belakang merah jika iv=Hari(sekarang) dan bulan(sekarang)=pbulan dan tahun(sekarang)=ptahun lalu respon.tulis( <td align=center bgcolor=ffaaaa><a href='#' target=_blank> & iv & </a></td>) else respon.write( <td align=center><a href='#' target= _blank> & iv & </a></td>) berakhir jika lain respon.tulis( <td> </td>) berakhir jika</P><P> 'Jika habis dibagi 7 (tampilkan 7 per baris), keluarkan baris baru jika i mod 7=0 lalu respon.write( </tr><tr align=center bgcolor=ffffff height=19>) berakhir jika i=i +1lingkaran%></tabel></tubuh>