Ograničenje uploada samo na slike (ASP)

[ZeroStyle]

POzdrav svima, vec mjesecima pravim nesto kao spajalica, e sad da sam iskoristio vec prije postojecu neku upload komponentu i integrirao sa ostatkom aplikacije koju sam uradio, i sve to lijepo radi ali problem je meni taj sto kada dodjem na korak broj 1 gdje je forma za upload moguce uploadovat sve zivo , odlucio sam da ogranicim upload samo na .gif , jpg i png

Tu sam sad zapeo.

Ovo je jedan dio koji mene sad zanima:

Code:

UPLOAD_PATH   = Server.MapPath("slike") Set Fso   = Server.CreateObject("Scripting.FileSystemObject") Set Folder   = Fso.getFolder(UPLOAD_PATH) If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then Set Upload   = get_upload_files() fcontent   = Upload("upload").Item("content") If Fso.FileExists(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) Then Session("mess") = "Slika sa tim imenom vec postoji!" Response.Redirect "upload.asp" Else Set File   = Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) End If For i = 1 to LenB(fcontent) File.Write chr(AscB(MidB(fcontent, i, 1))) Next File.Close: Set File   = Nothing Session("go") = extract_filename(Upload("upload").Item("filename")) Session("visa") = "ok" Response.Redirect "Korak2.asp"

Ovdje provjerava prvo dali postoji taj fajl na serveru, jeli ima to ime i ekstenzija, ako postoji ispise se da fajl vec ima na serveru ako nema ide regularno upload i sad da mi je tu uglaviti taj dio koda koji ce jos provjeriti dali je fajl koji uploadujem jpg, gif ili png ukoliko jest ide na provjeru dali postoji vec , ako nije da ispise Nije dozvoljeno ili nesto.

Ako ko mi moze pomoci bio bi zahvalan puno ili bar da me uputi na linkove gdje mogu procitat o tome, jer vec oko 15 dana se patim oko ovoga.

[Tompa]

hm, ovak na brzinu...
if right(Item("filename"), 4)=".jpg" Then
....ok
else
...nok
end if