Question

求一段代码、要可以运行的！！！谢谢

1. 建立文件：T1.ASP，编写代码实现功能。（30分）
如果是5：00-10：00就显示“早上好”，10：00-13：00就显示“中午好”，13：00-17：00就显示“下午好”，其他时间就显示“晚上好”。
2. 建立文件：T2.ASP，编写代码实现功能。（30分）
用ASP程序生成一个5行5列表格，表格中要自动填入“第几行，第几列”。
3. 建立文件：T3-1.ASP 、 T3-2.ASP，编写代码实现功能。（40分）
在T3-1.ASP文件中，建立表单如下图。

点击提交按钮页面提交到T3-2.ASP并显示提交信息。

Answer 1

1.
<%
x=hour(now)
if x>=5 and x<10 then
response.write "早上好"
else
if x>=10 and x<13 then
response.write "中午好"
else
if x>=13 and x<17 then
response.write "下午好"
else
response.write "晚上好"
end if
end if
end if
%>
2.<%
x="<table border='1'>"
for i=1 to 5
x=x+"<tr>"
for j=1 to 5
x=x & "<td>第" & i & "行，第" & j & "列</td>"
next
x=x+"</tr>"
next
x=x+"</table>"
response.write x
%>
3 T3-1.asp
<form action="T3-2.asp" method="post">
用户名：<input type="textbox" value="" size="8" name="txtusername"><br>
性别：<input type="radio" name="optGender" checked=true value="男">男<input type="radio" name="optGender" value="女">女
<br>
爱好：<input type="checkbox" name="chkhobby" value="音乐">音乐

<input type="checkbox" name="chkhobby" value="电影">电影

<input type="checkbox" name="chkhobby" value="运动">运动
<br><input type="submit" name="btnsubmit" value="提交">
<input type="reset" value="重置">
</form>
4 T3-2.asp
<%
uname=Request.Form("txtusername")
s=Request.Form("optgender")
h=Request.Form("chkhobby")
response.write "用户名：" & uname & "<br>"
response.write "性别：" & s & "<br>"
response.write "爱好：" & h
%>

追问

谢了