28,390
社区成员
发帖
与我相关
我的任务
分享
题一:</br>
<%
<!--- 问题一 --->
Dim i,j
For i=1 to 9
For j=1 to i
Response.Write j & "*" & i & "=" & i*j & " "
Next
Response.Write "</br>"
Next
%>
</br></br></br></br></br></br> <!--- 此行为题目间的分隔换行 --->
题二:</br>
<%
'问题二
Dim weekday
weekday=datepart("w",date())
Select case weekday
case 1
weekday="星期日"
case 2
weekday="星期一"
case 3
weekday="星期二"
case 4
weekday="星期三"
case 5
weekday="星期四"
case 6
weekday="星期五"
case 7
weekday="星期六"
End Select
Response.Write "当前的日期为" & date() & "</br>今天" & weekday & "</br>"
%>
</br></br></br></br></br></br> <!--- 此行为题目间的分隔换行 --->
题三:</br>
<%
'问题三
Dim cur_hour
cur_hour=hour(time())
If cur_hour<12 And cur_hour>=0 Then
message="早上好"
ElseIf cur_hour>=12 And cur_hour<=18 Then
message="下午好"
Else
message="晚上好"
End If
Response.Write message
%>
</br></br></br></br></br></br> <!--- 此行为题目间的分隔换行 --->
题四:
<%
'题目四
Response.Write "<a href='index.asp'>返回首页</a>"
%>
<%
dim d : d=date()
dim w : w= weekday(d)
select case w
case 1
week="星期天"
case 2
week="星期一"
case 3
week="星期二"
case 4
week="星期三"
case 5
week="星期四"
case 6
week="星期五"
case 6
week="星期六"
case else
week="星期八"
end select
response.write("今天是"& formatdatetime(d,1)&"," & week &"。" )
%>
<%
for i = 1 to 9
for j = 1 to i
response.write j &"*"&i&"="&i*j
response.write " "
next
response.write "<br/>"
next
%>