IALweb Homepage
Forum Home Forum Home > Programmazione > Programmazione > ASP-ASP.NET
  New Posts New Posts RSS Feed - indirizzo IP
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

Topic Closedindirizzo IP

 Post Reply Post Reply
Author
Message
Guests View Drop Down
Ospite
Ospite
Direct Link To This Post Topic: indirizzo IP
    Posted: 25/Lug/2002 at 09:40
è possibile venire a conoscenza dell'indirizzo IP della macchina e creare un contatore di accessi sufficientemente valido che si basa proprio sulla verifica dell'indirizzo IP?
Back to Top
Sponsored Links


Back to Top
Beppeweb View Drop Down
Utente Senior
Utente Senior


Joined: 13/Lug/2002
Status: Offline
Points: 191
Direct Link To This Post Posted: 25/Lug/2002 at 09:54
Per conoscere l' IP del client usa questo:

<%
Request.ServerVariables("REMOTE_ADDR")
%>

Salvi questo dato in un db e lo escludi dall' incremento del contatore ..


Ti posto un esempio di incremento che uso per il mio sito .. [Che però devi modificarti e aggiungendo il controllo dell' IP]

<% Dim ID
ID = Request.QueryString("ID")
%>
<%
Dim conn
Dim rs
Dim sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb >;DBQ=" & Server.MapPath("db/script.mdb")
sql = "SELECT * FROM script where ID = " &ID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
<% Dim numerodb
numerodb = rs("click")
numerodb = cint(numerodb)
%>
<%
Dim media
media = numerodb + 1
%>
<br>
<center><font face="verdana" size="2" color="000000">Se il download non parte automaticamente clicca <a onfocus=this.blur() href="<%=rs("download")%>">
<font color="#CC3300">QUI</font></a></font></center>
<script language="JavaScript">
<!--
setTimeout('location.href="<%=rs("download")%>"',0);
//-->
</script>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb >;DBQ=" & Server.MapPath("db/script.mdb")
sql5 = "UPDATE script SET click = '"&media&"' WHERE ID="& ID
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql5, conn, 3,3
%>
</head>
</html>
Back to Top
Guests View Drop Down
Ospite
Ospite
Direct Link To This Post Posted: 25/Lug/2002 at 09:57
ti ringrazio adesso darò una studiata al tuo codice e se ho problemi ti faccio sapere
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,062 seconds.