Recomendado: analisar como filtrar caracteres não civilizados % Função badchar (str) badstr = lista de caracteres não civilizada, separada com | (Como os caracteres não podem ser contidos ao publicar, ele não pode ser publicado.) BadWord = Split (Badstr, |) para i = 0 para ubound (badword) se instrum (str, badword (i)) 0 então badchar = saída true para else Badchar = false final se o próximo
O ASP faz uma votação em um programa de escavação (alguns são chamados de topo e etapa). Como o código é longo, apenas a parte principal é publicada: o código na votação
A página mostra o voto:
<div class = vote1> <script src = '/eleitresult.asp? Id = 1 & action = View'> </sCript> </div>
O efeito é como mostrado na figura: clique para votar e o número de votos aumentará em 1, como mostrado na figura:
Código de VoterSult.asp
<%
Response.ContentType = Text/html; charset = gb2312
'Autor: Wuqing Fonte: Por favor, mantenha a fonte ao reimprimir
'Código do banco de dados de link omitido
set rs = server.createObject (adodb.recordset)
sql = (selecione news_id, vote em dwww_news onde news_id = & request (id) &)
Rs.Open SQL, Conn, 1,1
se não for Rs.eof e não Rs.BOF, então 'verifique se o ID está correto
Se solicitação (ação) = visualizar, então 'se for o ID do código de notícias
Se Instr (request.cookies (VoteD), solicitação (id) & |) <> 0, então julgue se as notícias do id votaram em
Response.write document.write (<div class = 'resultado' id = 'resultado_ & rs (news_id) &'> & rs (voto) & </div>);
Response.write document.write (<span class = 'resultado_link' id = 'result_link_ & rs (news_id) &'> votando com sucesso </span>);
outro
Response.Write Document.Write (<div class = 'resultado' id = 'resultado_ & rs (news_id) &'> <a href = 'javascript: dovote (& request (id) &)'> & rs (voto) & </a> </div>);
Response.Write Document.Write (<span class = 'resultado_link' id = 'result_link_ & rs (news_id) &'> <a href = 'javascript: Dovote (& request (id) &)'> vote </a> </span>);
final se
Else 'clique para votar para processar o código
Se Instr (request.cookies (VoteiD), solicitação (id) & |) <> 0 então
Response.Cookies (VoteID) = Solicitação (ID) & |
Response.Cookies (VoteLID) .Expires = Date ()+365
outro
Response.Cookies (VoteiD) = Solicitação (ID) & | & Request.Cookies (VoteiD)
Response.Cookies (VoteLID) .Expires = Date ()+365
final se
Compartilhar: ASP chama Pure IP Library Exemplo % '===================================================' Retornar Informações de IP DISP_IPADDRESSDATA (IP, 0) ' ===================================================== FUNÇÃO LOOK_IP (IP) Dim Wry, IPType, qqwryversion, ipcounter 'Definir
3 páginas no total Página 123 Página Próxima Página