asp 判断上传文件中是否存在危险代码
代码如下:
<%
functionCheckFileContent(FileName)
dimClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k
setClientFile=Server.CreateObject("Scripting.FileSystemObject")
setClientText=ClientFile.OpenTextFile(Server.MapPath(FileName),1)
ClientContent=LCase(ClientText.ReadAll)
setClientText=nothing
setClientFile=nothing
AttackFlag=false
DangerString=".getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|wscript.shell|script.encode|server.|.createobject|execute|activexobject|language=|include|filesystemobject|shell.application"
DSArray=split(DangerString,"|")
fork=0toUBound(DSArray)
ifInStr(ClientContent,DSArray(k))>0then'判断文件内容中是否包含有危险的操作字符，如有，则必须删除该文件。
AttackFlag=true
exitfor
endif
next
CheckFileContent=AttackFlag
endfunction
IfCheckFileContent("0.jpg")=truethen
Response.Write"危险"
else
Response.Write"安全"
endif
%>