fun.asp

是运行在asp环境下寻梦书库管理系统

<%
function encode(str)
    str = replace(str, ">", "&gt;")
    str = replace(str, "<", "&lt;")
    str = Replace(str, CHR(32)&CHR(32), "　")
    str = Replace(str, CHR(32), " ")
    str = Replace(str, CHR(10), "<BR>")
    str = Replace(str, "&amp;#8226;", "·")
    str = replace(str, "[dbt]", "　　<font size=5><b>")
    str = replace(str, "[/d]", "</b></font>")
    str = replace(str, "[xbt]", "　　　<font size=4><b>")
    str = replace(str, "[/x]", "</b></font>")
    str = replace(str, "[zs]", "<i><blockquote>")
    str = replace(str, "[/z]", "</blockquote></i>")
    str = replace(str, "[jz]", "<table align=center><tr><td align=center>")
    str = replace(str, "[/j]", "</td></tr></table>")
    str = replace(str, "[ydq]", "<table align=center width=420><tr><td align=right>")
    str = replace(str, "[/y]", "</td></tr></table>")
    str = replace(str, "[sj]", "<blockquote>")
    str = replace(str, "[/s]", "</blockquote>")
    str = replace(str, "[sub]", "<sub>")
    str = replace(str, "[/sub]", "</sub>")
    str = replace(str, "[sup]", "<sup>")
    str = replace(str, "[/sup]", "</sup>")
    str = replace(str, "[u]", "<u>")
    str = replace(str, "[/u]", "</u>")
    str = replace(str, "[i]", "<i>")
    str = replace(str, "[/i]", "</i>")
    str = replace(str, "[b]", "<b>")
    str = replace(str, "[/b]", "</b>")
    str = replace(str, "[img]", "<img border='0' onload='javascript:DrawImage(this);'  alt='按此在新窗口打开图片' onclick='window.open(this.src);' src=")
    str = replace(str, "[/img]", " />")
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
%>