檢測ASP圖片木馬的函數。由於FSO無法讀取客戶端檔案的內容，所以只能在檔案上傳到伺服器後再開啟檔案進行內容檢查。木馬原理：入侵者使用諸如ASP圖片木馬生成器之類的工具將一張正常的圖片與一個ASP木馬檔案合併成一個圖片檔案（即將對網站有害的
ASP程式碼插在圖片編碼之後，雖然圖片仍然可以正常顯示，但是檔案內容和尺寸已被改變），然後透過網站提供的檔案上傳功能上傳這張合
'法的圖片，進而實現了上傳ASP木馬的目的。
' 防範方法：因為這種木馬是圖片與木馬的二合一，所以需要在上傳圖片前檢查文件內容，若文件內容不合法（即包含有惡意代碼在裡面），
'則禁止上傳，從而堵住了木馬攻擊的源頭，這是木馬攻擊的第一關，至關重要，必須堵住。
'************************************************* **************************
複製代碼代碼如下:
'Begin------------------------------------------------ -------------------------------------------------- ------------------------
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|systemobject|filelilig.
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
'End------------------------------------------------ -------------------------------------------------- --------------------------