这个页面放在服务器上，防止删除了 怎么回事？

<%
'网站头部文件
On Error Resume Next
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>

这个页面放在服务器上，防火墙删除了 怎么回事？


[ 本帖最后由 wmxiaofu 于 2012-10-30 16:22 编辑 ]