Acredito que os internautas que possuem homepages pessoais gostariam de saber como os visitantes avaliam seus trabalhos, para se orientarem para melhorias.
A pesquisa on-line a seguir é um exemplo:)
Você precisa de um espaço que suporte FSO. Você só precisa de dois arquivos, um é a página de processamento poll.asp, o outro é o arquivo de dados poll.txt e, claro, o outro é para. exibir a página do formulário de submissão, os códigos são fornecidos abaixo:
1. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Pesquisa do site</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</head>
<corpo>
<p>
<%
escuro pesquisado, total
polador escuro (4)
escurecer nome da enquete(7)
dim pollnum(4)
polled=cint(Request.Form("selecionar"))
definir fs = Server.CreateObject ("scripting.filesystemobject")
poll=server.MapPath("poll.txt")
definir textar=fs.opentextfile(poll,1,0,0)
se não for sessão (pesquisada), então
eu=0
enquanto não textar.atendofstream
getdata=textar.readline
pollname(i)=esquerda(rtrim(getdata),7)
pollnum(i)=direita(RTrim(getdata),4)
se eu = pesquisado então
j=cdbl(pollnum(i))+1
pollnum(i)=direita(espaço(6)&trim(cstr(j)),7)
terminar se
eu=eu+1
vamos
textar.fechar
definir textar1=fs.createtextfile(poll,-1,0)
total=0
para j = 0 a (i-1)
total=total+cdbl(pollnum(j))
textar1.writeline pollname(j)&pollnum(j)
próximo
textar1.fechar
%>
<span class="news1"> Onde você acha que este site precisa de melhorias? </span></p>
<%
para j = 0 a (i-1)
pollper(j)=cdbl(pollnum(j))/total
largura=500*pesquisador(j)
%>
<table width="750" border="0" align="left">
<tr>
<td alinhar="esquerda" bgcolor="#CCCCCC">
<%Response.Write(trim(pollname(j))&"(")
Response.Write(formatonúmero(pollnum(j),0)&")")
Resposta.Write("<br>")
Response.Write("<img src='images/bg1.gif' largura=")
Response.Write(largura&"'altura=10>")
Response.Write(formatpercent(pollper(j)) &"<p>")
próximo
Response.Write("Total:")
Response.Write(formatonúmero(total,0))
%>
</td>
</tr>
</tabela>
<%
sessão(pesquisada)=true
outro
Response.Write("Você já votou, obrigado pelo seu voto!")
terminar se
%>
<p>
</body>
</html>
2.poll.txt:
Arte da página 27
Cobertura de conteúdo 35
Velocidade de atualização de conteúdo 43
O número de visitas ao site é 53.
A página (formulário) que deseja exibir:
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center" background="images/bg1.gif" class="1">Quais áreas você acha que precisam de melhorias neste site? </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" verificado>
Arte da página</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
Cobertura de conteúdo</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2">
Velocidade de atualização de conteúdo</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<input type="radio" name="select" value="3">
Visitas ao site</td>
</tr>
<tr>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<input type="submit" name="Submit2" value="Enviar">
</span><a href="poll.asp">Ver</a></td>
</tr>
</table>
Não é muito simples? Apresse-se e faça você mesmo :)