Notifikationer

Markér alle som læst Log ud

ghostweb Nybegynder

20. marts 2004 - 11:50 Der er 15 kommentarer og
1 løsning

kan kun vise et smiley i tagwall

Har en tagwall hvor jeg lige har fået en ting ind der gør man kan skrive ":)" så kommer der et smiley nu har jeg sat nogle flere smiley´s ind så viser den kun et.

Skriv.asp
<html>

<head>
<title>skriv.asp</title>
</head>

<body>
<%
strAdd = Replace(strAdd,":)","<img src=glad.gif>")
strAdd = Replace(strAdd,":P","<img src=tunge.gif>")
strAdd = Replace(strAdd,":(","<img src=sur.gif>")
strAdd = Replace(strAdd,":]","<img src=skæv.gif>")
%>
<p><font size="5" face="Verdana"><b>Nyt indlæg</b></font></p>
<font face="Verdana" size="2">

<script>
function validate(theForm){
if (theForm.navn.value == ""){
alert("Skriv venligst dit navn!");
theForm.navn.focus();
return false;
}
if (theForm.email.value == "" || theForm.email.value.indexOf('@',1)== -1 || theForm.email.value.indexOf('.',2)==-1){
alert("Skriv en gyldig e-mail!");
theForm.email.focus();
return false;
}
if (theForm.hjemmeside.value == ""){
alert("Skriv din hjemmeside!");
theForm.hjemmeside.focus();
return false;
}
if (theForm.kommentar.value == ""){
alert("Skriv din kommentar!");
theForm.kommentar.focus();
return false;
}

return true;
}
</script>

<form method="POST" action="godkend.asp" onsubmit="return validate(this);" name="opretform0submit1">
<p>
Dit navn:              <input type="text" name="navn" size="20"></p>
<p>Din e-mail:           
<input type="text" name="email" size="20"></p>
<p>Din hjemmeside:    
<input type="text" name="hjemmeside" size="20"></p>
<p>Din kommentar:     
<textarea rows="4" name="kommentar" cols="20"></textarea></p>
<p>                       
<input type="submit" value="Skriv" name="B1"></p>
</form>
<p>
<br><br>
</font>

</body>

</html>

godkend.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("gb.mdb")
Conn.Open DSN

function smilies(strInput)
smilies = replace(strinput, ":)", "<img src=""glad.gif"">")
smilies = replace(strinput, ":(", "<img src=""sur.gif"">")
smilies = replace(strinput, ":P", "<img src=""tunge.gif"">")
smilies = replace(strinput, ":]", "<img src=""skæv.gif"">")
end function

strSQL = "Insert into gb (navn, email, hjemmeside, kommentar, dato) values ('" & Request.Form("navn") & "', '" & Request.Form("email") & "', '" & Request.Form("hjemmeside") & "', '" & smilies(Request.Form("kommentar")) & "', '" & date & "')"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

Response.Redirect("vis.asp")
%>

håber i kan hjælpe mig

Synes godt om

eagleeye Praktikant

20. marts 2004 - 11:52 #1

Det er fordi du i din funtion bruger, strinput i alle replace linjerne og ligger det over i smilies. Så vil den kun udskifte den sidste så prøv at lave det sådan her, hvor strinput kun bruges i den første linjer og smilies i resten:

function smilies(strInput)
smilies = replace(strinput, ":)", "<img src=""glad.gif"">")
smilies = replace(smilies, ":(", "<img src=""sur.gif"">")
smilies = replace(smilies, ":P", "<img src=""tunge.gif"">")
smilies = replace(smilies, ":]", "<img src=""skæv.gif"">")
end function

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 11:57 #2

takker :) :D :D:D

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 11:59 #3

Har os et andet spg. hvordan kan jeg gøre så jeg viser et smiley så vis man trykker på det kommer det ind i kommentaren ligesom på www.madsass.dk :)

Synes godt om

eagleeye Praktikant

20. marts 2004 - 12:02 #4

Ikke lige med på hvad du mener, men man kan med noget javascript lave noget som indsætter smiles i et textarea.

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 12:05 #5

en kode du kan skaffe så laver jeg lige en ny tråd med flere points

Synes godt om

eagleeye Praktikant

20. marts 2004 - 12:13 #6

Du kan se et par eksempler her:
http://www.geizkragen.de/forum/reply.php?topic=8655&forum=37
http://www.faqts.com/knowledge_base/view.phtml/aid/1052/fid/130

