Com a popularidade da Internet, as pesquisas online muitas vezes podem alcançar melhores resultados. Colocar um quadro de pesquisa de perguntas interessante em seu site pessoal pode realmente adicionar muita cor ao site e, por meio dos resultados da pesquisa, você pode aprender com mais e mais precisão sobre as opiniões dos internautas em seu site; Como webmaster, se o seu site também precisa realizar pesquisas sobre um determinado tópico e você odeia usar painéis de pesquisa fornecidos por terceiros gratuitamente (o gratuito geralmente tem um preço, como publicidade!), então sugiro que você gaste dez minutos Tempo para ler este artigo apresentando o uso de ASP para criar um quadro de pesquisa. Você só precisa copiar o código do artigo para sua máquina, fazer pequenas modificações e você terá imediatamente um quadro de pesquisa personalizado. Ok, anime-se e olhe para baixo.
Existem três arquivos neste quadro de pesquisa: exibição de perguntas de pesquisa (research.html), processamento de seleções de usuários (select.asp) e visualização de resultados de pesquisa (viewresult.asp). A ideia do design é: o ASP obtém as informações enviadas do formulário e modifica o banco de dados que registra o número de votos na pesquisa. Em seguida, o ASP lê o banco de dados, obtém o número de votos para cada pergunta da pesquisa e ajusta a barra correspondente. exibição de gráfico com base no número de votos. Os resultados da pesquisa são apresentados de forma intuitiva e proporcional. Fiz comentários mais detalhados sobre os pontos-chave do programa e não entrarei aqui no conhecimento básico do ASP. Os leitores podem conferir na coluna Taoba ASP. Claro, espero que ao depurar o programa em seu próprio servidor, se você não entender alguma coisa, você deve verificar o manual técnico ASP ao seu redor para ver a sintaxe detalhada de objetos, métodos ou funções, tentar modificá-lo, e veja como os resultados mudam —— Esta é uma ótima maneira de aprender programação.
1. Exibir perguntas da pesquisa (research.html)
O design das perguntas da pesquisa deve ser baseado na situação real, seja prática ou interessante, e o estilo exibido na página da web pode ser simples ou animado. pergunta na página inicial do autor. Uma pesquisa interessante sobre "Qual é a coisa mais importante no século 21?" Para ilustrar o problema, o código para modificação estética é omitido no código a seguir. use tabelas e outras técnicas para embelezar a exibição das perguntas da pesquisa. Para fazer Ti mudar o dragão? Os bordos Lai Ta agitaram o nariz e se aproveitaram do Gui. A fita estava frouxa?
índice de pesquisa.html:
<html>
<title>Teste do Survey Board</title>
<cabeça>
< !-- start: Defina uma nova janela-- >
<linguagem de script=javascript>
< !--
var nova janela = null
funçãoOpenWindow(htmurl)
{
if (! novaJanela || novaJanela.fechada)
{
novaJanela =
window.open(htmurl,"newwin","barra de ferramentas=não,resiza=não,barras de rolagem=não,largura=400,altura=280");
}outro
{
novaJanela.focus();
}
}
//-- >
</ /script>
<!-- end: Defina a janela recém-aberta-->
</ /head>
<corpo>
< !-- start: perguntas da pesquisa, opções -- >
< p >O que você acha que é a coisa mais importante no século 21? </p>
<form method="POST" action="vote/select.asp" name="research" LANGUAGE="javascript"
onSubmit="OpenWindow()" target="newwin" >
< p alinhar = "esquerda" >
<br>
< input type="radio" value="1" name="Options" >Conhecimento (conhecimento é poder)< br >
< input type="radio" value="2" name="Options" >Qualificações académicas (a sociedade académica não tem fim)< br >
< input type="radio" value="3" name="Opções" >Dinheiro (economia é a base)< br >
< input type="radio" value="4" name="Options" >Amor (amor que nunca entrará na sepultura)< br >
< input type="radio" value="5" name="Options" >Ideal (caramba, o que é um ideal)< br >
< input type="radio" value="6" name="Options" >Consciência democrática (preocupação com a política)< br >
< input type="radio" value="7" name="Options" >Pensamento Científico (rejuvenescer o país através da ciência e da educação)< br >
< input type="submit" value="submit" name="voting" >
< input type="button" value="View" name="viewing" onClick="OpenWindow(vote/viewresult.asp)" >
</form>
< !-- start: perguntas da pesquisa, opções -- >
</corpo>
</html>
2. Processamento da seleção do usuário (select.asp)
Com base nas opções de pesquisa acima, criamos o design do banco de dados researchdb.mdb (tomando o Access como exemplo) que registra os votos da pesquisa. O nome da tabela é: research. Se o seu banco de dados e tabelas não forem salvos com os nomes acima, não se esqueça de modificá-los adequadamente nos procedimentos e operações subsequentes.
Pesquisa de tabela que armazena números de votos de pesquisa:
nome do campo tipo de dados valor padrão
id número automático 1
selecione1 número 0
selecione2 número 0
selecione3 número 0
selecione4 número 0
selecione5 número 0
selecione6 número 0
select7 número 0
Após construir o banco de dados, vamos criar uma fonte de dados no servidor. Primeiro, execute "ODBC" no "Painel de Controle", selecione "System DSN", pressione o botão "Adicionar", selecione "Microsoft Access Driver", pressione o botão "Concluir" após a seleção e clique em "Fonte de Dados" em as configurações ODBC. Digite o nome do banco de dados na caixa de entrada "Nome", neste caso researchdb, e pressione o botão "Selecionar" para selecionar o arquivo do banco de dados (você não dirá que esqueceu onde está o banco de dados que acabou de projetar). existe) e pressione "OK" após selecioná-lo. Você pode ver a fonte de dados recém-criada researchdb. Desta forma, podemos chamá-lo em ASP.
select.asp:
<%
A instrução if abaixo serve para determinar se o usuário fez uma seleção, verificando se selecionado está vazio.
if request.form("opções") < >Vazio então
% >
< %
A instrução if a seguir compara os valores das duas coleções (ServerVariables e Cookies) da solicitação para evitar que o usuário pressione enviar continuamente e afete os resultados da investigação.
se não, Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") então
Escreva as informações de IP do cliente visitante em cookies
response.cookies("Endereço IP")=Request.ServerVariables("REMOTE_ADDR")
%>
<%
Estabeleça um objeto Connection e abra o banco de dados que registra os resultados da pesquisa.
definir conn=server.createobject("ADODB.CONNECTION")
conn.open "pesquisadb"
% >
< %
Definir variáveis
escurece
dimsql
escurecer selecionado
selecionado=request.form("opções")
Crie um objeto Recordset, abra o objeto usando o método Open e modifique os dados correspondentes ao mesmo tempo.
definir rs=server.createobject("adodb.recordset")
Modificar os dados da pesquisa da tabela de dados, ou seja, aumentar em 1 o número de votos correspondente
sql="atualizar conjunto de pesquisa select"&selected&"=select"&selected&"+1 onde id=1"
rs.open sql,conn,3,3
Limpe o objeto de coleção de registros da memória
definir rs = nada
conexão próxima
conexão.fechar
Limpar objeto de conexão da memória
definir conn = nada
Conecte-se à página para navegar pelos resultados da pesquisa
resposta.redirect "viewresult.asp"
outro
Response.write "Lembrete de falha na votação: você acabou de votar, obrigado pelo seu apoio!"
terminar se
outro
Response.write "Prompt de falha na votação: você esqueceu de selecionar!"
terminar se
% >
3. Navegue pelos resultados da pesquisa (viewresult.asp)
Neste exemplo, um gráfico de barras é usado para exibir visualmente os resultados da pesquisa. O método consiste em multiplicar o valor percentual do número de votos da opção pelo número total de votos. por 5, e o valor resultante é usado como uma barra A largura da exibição bar.gif (você pode usar ferramentas de imagem comuns para criar um pequeno gráfico de barras gradiente ou baixar um online). Para dar a porcentagem de votos com duas casas decimais, a função de arredondamento Round em VBScript é utilizada no programa. Por uma questão de beleza, os resultados da pesquisa são apresentados em uma tabela, conforme mostra a figura. O design da tabela foi omitido do código abaixo.
visualizarresultado.asp
<%
definir conn=server.createobject("ADODB.CONNECTION")
conn.open "pesquisadb"
%>
<%
escurece
dimsql
escurecer selecione1
escurecer seleção2
escurecer seleção3
escurecer seleção4
escurecer seleção5
escurecer selecione6
escurecer selecione7
escurecimento total
definir rs=server.createobject("adodb.recordset")
sql="selecione * da pesquisa onde id=1"
rs.open sql,conn,1,1
total=rs("selecione1")+rs("selecione2")+rs("selecione3")+
_ rs("selecione4")+rs("selecione5")+rs("selecione6")+rs("selecione7")
Determine se o número total de votos é 0 e certifique-se de que a seguinte divisão é válida
se total > 0 então
selecione1=(rs("selecione1")/total)*100
selecione2=(rs("selecione2")/total)*100
selecione3=(rs("selecione3")/total)*100
selecione4=(rs("selecione4")/total)*100
selecione5=(rs("selecione5")/total)*100
selecione6=(rs("selecione6")/total)*100
selecione7=(rs("selecione7")/total)*100
%>
< p >Obrigado pela sua participação Abaixo estão os resultados da pesquisa atual.
<p>
◇Conhecimento:
<img src=bar.gif largura=< %=int(select1*5)% > altura=4 >
< %=rs("select1")% >Período: < %=round(select1,2)% >%< br >
◇Educação:
<img src=bar.gif largura=< %=int(select2*5)% > altura=4 >
< %=rs("select2")% >Período: < %=round(select2,2)% >%< br >
◇Dinheiro:
<img src=bar.gif largura=< %=int(select3)*5% > altura=4 >
< %=rs("select3")% >Período: < %=round(select3,2)% >%< br >
◇Amor:
<img src=bar.gif largura=< %=int(select4)*5% > altura=4 >
< %=rs("select4")% >Período: < %=round(select4,2)% >%< br >
◇Ideal:
<img src=bar.gif largura=< %=int(select5)*5% > altura=4 >
< %=rs("select5")% >Período: < %=round(select5,2)% >%< br >
◇Consciência democrática:
<img src=bar.gif largura=< %=int(select6)%*5 > altura=4 >
< %=rs("select6")% >Período: < %=round(select6,2)% >%< br >
◇Pensamento Científico:
<img src=bar.gif largura=< %=int(select7)%*5 > altura=4 >
< %=rs("select7")% >Pessoas: < %=round(select7,2)% >%< /p >
< p align="center" >Já: < %=total% > pessoas participaram da pesquisa <br><br>
【< a href="javascript:window.close()" >Fechar janela</a>】</p>
<p>
<%
outro
response.write "Ninguém participou da pesquisa ainda"
terminar se
rs.fechar
definir rs = nada
conexão.fechar
definir conn = nada
%>
Nota:
Os códigos acima foram depurados no WindowsNT4.0 Chinês (Pacote 6)/IIS4.0.
O ASP pode ser executado em qualquer um dos seguintes ambientes:
1. Windows NT Server 4.0/IIS3.0 ou superior 2. Windows NT WorkStation 4.0/Microsoft Peer Web Service 3.0 ou superior 3. Windows 95/98/Microsoft Personal Web Server 1.0a ou acima