---
title: "Forumfunktionskod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/95706-forumfunktionskod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2004-01-25T15:49:41.000Z"
updated: "2004-01-25T20:52:43.000Z"
replies: 2
views: 193
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/95706-forumfunktionskod"
---

# Forumfunktionskod

## #1 — magnusfeldth, 2004-01-25T15:49Z

Jag håller på med ett forum och gör en del funktioner i det tex 

```
 <%
Function Smiley(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""images/smily-smajl.gif"">")
text = Replace(text,":(","<img src=""images/smily-sur.gif"">")
text = Replace(text,":-(","<img src=""images/smily-sur.gif"">")
text = Replace(text,":-)","<img src=""images/smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""images/smily-blink.gif"">")
text = Replace(text,";)","<img src=""images/smily-blink.gif"">")

Response.Write text

End Function
%>
```

 Men hur gör man följande saker (som bland annat wF har):
\- url
\- citat
\- url som förkortas så att de inte blir förlånga (www.jättejättelångadresssomföljsavpunkter....)
\- liten text/stor text

Permalänk: https://www.webforum.nu/p/95706

## #2 — Addeladde, 2004-01-25T16:00Z

Korta ner url så kan du göra med denna funktion:

```
Public Function Shorten(ByVal strIn, ByVal intLen)

	If Not Len(strIn) > intLen Then
		Shorten = strIn
		Exit Function
	End If

	strLeft = Left(strIn, Int(intLen/2) - 1)
	strRight = Right(strIn, Int(intLen/2) - 1)

	Shorten = strLeft & ".." & strRight

End Function
```

Permalänk: https://www.webforum.nu/p/1260768

## #3 — Melea, 2004-01-25T20:52Z

Sök sök sök sök sök sök

Har varit uppe miljoners triljoners gånger ;)

Permalänk: https://www.webforum.nu/p/1260870

---

Tråden på webben: https://www.webforum.nu/amne/asp/95706-forumfunktionskod