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
3 páginas en el total de la página 123 anterior página siguiente