Analizar la votación en el programa DIG de implementación ASP

Recomendado: analizar cómo filtrar caracteres no civilizados
% Function badchar (str) badstr = Lista de caracteres no civilizadas, separado con | (Debido a que los caracteres no se pueden contener al publicar, no se puede publicar).

ASP realiza una votación en un programa DIG (algunos se llaman Top and Stew On). Debido a que el código es largo, solo se publica la parte central: el código en la votación

La página muestra el voto:

<div class = vote1> <script src = '/voteresult.asp? id = 1 & action = ver'> </script> </div>

El efecto es como se muestra en la figura: luego haga clic para votar, y el número de votos aumentará en 1, como se muestra en la figura:

VotereSult.asp Código

<%

Respuesta.contentType = text/html; Charset = GB2312

'Autor: Wuqing Fuente: Mantenga la fuente al reimpreso

'Enlace el código de la base de datos omitido

establecer rs = server.createObject (ADODB.RecordSet)

sql = (seleccione News_ID, vote desde dwww_news donde news_id = & request (id) &)

Rs.open SQL, Conn, 1,1

Si no es RS.EOF y no RS.BOF, primero verifique si la ID es correcta

Si la solicitud (Acción) = Ver, entonces 'si es la identificación del código de noticias

Si instrer (request.cookies (votedId), request (id) & |) <> 0 entonces 'juzga si la noticia de la identificación ha votado

Response.Write Docum.Write (<div class = 'result' id = 'result_ & rs (news_id) &'> & rs (voto) & </div>);

Response.write document.write (<span class = 'result_link' id = 'result_link_ & rs (news_id) &'> votación con éxito </span>);

demás

Response.Write document.write (<div class = 'result' id = 'result_ & rs (news_id) &'> <a href = 'javaScript: Dovote (& request (id) &)'> & rs (voto) & </a> </div>);

Response.Write document.write (<span class = 'result_link' id = 'result_link_ & rs (news_id) &'> <a href = 'javascript: dovote (& request (id) &)'> votar </a> </span>);

final si

De lo contrario 'haga clic para votar para procesar el código

if instrer (request.cookies (voteID), request (id) y |) <> 0 entonces

Response.cookies (voteID) = request (id) & |

Response.cookies (votiID) .expires = date ()+365

demás

Response.cookies (voteID) = request (id) & | & request.cookies (voteID)

Response.cookies (votiID) .expires = date ()+365

final si

Compartir: ASP llama ejemplo de biblioteca de IP pura
% '=====================================================' Return IP Information disp_ipaddressData (IP, 0) ' ======================================================== Función Look_ip (IP) Dim Wry, IpType, Qqwryversion, Ipcounter 'Establecer objeto de clase Wry = New Tqqwry' Start Bearch