fun.asp

e人畅想公用日记本 v1.0

<!--#include file="conn.asp"-->
<%function kbbs(stru)
if not isnull(stru) then
set cov=conn.execute("select*from cover")
do while not cov.eof
seafood=1
icu=cov("word")
    stru = replace(stru, icu, "Never")
	seafood=seafood+1
	cov.movenext
	loop
	cov.close
	set cov=nothing
	stru = replace(stru, ">", "&gt;")
	stru = replace(stru, "<", "&lt;")

        stru = replace(stru, "[pic]", "<img src=")
        stru = replace(stru, "[/pic]", ">")
        stru = replace(stru, "[link=", "<a href=")
        stru = replace(stru, "\end-link]", ">")
        stru = replace(stru, "[/link]", "</a>")
        stru = replace(stru, "[color=", "<font color=")
        stru = replace(stru, "\end-color]", ">")
        stru = replace(stru, "[/color]", "</font>")
        stru = replace(stru, "[b]", "<b>")
        stru = replace(stru, "[/b]", "</b>")
        stru = replace(stru, "[i]", "<i>")
        stru = replace(stru, "[/i]", "</i>")
        stru = replace(stru, "[u]", "<u>")
        stru = replace(stru, "[/u]", "</u>")
        stru = replace(stru, "[r]", "<br>")
        stru = replace(stru, "[lx-loveu]", "怎么了啊，<font color=ffaaaa>我爱你！</font><br>")'喜欢
        stru = replace(stru, "[lx-angry]", "站长，你再这样下去偶可是要<font color=red>生气了!</font><br>")'生气
        stru = replace(stru, "[lx-cry]", "我怎么那么命苦啊？5555555555 T_T<br>")'可怜
        stru = replace(stru, "[lx-pride]", "<font color=aaaaff>站长，我以你为荣！</font><br>")'鼓励
        stru = replace(stru, "[lx-strange]", "<font color=aabbcc>奇怪。。。</font>偶怎么来这里拉？<br>")'发蒙
        stru = replace(stru, "[lx-super]", "哇，站长你好<b><font color=4abcdf>厉害</font></b>啊！<br>")'佩服
        stru = replace(stru, "[lx-boring]", "哎，好无聊。。。怎么办呢？——其实就是无聊才来留言&gt;_&lt;<br>")'无聊
        stru = replace(stru, "[lx-pity]", "站长,我为你感到难过...<br>")'同情
        stru = replace(stru, "[lx-galling]", "<font color=brown>啊?站长,是你啊!   -_-|||</font><br>")'尴尬
        stru = replace(stru, "[lx-sad]", "哎...算了,以后小心点就是了,<u>算我命歹</u>,被站长你<font color=FF3456>撞</font>上了.<br>")'悲哀
set sword=conn.execute("select*from freelanguage order by id desc")
do while not sword.eof
swd=1
X=sword("sword")
S=sword("words")
stru = replace(stru, X, S)
swd=swd+1
sword.movenext
loop
sword.close
set sword=nothing

	stru = Replace(stru, CHR(32), " ")
	stru = Replace(stru, CHR(9), "&nbsp;")
	stru = Replace(stru, CHR(34), "&quot;")
	stru = Replace(stru, CHR(39), "&#39;")
	stru = Replace(stru, CHR(13), "")
	stru = Replace(stru, "script", "&#115cript")
	stru = Replace(stru, CHR(10), "<br>&nbsp; &nbsp; &nbsp; ")
kbbs = stru
end if
end function

function bbs(stru)
if not isnull(stru) then
	stru = replace(stru, ">", "&gt;")
	stru = replace(stru, "<", "&lt;")
    stru = Replace(stru, CHR(32), " ")
	stru = Replace(stru, CHR(9), "&nbsp;")
	stru = Replace(stru, CHR(34), "&quot;")
	stru = Replace(stru, CHR(39), "&#39;")
	stru = Replace(stru, CHR(13), "")
	stru = Replace(stru, "script", "&#115cript")
	stru = Replace(stru, CHR(10), "<br>&nbsp; &nbsp; &nbsp; ")
bbs = stru
end if
end function
%>