vbscript.фильтр данных с текстового файла - Помощь студентам

tiger · 28.11.2010, 17:43

Фильтр фамилий студентов по оценкам. Где-то есть ошибка, но найти не могу. Наверно в функции ShowResult. Если вы ее видите подскажите пожалуйста.

Код HTML:

<HTML>
<HEAD>
<TITLE>Приклад 3 </TITLE>
<STYLE>
<!--
.THeader(color:navy; font-weight:bold}
-->
</STYLE>
<SCRIPT language="VBScript">
<!--

Sub window_onload()
   IstGradeFrom.SelectedIndex=3
   IstGradeTo.SelectedIndex=0
End Sub

Sub ShowResult()
  Dim Cond
Cond="Оцінка>=" & Cstr(5-IstGradeFrom.SelectedIndex)  &  _
"&" & "Оцінка<=" & Cstr(5-IstGradeTo.SelectedIndex)
  dbGrade.Filter=Cond
  dbGrade.Reset()
End Sub
-->
</SCRIPT>

</HEAD>

<BODY>
<FONT face="verdana,arial,helvetica" size=2>
  <H2>Результат екзамена </H2>
<OBJECT CLASSID="clsid:333C7BC4-460F-11D0-BC04-0080C7055A83" id=dbGrade>
   <PARAM name="UseHeader" value="True">
   <PARAM name="DataURL" value="dtresult.txt">
</OBJECT>

<TABLE border=1>

<TR>
  <TD> Від </TD>
  <TD> До </TD>
</TR>

<TR>
  <TD>
  <SELECT name="IstGradeFrom" OnChange="ShowResult()">
      <OPTION name="opt5">5
      <OPTION name="opt4">4
      <OPTION name="opt3">3
      <OPTION name="opt2">2
</TD>
          
  <TD>
  <SELECT name="IstGradeTo" OnChange="ShowResult()">
      <OPTION name="opt5">5
      <OPTION name="opt4">4
      <OPTION name="opt3">3
      <OPTION name="opt2">2
</TD>
</TR>
</TABLE>

<TABLE id="tblGrade" datasrc="#dbGrade" border=1>
  <THEAD>
    <TR>
<TD class="THeader">
  <DIV id="tdSurname">Прізвище</DIV>  </TD>
<TD class="THeader"> <DIV id="tdGrade">Оцінка</DIV> </TD>
</TR>

</THEAD>
<TBODY>
<TR>
<TD>  <DIV datafld="Прізвище"</DIV></TD>
<TD>  <DIV datafld="Оцінка"</DIV></TD>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>

Файл dtResult.txt имеет вид:

Прізвище, Оцінка
Фамилие1, 5
Фамилие2, 5
Фамилие3, 4
Фамилие4, 5
Фамилие5, 4
Фамилие6, 3
Фамилие7, 5
Фамилие8, 4
Фамилие9, 4
Фамилие10, 4

tiger · 29.11.2010, 00:26

никто не подскажет? реально не могу найти ошибку, уже не один раз просматривал.

dimon2566 · 16.12.2010, 15:07

Код HTML:

<html>
<head>
<style>
	<!-- .Theader{color: navy; font-weight:bold;}
	-->
</style>
<script language="VBScript">
	<!--
		Sub window_onLoad()
			IstGradeFrom.SelectedIndex=3
			IstGradeTo.SelectedIndex=0
		end Sub
		
		Sub ShowResult()
			dim Cond
			Cond="Оцінка>="& Cstr(5-IstGradeFrom.SelectedIndex) & "&" & "Оцінка<=" & Cstr(5-IstGradeTo.SelectedIndex)
			dbGrade.Filter=Cond
			dbGrade.Reset()
		End Sub
	-->
</script>
</head>

<body>
<font face="verdanna,arial,helvetica" size=2>
<h2> Результат екзамена </h2>
<object classid="clsid:333C7BC4-460F-11D0-BC04-0080C7055A83" id="dbGrade">
<param name="DataUrl" value="dtResult.txt">
<param name="UseHeader" value="true">
</object>
<table border=1>
	<tr>
		<td>Від</td>
		<td> До </td>
	</tr>
	<tr>
		<td>
			<select name="IstGradeFrom" OnChange="ShowResult()">
				<option name="opt5">5
				<option name="opt4">4
				<option name="opt3">3
				<option name="opt2">2
		</td>
		<td>
			<select name="IstGradeTo" OnChange="ShowResult()">
				<option name="opt5">5
				<option name="opt4">4
				<option name="opt3">3
				<option name="opt2">2
		</td>
	</tr>
</table>
<table id="tblGrade" datasrc="#dbGrade" border=1>
	<thead>
		<tr>
			<td class="Theader"><div id="tdSurname">Прізвище</div></td>
			<td class="Theader"><div id="tdSurname">Оцінка</div></td>
		</tr>
	</thead>
	<tbody>
		<tr>
			<td><div datafld="Прізвище"></div></td>
			<td ><div datafld="Оцінка"></div></td>
		</tr>
	</tbody>
</table>
</body>
</html>[HTML]

[/HTML]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
выборка данных из текстового файла	uraura	Общие вопросы Delphi	3	27.11.2010 16:34
Импорт данных из текстового файла	chobo	Microsoft Office Excel	7	28.10.2010 14:29
Чтение данных из текстового файла	flame33	Общие вопросы .NET	2	19.07.2010 11:43
Получение данных из текстового файла	maksim_serg	Microsoft Office Excel	3	21.04.2010 05:54
Загрузка данных из текстового файла	diliana	Помощь студентам	14	03.03.2010 09:05

29.11.2010, 00:26	#2
tiger Пользователь Регистрация: 30.03.2008 Сообщений: 52	никто не подскажет? реально не могу найти ошибку, уже не один раз просматривал.