Forumfunktionskod

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

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

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

Har varit uppe miljoners triljoners gånger ;)