mit script vil ikke oploade gif billeder korrekt
følgende script vil ikke oploade korrekt. Hvad kan jeg gøre for at den vil uploade og behandle andre formater en jpg...?%>
<html>
<body>
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr><td>
<%
dag = Day(Date)
mdr = Month(Date)
aar = Year(Date)
ctime = Hour(Time)
min = Minute(Time)
sek = Second(Now)
TIDNU = aar & mdr & dag & ctime & min & sek
Dim intCount
On Error Resume Next
' Object creation
Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
'Max størrelse i bytes
'upload.MaxFileSize = 50000
'Upload.OverwriteFiles = False
'Upload filerne til memory
upload.Upload
'brugernavn = upload.form("navn")
For each file In upload.Files
If not file.IsMissing Then
'filnavn = "/img/img_chancer/" & brugernavn & "." & file.FileExt
'intCount = upload.Save("/newsite/pics/profilepics/large")
'filnavn = file.filename
'filnavn = "/img/img_chancer/" & brugernavn & "." & file.FileExt
filnavn = session("userid") & "_" & tidnu & "_" & file.filename
file.SaveAs "/newsite/pics/profilepics/large/" & filnavn
' resize billede
' opretter en instans af ASPImage objektet
Set MyImage = Server.CreateObject("AspImage.Image")
MyImage.PadSize = 0
'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & filnavn & ""
'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & filnavn & ""
'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "newsite\pics\profilepics\large\"
'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "newsite\pics\profilepics\small\"
Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName
'load original image
MyImage.LoadImage strOriginal
'Resize factor
ResizedX = 75
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y
'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY
'MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage
set MyImage = nothing
set rs = openrecordset("select * from Pictures")
rs.addnew()
rs("category") = upload.form("category")
rs("UserID") = session("userid")
rs("VoteCount") = 0
rs("Average") = 0
rs("picture") = filnavn
rs("date_added") = now()
rs.update()
set rs = nothing
end if
next
' Trap errors
If Err Then
Response.Write("<b>Wrong selection : </b>" & Err.description)
End If
%>
