1
Hjälp med
Postat av Alexandros den 29 November 2008, 15:54
0 kommentarer · 30 träffar
Hejsan,
blev precis klar med mitt forum på http://matcho.se . Tog ett gammalt jag användt i ett gammalt community och fixade till det. Då funkade det att skriva med fet stil länka bilder osv. Men nu så funkar det inte allt. Såhär ser koderna ut i sqldb.asp
unction makeTags(ByVal text)
text = Replace(Server.HTMLEncode(text ),vbCrlf,"")
text = Replace(text,"www.", "http://www.")
text = Replace(text,"http://http://", "http://")
' text = Server.HTMLEncode(text)
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
RegExp.Pattern="\\ 92;\[b\\\\ ](.*?)\\\\[/b& #92;\\\]"
text = regExp.Replace(text," $1")
regexp.pattern = "\\\\[i\ 92;\\](.*?)\\& #92;\[/i\\\ 2;]"
text = regexp.replace(text," $1")
regexp.pattern = "\\\\[u\ 92;\\](.*?)\\& #92;\[/u\\\ 2;]"
text = regexp.replace(text," $1")
regexp.pattern = "\\\\[url=(.*? )\\\\](.*?) 2;\\\[/url\ 2;\\]"
text = regexp.replace(text, "$2
blev precis klar med mitt forum på http://matcho.se . Tog ett gammalt jag användt i ett gammalt community och fixade till det. Då funkade det att skriva med fet stil länka bilder osv. Men nu så funkar det inte allt. Såhär ser koderna ut i sqldb.asp
unction makeTags(ByVal text)
text = Replace(Server.HTMLEncode(text ),vbCrlf,"")
text = Replace(text,"www.", "http://www.")
text = Replace(text,"http://http://", "http://")
' text = Server.HTMLEncode(text)
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
RegExp.Pattern="\\ 92;\[b\\\\ ](.*?)\\\\[/b& #92;\\\]"
text = regExp.Replace(text," $1")
regexp.pattern = "\\\\[i\ 92;\\](.*?)\\& #92;\[/i\\\ 2;]"
text = regexp.replace(text," $1")
regexp.pattern = "\\\\[u\ 92;\\](.*?)\\& #92;\[/u\\\ 2;]"
text = regexp.replace(text," $1")
regexp.pattern = "\\\\[url=(.*? )\\\\](.*?) 2;\\\[/url\ 2;\\]"
text = regexp.replace(text, "$2






