Я считаю, что пользователи сети, у которых есть личные домашние страницы, хотели бы знать, как посетители оценивают их работы, чтобы определить направление для совершенствования.
Следующий онлайн-опрос является одним из примеров:)
Вам нужно пространство, поддерживающее FSO. Вам нужны только два файла: один — страница обработки poll.asp, другой — файл данных poll.txt, и, конечно же, третий. отобразите страницу формы отправки, коды приведены ниже:
1. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<голова>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Опрос сайта</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</голова>
<тело>
<р>
<%
тусклый опрос, всего
тусклый опросчик(4)
тусклое имя опроса(7)
тусклый опрос(4)
polled=cint(Request.Form("выбрать"))
set fs= Server.CreateObject("scripting.filesystemobject")
poll=server.MapPath("poll.txt")
установить textar=fs.opentextfile(опрос,1,0,0)
если не сеанс (опрос), то
я = 0
пока не textar.atendofstream
getdata=textar.readline
имя опроса (i) = влево (rtrim (getdata), 7)
pollnum(i)=right(RTrim(getdata),4)
если я = опросил, то
j=cdbl(pollnum(i))+1
pollnum(i)=right(space(6)&trim(cstr(j)),7)
конец, если
я=я+1
идти
текстар.закрыть
set textar1=fs.createtextfile(опрос,-1,0)
тотл = 0
для j=0 до (i-1)
итог = итог + cdbl (номер опроса (j))
textar1.writeline имя_опроса(j)&номер_опроса(j)
следующий
textar1.закрыть
%>
<span class="news1"> Как вы думаете, где этот сайт нуждается в улучшении? </span></p>
<%
для j=0 до (i-1)
pollper(j)=cdbl(pollnum(j))/всего
ширина = 500 * опросник (j)
%>
<table width="750" border="0" align="left">
<тр>
<td align="left" bgcolor="#CCCCCC">
<%Response.Write(trim(pollname(j))&"(")
Response.Write(formatnumber(pollnum(j),0)&")")
Response.Write("<br>")
Response.Write("<img src='images/bg1.gif' width=")
Response.Write(ширина&"' высота=10>")
Response.Write(formatpercent(pollper(j)) &"<p>")
следующий
Response.Write("Итого:")
Response.Write(номерформата(всего,0))
%>
</td>
</tr>
</таблица>
<%
сеанс (опрос) = истина
еще
Response.Write("Вы уже проголосовали, спасибо за голос!")
конец, если
%>
<p> </p>
</тело>
</html>
2.poll.txt:
обложка страницы 27
Охват контента 35
Скорость обновления контента 43
Количество посещений сайта — 53.
Страница (форма), которую вы хотите отобразить:
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<тр>
<td height="20" align="center" background="images/bg1.gif" class="1">Как вы думаете, какие области на этом сайте нуждаются в улучшении? </td>
</tr>
<тр>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" проверено>
Обложка страницы</td>
</tr>
<тр>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
Охват контента</td>
</tr>
<тр>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2">
Скорость обновления контента</td>
</tr>
<тр>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<input type="radio" name="select" value="3">
Посещения веб-сайта</td>
</tr>
<тр>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<input type="submit" name="Submit2" value="Submit">
</span><a href="poll.asp">Просмотр</a></td>
</tr>
</table>
Разве это не очень просто? Спешите сделать его сами :)