| язык: | VBScript |
| автор: | Timon PC |
| версия от: | 11 августа 2002 г. |
Возможно описаный здесь способ будет немного простоват и наивен, но в том-то вся и соль. Если Вы хотите создать маленьки (а может даже очень большой) и удобный опрос на своем сайте то делайте следуещее:
[шаг 1] Для начала создадим форму на которой и будут располагаться необходимые элементы опроса:
<BODY> <form name=opros> Нашли ли Вы тут то, что искали? <br> <input type=checkbox name="r1"> Да :-) <br> <input type=checkbox name="r2"> Нет :-( <br> <input type=checkbox name="r3"> Не совсем то :-\ <input type=button name=button1 value="Ответить"> </form> </BODY>
Таким оброзом мы создадим видимый (но еще не функциональный) образец нашего опроса. Для этого нам надо добавить следующий текст:
<HEAD>
<script language=VbScript>
Dim t1, t2, t3, all
Sub button1_OnClick
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FF = FSO.GetFile("d:\papka\test.txt")
Set File = FF.OpenAsTextStream(1)
t1 = File.ReadLine
t2 = File.ReadLine
t3 = File.ReadLine
all = File.ReadLine
File.Close
Set FF = FSO.GetFile("d:\papka\test.txt")
Set File = FF.OpenAsTextStream(2)
if document.opros.r1.checked then t1=t1+1
if document.opros.r2.checked then t2=t2+1
if document.opros.r3.checked then t3=t3+1
all=all+1
file.writeline t1
file.writeline t2
file.writeline t3
file.writeline all
FileClose
end Sub
Sub button2_OnClick
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FF = FSO.GetFile("d:\papka\text.txt")
Set File = FF.OpenAsTextStream(8)
file.writeline document.opros.text.value
FileClose
end Sub
</HEAD>
Действуй!!!
