复制代码 代码如下:<% 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 %>

　　推荐阅读

　　asp 通用修改和增加函数代码

接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可>>>详细阅读

本文标题：asp 判断上传文件中是否存在危险代码

地址：http://www.17bianji.com/kaifa2/ASP/32024.html

 1/2    1