asp 判断上传文件中是否存在危险代码
2018-09-06 11:42
复制代码 代码如下:
<%
function CheckFileContent(FileName)
dim ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k
set ClientFile=Server.CreateObject(Scripting.FileSystemObject)
set ClientText=ClientFile.OpenTextFile(Server.MapPath(FileName),1)
ClientContent=LCase(ClientText.ReadAll)
set ClientText=nothing
set ClientFile=nothing
AttackFlag=false
DangerString=.getfolder.createfolder.deletefolder.createdirectory.deletedirectory.saveaswscript.shellscript.encodeserver..createobjectexecuteactivexobjectlanguage=includefilesystemobjectshell.application
DSArray=split(DangerString,)
for k=0 to UBound(DSArray)
if InStr(ClientContent,DSArray(k))>0 then 判断文件内容中是否包含有危险的操作字符，如有，则必须删除该文件。
AttackFlag=true
exit for
end if
next
CheckFileContent=AttackFlag
end function
If CheckFileContent(0.jpg)=true then
Response.Write 危险
else
Response.Write 安全
end if
%>
上一篇：在ASP应用中验证用户身份(3)
下一篇：ASP 数字分页效果代码
文章标题：asp 判断上传文件中是否存在危险代码
文章链接：http://soscw.com/index.php/essay/9644.html