fun.asp

冬日阳光小型留言本 v2.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
ff=cov("word")

    i=1
    stru = replace(stru, ff, "*_*")
	i=i+1
	cov.movenext
	loop
	cov.close
	set cov=nothing
	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; ")
kbbs = stru
end if
end function
function bbs(stru)
if not isnull(stru) then
set cov1=conn.execute("select * from cover")
do while not cov1.eof
tt=cov1("word")

    i=1
    stru = replace(stru, tt, "*_*")
	i=i+1
	cov1.movenext
	loop
	cov1.close
	set cov=nothing
	stru = replace(stru, ">", "&gt;")
	stru = replace(stru, "<", "&lt;")
	stru = Replace(stru, CHR(32), " ")
bbs = stru
end if
end function
%>