fun.asp

来自「系统功能说明： 1 本书库系统专为以文字为主的站点设计」· ASP 代码 · 共 36 行

<%
function encode(str)
    str = Replace(str, CHR(32), "&nbsp;")
    str = replace(str, ">", "&gt;")
    str = replace(str, "<", "&lt;")
    str = Replace(str, CHR(10), "<BR>")
    str = Replace(str, CHR(39), "&#39;")
    str = replace(str, "[dbt]", "<p class=style1 align=center>")
    str = replace(str, "[/d]", "</p>")
    str = replace(str, "[xbt]", "<p class=style2 align=center>")
    str = replace(str, "[/x]", "</p>")
    str = replace(str, "[zs]", "<i><blockquote>")
    str = replace(str, "[/z]", "</blockquote></i>")
    str = replace(str, "[jz]", "<p align=center>")
    str = replace(str, "[/j]", "</p>")
    str = replace(str, "[ydq]", "<p align=right>")
    str = replace(str, "[/y]", "</p>")
    str = replace(str, "[sj]", "<blockquote><blockquote>")
    str = replace(str, "[/s]", "</blockquote></blockquote>")
encode=str
end function
%>

<%
function encode1(str)
    str = Replace(str,1, "★☆☆☆☆")
    str = Replace(str,2, "★★☆☆☆")
    str = Replace(str,3, "★★★☆☆")
    str = Replace(str,4, "★★★★☆")
    str = Replace(str,5, "★★★★★")
encode1=str
end function
%>