/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
IP ban
Fra : Christian Glantz


Dato : 11-11-02 20:04

Hej jeg leder efter et scrpit eller noget der kan banne en IP,
via en database så man ikke skal ændre alt hver gang.

På forhånd tak

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Jakob Andersen (11-11-2002)
Kommentar
Fra : Jakob Andersen


Dato : 11-11-02 22:03

"Christian Glantz" <dar86@get2net.dk> wrote
> Hej jeg leder efter et scrpit eller noget der kan banne en IP,
> via en database så man ikke skal ændre alt hver gang.

Banne fra hvad? hvis du mener fra en hel side kan du lave noget ala dette i
din Global.asa fil:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
Set objConn = Server.CreateObject( "ADODB.Connection" )
objConn.ConnectionString = "<DIN CONNECTIONSTRING>"
strIP = Replace(Request.ServerVariables( "REMOTE_ADDR" ), "'","''")
objRS = objConn.Execute( "SELECT COUNT(*) FROM <tabelmedbannediper>
WHERE ip = '" & strIP & "'" )
If objRS(0) > 0 Then
Session("Banned") = True
End If
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
End Sub
</SCRIPT>

Og så skal du på alle sider indsætte følgende i toppen:

<%
If Session( "Banned" ) Then
Response.Clear
Response.Write( "Du er banned fra denne side" )
Response.End
End If
%>

Ovenstående er utestet, men burde virke.
--
Jakob Andersen



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408836
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste