Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      MODULI AGGIUNTIVI
         blocco aggiuntivo

blocco aggiuntivo

Autore Messaggio
heero

Utente
Utente
70 Discussioni


Profilo - heero 		10 febbraio 2004 alle 20:44:09 Profilo - heeroInvia un messaggio privato Rispondi quotando
un saluto festoso a tutti.
salve volevo aggiungere un modulo (blocco) per il login di acesso alla chat del sito. ho seguito le istruzioni dei tutorial ma quando aggiungo il pezzo che io ho messo come mi serviva cioè
Case 1 :
CreateTopTable "chat", "webchat"
%>
<!-- #include file="loginchat-inc.asp" -->
<%
CreateBottomTable ""
aggiungendo poi al file configuration-inc.asp il numero blocco 1 e al lang it la riga

ma quando unplodo non mi fa più visualizzare il sito

la pagina loginchat-inc.asp
contine questo
<!-- #include file='includes/includes-inc.asp' -->
<%
sTitlePage = "chat"
%>
<!-- #include file='includes/toppage-inc.asp' -->
<%
createtoptable "tabella","BlueChat"
%>
<IFRAME SCROLLING=no FRAMEBORDER=0 HSPACE=0 MARGINWIDTH=0 WIDTH=152 height=242 SRC="http://www.chattiamo.it/modules/Chat/Form_Chat.php?altezza=-80&lunghezza=&channel1=&WelcomeMessage=&RealName=Utente di www.blueart.biz&UserName=guest&BackgroundColor=&TextColor=&TextScreenColor=&TextFontSize=&InputTextColor=&InputScreenColor=&FieldNameQuitMsg="></IFRAME>

<%
CreateBottomTable "Chattiamo su BlueChat"
%>
<!-- #include file='includes/bottompage-inc.asp' -->
<!-- #include file='includes/clearitall-inc.asp' -->

di modo che carichi il modulo per il login

mi potete aiutare?

grassie [lo]
---------------
Tutti sono in grado di prendere il leone per le @@ ma solo gli audaci stringono il pugno!!
peppecast

Esperto
Esperto
329 Discussioni


Profilo - peppecast 		13 febbraio 2004 alle 11:32:51 Profilo - peppecastInvia un messaggio privato Rispondi quotando
Io lo messo nel mio sito ed e molto facile.

Crea un nuovo blocco e metti queto codice:
Case N* :
Dim sPreviousPage, iPos, sMemo

if sPseudo="" then

CreateTopTable "login", "Log in"

If Request.Form("urlpage") <> "" Then
sPreviousPage = Request.Form("urlpage")
Else
sPreviousPage = Request.ServerVariables("HTTP_REFERER")
iPos = InstrRev(sPreviousPage, "/")
If iPos > 0 and iPos > 7 Then
sPreviousPage = Mid(sPreviousPage, iPos+1)
Else
sPreviousPage = "Default.asp"
End If
End If

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
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 " <tr class=""myTD"">" & vbCRLF
Response.Write " <td><font class=""small"">" & GetTranslation("LANG_LOGIN") & "</font></td>" & vbCRLF
Response.Write " <td align=""right"">" & vbCRLF
Response.Write " <input name=""pseudo"" maxlength=""20"" size=""9"" value=""" & vbCRLF
If Request.Form("pseudo") <> "" Then
Response.Write Server.HTMLEncode(Request.Form("pseudo"))
Else
Response.Write GetTranslation("LANG_LOGIN")
End If
sMemo = GetTranslation("LANG_MEMORIZE_SHORT")
if sMemo = "LANG_MEMORIZE_SHORT" then sMemo = "Memorizza i tuoi dati :"
Response.Write """ onFocus=""this.value='';"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""myTD"">" & vbCRLF
Response.Write " <td><font class=""small"">" & GetTranslation("LANG_PASSWORD") & "</font></td>" & vbCRLF
Response.Write " <td align=""right""><input name=""mdp"" type=""password"" maxlength=""20"" size=""8"" onFocus=""this.value='';"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""myTD"">" & vbCRLF
Response.Write " <td><font class=""small"">" & sMemo & "</font></td>" & vbCRLF
Response.Write " <td align=""right""><input name=""memo"" type=""checkbox"" checked></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""myTD"">" & 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 "</form>" & vbCRLF
Response.Write "</table>" & vbCRLF
CreateBottomTable ""
End if

Apri il file configuration-inc.asp e cerca questa riga
Const GLOBAL_CUSTOM_BLOCKS, aggiungi il numero di blocchi progressivo

In fine vai nella cartella lang edita il file it.xml
e alla fine aggiungi questa riga

<translation name="LANG_BLOCK_1">Autenticazione</translation>

Fai attenzione ad inserire il numero del blocco


---------------


http://www.soggettismarriti.net

IL MIO NUOVO SITO
http://www.freevideogame.net

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 : 71
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: 425 Notizie: 180 Sondaggi: 11 Preferiti: 217200 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi