ba les tete que vous voyez  c les code des smileys comme :  ) ou sa :  (

Et quel est ton probléme? Il suffit juste de copier/coller, et en plus tu as la notice.

j'ai deja essayer mais j'arrive pas je pige pas c quoi le repsmileys, si c le repertoire ou son les imùage smileys alors le nom c "smileys" et puis je pige pas cette phrase:

Pour modifier le dossier image par défaut, vous devrez modifier la constante RepSmiley
présente dans le fichier Smiley_Fonctions.inc.
 

voila tu peut m'aidez^^

Probléme 1:

Repsmiley c le répertoire ou doivent se trouver tes smileys, or il est définit comme ceci:
RepSmiley = "Images\smiley\"

donc tu crée deux sous-dossier: un dossier "images", dans lequel tu créé ton second dossier "smiley", dans lequel tu mettras tous tes smileys.
Ainsi ils auront comme adresse:
/images/smiley/1.gif
/images/smiley/2.gif
/images/smiley/3.gif
etc, etc.........

Attnetion NB: selon ton code tes smileys doivent être nommés commce ceci:
1.gif, 2.gif, 3.gif.........
a moins que tu ne modifie ton code en fonction du nom de tes smileys.

Probléme 2:

cette phrase signifie que si tu désire mettres tes smileys ailleurs il faudras que tu modifie cette ligne (la 4éme de ton code:
RepSmiley = "Images\smiley\"
et que tu remplace donc Images\smiley\ par le répertoire ou se trouvent réellement tes smileys.

En conclusion comme tu as l'air de débuter dans la programmation fait au plus simple, comme tu arriveras au mieux car c exactement pareil

olla c pas facile lol, tu peut me le faire si je te donne les info dont tu a besoinstp

non, n'abuse pas c pas si dure. Fait le petit a petit et reviens nous dire a quel endroit exactement tu coince.
(mince c vraiment pas dur de mettre des images dans un répertoire, la je suspecte de le flemmardise chez toi)

oki je vais essayer

oui mais le dossier image et le dossier smileys existe deja

tient, je telecharger tout ici http://www.aspfr.com/article.aspx?ID=143 tu t'inscrit et tu telecharge le fichier

et ben remplace les anciennes images par les nouvelles, sauvegarde les anciennes autre part si tu penses les réutiliser.

oki c trop dure lol^^ilo faut que je m'entraine un peut sinon vous savez pas ou je peut trouver un site pour avoir des chanson pour mon site

dit si c bon







<% Function CreateSmiley (InText)
if InText = "" then Exit Function
Dim RepSmiley
RepSmiley = "Images\smiley\" 'Le répertoire image contenant les icones des Smiley...

InText = Replace(InText,"(T)","<img src=""" & RepSmiley & "image/smileys/1.gif"">")
InText = Replace(InText,"(F)","<img src=""" & RepSmiley & "image/smileys/2.gif"">")
InText = Replace(InText,"(M)","<img src=""" & RepSmiley & "image/smileys/4.gif"">")
InText = Replace(InText,"(","<img src=""" & RepSmiley & "image/smileys/6.gif"">")
InText = Replace(InText,"(P)","<img src=""" & RepSmiley & "image/smileys/7.gif"">")
InText = Replace(InText,"(R)","<img src=""" & RepSmiley & "image/smileys/10.gif"">")
InText = Replace(InText,"(C)","<img src=""" & RepSmiley & "image/smileys/11.gif"">")
InText = Replace(InText,"(Q)","<img src=""" & RepSmiley & "image/smileys/12.gif"">")
InText = Replace(InText,"(H)","<img src=""" & RepSmiley & "image/smileys/17.gif"">")
InText = Replace(InText,"(W)","<img src=""" & RepSmiley & "image/smileys/18.gif"">")
InText = Replace(InText,"(G)","<img src=""" & RepSmiley & "image/smileys/19.gif"">")
InText = Replace(InText,"(N)","<img src=""" & RepSmiley & "image/smileys/21.gif"">")
InText = Replace(InText,"(U)","<img src=""" & RepSmiley & "image/smileys/22.gif"">")
InText = Replace(InText,"(A)","<img src=""" & RepSmiley & "image/smileys/23.gif"">")
InText = Replace(InText,"(K)","<img src=""" & RepSmiley & "image/smileys/24.gif"">")
InText = Replace(InText,"(i)","<img src=""" & RepSmiley & "image/smileys/27.gif"">")
InText = Replace(InText,"(J)","<img src=""" & RepSmiley & "image/smileys/28.gif"">")
InText = Replace(InText,"(Z)","<img src=""" & RepSmiley & "image/smileys/32.gif"">")
InText = Replace(InText,"","<img src=""" & RepSmiley & "image/smileys/33.gif"">")
InText = Replace(InText,"b(","<img src=""" & RepSmiley & "image/smileys/8.gif"">")
InText = Replace(InText,"c","<img src=""" & RepSmiley & "image/smileys/9.gif"">")
InText = Replace(InText,":<p","<img src=""" & RepSmiley & "image/smileys/5.gif"">")
InText = Replace(InText,"(L)","<img src=""" & RepSmiley & "image/smileys/35.gif"">")
InText = Replace(InText,":]","<img src=""" & RepSmiley & "image/smileys/3.gif"">")
InText = Replace(InText,"<","<img src=""" & RepSmiley & "image/smileys/36.gif"">")
InText = Replace(InText,"(S)","<img src=""" & RepSmiley & "image/smileys/37.gif"">")
InText = Replace(InText,"(V)","<img src=""" & RepSmiley & "image/smileys/38.gif"">")
InText = Replace(InText,"(t)","<img src=""" & RepSmiley & "image/smileys/1.gif"">")
InText = Replace(InText,"(f)","<img src=""" & RepSmiley & "image/smileys/2.gif"">")
InText = Replace(InText,"(m)","<img src=""" & RepSmiley & "image/smileys/4.gif"">")
InText = Replace(InText,"(b)","<img src=""" & RepSmiley & "image/smileys/6.gif"">")
InText = Replace(InText,"(p)","<img src=""" & RepSmiley & "image/smileys/7.gif"">")
InText = Replace(InText,"(r)","<img src=""" & RepSmiley & "image/smileys/10.gif"">")
InText = Replace(InText,"(c)","<img src=""" & RepSmiley & "image/smileys/11.gif"">")
InText = Replace(InText,"(q)","<img src=""" & RepSmiley & "image/smileys/12.gif"">")
InText = Replace(InText,"(h)","<img src=""" & RepSmiley & "image/smileys/17.gif"">")
InText = Replace(InText,"(w)","<img src=""" & RepSmiley & "image/smileys/18.gif"">")
InText = Replace(InText,"(g)","<img src=""" & RepSmiley & "image/smileys/19.gif"">")
InText = Replace(InText,"(b)","<img src=""" & RepSmiley & "image/smileys/21.gif"">")
InText = Replace(InText,"(u)","<img src=""" & RepSmiley & "image/smileys/22.gif"">")
InText = Replace(InText,"(a)","<img src=""" & RepSmiley & "image/smileys/23.gif"">")
InText = Replace(InText,"(k)","<img src=""" & RepSmiley & "image/smileys/24.gif"">")
InText = Replace(InText,"(j)","<img src=""" & RepSmiley & "image/smileys/28.gif"">")
InText = Replace(InText,"(z)","<img src=""" & RepSmiley & "image/smileys/32.gif"">")
InText = Replace(InText,":P","<img src=""" & RepSmiley & "image/smileys/33.gif"">")
InText = Replace(InText,"B(","<img src=""" & RepSmiley & "image/smileys/8.gif"">")
InText = Replace(InText,"C","<img src=""" & RepSmiley & "image/smileys/9.gif"">")
InText = Replace(InText,":<P","<img src=""" & RepSmiley & "image/smileys/5.gif"">")
InText = Replace(InText,"(l)","<img src=""" & RepSmiley & "image/smileys/35.gif"">")
InText = Replace(InText,":]","<img src=""" & RepSmiley & "image/smileys/3.gif"">")
InText = Replace(InText,"<:P","<img src=""" & RepSmiley & "image/smileys/36.gif"">")
InText = Replace(InText,"(s)","<img src=""" & RepSmiley & "image/smileys/37.gif"">")
InText = Replace(InText,"(v)","<img src=""" & RepSmiley & "image/smileys/38.gif"">")
InText = Replace(InText,"(I)","<img src=""" & RepSmiley & "image/smileys/27.gif"">")
InText = Replace(InText,"[]","<img src=""" & RepSmiley & "image/smileys/15.gif"">")
InText = Replace(InText,":-)","<img src=""" & RepSmiley & "image/smileys/13.gif"">")
InText = Replace(InText,"8)","<img src=""" & RepSmiley & "image/smileys/14.gif"">")
InText = Replace(InText,":-)","<img src=""" & RepSmiley & "image/smileys/16.gif"">")
InText = Replace(InText,":|)","<img src=""" & RepSmiley & "image/smileys/20.gif"">")
InText = Replace(InText,":","<img src=""" & RepSmiley & "image/smileys/25.gif"">")
InText = Replace(InText,"","<img src=""" & RepSmiley & "image/smileys/26.gif"">")
InText = Replace(InText,")","<img src=""" & RepSmiley & "image/smileys/30.gif"">")
InText = Replace(InText,"","<img src=""" & RepSmiley & "image/smileys/29.gif"">")
InText = Replace(InText,":|","<img src=""" & RepSmiley & "image/smileys/31.gif"">")
InText = Replace(InText,"","<img src=""" & RepSmiley & "image/smileys/34.gif"">")

createsmiley = InText
End Function
%>

scriptman91 reponse sur l'autre topic

oki

Bonjour,
J'ai adapté la page de smileys que tout le monde connais, je crois, de chez Lycos. hé hé, suis que programmeur VB, VBA, VBS, mais ça aide quand même.
D'une part, j'insére d'autres smileys, d'autre part, le seul lien de mise en forme disponible, est celui utilisable par les forums.com.
Si ça peut aider quelqu'un ....
Ah, une petite question quand même, comment faire pour qu'un clic gauche soit en fait un click droit ouvrir dans une autre fenêtre ? Je parle du lien qui va vers ma page de smileys qui est sur mon site.

<a href="..." target=_blank>

Je dirais même plus (pour être conforme au standard XHTML 1.0+):

           <a href="..." target="_blank">

C'est parfait. Tout simplement.
Merci de votre rapidité.

Pas de problème

J'aime bien partager les trucs que je fait.
Pour ceux qui aiment les trucs tout fait.
Copier coller ceci dans Pied de Page HTML et un lien sous la zone de message vous enverra vers d'autres smileys.

<a href="http://users.skynet.be/fa367366/smileys.htm" target="_blank">Plus de gif 1</a>
Si quelqu'un l'utilise merci de me le dire. C'est bon pour le moral

Ha c sympa ça de partager ton lien. Attention à ne pas crâmer toute la bande passante à cause d'un afflux trop importantes de requêtes vers ton site! Enfin ça c Skynet que ça intéresse... ou pas

On verra a la longue.

Message modéré le 12/03 à 13:24:48 par Centaurus
Qu'est ce qui c'est passé Centaurus ???

A propos, je n'ai pas trouvé un forum du genre : Trucs et astuces des forums.com.
C'est dommage, je suis sur qu'on sait faire beaucoup plus encore.
Je ne veux pas créer un topic de plus pour cette question :
Je voudrais créé des topics a acces réservé. Pour les inscrits uniquement (le reste du forum doit rester accessible en lecture a tout le monde)
Des topics sur acceptation.