Protezione e Form 2 aiutini

[DeMoN_Ip]

Ciao a tutti, mi servirebbe una mano!

Sono un giovane webmaster, alle prese con ASP... vorrei proteggere una pagina con una password e basta senza account strani o user name, cioè uno vuole entrare in quella pagina... se mette la password da me scelta la fa vedere, altrimenti da errore...

Credo sia uno script davvero semplice ma purtroppo non so farlo =)

Altrimenti vorrei chiedervi un'altra cosa se non vi disturbo,

Vorrei in poche parole poter fare un form semplice con 2 campi, il visitatore inserisce dei dati in quel form e vengono registrati su un file ad esempio mdb... dopodiche quegli stessi dati poterli "stampare" cioè farli vedere in un'altra pagina con uno script che me li richiama da quel file scritto precedentemente dal form... vorrei che essi si potessero sovrascrivere e cambiassero ogni volta che qualcuno li cambia...

Grazie mille dell'aiuto e scusatemi per il disturbo, aspetto notizie!!

PS: Se potete darmi degli script fatti da voi sarei contento nn saprei da dove partire.

Francesco

[Galex]

per la prima domanda:

login.asp

<%
Dim msg
msg="Inserisci la password"
if request.form("invia")<>"" then
  PASSWORD_DA_TE_SCELTA="pippo"
  password=Trim(request.form("password"))
  
  if password=PASSWORD_DA_TE_SCELTA then
     session("login")=1
  	 response.redirect "pagina_da_proteggere.asp"
  else
     session("login")=0
  	 msg="password errata"
  end if
end if
%>
<form method='post'>
<input type="password" name="password">
<input type="submit" name="invia" value="entra">
<%=msg%>
</form>


pagina_da_proteggere.asp (e tutte quelle vuoi siano "protette")

<%
if session("login")=1 then
   response.write "utente autenticato"
else
   response.write "utente non autenticato"
   response.end
end if
%>
.....i contenuti della tua pagina...

per la seconda prima bisogna che impari un pò come usare e interagire con un db, se lo sai già fare prova a iniziare a scrivere qualcosa poi eventualmente lo correggiamo insieme...se no fartelo di sana pianta non serve a niente (e sopratutto non ho voglia )

[DeMoN_Ip]

grazie per lo script della password funziona perfettamente...

Per la faccenda dei form so crearli e nn m c vuole niente ma non so come far scrivere su file quello che uno ci immette dentro... e nemmeno come richiamare quelle voci per stamparle su una pagina...

Poi il fatto della sovrascrittura di quei dati nn so come si possa fare... cioè che cambiano ogni volta che qualcuno scrive in quei form...

Se potete darmi una mano o darmi qualche script che funzioni...

Grazie Francesco

[Galex]

non mettevo in dubbio che sapessi crere un form...ma il problema è la seconda parte...gestire i dati del form.
poi cosa intendi x scriverlo su file?vuoi mettere i dati in un db o in che tipo di "file"?

[DeMoN_Ip]

va bene qualsiasi file... un txt un mdb... basta che si riesca a scriverci, rikiamare i dati e farli apparire in una pagina e se si possa sovrascriverli...

[Galex]

se le informazioni devono essere strutturate sicuramente stiamo parlando di un db o di un file xml...quale dei due conosci meglio o almeno un pochino? (non dirmi nessuno dei due xchè ti rispondo con il link di un qualsiasi tutorial in merito )

[DeMoN_Ip]

ho già trattato qualche volta con mdb... ma erano già fatti e ho solo cambiato qualcosina...

[Galex]

supponi di avere un db access "nome_db.mdb" con una tabella "nomeTabella"  e due campi "campo1" e "campo2"

adesso oraganizzati i form e l'interfaccia in modo da utilizzare il codice
<%
Dim ID,campo1,campo2,action,testo

action=Lcase(request.form("action"))

ID=request.form("ID")
campo1=request.form("campo1")
campo2=request.form("campo2")

Set ConnDB=Server.CreateObject("ADODB.Connection")
ConnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("nome_db.mdb")&";Jet OLEDB:Database"
		
    select case action:
       case "salva":"
          Call Salva()
       case "leggi":
    	    Call Leggi()
    	 case "modifica":
    	    Call Modifica()
    end select

ConndDB.close
Set ConnDb=Nothing
  
Sub Salva()
		ConnDB.Execute("INSERT INTO NomeTabella (campo1,campo2) VALUES ('"&campo1&"','"&campo2&"')")
End Sub

Sub Modifica()
		ConnDB.Execute("UPDATE NomeTabella SET campo1='"&campo1&"',campo2='"&campo2&"' WHERE ID="&ID)
End Sub

Sub Leggi()
  sql="SELECT * FROM NomeTabella"
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open sql, connDB ,0,1
  if not rs.eof then
     do while not rs.eof
		    response.write rs("campo1")&" - "&rs("campo2")&"
"
		 rs.movenext
		 loop
  else
     response.write "nessun record"
  end if
  rs.close
  set rs=nothing
End Sub

[DeMoN_Ip]

Ho creato database.mdb con una tabella chiamata record, con 3 colonne una IDrecord, poi campo1 e campo2...

ho creato la pagina di prova script.asp il cui code ti incollo qua sotto... provata ma nn fa nulla.. ghghghg

<form name="form1" method="post" action="">
  

Membri: </p>
  


    <textarea name="campo1" id="campo1"></textarea>
</p>
  

Breve descrizione: </p>
  


    <textarea name="campo2" id="campo2"></textarea>
</p>
  


    <input name="salva" type="submit" id="salva" value="Salva">
    <input name="modifica" type="submit" id="modifica" value="Modifica">
    <input name="leggi" type="submit" id="leggi" value="Leggi">
</p>
</form>
<%
Dim ID,campo1,campo2,action,testo

action=Lcase(request.form("action"))

ID=request.form("form1")
campo1=request.form("campo1")
campo2=request.form("campo2")

Set ConnDB=Server.CreateObject("ADODB.Connection")
ConnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/mdb-database/database.mdb")&";Jet OLEDBDatabase"
		
    select case action:
       case "salva":
          Call Salva()
       case "leggi":
    	    Call Leggi()
       case "modifica":
    	    Call Modifica()
    end select

ConnDB.close
Set ConnDb=Nothing
  
Sub Salva()
		ConnDB.Execute("INSERT INTO record (campo1,campo2) VALUES ('"&campo1&"','"&campo2&"')")
End Sub

Sub Modifica()
		ConnDB.Execute("UPDATE record SET campo1='"&campo1&"',campo2='"&campo2&"' WHERE ID="&ID)
End Sub

Sub Leggi()
  sql="SELECT * FROM record"
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open sql, connDB ,0,1
  if not rs.eof then
     do while not rs.eof
		    response.write rs("campo1")&" - "&rs("campo2")&"
"
		 rs.movenext
		 loop
  else
     response.write "Nessun Record"
  end if
  rs.close
  set rs=nothing
End Sub
%>

[Galex]

quando ho scritto "adesso oraganizzati i form e l'interfaccia in modo da utilizzare il codice", non intendevo dire copia e incolla il codice in un pagina e aggiungici un form a caso.

ti ho scritto le subroutine necessarie alle operazioni che hai detto su un db,ma le devi gestire in modo adeguato dall'interfaccia.come noterai c'è una "SELECT CASE" che in base al valore di "action" richiama la subroutine corrispondente,quindi devi fare in modo di valorizzare action a questo fine.per la modifica di un record devi inoltre fare in modo di passare l'id del record da modificare...