<%
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>
Den här koden skapar ubb taggar och tar bort html och skapar länkar av http:// och www
kalla på det så här:
<%=koder(to_html(rs("Inlägg")))%>
Tyvärr funkar inte img taggen som den ska! Läs mer här: http://cgi.webforum.nu/wf/Forum11/HTML/003763.html
[Redigerat av aleborg den 17 apr 2001]
