Copy Code code 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 ' determines whether the contents of the file contain dangerous action characters, and if so, you must delete the file.
Attackflag=true
Exit For
End If
Next
Checkfilecontent=attackflag
End Function
If checkfilecontent ("0.jpg") =true Then
Response.Write "Dangerous"
Else
Response.Write "Security"
End If
%>
