1、把附件calendar文件夹拷贝到images文件夹下,images/calendar
点击下载此文件
2、修改common文件夹下的library.asp;找到第18行附近的代码:
[code] C_Year=Cint(C_Year)
C_Month=Cint(C_Month)
C_Day=Cint(C_Day)
C_YM=C_Year & "-" & C_Month[/code]
在其后面加入以下代码:
[code] Dim Month_Name(12)
Month_Name(0)=""
Month_Name(1)="1"
Month_Name(2)="2"
Month_Name(3)="3"
Month_Name(4)="4"
Month_Name(5)="5"
Month_Name(6)="6"
Month_Name(7)="7"
Month_Name(8)="8"
Month_Name(9)="9"
Month_Name(10)="10"
Month_Name(11)="11"
Month_Name(12)="12"[/code]
3、继续查找以下代码:
程序代码
Calendar="
"&C_Year&"年"&C_Month&"月
"
将其替换为:
程序代码
Calendar="
"&C_Year&"年"&C_Month&"月
"