Recomendado: os números longos asp são separados por vírgulas para exibir o código da instância % Função vírgula (str) se não (isnumeric (str)) ou str = 0 então resultado = 0 elseif len (fix (str)) 4 Então resultado = str else pos = instrum (1, str ,.) se pos 0 então dez = mid (str, pos) end se res = strverver (fix (str)) loopcount = 1 while loopcount =
Devido a relações de trabalho, uma das funções é votar nos usuários, exigindo que o mesmo IP possa votar apenas para o mesmo usuário uma vez e postar código ASP
- <%
- 'Autor: Fonte implacável:
- db_conn (dbs)
- VoteUsername = Trim (request.QueryString (nome de usuário))
- rs_create (selectUserNameFrom [Usuário] WhereuserName = '& VoteUserName &')
- ifrs.eofandrs.bofthen
- Response.Write parâmetros incorretos, acessá -los corretamente!
- Response.end ()
- endif
- 'O primeiro caso é o primeiro clique, os cookies estão vazios e o IP está vazio
- 'A segunda situação é clicar na segunda pessoa para votar, existem cookies da primeira pessoa, os cookies da segunda pessoa não existem, mas o IP existe
- 'A terceira situação é votar com IP, existem cookies, IP está vazio
- ifRequest.cookies (dwww) (& voteName &) = então
- Response.Cookies (Dwww) (& VoteUsername &) = VoteUserName & |
- Response.cookies (dwww) .expires = date ()+365
- Callvotebody ()
- outro
- ifinstr (request.cookies (dwww) (& voteUserName &), request.cookies (dwww) (& voteUsername &) & |) <> 0then
- Callvotebody ()
- outro
- 'Response.Write Desculpe, você votou! Os biscoitos se repetem
- Response.Write <Cript> alert ('Desculpe, você votou!'); History.back (); </script>
- Response.end ()
- endif
- endif
- Subvotebody ()
- VoteUsername = Trim (request.QueryString (nome de usuário))
- Checkip = request.Servervariables (http_x_forwarded_for) 'Bypass Proxy IP
- Ifcheckip = thencheckip = request.Servervariables (Remote_addr)
- Geturl =
- GetUrl = request.Servervariables (http_referer)
- sql = selectUserName, ipFromVotewHereUserName = '& VoteUserName &' andip = '& checkip &'
- rs_create (SQL)
- Ifnotrs.bofandnotrs.eofthen
- 'Response.Write Desculpe, você votou! Duplicado IP
- Response.Write <Cript> alert ('Desculpe, você votou!'); History.back (); </script>
- Response.end ()
- Outro
- Conn.Execute (InsertIntoVote (Nome de usuário, IP, Addtime) valores ('& VoteName &', '& checkip &', '& Now () &'))
- Conn.Execute (UPDATE [Usuário] setVote = Vote+1wheuserName = '& VoteUsername &')
- 'Response.Write O voto foi bem -sucedido!
- Response.Write <Cript> alert ('Parabéns, o voto foi bem -sucedido!'); Location.href = '& request.Servervariables (http_referer) &' </script>
- Response.end ()
- Endif
- endsub
- rs_close ()
- db_close ()
- %>
Compartilhar: ASP cria o programa de verificação da página de login Script de verificação de login do usuário, chkpwd.asp % '========= Script de verificação de login do usuário ======' se o objeto aprovado ainda não foi definido, defina -o como falso, o que significa que a verificação ainda não foi passada. Se isEmpty (sessão (aprovada)), então sessão (passada) = FALSE END SE 'SESSÃO (PASSADO) = FALSO, significa que a verificação não foi passada e a leitura começa.