Login beskyttelse af pdf filer
Hej håber at der er en der kan hjælpe. Jeg har en hjemmeside med nogle asp filer som er beskyttet med et login som ser således ud.<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then
' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
' DSNLess forbindelse til databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./db/Medlemmer.mdb")
' Opbygning af SQL streng
strSQL = "SELECT Medlemsnummer FROM Medlemmer"&_
" WHERE (Fornavn = '" & strUID & "')"&_
" AND (Adgangskode = '" & strPWD & "')"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
intUID = rs("Medlemsnummer")
Else
' Hvis brugeren ikke fandtes i databasen
strERR = "Den angivne kombination af fornavn og adgangskode findes ikke. Husk at adgangskoden er din fødselsdag Eks.31-12-66 husk bindestregerne mellem tallene. Kontakt evt. Nauticas web-ansvarlige kasserer@dyk-nautica.dk via mail "
End If
' Rydder op i vores connection objekt
myConn.Close
Set myConn = Nothing
If Len(intUID) Then
' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
Session("UserID") = intUID
Response.Redirect("lokside.asp")
End If
Else
' Hvis der ikke var angivet brugernavn og adgangskode
strErr = "Du skal skrive både brugernavn og adgangskode"
End If
If Len(strErr) > 0 Then
' Her laves fejlmeddelsen om til rød skrift
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
Men jeg vil også gerne beskytte nogle af mine pdf filer er det mulig af lave en tilføjelse til denne login.asp så også nogle af mine pdf filer er beskyttet med et login.
