function eck(str)

rem 检查过滤所有的输入

dim dist

dist=replace(str,"'","''")

dist=replace(dist,"<","<")

dist=replace(dist,">",">")

dist=replace(dist,"chr(60)","<")

dist=replace(dist,"chr(37)",">")

dist=replace(dist,"""",""")

dist=replace(dist,";",";;")

eck=dist

end function

sub showBody(Str)'多行文本显示函数

str=replace(str,chr(13),"
" & chr(13)+chr(10))

str=replace(str,chr(32)," ")

response.write str

end sub