18 svar · 964 visningar · startad av ptr_lks
Hej,
har kodat en gästbok, som finns hos Brinkster. (ASP + Access 2003)
Nu vill jag möjliggöra att man läggar till smiles till sina inlägg. På samma sätt som wf har, dvs man klicka på lämplig smile så "ritas" smile´n ut på gästboksidan. Hur gör jag detta?
Hej!
Det gör du med JavaScript. En sökning kan ge följande resultat: http://www.webforum.nu/search.php?searchid=3944.
Red./ Sedan använder du t.ex. Replace():
http://www.webforum.nu/showthread.php?t=62604
Peter S skrev:
Hej!
Det gör du med JavaScript. En sökning kan ge följande resultat: http://www.webforum.nu/search.php?searchid=3944.
]
Länken funkar ej!
Hm, hur gör man då för att länka till ett sökresultat? Bifogar två direkta trådlänkar istället:
http://www.webforum.nu/showthread.php?t=130268
http://www.webforum.nu/showthread.php?t=129595
Nu har jag försökt med smilies, men som ni kan se blir det 2 fel:
Nedanstående kod använder jag:
<table width="710" border="1" align="center" bordercolor="#FFFFFF" bgcolor="#0000FF">
<tr>
<td><form name="skriv" method="post" action="p93_skriv.asp?cmd=Send">
<p><br>
<span class="style2">Namn:</span><br>
<input type="text" name="namn" size="50" value="<%=Server.htmlencode(namn)%>">
[B]<a href="#" onclick="smilie(':)'); return false;"><img src="images/smiley/smile.GIF" height="15" width="15" alt="leende" title=":)"></a><a href="#" onclick="smilie(' :h'); return false;"><img src="images/smiley/cool.GIF" alt="cool" width="15" height="15" border="0"></a>[/B] </p>
<p><span class="style2">E-post</span><br>
<input type="text" name="mail" size="50" value="<%=Server.htmlencode(Epost)%>">
</p>
<p><span class="style2">Meddelande:</span><br>
<textarea name="message" cols="70" rows="10" wrap="virtual"><%=Server.htmlencode(Message)%></textarea>
<p align="right">
<input type="submit" name="skriv" value="Lägg till">
</form> </td>
</tr>
</table>
Tacksam för er hjälp
jag upptäckte att jag glömde
<script type="text/javascript">
var cPos,
fObj,
ieC = Boolean(document.selection && document.selection.createRange);
function smilie(str) {
if (ieC) {
if (typeof cPos != "undefined")
cPos.text = str;
else
fObj.value = str;
}
else if (typeof window.HTMLTextAreaElement != "undefined")
fObj.value = fObj.value.substring(0, fObj.selectionStart) + str + fObj.value.substring(fObj.selectionEnd);
else fObj.value += str;
}
function sC() {
cPos = document.selection.createRange().duplicate();
}
window.onload = function() {
fObj = document.forms["vbform"].elements["message"];
if (ieC) {
fObj.onclick = function() { sC(); }
fObj.onkeyup = function() { sC(); }
fObj.onselect = function() { sC(); }
}
}
</script>
så nu verkar det fungera förutom att det blir en liten ruta runt ena gubben..
Vad skiljer mellan bildtaggarna då?
<img src="images/smiley/smile.GIF" height="15" width="15" alt="leende" title=":)"></a>
<a href="#" onclick="smilie(' :h'); return false;"><img src="images/smiley/cool.GIF" alt="cool" width="15" height="15" border="0">
att border = 0 där ingen ram visas
Katsching!
Red./ Sedan använder du t.ex. Replace():
http://www.webforum.nu/showthread.php?t=62604
Nu har jag snickrat ihop följande
Function Smilies(txt)
txt = Replace(txt, " :)", "<img src=""images/smiley/smile.GIF"">")
txt = Replace(txt, ":(", "<img src=""images/smiley/frown.GIF"">")
txt = Replace(txt, ":e", "<img src=""images/smiley/supergrin.GIF"">")
txt = Replace(txt, ";)", "<img src=""images/smiley/wink.GIF"">")
txt = Replace(txt, ":p", "<img src=""images/smiley/tongue.GIF"">")
txt = Replace(txt, ":h", "<img src=""images/smiley/cool.GIF"">")
txt = Replace(txt, ":OO", "<img src=""images/smiley/look.GIF"">")
txt = Replace(txt, "x(", "<img src=""images/smiley/angry.GIF"">")
txt = Replace(txt, ":o", "<img src=""images/smiley/redface.GIF"">")
txt = Replace(txt, ":q", "<img src=""images/smiley/quest.GIF"">")
txt = Replace(txt, ":D", "<img src=""images/smiley/biggrin.GIF"">")
txt = Replace(txt, ":P", "<img src=""images/smiley/blah.GIF"">")
txt = Replace(txt, "§jr", "<img src=""images/smiley/devel.GIF"">")
txt = Replace(txt, "§e", "<img src=""images/smiley/devilgrin.GIF"">")
txt = Replace(txt, ":l", "<img src=""images/smiley/hrmpf.GIF"">")
txt = Replace(txt, ":i", "<img src=""images/smiley/idea.GI"">")
txt = Replace(txt, ":D", "<img src=""images/smiley/stud.GIF"">")
txt = Replace(txt, ":L", "<img src=""images/smiley/laugh.GIF"">")
txt = Replace(txt, ":bla", "<img src=""images/smiley/jaja.GIF"">")
txt = Replace(txt, "(y)", "<img src=""images/smiley/icon7.GIF"">")
txt = Replace(txt, "(n)", "<img src=""images/smiley/icon6.GIF"">")
Smilies = txt
End Function
När jag vill ha gubbarna "utskrivna" hur skall jag ändra min nuvarande kod
Replace(rsGbok("Message"), vbCrLf, "<br>" & vbCrLf)
mellanslag efter apostrofen
skall det vara mellanslag efter 1:a apostrofen i koden
Replace(txt, " :(", "<img src=""images/smiley/frown.GIF"">")
eller inte?
har detta ngt betydelse?
Det är ingen apostrof i den koden, och huruvida det skall vara ett mellanslag mellan citationstecknet och smileykoden så är ju det upp till dig och bestämma om du vill ha det eller inte.
@nders skrev:
Det är ingen apostrof i den koden, och huruvida det skall vara ett mellanslag mellan citationstecknet och smileykoden så är ju det upp till dig och bestämma om du vill ha det eller inte.
@nders: jag menar naturligtvis situationstecken
Replace(txt, ":e", "<img src=""images/smiley/supergrin.GIF"">")
Så mellanslaget saknar betydelse för att replacen skall funka?
Nej, inte saknar betydelse.
Den replacear ju mellanslag+smileykod till en bild, så du får bestämma dig för om det är det du vill.
Jag tror jag blir galen....
Nu fungerar det inte.. återigen...Om ni tittar på sidan
För att spara utrymme bifogar jag filen
För mig fungerar det fint att infoga smileys i meddelanderutan, så länge man har markören i den textrutan.
Ett tips när man jobbar med javascript är att använda exempelvis Firefox som webbläsare, där det är betydligt lättare att förstå vad som är fel med den webbläsarens javascript-konsoll.
@nders: skall ta fasta på ditt råd och ladda ner Firefox!
För övrigt har jag hittat felet: glömde ange formulärets namn. Så här skall det vara:
fObj = document.forms["skriv"].elements["message"];
skall ta fasta på ditt råd och ladda ner Firefox!
Sedan får du fram javascript-konsollen genom att skriva javascript: i adressraden. Sedan kan du klicka på ev. felmeddelande och få reda på exakt vilken kod som orsakade det. Kalas, helt enkelt!