Hoy, vi un programa de álbumes de fotos escrito por un internautor en el sitio web de Webmaster. La función era bastante simple. Cuando vio que usó Aspjpeg para generar miniaturas, no pudo evitar pensar en usar Aspupload para subirlo, por lo que pasó una hora para perfeccionar su código.
Todos los siguientes códigos reciben comentarios simples. Si no puede entender, lea las instrucciones para ASPJPEG y ASPUPLOAD First (e-Text, espero que esté preparado mentalmente). Si no lo entiendes, puedes preguntarme.
Aquí está el código:
La copia del código es la siguiente:
<%
ifsession ("admin") <> "on" entonces
Respuesta.Redirect "Login.asp"
endif
%>
<!-#includeFile = "config.asp"->
<!-#includeFile = "mdb/conn.asp"->
<%
SetUpload = server.createObject ("Persits.upload")
Filepath = server.mappath (".")
Count = upload.save (FilePath & BigPhotopath) 'Transferencia de imagen grande
SmallFilepath = FilePath y Smallphotopath
ForeachFileInupload.files
SetJpeg = server.createObject ("Persits.jpeg")
Jpeg.open (file.path)
Bigfp = bigPhotopath & (file.fileName) 'Ruta relativa de imagen grande
Sfp = smallphotopath & "s _" & (file.fileName) 'Puente pequeña Ruta relativa
Filesize = file.size 'está listo para escribir en la base de datos
'Comience a determinar qué lado es el lado largo, escala con el lado largo y genere una imagen pequeña
imgwidth = jpeg.originalWidth
imgheight = jpeg.originalHeight
ifimgwidth> = imgheightandimgwidth> 120then
Jpeg.width = 150
Jpeg.height = jpeg.originalHeight/(jpeg.originalwidth/150)
endif
ifimgheight> imgwidthandimgheight> 113THEN
Jpeg.Height = 113
Jpeg.width = jpeg.originalwidth/(jpeg.originalHeight/113)
endif
Jpeg.sharpen1,130
Jpeg.save (SmallFilepath & "S _" & File.FileName)
'Agregue una marca de agua a la imagen grande (solo agregue una marca de agua a la imagen grande)
Jpeg.openserver.mappath ("& bigfp &" ")
Jpeg.canvas.font.color = & hff0000
Jpeg.canvas.font.family = "CourierNew"
Jpeg.canvas.pen.color = & h000000
Jpeg.canvas.pen.width = 2
Jpeg.canvas.brush.solid = falso
Jpeg.canvas.font.bkmode = "opaco" 'Maneja suavizado
Jpeg.canvas.printtext10,10, "www.luanluan.cn"
'Jpeg.canvas.drawbar1,1,100,100
Jpeg.saveserver.mappath (bigfp)
Próximo
strsql = "InsertIntodeskTop ([Nombre], TypeId, Zhuanti, JJ, [Time], IMGH, IMGW, SILESSIED, URLES "','" & Upload.form ("zhuanti") & "','" & upload.form ("PhotoIntro") & "','" & Now () & "','" & imgheight & "','" & imgwidth & "','" & filesize & "'," & bigfp & "," & "&" & "") ")") ")") ")") ")") ")") ")") ")") ")") ")") ")")