< %@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 ">
<หัว>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="text/css">
ร่างกาย{
ขนาดตัวอักษร:12px;
-
โต๊ะ{
การจัดตำแหน่งข้อความ: กึ่งกลาง;
-
#สกุลเงิน{
สีพื้นหลัง:#CC99CC;
-
</สไตล์>
</หัว>
<ร่างกาย>
-
เส้นสลัว,currY,currD,firDate,firWeek,maxDay,วัน
แคลย่อย(dateStr)
ถ้า dateStr="" แล้ว
dateStr=วันที่()
สิ้นสุดถ้า
currY=ปี(dateStr)
currM=เดือน(dateStr)
currD=วัน(dateStr)
firDate=currY&"-"&currM&"-1"
firWeek=วันสัปดาห์(firDate)
maxDay=วัน(dateSerial(y,m+1,0))
วัน=maxDay+firWeek-1
ถ้าวัน mod 7 = 0 แล้ว
เส้น=int(วัน/7)-1
อื่น
เส้น=แก้ไข(วัน/7)
สิ้นสุดถ้า
จบย่อย
'这样就生成2008年8月的日历
'ds="2008-8-8"
'โทรหาแคล(ds)
โทรแคล("")
-
<table border="0" cellspacing="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>
<%for i=0 ถึงบรรทัด%>
<tr>
-
สำหรับ j=1 ถึง 7
สี่เหลี่ยมจัตุรัส=7*i+j-firWeek+1
ถ้าสี่เหลี่ยมจัตุรัส<1หรือสี่เหลี่ยมจัตุรัส>maxDayแล้ว
response.Write("<td width='25' height='25'> </td>")
elseif square=currD แล้ว
response.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
อื่น
response.Write("<td width='25' height='25'>"&square&"</td>")
สิ้นสุดถ้า
ต่อไป
-
</tr>
<%ถัดไป%>
</ตาราง>
</ร่างกาย>
</html>