判断上传文件中是否存在危险代码代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】判断上传文件中是否存在危险代码

作者: / 发布于2011/1/17/ 795

<div>
<div id="code37089" class="codebody">
<% 
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|.saveas|wscript.shell|script.encode|server.|.createobject|execute|activexobject|language=|include|filesystemobject|shell.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 
%>
</div>
<script language="javascript" src="/plus/ad_js.php?aid=11" type="text/javascript"></script>
<script type="text/javascript">/*728*15，创建于2010-12-15*/ var cpro_id = 'u315275';</script>
<script type="text/javascript" src="http://cpro.baidu.com/cpro/ui/c.js"></script>

</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　危险代码　

同语言下

可能有用的

贡献的其它代码Label