PROTECTION DE PAGES ASP .NET PAR MOT DE PASSE - ASP .NET PROTECTION BY PASSWORD - PROTECTION DE SITE WEB

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Web.UI.Webcontrols" %>
<%@ Import Namespace="System.Drawing.Color" %>
<%@ Import Namespace="System.Text" %>
<%@Import NameSpace="System.XML"%>

<script runat="server">
Sub LoginBtn_Click(Sender As Object, E As EventArgs)
Response.redirect ("login.aspx?pseudonyme=" + username.text + "&password=" + userpass.text, true)
End Sub

SUB Page_Load(obj AS object, e AS eventargs)
if Request.QueryString("action") = "verifmember" then
Dim fichier as string
Dim objReader as StreamReader
fichier = server.mappath("db/users/"+ Request.QueryString("pseudonyme") + ".txt")

If File.Exists(fichier) then
objReader = File.OpenText(fichier)
Dim pass as string = objReader.ReadToEnd()
objReader.Close

If Request.QueryString("password") = pass then
FormsAuthentication.RedirectFromLoginPage(Request.QueryString("pseudonyme"), true)
Response.redirect ("page_protégée.aspx",true)


End if
End if
End if

if not Request.QueryString("action") = "verifmember" then
FormsAuthentication.RedirectFromLoginPage("anonymous", true)
Response.redirect ("page_non_protégée",true)
End if

End Sub
</script>