config.asp

一个bbs的代码

<%
FUNCTION txtToURL(tekst)
Tekst_temp = tekst

Tekst_temp = Replace(Tekst_temp,"chr(13)","<br>")
Tekst_temp = Replace(Tekst_temp,"#","<br>")
Tekst_temp = Replace(Tekst_temp,Chr(13),"<br>")

'-------------------------------------------------------------------表情
Tekst_temp = Replace(Tekst_temp,"[:)]","<img src=icons\smile.gif>")
Tekst_temp = Replace(Tekst_temp,"[:D]","<img src=icons\biggrin.gif>")
Tekst_temp = Replace(Tekst_temp,"[8D]","<img src=icons\cool.gif>")
Tekst_temp = Replace(Tekst_temp,"[:I]","<img src=icons\blush.gif>")
Tekst_temp = Replace(Tekst_temp,"[:P]","<img src=icons\tongue.gif>")
Tekst_temp = Replace(Tekst_temp,"[}:)]","<img src=icons\evil.gif>")
Tekst_temp = Replace(Tekst_temp,"[;)]","<img src=icons\wink.gif>")
Tekst_temp = Replace(Tekst_temp,"[:o)]","<img src=icons\clown.gif>")
Tekst_temp = Replace(Tekst_temp,"[:(]","<img src=icons\frown.gif>")
Tekst_temp = Replace(Tekst_temp,"[8)]","<img src=icons\rolleyes.gif>")
Tekst_temp = Replace(Tekst_temp,"[:O]","<img src=icons\eek.gif>")
Tekst_temp = Replace(Tekst_temp,"[:(!]","<img src=icons\angry.gif>")
Tekst_temp = Replace(Tekst_temp,"[xx(]","<img src=icons\dead.gif>")
Tekst_temp = Replace(Tekst_temp,"[:X]","<img src=icons\kisses.gif>")
Tekst_temp = Replace(Tekst_temp,"[|)]","<img src=icons\sleepy.gif>")
Tekst_temp = Replace(Tekst_temp,"[^]","<img src=icons\approve.gif>")
Tekst_temp = Replace(Tekst_temp,"[V]","<img src=icons\dissapprove.gif>")
Tekst_temp = Replace(Tekst_temp,"[?]","<img src=icons\confused.gif>")

'-------------------------------------------------------------------常用
Tekst_temp = Replace(Tekst_temp,"[b]","<b>")
Tekst_temp = Replace(Tekst_temp,"[/b]","</b>")
Tekst_temp = replace(Tekst_temp,"[s]","<s>")
Tekst_temp = replace(Tekst_temp,"[/s]","</s>")
Tekst_temp = replace(Tekst_temp,"[u]","<u>")
Tekst_temp = replace(Tekst_temp,"[/u]","</u>")
Tekst_temp = replace(Tekst_temp,"[i]","<i>")
Tekst_temp = replace(Tekst_temp,"[/i]","</i>")
Tekst_temp = replace(Tekst_temp,"[img]","<img src=")
Tekst_temp = replace(Tekst_temp,"[/img]",">")

'-------------------------------------------------------------------颜色UBB
Tekst_temp = Replace(Tekst_temp,"[red]","<font color=red>" )
Tekst_temp = Replace(Tekst_temp,"[/red]","</font>")
Tekst_temp = Replace(Tekst_temp,"[green]","<font color=green>" )
Tekst_temp = Replace(Tekst_temp,"[/green]","</font>" )
Tekst_temp = Replace(Tekst_temp,"[blue]","<font color=blue>" )
Tekst_temp = Replace(Tekst_temp,"[/blue]","</font>")
Tekst_temp = replace(Tekst_temp,"[orange]","<font color=orange>")
Tekst_temp = replace(Tekst_temp,"[/orange]","</font>")
Tekst_temp = replace(Tekst_temp,"[yellow]","<font color=yellow>")
Tekst_temp = replace(Tekst_temp,"[/yellow]","</font>")
Tekst_temp = replace(Tekst_temp,"[pink]","<font color=pink>")
Tekst_temp = replace(Tekst_temp,"[/pink]","</font>")
Tekst_temp = replace(Tekst_temp,"[purple]","<font color=purple>")
Tekst_temp = replace(Tekst_temp,"[/purple]","</font>")
Tekst_temp = replace(Tekst_temp,"[maroon]","<font color=maroon>")
Tekst_temp = replace(Tekst_temp,"[/maroon]","</font>")
Tekst_temp = replace(Tekst_temp,"[violet]","<font color=violet>")
Tekst_temp = replace(Tekst_temp,"[/violet]","</font>")
Tekst_temp = replace(Tekst_temp,"[navy]","<font color=navy>")
Tekst_temp = replace(Tekst_temp,"[/navy]","</font>")
Tekst_temp = replace(Tekst_temp,"[brown]","<font color=brown>")
Tekst_temp = replace(Tekst_temp,"[/brown]","</font>")

'-------------------------------------------------------------------
txtToURL = Tekst_temp
END FUNCTION

%>