28,391
社区成员
发帖
与我相关
我的任务
分享
<html>
<body>
<body style="background-color:PowderBlue;">
<%
//本页面用于查询成绩(分数段)的操作
response.write("<h4>成绩查询(分数段)</h4>")
%>
<form action="ScoreSearchingDisplay.asp" method="post">
最低:<input type="text" name="inputMinScore" size="3" />分 <br />
最高:<input type="text" name="inputMaxScore" size="3" />分 <br /><br />
<input type="submit" value="点击查询" />
</form>
</body>
</html>
<html>
<body>
<body style="background-color:PowderBlue;">
<%
//本页面用于显示查询成绩(分数段)后的列表
Dim list(3,3) //定义一个四行四列的二维数组
Dim row,column //定义二维数组的行与列
//存放从ScoreSearching页面传过来的参数
Dim inputMinScore
Dim inputMaxScore
inputMinScore=Request.Form("inputMinScore")
inputMaxScore=Request.Form("inputMaxScore")
//初始成绩化列表
list(0,0) = "Mike"
list(0,1) = 80
list(1,0) = "Jack"
list(1,1) = 62
list(2,0) = "Lucy"
list(2,1) = 98
list(3,0) = "Elva"
list(3,1) = 77
response.write("<h3>显示查询</h3>")
// !以上运行全部正确
response.write("<b>姓名</b>" & " " & "<b>分数</b>" & "<br />")
//寻找符合搜索条件的分数并输出
For row = 0 to 3
// !此行有错误
If (list(row,1)>=inputMinScore And list(row,1)<=inputMaxScore) Then
response.write(list(row,0) & " " & list(row,1) & "分" & "<br />")
End If
Next
%>
</body>
</html>