Kode untuk mengetahui ada tidaknya kode berbahaya pada file yang diupload adalah sebagai berikut:
<%
fungsi Periksa Konten File (Nama File)
redupkan ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k
set ClientFile=Server.CreateObject(Scripting.FileSystemObject)
atur ClientText=ClientFile.OpenTextFile(Server.MapPath(NamaFile),1)
Konten Klien=LCase(ClientText.ReadAll)
atur ClientText=tidak ada
atur ClientFile=tidak ada
AttackFlag=salah
DangerString=.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|wscript.shell|script.encode|server.|.createobject|execute|activexobject|bahasa=|include|filesystemobject|shell.application
DSArray=split(DangerString,|)
untuk k=0 hingga UBound(DSArray)
jika InStr(ClientContent,DSArray(k))>0 lalu 'Tentukan apakah konten file mengandung karakter operasi berbahaya.
AttackFlag=benar
keluar untuk
berakhir jika
Berikutnya
CheckFileContent=SeranganBendera
fungsi akhir
Jika CheckFileContent(0.jpg)=true maka
Respon. Tulis Bahaya
kalau tidak
Respon. Tulis Keamanan
berakhir jika
%>