07 febbraio 2007 alle 02:36:13 Qualcuno si è già posto il dilemma? Nei post precedenti non mi sembra di aver trovato nulla a riguardo. Chiaramente il problema non è tanto proteggere l'accesso dal link del menù quanto la visualizzazione del blocco laterale quando il sondaggio diventa attivo.
07 febbraio 2007 alle 09:11:06 Dalle tue richieste mi sembra che tu voglia costruire un programma blindato, dove solo gli iscritti possano visualizzare qualche cosa, mentre, i visitatori non potranno che vedere una pagina bianca!!!! Ma quanti iscritti potrà contare il tuo portale se non darai la possibilità di vederne i contenuti? Secondo me, faresti meglio a riflettere su causa ed effetto e poi prendere delle decisioni.
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
08 febbraio 2007 alle 14:33:59 La tua riflessione non fa una grinza ma il portale che sto pubblicando è indirizzato quasi esclusivamente ai soci della struttura stessa: non sarebbe carino rendere pubblico un sondaggio del genere: "vota i piedi più puzzolenti dell'ultima partita....) mentre magari i soci hanno comunque interesse nel darsi visibilità sul web. Se mi sai indicare la strada sono tutto orecchi!
Grazie dei tuoi consigli e dei tuoi sempre rapidi interventi
08 febbraio 2007 alle 15:15:03 Nella pagina polls-inc.asp trovi 4 Sub, lasciando perdere la prima, puoi proteggere i tuoi sondaggi inserendo nelle 3 sub, appena dopo l'apertura della connessione al DB, una stringa di questo genere:
If sPseudo = "" THEN
e, prima delle chiusure di oCn e oRs:
ELSE CreateTable "Role", "", GetTranslation "LANG_MUST_HAVE_ROLE"), "" End If
così che, chiunque tenti di visualizzare i sondaggi riceverebbe un messaggio del tipo Non hai il ruolo richiesto.
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
09 febbraio 2007 alle 23:40:50 Grazie DJ ora provo e ti faccio sapere
Ciao Fastroby
fastroby Amatore
26 Discussioni
14 febbraio 2007 alle 01:51:55 Niente non funge: tutto visibile anche ai non iscritti sia dal link nel menù sia la visualizzazione del blocco laterale. Se può essere di aiuto per capire dove ho commesso un errore posto il codice di "polls-inc.asp"
<% ' !!! Important !!! Don't remove this code ' Used to count any vote if valid If Request.Form("poll") <> "" and Request.Cookies("poll_" & Request.Form("poll")) <> "OK" and Request.Form("result") <> "" Then AddPollResult Request.Form("poll"), Request.Form("result") End If
' Add a vote ' IN : iPollID (int) : poll's id (table polls, field pID) ' : iResultID (int) : choice's id (table pollsresults, field prID) ' OUT : - Sub AddPollResult(iPollID, iResultID) Dim oCn, rSQL
Set oCn = DBConnexion(DB_MAIN)
rSQL = "UPDATE pollsresults SET prHits=prHits+1 WHERE prPoll=" & iPollID & " AND prID=" & iResultID DBExecute oCn, rSQL
' Display a poll ' IN : iID (int) : poll's id (table polls, field pID) ' : bIsInColumn (boolean) : change the display if poll is displayed in a column (small caps, displays a title (LANG_POLL)) ' OUT : - Sub DisplayPoll(iID, bIsInColumn) Dim oCn, oRs, rSQL, nbVotes, MaxHits, iTdWidth, iLine, sPrefix, sPrefixSpan, sSuffixSpan, qString
Set oCn = DBConnexion(DB_MAIN)
if sPseudo = "" THEN
nbVotes = 0 MaxHits = 0 sPrefix = "" If bIsInColumn Then sPrefixSpan = "<span class=""small"">" sSuffixSpan = "</span>" Else sPrefixSpan = "" sSuffixSpan = "" End If
rSQL = "SELECT Sum(prHits), Max(prHits) FROM pollsresults WHERE prPoll=" & iID Set oRs = DBRecordSet(oCn, rSQL)
nbVotes = oRs(0) MaxHits = oRs(1) If MaxHits <= 0 Then MaxHits = 1 end if oRs.Close Set oRs = Nothing
rSQL = "SELECT prID, pColor, pTitle, prHits, prText FROM polls, pollsresults WHERE pID=prPoll AND pValid=1 AND pID=" & iID
ELSE CreateTable "Role", "", GetTranslation ("LANG_MUST_HAVE_ROLE"), "" End If
oRs.Close Set oRs = Nothing oCn.Close Set oCn = Nothing End Sub
' Display the top polls (by Date) ' IN : iTop (int) : number of results wanted ' OUT : - Sub DisplayTopPolls(iTop) Dim oCn, oRs, rSQL, iLoop
Set oCn = DBConnexion(DB_MAIN)
If sPseudo = "" THEN
If not( iTop <> "" and IsNumeric(iTop)) Then iTop = 9999 End If rSQL = "SELECT pID FROM polls, versions WHERE pDateBegin <= '" & DateTimeToString(Now()) & "' AND (pDateEnd >= '" & DateTimeToString(Now()) & "' OR pDateEnd < pDateBegin) AND pValid=1 AND pVersion=vID" If sXMLVersion <> "" Then rSQL = rSQL & " AND vCode='" & SQLEncrypt(sXMLVersion) & "'" end if rSQL = rSQL & " ORDER BY pDateBegin DESC, pDateEnd DESC" Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then iLoop = 0 While Not oRs.EOF and iLoop < iTop DisplayPoll oRs("pID"), False oRs.MoveNext iLoop = iLoop + 1 WEnd Else CreateTable "Poll", GetTranslation("LANG_POLL"), GetTranslation("LANG_EMPTY_SECTION"), "" End If
ELSE CreateTable "Role", "", GetTranslation ("LANG_MUST_HAVE_ROLE"), "" End If
oRs.Close Set oRs = Nothing oCn.Close Set oCn = Nothing End Sub
Sub DisplayLastPoll() Dim oCn, oRs, rSQL
Set oCn = DBConnexion(DB_MAIN)
If sPseudo = "" THEN
rSQL = "SELECT pID FROM polls, versions WHERE pDateBegin <= '" & DateTimeToString(Now()) & "' AND (pDateEnd >= '" & DateTimeToString(Now()) & "' OR pDateEnd < pDateBegin) AND pValid=1 AND pVersion=vID" If sXMLVersion <> "" Then rSQL = rSQL & " AND vCode='" & SQLEncrypt(sXMLVersion) & "'" end if rSQL = rSQL & " ORDER BY pDateBegin DESC, pDateEnd DESC" Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then DisplayPoll oRs("pID"), True end if
ELSE CreateTable "Role", "", GetTranslation ("LANG_MUST_HAVE_ROLE"), "" End If
oRs.Close Set oRs = Nothing oCn.Close Set oCn = Nothing End Sub %>
Un saluto a tutti Fastroby
piosky_to2003 Esperto
2291 Discussioni
14 febbraio 2007 alle 07:57:55 Modificato il 14 febbraio 2007 alle 08:10:28Ma non fai prima a bloccare la visualizzazione della tabella sondaggi nella colonna laterale che a fare modifiche nelle varie procedure dei polls?
file :display-inc.asp Procedura: Sub DisplayColumn(tColumnContent) Linea: 804 Circa
il case 8 da
Case 8 DisplayLastPoll()
DIVENTA Case 8 'SILVIO TABELLA POOL VISIBILE AI SOLI UTENTI if sPseudo <>"" then DisplayLastPoll() else CreateTopTable "poll", GetTranslation("LANG_POLL") Response.write "Devi essere loggato per vedere i sondaggi" CreateBottomTable "" end if p.s. rimetti il file originali che hai toccato nei post precedenti
--------------- Silvio Andrighetti Formaggini (Piosky)
14 febbraio 2007 alle 21:41:57 Alla stregua di DJ Veleno sei proprio in gamba!!
Funziona e pure alla grande!!
Spero possa essere utile anche al resto della Community
Un saluto e grazie per l'ennesimo aiuto Fastroby
piosky_to2003 Esperto
2291 Discussioni
14 febbraio 2007 alle 23:30:22 Modificato il 15 febbraio 2007 alle 06:28:20tankiuu Alla prossima --------------- Silvio Andrighetti Formaggini (Piosky)
15 febbraio 2007 alle 00:12:11 Ciao ho fatto le stesse modifiche suggerite da piosky per far vedere i sondaggi solo agli iscritti, ma a me succede una strana cosa, e cioè, quando un utente non è loggato vede la scritta, devi essere loggato etc etc" ma se mi loggo la schermatia dei sondaggi mi sparisce! come mai? Ciao
--------------- Si Vis Pacem Para Bellum
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,2773438 secondi.
FUNZIONALITA'
Sondaggi per soli iscritti
07 febbraio 2007 alle 02:36:13 
07 febbraio 2007 alle 09:11:06 
Grazie DJ ora provo e ti faccio sapere
![[lo]](/smileys/coucou.gif)
14 febbraio 2007 alle 21:41:57 