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

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

Topに戻る

掲示板に戻る

検索

削除

管理者

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

コメントする

投稿者：さとしさん 2006/01/11 13:44:22

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

お世話になっています　Ligthningさん
if request.form("year") = "" then
iyear = year(now)
else
iyear = request.form("year")
end if
if isnumeric(iyear) then
if 0 > iyear or 9999 < iyear then
iyear = year(now)
end if
else
iyear = year(now)
end if
ここの文なのですが、入力するところが、空欄ならば現在の年を表す、もし何か数値が入ってればその数値をiyearに返す。さらにその数値は
整数であって、0～9999の間の数値ということで解釈していいんでしょうか？

削除する