出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ）

出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
【PR】パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。

Topに戻る

掲示板に戻る

検索

削除

管理者

[5569] 私ならこんな感じのソースにするかな？

コメントする

投稿者：Lightningさん 2006/01/11 10:04:30

<%@ language=vbscript %>
<% option explicit %>
<html>
<head>
<title>カレンダー表示</title>
</head>
<body bgcolor="#f5f5f5">
<%

dim saisyuubi
dim hiduke
dim iyear
dim imonth
dim YColor(6)
dim i

'曜日色初期化
YColor(0) = "red"
YColor(6) = "blue"
for i = 1 to 5
YColor(i) = "black"
next

'formからのPOSTがある場合と無い場合を切り分け
if request.form("year")="" then
iyear = year(now)
else
iyear =request.form("year")
end if
if request.form("month")="" then
imonth = month(now)
else
imonth =request.form("month")
end if

hiduke = 1-weekday(dateserial(iyear,imonth,1))+1
saisyuubi = day(dateserial(iyear,imonth+1,1-1))

response.write "<div>西暦" & iyear & "年" & imonth & "月</div>" & vbcrlf
response.write "<table border=1>" & vbcrlf
response.write vbtab & "<tr>" & vbcrlf
for i = 0 to 6
response.write vbtab & vbtab & "<th width=50 height=25 align=center><font color=" & YColor(i) & ">"
response.write weekdayname(i+1,true) & "</font></th>" & vbcrlf
next
response.write vbtab & "</tr>" & vbcrlf
for i = hiduke to saisyuubi + 7- weekday(dateserial(iyear,imonth,saisyuubi))
if weekday(dateserial(iyear,imonth,i)) = 1 then
response.write vbtab & "<tr>" & vbcrlf
end if
if i > 0 and i <= saisyuubi then
response.write vbtab & vbtab & "<td width=""50"" height=""50"" align=""center"">"
response.write "<font color=" & YColor(weekday(dateserial(iyear,imonth,i)) - 1) & ">" & i & "</font>"
response.write "</td>" & vbcrlf
else
response.write vbtab & vbtab & "<td width=50 height=50 align=center>-</td>" & vbcrlf
end if
if weekday(dateserial(iyear,imonth,i)) = 7 then
response.write vbtab & "</tr>" & vbcrlf
end if
next

response.write "</table>"

response.write "今日は" & CDate(now())

%>
<form method = "post" action = "./test.asp">
<input type = "text" name = "year" size = "8" value = "<% response.write year(now) %>">年
<input type = "text" name = "month" size = "4" value = "<% response.write month(now) %>">月
<input type = "submit" value = "カレンダ表示" >
</form>
</body>
</html>

というサンプルソース。
いじってて思ったんですが、tableタグの内部でのセル数が統一されてなかったり、タグが閉じてない点が多々あったり。
borderは作成段階では０にせず、tableの状況が見えるようにしたほうがいいです。
あと、ASPは関係ない点ですが、tableなどはいちいち改行、tabを入れてインデントを意識的にソースに現れるようにしておくとミスを発見しやすくなるのでお勧めです。
#めんどくさいけどね。

削除する