Avatar billede klamse Nybegynder
20. januar 2004 - 16:55 Der er 5 kommentarer og
3 løsninger

Tagwall asp. HURTIGT

ja...

Jeg sidder så og "bikser" med en tagwall i asp.

Men jeg vil gerne have smilies med ind i den.

Hvordan gør jeg det?
<%
' ################### Start: Hvis tag er sendt , bliver det tilføjet ##################
if (Request.ServerVariables("REQUEST_METHOD") = "POST" and Request.Form("navn") <> "                          Skriv dit navn her" and Request.Form("tag") <> "Skriv dit tag her") then
' ####################### replace funktioner, til at undgå fejl #######################
Function DBFix(tempString)
  tempString = Replace(Trim(tempString),vbcrlf,"<br/>")
  tempString = Replace(Trim(tempString),"9876543210","'ikke tilladt'")
 
(det må være her MEN HVORDAN ;D)

  ' her kan du sætte flere replace funktioner ind, f.eks. smileys
  DBFix = tempString
End Function

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("beskeder.txt")


ER det nok af koden for at i kan Hjælpe ???


Ølbas
///////ww.repsack.dk\\\\\\\
Avatar billede musicchart.dk Nybegynder
20. januar 2004 - 17:01 #1
Function DBFix(tempString)
  tempString = Replace(Trim(tempString),vbcrlf,"<br/>")
  tempString = Replace(Trim(tempString),"9876543210","'ikke tilladt'")
  tempString = Replace(Trim(tempString),":)","<img src='glad_smiley.gid'>")

  ' her kan du sætte flere replace funktioner ind, f.eks. smileys
  DBFix = tempString
End Function
Avatar billede eagleeye Praktikant
20. januar 2004 - 17:02 #2
Så hvis du vil lave smiles fra :) til et billede før du gemmer i databasen.


tempString = Replace(tempString,":)","<img src=""glad.gif"">")
tempString = Replace(tempString,":(","<img src=""sur.gif"">")
Avatar billede musicchart.dk Nybegynder
20. januar 2004 - 17:02 #3
så kan du jo udvide det med flere smileys:

Function DBFix(tempString)
  tempString = Replace(Trim(tempString),vbcrlf,"<br/>")
  tempString = Replace(Trim(tempString),"9876543210","'ikke tilladt'")
  tempString = Replace(Trim(tempString),":)","<img src='glad_smiley.gif'>")
  tempString = Replace(Trim(tempString),":(","<img src='sur_smiley.gif'>")
  tempString = Replace(Trim(tempString),":p","<img src='tunge_smiley.gif'>")

' osv osv osv

  DBFix = tempString
End Function
Avatar billede klamse Nybegynder
20. januar 2004 - 17:03 #4
ok prøver lige :D
Avatar billede musicchart.dk Nybegynder
20. januar 2004 - 17:04 #5
du skal selvfølgelig huske at gemme smileysne i samme mappe som dit .asp dokument ligger i, så du har billeder der hedder dette:

glad_smiley.gif
sur_smiley.gif
tunge_smiley.gif
Avatar billede klamse Nybegynder
20. januar 2004 - 17:06 #6
Jada ....
35 hver så...
Avatar billede musicchart.dk Nybegynder
20. januar 2004 - 17:50 #7
tak for points :)
Avatar billede klamse Nybegynder
20. januar 2004 - 21:31 #8
så lidt :D
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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