Jeg har lavet dette engang:
http://www.eksperten.dk/spm/452082

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 12:15 #7

http://www.team-urin.dk/ kig i deres gæstebog der kan man bare trykke på et smiley så kommer det der hvor man skriver.. :) sådan

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 12:18 #8

:) jep nettop kan du sætte det ind i skriv.asp ?
bare nederst på siden. hvor mange points skal du have.. ?

<html>

<head>
<title>skriv.asp</title>
</head>

<body>
<%
strAdd = Replace(strAdd,":)","<img src=glad.gif>")
strAdd = Replace(strAdd,":P","<img src=tunge.gif>")
strAdd = Replace(strAdd,":(","<img src=sur.gif>")
strAdd = Replace(strAdd,":]","<img src=skæv.gif>")
%>
<p><font size="5" face="Verdana"><b>Nyt indlæg</b></font></p>
<font face="Verdana" size="2">

<script>
function validate(theForm){
if (theForm.navn.value == ""){
alert("Skriv venligst dit navn!");
theForm.navn.focus();
return false;
}
if (theForm.email.value == "" || theForm.email.value.indexOf('@',1)== -1 || theForm.email.value.indexOf('.',2)==-1){
alert("Skriv en gyldig e-mail!");
theForm.email.focus();
return false;
}
if (theForm.hjemmeside.value == ""){
alert("Skriv din hjemmeside!");
theForm.hjemmeside.focus();
return false;
}
if (theForm.kommentar.value == ""){
alert("Skriv din kommentar!");
theForm.kommentar.focus();
return false;
}

return true;
}
</script>

<form method="POST" action="godkend.asp" onsubmit="return validate(this);" name="opretform0submit1">
<p>
Dit navn:              <input type="text" name="navn" size="20"></p>
<p>Din e-mail:           
<input type="text" name="email" size="20"></p>
<p>Din hjemmeside:    
<input type="text" name="hjemmeside" size="20"></p>
<p>Din kommentar:     
<textarea rows="4" name="kommentar" cols="20"></textarea></p>
<p>                       
<input type="submit" value="Skriv" name="B1"></p>
</form>
<p>
<br><br>
</font>

</body>

</html>

Synes godt om

eagleeye Praktikant

20. marts 2004 - 12:24 #9

Ja jeg kan prøve at sætte det ind..

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 12:31 #10

ok... hvad med points.. hvor mange vil du have. ?

Synes godt om

eagleeye Praktikant

20. marts 2004 - 12:33 #11

Det bestemmer du :) Prøv at rette koden til dette, du må selv lige rette billederne til sådan det passer med dine smiles :)

<html>

<head>
<title>skriv.asp</title>
</head>

<body>
<%
strAdd = Replace(strAdd,":)","<img src=glad.gif>")
strAdd = Replace(strAdd,":P","<img src=tunge.gif>")
strAdd = Replace(strAdd,":(","<img src=sur.gif>")
strAdd = Replace(strAdd,":]","<img src=skæv.gif>")
%>
<p><font size="5" face="Verdana"><b>Nyt indlæg</b></font></p>
<font face="Verdana" size="2">

<script>
function validate(theForm){
if (theForm.navn.value == ""){
alert("Skriv venligst dit navn!");
theForm.navn.focus();
return false;
}
if (theForm.email.value == "" || theForm.email.value.indexOf('@',1)== -1 || theForm.email.value.indexOf('.',2)==-1){
alert("Skriv en gyldig e-mail!");
theForm.email.focus();
return false;
}
if (theForm.hjemmeside.value == ""){
alert("Skriv din hjemmeside!");
theForm.hjemmeside.focus();
return false;
}
if (theForm.kommentar.value == ""){
alert("Skriv din kommentar!");
theForm.kommentar.focus();
return false;
}

return true;
}

function AddText(NewCode)
{
var msgObj = document.getElementById("kommentar");
if (msgObj.createTextRange && msgObj.caretPos)
{
var caretPos = msgObj.caretPos;
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ? NewCode + ' ' : NewCode;
}
else
{
msgObj.value+=NewCode
}
msgObj.focus();
}

function getActiveText(selectedtext)
{
text = (document.all) ? document.selection.createRange().text : document.getSelection();
if (selectedtext.createTextRange)
{
selectedtext.caretPos = document.selection.createRange().duplicate();
}
return true;
}

