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

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

Topに戻る

掲示板に戻る

検索

削除

管理者

[5570] Re:初心者でめちゃくちゃですがよろしくお願いします

コメントする

投稿者：さとしさん 2006/01/11 10:08:08

> ソース上の改善点はいろいろありますが、質問への回答は
> if request("year")="" then
> iyear = year(now)
> else
> iyear =request("year")
> end if
> こういうことだと思いますが・・・
> なお、メソッドがpost固定で決まっているのならrequestはrequest.formを使ったほうがいいです。
>
> request.formはformのmethodがpostの場合に使います。
> request.form("year")とかって感じに。
>
> で、改善点ですが・・・
>
> if Yhyo = 0 then
> response.write "<font color=red>" & hiduke & "</font>"
> end if
> if Yhyo = 6 then
> response.write "<font color=blue>" & hiduke & "</font>"
> end if
> if Yhyo = 1 then
> response.write "<font color=black>" & hiduke & "</font>"
> end if
> if Yhyo = 2 then
> response.write "<font color=black>" & hiduke & "</font>"
> end if
> if Yhyo = 3 then
> response.write "<font color=black>" & hiduke & "</font>"
> end if
> if Yhyo = 4 then
> response.write "<font color=black>" & hiduke & "</font>"
> end if
> if Yhyo = 5 then
> response.write "<font color=black>" & hiduke & "</font>"
> end if
> は
> select case Yhyo
> case 0:
> response.write "略"
> case 6:
> response.write "略"
> case else:
> response.write "略"
> end select
> って感じにしてしまうとか、いろいろ考えられると思います。
> #もしかしたらJSなどのswitchの書式と混ざっている可能性があるのでselectCaseに関しては使用前に確認してください。

Lightningさん回答ありがとうございました。

select文ですっきとさせました。実際にrequest.form("year")とrequest("month")というのを宣言の上に付け足したのですが、特になにも起こりませんでした。すごい初歩的かもしれませんが、もう一歩ご指摘願いますでしょうか。よろしくお願いします。失礼しました。

<%@ language=vbscript %>
<% option explicit %>
<html>
<head>
<title>カレンダー表示</title>
</head>
<body bgcolor="#f5f5f5">
<%
'================================
'入力データの取得
'================================
request.form("year")
request.form("month")

dim saisyuubi
dim hiduke
dim Thyo
dim Yhyo
dim iyear
dim imonth

iyear = year(now)
imonth= month(now)
'================================
'日付の週の一日目と月の末、作成
'================================
hiduke = 1-weekday(dateserial(iyear,imonth,1))+1
saisyuubi = day(dateserial(iyear,imonth+1,1-1))

response.write "西暦" & iyear & "年" & imonth & "月" &_

"<table border=0>"

for Yhyo = 0 to 6
response.write "<td width=50 height=25 align=center>"
if (weekday(Yhyo) = 7) then
response.write "<font color=red>"
end if
if (weekday(Yhyo) = 6) then
response.write "<font color=blue>"
end if
response.write weekdayname(Yhyo+1,true)
response.write "</td>"
next

'=================================
'カレンダ本体、1～7日で折り返して
'作成。
'=================================
for Thyo = 0 to 5
response.write "<tr>"

for Yhyo = 0 to 6

if hiduke > 0 and hiduke <= saisyuubi then

response.write "<td width=50 height=50 align=center>"
'select文ですっきりと
select case Yhyo
case 0
response.write "<font color=red>" & hiduke & "</font>"
case 6
response.write "<font color=blue>" & hiduke & "</font>"
case else
response.write "<font color=black>" & hiduke & "</font>"
end select
response.write "</td>"

else
response.write "<td width=50 height=50 align=center>" & ""
response.write "</td>"

end if

hiduke = hiduke + 1

if hiduke > saisyuubi then
exit for
end if

next
response.write "</tr>"

if hiduke > saisyuubi then
exit for
end if

next
response.write "</table>"

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

%>
<form method = "post" action = "calender.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 = "カレンダ表示" >
</body>
</html>

削除する