The code to determine whether there is dangerous code in the uploaded file is as follows:
<%
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 'Determine whether the file content contains dangerous operation characters. If so, the file must be deleted.
AttackFlag=true
exit for
end if
next
CheckFileContent=AttackFlag
end function
If CheckFileContent(0.jpg)=true then
Response.Write Danger
else
Response.Write Security
end if
%>