Har en kod för en meddelande funktion
som ser ut så här:
<%
Function to_html(s_string)
to_html = Replace(s_string, """", "''")
to_html = Replace(to_html, "<", "<")
to_html = Replace(to_html, ">", ">")
to_html = Replace(server.htmlencode(to_html), vbcrlf, "<br>")
to_html = Replace(to_html, "/<", "<")
to_html = Replace(to_html, "/>", ">")
to_html= replace(to_html,"[/font]","</font>")
to_html= replace(to_html,"[/size]","</font>")
to_html= replace(to_html,"[/color]","</font>")
to_html= replace(to_html,"[/FONT]","</font>")
to_html= replace(to_html,"[/SIZE]","</font>")
to_html= replace(to_html,"[/COLOR]","</font>")
to_html= replace(to_html,"[img]","<img src='")
to_html= replace(to_html,"[IMG]","<img src='")
to_html= replace(to_html,"[/img]","'>")
to_html= replace(to_html,"[/IMG]","'>")
to_html = edit_hrefs(to_html)
End Function
%>
<script language="javascript1.2" runat=server>
function edit_hrefs(s_html){
// use regular expressions to look for
// e_mail addresses and urls
s_str = new String(s_html);
s_str = s_str.replace(/\bhttp\:\/\/www(\.[\w+\.\:\/\_]+)/gi,
"http\:\/\/¬¤¸$1");
s_str = s_str.replace(/\b(http\:\/\/\w+\.[\w+\.\:\/\_]+)/gi,
"<a href=\"$1\">$1<\/a>");
s_str = s_str.replace(/\b(www\.[\w+\.\:\/\_]+)/gi,
"<a href=\"http://$1\">$1</a>");
s_str = s_str.replace(/\bhttp\:\/\/¬¤¸(\.[\w+\.\:\/\_]+)/gi,
"<a href=\"http\:\/\/www$1\">http\:\/\/www$1</a>");
s_str = s_str.replace(/\b(\w+@[\w+\.?]*)/gi,
"<a href=\"mailto\:$1\">$1</a>");
// s_str=s_str.replace( /\b\[font=([a-z]+)\]/gi,"<font face='$1'>");
s_str=s_str.replace( /\[font=([a-z]+)\]/gi,"<font face='$1'>");
s_str=s_str.replace( /\[size=([1-9]+)\]/gi,"<font size='$1'>");
s_str=s_str.replace( /\[color=([a-z]+)\]/gi,"<font color='$1'>");
return s_str;
}
</script>
<%
function smilie(pics)
pics = replace(pics, ":)", "<img src='pics/smilie/smilie.gif' border=0>")
pics = replace(pics, ":(", "<img src='pics/smilie/smilie2.gif' border=0>")
pics = replace(pics, ":D", "<img src='pics/smilie/smilie3.gif' border=0>")
pics = replace(pics, ":?:", "<img src='pics/smilie/smilie4.gif' border=0>")
pics = replace(pics, ":arg:", "<img src='pics/smilie/smilie5.gif' border=0>")
pics = replace(pics, ":raw:", "<img src='pics/smilie/smilie6.gif' border=0>")
pics = replace(pics, ";)", "<img src='pics/smilie/smilie7.gif' border=0>")
smilie = pics
end function
%>
allt funkar utom img-taggen!
Rättelse, img-taggen funkar men inte när man använder en bild-url som börjar på http:// och www!
Hur kommer jag runt detta?
[Redigerat av aleborg den 16 apr 2001]