防图片木马函数

发布时间: 2012/9/5 11:10:02

'防图片木马函数
Public Function ispic(FilePath)
set PicFile = server.CreateObject("Scripting.FileSystemObject")
set PicText = PicFile.OpenTextFile(FilePath, 1)
sTextAll = lcase(PicText.ReadAll)
PicText.close
set PicFile = nothing
sStr=".getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|wscript.shell| script .encode|server.|.createobject|execute|activexobject|language="
sNoString = split(sStr,"|")
for i=0 to ubound(sNoString)
   if instr(sTextAll,sNoString(i))>0 then
    set filedel = server.CreateObject("Scripting.FileSystemObject")
    filedel.deletefile FilePath
    set filedel = nothing
    Response.Write("您上传的文件有问题,上传失败")
    Response.End()
   end if
next
End Function
本文出自：亿恩科技【www.enkj.com】

服务器租用/服务器托管中国五强！虚拟主机域名注册顶级提供商！15年品质保障！--亿恩科技[ENKJ.COM]

服务器租用

服务器托管

机柜批发

云服务器

建站侠

空间/域名

安全保姆

帮助类别

帮助中心

文章内容

防图片木马函数

同类文章

亿恩公告

在线客服