Web编程

一个简单的万年历

编辑:dnawo 日期:2006-12-26

字体大小: 小中大

一、VBScript版

HTML代码

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

二、ASP版

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()
	iYear = request.querystring("iyear")
	iMonth = request.querystring("iMonth")
	if isempty(iYear) then iYear = year(date())
	if isempty(iMonth) then iMonth = month(date())
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 <= 35 then iNum = 35 else iNum = 42 end if
'       ┯                  ┯
' ┍──┴─────────┴──┓
' ｜          画出表格            ｜
' ┗───────────────┛
Response.write "<table width='210' height='20' border='0' cellpadding='0' cellspacing='1' bgcolor='#000000'>" & vbcrlf
Response.write "  <tr>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'><a href='" & iPrev & "' title='上月'><<</a></td>" & vbcrlf
Response.write "    <td height='20' colspan='5' align='center' valign='middle' bgcolor='#FFFFFF'>" & iYear & "年" & iMonth & "月" & "</td>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'><a href='" & iNext & "' title='下月'>>></a></td>" & vbcrlf
Response.write "  </tr>" & vbcrlf
Response.write "  <tr>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>日</td>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>一</td>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>二</td>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>三</td>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>四</td>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>五</td>" & vbcrlf
Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>六</td>" & vbcrlf
Response.write "  </tr>" & vbcrlf
For i=1 to iNum
	if i mod 7 = 1 then Response.write "  <tr>" & vbcrlf
	if i<=iSpc then
		Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'> </td>" & vbcrlf
	elseif i>iSpc + iCount then
		Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'> </td>" & vbcrlf
	else
		j = j + 1
		Response.write "    <td width='30' height='20' align='center' valign='middle' bgcolor='#FFFFFF'>" & j & "</td>" & vbcrlf
	end if
	if i mod 7 = 0 then  Response.write "  </tr>" & vbcrlf
Next
Response.write "</table>" & vbcrlf
%>

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

上一篇: 判断某月份总天数

下一篇: 静态页面也玩参数

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags:

最新日志:

评论: 1 | 引用: 0 | 查看次数: 4707

发表评论

请登录后再发表评论！

Powered By PJBlog3 V3.2.9.518 CopyRight 2005 - 2021, 木子屋 xhtml | css
Processed in 0.500000 second(s) , 4 queries , Simple Yellow Design By ChangHua(FatMouse) 闽ICP备19016051号-1

01.w3school	02.51Windows
03.ES6入门教程	04.PHP中文手册
05.MSDN\|.NET	06.Visual Studio\|O
07.ASP.NET MVC2	08.ASP.NET MVC3
09.jQuery\|D\|P	10.Vue.js
11.AspNetPager	12.SharpZipLib
13.AjaxPro	14.Json.NET
15.Web Services	16.BaiDu API
17.数据堂	18.纯真IP库
19.SharpDevelop	20.动软
21..NET Reflector	22.百度\|高德[坐标]
23.Layui\|G\|X\|Q	24.Ele\|uni-app
25.SourceForge	26.CodeProject
27.Dynamic Drive	28.CodePlex
29.GitHub	30.Gitee
31.IItellYou	32.面包多
33.一门APP	34.友盟数据
35.JSON格式化	36.在线文本比较
37.微软开发者中心	38.Android开发者中心

一个简单的万年历

编辑:dnawo 日期:2006-12-26

Category

IM Online

User Panel

Search

Recent Comments

最新评论

Resources