Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  GRAFICA
      PERSONALIZZAZIONE
         infopage con login box e benvenuto

infopage con login box e benvenuto

Autore Messaggio
krilopez

Principiante
Principiante
14 Discussioni


Profilo - krilopez 		14 maggio 2008 alle 12:26:58 Profilo - krilopezInvia un messaggio privato Rispondi quotando
Ciao a tutti!
Spero possiate aiutarmi, quindi vi espongo quello che mi piacerebbe fare: vorrei modificare la infopage in modo da avere al suo interno il login box e in modo che una volta loggati si visualizzi (sempre nell'infopage) il messaggio di "Benvenuto + nome utente" sulla sinistra e "disconnetti" sulla destra. spero di essere stata chiara e un grazie infinito a chi mi sarà di aiuto.
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		14 maggio 2008 alle 14:18:08 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
La modifica richiede l'intervento su alcuni files di Aspnuke:

Toppage-inc.asp
Display-inc.asp

Tenendo conto che una volta loggati il messaggio di benvenuto comprende già il nick dell'utente, di seguito inserisco il codice da modificare nei relativi files.

Toppage-inc.asp
<table id="InfoPage"><tr>
<td class="InfoLeft"><%=sTitlePage%>&nbsp;
<%
DisplayNewPrivateMessages(sPseudo)
DisplayLoginBox2()
%>
</td>
<td class="InfoRight"><a href="<%=GLOBAL_SITE_PATH & GLOBAL_SITE_DECONNECT_PAGE%>">Disconnetti</a><%=sInfoPage%></td>
</tr>
</table>



Per il display-inc.asp il discorso è un pò più complicato, si deve agire così, per salvaguardare il codice originale, si duplica la Sub DisplayLoginBox(), rinominandola in Sub DisplayLoginBox2()

Dislay-inc.asp
' Display login box2
' IN : -
' OUT : -
Sub DisplayLoginBox2()
Dim sPreviousPage, iPos

If sPseudo = "" Then

If Request.Form("urlpage") <> "" Then
sPreviousPage = Request.Form("urlpage")
Else
sPreviousPage = "" & Session("HTTP_REFERER")
iPos = InStrRev(sPreviousPage, "/")
If iPos > 7 Then
sPreviousPage = Mid(sPreviousPage, iPos+1)
Else
sPreviousPage = "Default.asp"
End If
End If

Response.Write "<_form name=""Authentication"" method=""post"" action=""" & GLOBAL_SITE_PATH & "authent.asp"">" & vbCrlf
Response.Write "<input type=""hidden"" name=""Do"" value=""authent"" />" & vbCrlf
Response.Write "<input type=""hidden"" name=""urlpage"" value=""" & sPreviousPage & """ />" & vbCrlf

Response.Write GLOBAL_SITE_SUBTABLE & vbCrlf
Response.Write " <tr class=""myTD"">" & vbCrlf
Response.Write " <td>" & GetTranslation("LANG_LOGIN") & "</td>" & vbCrlf
Response.Write " <td align=""left"">" & vbCrlf
Response.Write " <input name=""pseudo"" maxlength=""20"" size=""8"" value=""" & vbCrlf
If Request.Form("pseudo") <> "" Then
Response.Write Server.HTMLEncode(Request.Form("pseudo"))
Else
Response.Write GetTranslation("LANG_LOGIN")
End If
Response.Write """ onfocus=""this.value='';"" class=""cell"" /></td>" & vbCrlf
Response.Write " <td>" & GetTranslation("LANG_PASSWORD") & "</td>" & vbCrlf
Response.Write " <td align=""left""><input name=""mdp"" type=""password"" maxlength=""20"" size=""7"" class=""cell"" /></td>" & vbCrlf
Response.Write " <td>" & GetTranslation("LANG_MEMORIZE_SHORT") & "</td>" & vbCrlf
Response.Write " <td align=""left""><input name=""memo"" type=""checkbox"" checked=""checked"" /></td>" & vbCrlf
Response.Write " <td colspan=""2"" align=""center""><input name=""bsubmit"" type=""submit"" value=""" & GetTranslation("LANG_VALIDATE") & """ class=""button"" /></td>" & vbCrlf
Response.Write " </tr>" & vbCrlf
Response.Write "</table>" & vbCrlf
Response.Write "</_form>" & vbCrlf
End If
End Sub


Sempre nella pagina display-inc.asp si deve modificare la Sub DisplayColumn(tColumnContent), commentando le 2 stringhe che richiamano il Case 7.


'Case 7
'DisplayLoginBox()


---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp
krilopez

Principiante
Principiante
14 Discussioni


Profilo - krilopez 		14 maggio 2008 alle 14:45:31 Profilo - krilopezInvia un messaggio privato Rispondi quotando
Modificato il 14 maggio 2008 alle 15:22:06
a questo punto il login è molto simile a quello che avevo in mente, ma accanto a "Benvenuto" è visibile il codice:
<_form name="Authentication" method="post" action="/authent.asp">
come faccio a toglierlo?
inoltre ho tanto l'impressione che il login non funzioni, giacchè sto provando ad accedere e non va.
ultima cosa: come faccio a fare in modo che il benvenuto + disconnetti appaia solo una volta loggata?
grazieee
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		14 maggio 2008 alle 16:05:31 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
In Aspnuke vi sono dei controlli particolari che impediscono l'uso di determinati tag html come ad esempio <_form> che verrà visualizzato come <_form>, quindi, al momento di copiare il codice è necessario controllare i tags che non contengano il carattere UNDERSCORE, altrimenti il codice non funzionerà.

Per non visualizare Disconnetti, basta modificare il codice come segue:


<table id="InfoPage"><tr>
<td class="InfoLeft"><%=sTitlePage%>&nbsp;
<%
DisplayNewPrivateMessages(sPseudo)
DisplayLoginBox2()
%>
</td>
<td class="InfoRight">
<%
If sPseudo <> "" Then
%>
<a href="<%=GLOBAL_SITE_PATH & GLOBAL_SITE_DECONNECT_PAGE%>">Disconnetti</a><%=sInfoPage%>
<% End If %>
</td>
</tr>
</table>


Per il benvenuto non si può fare molto, è una funzione legata ad latre pageine di Aspnuke.
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp
krilopez

Principiante
Principiante
14 Discussioni


Profilo - krilopez 		14 maggio 2008 alle 16:12:47 Profilo - krilopezInvia un messaggio privato Rispondi quotando
ok... grazie mille! ora vedo quello che riesco a tirar fuori dalle tue dritte... ma il vero problema è che il login così messo non mi funziona, cioè non riesco più ad accedere... :(

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 181
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5684713 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi