< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml ">
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=utf-8" />
<title>无标题文档</title>
<gaya tipe="teks/css">
tubuh{
ukuran font:12px;
}
meja{
perataan teks:tengah;
}
#saat ini{
warna latar belakang:#CC99CC;
}
</gaya>
</kepala>
<tubuh>
<%
garis redup,kari,currD,firDate,firWeek,maxDay,hari
sub cal(tanggalStr)
jika dateStr="" maka
tanggalStr=tanggal()
berakhir jika
currY=tahun(tanggalStr)
saat iniM=bulan(tanggalStr)
saat iniD=hari(tanggalStr)
firDate=kari&"-"&currM&"-1"
Minggu Pertama=Hari Minggu(tanggal pertama)
maxDay=hari(dateSerial(y,m+1,0))
hari=Hari maks+minggu pertama-1
jika hari mod 7 = 0 maka
baris=int(hari/7)-1
kalau tidak
garis=memperbaiki(hari/7)
berakhir jika
sub akhir
'这样就生成2008年8月的日历
'ds="2008-8-8"
'telepon cal(ds)
panggil kal("")
%>
<tabel border="0" cellpacing="0" cellpadding="0">
<tr>
<td width="25" height="25">日</td>
<td width="25" height="25">一</td>
<td width="25" height="25">二</td>
<td width="25" height="25">三</td>
<td width="25" height="25">四</td>
<td width="25" height="25">五</td>
<td width="25" height="25">六</td>
</tr>
<%untuk i=0 hingga garis%>
<tr>
<%
untuk j=1 sampai 7
persegi=7*i+j-firMinggu+1
jika persegi<1 atau persegi>maxDay maka
respon.Tulis("<td lebar='25' tinggi='25'> </td>")
elseif square=currD lalu
respon.Write("<td width='25' height='25' id='curr'>"&persegi&"</td>")
kalau tidak
respon.Tulis("<td width='25' height='25'>"&persegi&"</td>")
berakhir jika
Berikutnya
%>
</tr>
<%berikutnya%>
</tabel>
</tubuh>
</html>