木子屋
 

标题: 一个简单的万年历

作者: dnawo

日期: 2006-12-26 10:06 PM

分类: Web编程

内容: 一、VBScript版
HTML代码
' ┯ ┯
' ┍──┴─────────┴──┓
' ｜ 【函数】 ｜
' ｜ getCount:取得月总天数 ｜
' ｜ prevMonth:取得上月地址 ｜
' ｜ nextMonth:取得下月地址 ｜
' ｜ getPar:取得地址参数 ｜
' ┗───────────────┛
Function getCount(ByVal iYear,ByVal iMonth)
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12
getCount = 31
Case 4, 6, 9, 11
getCount = 30
Case 2
If IsDate(iyear & "-" & imonth & "-29") Then
getCount = 29
Else
getCount = 28
End If
End Select
End Function
Function prevMonth(ByVal iYear,ByVal iMonth)
Dim temp
temp = dateadd("m",-1,iYear & "-" & iMonth & "-1")
iYear = year(temp)
iMonth = month(temp)
prevMonth = "?iYear=" & iYear & "&iMonth=" & iMonth
End function
Function nextMonth(ByVal iYear,ByVal iMonth)
Dim temp
temp = dateadd("m",1,iYear & "-" & iMonth & "-1")
iYear = year(temp)
iMonth = month(temp)
nextMonth = "?iYear=" & iYear & "&iMonth=" & iMonth
End function
Sub getPar()
Dim temp,i,j,k,l
temp = document.location.href
if instr(temp,"?") = 0 then
iYear = year(date())
iMonth = month(date())
else
i = len(temp)
j = instr(temp,"=")
k = instr(temp,"&")
l = instrRev(temp,"=")
iYear = mid(temp,j+1,k-j-1)
iMonth = right(temp,i-l)
end if
End sub
' ┯ ┯
' ┍──┴─────────┴──┓
' ｜ 【变量】 ｜
' ｜ iPrev:上个月地址 ｜
' ｜ iNext:下个月地址 ｜
' ｜ iCount:月总天数 ｜
' ｜ iSpc:第一行空格数 ｜
' ｜ iNum:总单元格数35或42 ｜
' ｜ iYear:年份 ｜
' ｜ iMonth:月份 ｜
' ┗───────────────┛
Dim i,j,iPrev,iNext,iCount,iSpc,iNum,iYear,iMonth
Call getPar()
iCount = getCount(iYear,iMonth)
iPrev = prevMonth(iYear,iMonth)
iNext = nextMonth(iYear,iMonth)
iSpc = weekday(iyear & "-" & imonth & "-1")-1
if iCount + iSpc " & vbcrlf
Document.write " " & vbcrlf
Document.write " " & vbcrlf
Document.write " " & iYear & "年" & iMonth & "月" & "" & vbcrlf
Document.write " >>" & vbcrlf
Document.write " " & vbcrlf
Document.write " " & vbcrlf
Document.write " 日" & vbcrlf
Document.write " 一" & vbcrlf
Document.write " 二" & vbcrlf
Document.write " 三" & vbcrlf
Document.write " 四" & vbcrlf
Document.write " 五" & vbcrlf
Document.write " 六" & vbcrlf
Document.write " " & vbcrlf
For i=1 to iNum
if i mod 7 = 1 then Document.write " " & vbcrlf
if i " & vbcrlf
elseif i>iSpc + iCount then
Document.write "  " & vbcrlf
else
j = j + 1
Document.write " " & j & "" & vbcrlf
end if
if i mod 7 = 0 then Document.write " " & vbcrlf
Next
Document.write "" & vbcrlf

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
二、ASP版
HTML代码" & vbcrlf
Response.write " " & vbcrlf
Response.write " <<" & vbcrlf
Response.write " " & iYear & "年" & iMonth & "月" & "" & vbcrlf
Response.write " >>" & vbcrlf
Response.write " " & vbcrlf
Response.write " " & vbcrlf
Response.write " 日" & vbcrlf
Response.write " 一" & vbcrlf
Response.write " 二" & vbcrlf
Response.write " 三" & vbcrlf
Response.write " 四" & vbcrlf
Response.write " 五" & vbcrlf
Response.write " 六" & vbcrlf
Response.write " " & vbcrlf
For i=1 to iNum
if i mod 7 = 1 then Response.write " " & vbcrlf
if i " & vbcrlf
elseif i>iSpc + iCount then
Response.write "  " & vbcrlf
else
j = j + 1
Response.write " " & j & "" & vbcrlf
end if
if i mod 7 = 0 then Response.write " " & vbcrlf
Next
Response.write "" & vbcrlf
%>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.109 ms

标题: 一个简单的万年历

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.109 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.109 ms