ÏÔʾ³¬Á´½ÓʵÀýµÄÕýÔò±í´ïʽµÄÓ¦ÓÃ!

<%
    s_message="<a href=hello.asp>hello</a>"
    Response.Write "ÕâÊÇת»»Ç°µÄÊä³ö:<br>"
    Response.Write s_message & "<br>"
    Response.Write "ÕâÊÇÓÃto_htmlº¯Êýת»»ºóµÄÊä³ö:<br>" 
    Response.Write to_html(s_message) & "<br>"
    Response.Write "ÕâÊÇÓÃServer.HTMLencodeº¯Êýת»»ºóµÄÊä³ö:<br>" 
    Response.Write Server.HTMLEncode(s_message)
%>

<%
Function to_html(s_string)
    to_html = Replace(s_string, """", "&quot;")
    to_html = Replace(to_html, "<", "&lt;")
    to_html = Replace(to_html, ">", "&gt;")
    to_html = Replace(to_html, vbcrlf, "<br>")
    to_html = Replace(to_html, "/&lt;", "<")
    to_html = Replace(to_html, "/&gt;", ">")
    to_html = edit_hrefs(to_html)
End Function
%>

<script language="javascript1.2" runat=server>
function edit_hrefs(s_html){
    // Ò»¸öʹÓÃÕýÔò±í´ïʽµÄµä·¶
    // ת»»Îı¾ÖÐËùÓеij¬Á´½ÓºÍµç×ÓÓʼþ¸ñʽ
    s_str = new String(s_html);

    s_str = s_str.replace(/\bhttp\:\/\/www(\.[\w+\.\:\/\_]+)/gi,
        "http\:\/\/&not;¡è&cedil;$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=\"$1http://$1\">$1</a>");
       
    s_str = s_str.replace(/\bhttp\:\/\/&not;¡è&cedil;(\.[\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>");
       
   
    return s_str;
}