Mulighed for at blokere

Når brugeren logger ind, så sæt en session-variabel der hedder "userid".

På de sider du vil blokere for, sætter du det her ind i starten (går ud fra at du vil hente oplysningerne om hvor de er banned fra en database, og at du selv har styr på at åbne for den. Hvis ikke, så sig til). Jeg har ikke testet scriptet, men det burde da virke nogenlunde ;)

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "din connection string her"
RS.Open "SELECT Count(*) As Banned FROM BannedUsers WHERE userid = "& Session("userid")
isBanned = RS("Banned")
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
If isBanned > 0 Then
  ' brugeren skal bannes. Redirect brugeren til en fejlside der forklarer hvorfor han/hun er banned.
  Response.Redirect("banned.asp")
End If
' vis resten af siden her

RS.Open "SELECT Count(*) As Banned FROM BannedUsers WHERE userid = "& Session("userid")

skal lige rettes til:

RS.Open "SELECT Count(*) As Banned FROM BannedUsers WHERE userid = "& Session("userid"), Conn, 1, 3

Jeg kunne ikke rigtig bruge det til noget, men du får da 100 point for at forsøge. ;)