asp 判断上传文件中是不是存在危险代码
发布时间：2023-06-05 13:34:04 所属栏目：教程 来源：
导读：判断上传文件中是否存在危险代码
复制代码代码如下:
<%
function CheckFileContent(FileName)
dim ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k
set ClientFile=Ser
复制代码代码如下:
<%
function CheckFileContent(FileName)
dim ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k
set ClientFile=Ser
|
判断上传文件中是否存在危险代码 复制代码代码如下: <% 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 %> （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
