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

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

Topに戻る

掲示板に戻る

検索

削除

管理者

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

コメントする

投稿者：Lightningさん 2006/01/11 10:35:42

> <%@ 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>
追加説明、formのactionをみればわかりますが、ファイル名をtest.aspとしてあります。
また、入力された文字のサニタイズをしていないので、request.formで受け取った文字列が年、月として使用可能なものであるかどうかの判定を追加してください。
例
if request.form("year")="" then
iyear = year(now)
else
iyear =request.form("year")
if isnumeric(iyear) then
if 1970 > iyear or 2070 < iyear then
iyear = year(now)
end if
else
iyear = year(now)
end if
とか

月の方はもっと単純で
受け取った値が整数であるか？
整数であれば、１～１２の中にあるか？
です、って年の方といっしょやん！（笑

削除する