程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp 判斷上傳文件中是否存在危險代碼

asp 判斷上傳文件中是否存在危險代碼

編輯:關於ASP編程
復制代碼 代碼如下:
<%
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
%>
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved