Hmm .. Manglede lige en lille ting til - nemlig at undersøge om man har indtastet noget i IP-feltet. Det er med i følgende:
<%@ Language=VBScript %>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'Formen er blevet submittet:
'Undersøg om adgangskoden er blevet indtastet:
If Session("BanKodeOK") <> "yes" Then
If Request.Form("txtKode") <> "din-adgangskode-her" Then
Response.Redirect "banip.asp?besked=" & Server.URLEncode("Forkert adgangskode.")
Else
Session("BanKodeOK") = "yes"
Response.Redirect "banip.asp"
End If
End If
'Undersøg, om der er blevet indtastet en IP:
If Trim(Request.Form("txtIP")) = "" Then
Response.Redirect "banip.asp?besked=" & Server.URLEncode("Indtast en IP adresse.")
End If
Const ForAppending = 8
Dim FSO, F, sFilSti
'Opret filesystemobject, som benyttes til at
'skrive til filen:
Set FSO = CreateObject("Scripting.FileSystemObject")
'Angiv sti til fil "ipbanned.txt"
sFilSti = Server.MapPath("ipbanned.txt")
'Undersøg om filen eksisterer
If FSO.FileExists(sFilSti) Then
'Skriv ny IP til fil, hvis filen eksisterer:
Set F = FSO.OpenTextFile(sFilSti, ForAppending, False)
F.WriteLine Request.Form("txtIP")
F.Close
Set F = Nothing
Set FSO = Nothing
Response.Redirect "banip.asp?besked=" & _
Server.URLEncode("IP adressen " & Request.Form("txtIP") & " er blevet tilføjet til filen.")
Else
'Filen eksisterer ikke.
Set FSO = Nothing
Response.Redirect "banip.asp?besked=" & _
Server.URLEncode("Filen '" & sFilSti & "' blev ikke fundet.")
End If
End If
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Dim sBesked
sBesked = Request.QueryString("besked")
If sBesked <> "" Then
Response.Write "<p><font color=""red"">" & sBesked & "</font></p>"
End If
%>
<form name="frmAddIP" action="banip.asp" method="post">
<% If Session("BanKodeOK") <> "yes" then %>
Indtast adgangskode:<br>
<input type="text" name="txtKode">
<% Else %>
Ban IP adresse:<br>
<input type="text" name="txtIP">
<% End If %>
<input type="submit" value="OK">
</form>
</BODY>
</HTML>