</script>

<form method="POST" action="godkend.asp" onsubmit="return validate(this);" name="opretform0submit1">
<p>
Dit navn:              <input type="text" name="navn" size="20"></p>
<p>Din e-mail:           
<input type="text" name="email" size="20"></p>
<p>Din hjemmeside:    
<input type="text" name="hjemmeside" size="20"></p>
<p>Din kommentar:     
<textarea rows="4" name="kommentar" cols="20" onChange="getActiveText(this)" onclick="getActiveText(this)" onFocus="getActiveText(this)"></textarea></p>
<p><img src="smily1.gif" onclick="java script:AddText(':)');">
<img src="smily2.gif" onclick="java script:AddText(';)');">
<img src="smily3.gif" onclick="java script:AddText(':-(');">
<p>                       

<input type="submit" value="Skriv" name="B1"></p>
</form>
<p>
<br><br>
</font>

</body>

</html>

Synes godt om

eagleeye Praktikant

20. marts 2004 - 12:34 #12

ok, dem kunne jeg jo se ud af koden... :)

Synes godt om

eagleeye Praktikant

20. marts 2004 - 12:37 #13

Du skal ikke give alle dine point, 30 ekstra er fint med mig :)
Her er koden lige igen med navnet på de smalies du har og med de rigtge tekster :) :P= :-( :]

<html>

<head>
<title>skriv.asp</title>
</head>

<body>
<%
strAdd = Replace(strAdd,":)","<img src=glad.gif>")
strAdd = Replace(strAdd,":P","<img src=tunge.gif>")
strAdd = Replace(strAdd,":(","<img src=sur.gif>")
strAdd = Replace(strAdd,":]","<img src=skæv.gif>")
%>
<p><font size="5" face="Verdana"><b>Nyt indlæg</b></font></p>
<font face="Verdana" size="2">

<script>
function validate(theForm){
if (theForm.navn.value == ""){
alert("Skriv venligst dit navn!");
theForm.navn.focus();
return false;
}
if (theForm.email.value == "" || theForm.email.value.indexOf('@',1)== -1 || theForm.email.value.indexOf('.',2)==-1){
alert("Skriv en gyldig e-mail!");
theForm.email.focus();
return false;
}
if (theForm.hjemmeside.value == ""){
alert("Skriv din hjemmeside!");
theForm.hjemmeside.focus();
return false;
}
if (theForm.kommentar.value == ""){
alert("Skriv din kommentar!");
theForm.kommentar.focus();
return false;
}

return true;
}

function AddText(NewCode)
{
var msgObj = document.getElementById("kommentar");
if (msgObj.createTextRange && msgObj.caretPos)
{
var caretPos = msgObj.caretPos;
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ? NewCode + ' ' : NewCode;
}
else
{
msgObj.value+=NewCode
}
msgObj.focus();
}

function getActiveText(selectedtext)
{
text = (document.all) ? document.selection.createRange().text : document.getSelection();
if (selectedtext.createTextRange)
{
selectedtext.caretPos = document.selection.createRange().duplicate();
}
return true;
}

</script>

<form method="POST" action="godkend.asp" onsubmit="return validate(this);" name="opretform0submit1">
<p>
Dit navn:              <input type="text" name="navn" size="20"></p>
<p>Din e-mail:           
<input type="text" name="email" size="20"></p>
<p>Din hjemmeside:    
<input type="text" name="hjemmeside" size="20"></p>
<p>Din kommentar:     
<textarea rows="4" name="kommentar" cols="20" onChange="getActiveText(this)" onclick="getActiveText(this)" onFocus="getActiveText(this)"></textarea></p>
<p><img src="glad.gif" onclick="java script:AddText(':)');">
<img src="tunge.gif" onclick="java script:AddText(':P');">
<img src="sur.gif" onclick="java script:AddText(':-(');">
<img src="skæv.gif" onclick="java script:AddText(':]');">

<p>                       

<input type="submit" value="Skriv" name="B1"></p>
</form>
<p>
<br><br>
</font>

</body>

</html>

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 12:39 #14

takker opretter lige et spg

Synes godt om

eagleeye Praktikant

20. marts 2004 - 12:40 #15

ok, husk reference til dette :)

Synes godt om

ghostweb Nybegynder

20. marts 2004 - 12:40 #16

http://www.eksperten.dk/spm/479607

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS