Upload galeria de fotos com thumbs

[Dias Sanches 0]

Boa noite a todos!

 

Minha galeria ele funciona perfeitamente, porém preciso fazer upload das imagens pequenas, pois as imagens grandes possuem diferentes tamanhos e fica estranho elas nos thumbs

 

Este é o meu código de upload

 

<%
Server.ScriptTimeout = 10000
Form.SizeLimit = 10240*1024'10MB
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
Const fsCompletted  = 0
If Form.State = fsCompletted Then
'A linha a seguir é onde está setada a pasata para qual será upado os arquivos
Const VirtualFolder = ("../ibb/galeria/fotos/")
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + VirtualFolder + "/"
Dim RS: Set RS = OpenUploadRS
Dim FileField
For Each FileField in Form.Files.Items
if len(FileField.FileName)> 0 then 'File is specified.
Dim DestinationFileName
DestinationFileName = DestinationPath & FileField.FileName
FileField.SaveAs DestinationFileName
'Aqui é onde você acrecenta o nome dos campos que estão na sua tabela
RS.AddNew
RS("Data") = Form.Texts.Item("data")
RS("Evento") = Form.Texts.Item("evento")
RS("Minifoto") = FileField.FileName
RS("DestFileName") = VirtualFolder
'...
RS.Update
end if
Next 
'Retorna a pagina onde estavamos sem perder a querystring("data")
response.write "<meta http-equiv='refresh' content='0; url=javascript:history.go(-1)'/>"
Dim Field: For Each Field in Form.Files.Items
'Response.write "<br> " & Field.FileName
Next
'{b}Save file to the destination
'{/b}
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write  "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Some form error.</Font><br>"
end Select
End If'Form.State = 0 then
Function OpenUploadRS()
Dim RS  : Set RS = CreateObject("ADODB.Recordset")
'Achei interessante comentar essa parte, pois é aqui que vai o nome da sua tabela, no meu caso era "fotos"
RS.Open "galeria", GetConnection, 2, 2
Set OpenUploadRS = RS
end Function 
Function GetConnection()
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("../dados/dados.mdb") 
set GetConnection = Conn
end function
Function SplitFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case ":", "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
SplitFileName = PosF
End Function
Function GetPath(FullPath)
GetPath = left(FullPath, SplitFileName(FullPath)-1)
End Function
Dim UploadID, PostURL
UploadID = Form.NewUploadID
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
%>

Favor me ajudem http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[xanburzum 169]

ele gera algum erro ???

 

se sim, poste número do erro e linha ??!?!

 

o que você prescisa de um thumbs, ou sistema de upload ?!?!

[Dias Sanches 0]

O sistema é de UPLOAD,

 

Ele funciona, porem não consigo (não sei) fazer ele adicionar outra imagem na mesma linha.

 

Entendeu?

[Evandro CPT 0]

Procure sobre o componente ASPJPEG.

 

Com ele, quando você faz um upload, o proprio componente se encarrega de gerar as thumbs.

E ainda tem a opção de você demarcar a area da imagem que quer gerar o thumb.

[xanburzum 169]

existem alguns exemplos de thumb no lab. de script , pode te ajudar