ASP prevent the upload of the picture Trojan code _ Application Skills

ASP Trojan Defense:

Copy Code code as follows:

Const Adtypebinary=1

Dim jpg (1): JPG (0) =cbyte (&HFF): JPG (1) =cbyte (&HD8)
Dim bmp (1): BMP (0) =cbyte (&h42): BMP (1) =cbyte (&H4D)
Dim png (3):p ng (0) =cbyte (&h89):p ng (1) =cbyte (&h50):p ng (2) =cbyte (&h4e):p ng (3) =cbyte (&H47)
Dim gif (5): GIF (0) =cbyte (&h47): GIF (1) =cbyte (&h49): GIF (2) =cbyte (&h46): GIF (3) =cbyte (&h39): GIF (4) = CByte (&h38): GIF (5) =cbyte (&h61)
Response.Write Checkfiletype (Server.MapPath ("2.gif"))

function Checkfiletype (filename)
On Error Resume Next
Checkfiletype=false
Dim fstream,fileext,stamp,i
Fileext=mid (Filename,instrrev (FileName, ".") +1)
Set Fstream=server.createobject ("ADODB. Stream ")
FStream. Open
FStream. Type=adtypebinary
FStream. LoadFromFile filename
Fstream.position=0
Select Case Fileext
Case "JPG", "JPEG"
Stamp=fstream.read (2)
For i=0 to 1
If AscB (MidB (stamp,i+1,1)) =jpg (i) then checkfiletype=true else checkfiletype=false
Next
Case "GIF"
Stamp=fstream.read (6)
For I=0 to 5
If AscB (MidB (stamp,i+1,1)) =gif (i) then checkfiletype=true else checkfiletype=false
Next
Case "PNG"
Stamp=fstream.read (4)
For I=0 to 3
If AscB (MidB (stamp,i+1,1)) =png (i) then checkfiletype=true else checkfiletype=false
Next
Case "BMP"
Stamp=fstream.read (2)
For i=0 to 1
If AscB (MidB (stamp,i+1,1)) =bmp (i) then checkfiletype=true else checkfiletype=false
Next
End Select
FStream. Close
Set fseteam=nothing
If Err.number<>0 then Checkfiletype=false
End Function
%>