当前位置：首页 → 问答吧 → 求助！用ASP实现查找分数段的程序，无法执行成功

求助！用ASP实现查找分数段的程序，无法执行成功

时间：2011-10-18

来源：互联网

第一个页面：

VBScript code

<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>

第二个页面（显示查找到的内容）：

VBScript code

<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>

个人感觉出错在注释“！此行有错误”这个地方，请求高手帮助，谢谢！

作者: mangocookie 发布时间: 2011-10-18

inputMinScore=cint(Request.Form("inputMinScore"))
inputMaxScore=cint(Request.Form("inputMaxScore"))

//这是JS的注释
'这才是asp的注释

作者: cosler 发布时间: 2011-10-18

引用楼主 mangocookie 的回复:
第一个页面：

VBScript code
<html>
<body>
<body style="background-color:PowderBlue;">

<%

//本页面用于查询成绩（分数段）的操作

response.write("<h4>成绩查询（分数段）</h4>")
%>

<form action="ScoreSearchingDisplay.asp" method="p……

谢谢！
刚才我着急死了，一个判断语句不能执行，原来是因为获取的数据没有转换成整型！

作者: mangocookie 发布时间: 2011-10-18