Aujourd'hui, j'ai vu un programme d'album photo écrit par un internaute sur le site Web du webmaster. La fonction était assez simple. Quand il a vu qu'il avait utilisé Aspjpeg pour générer des miniatures, il ne pouvait s'empêcher de penser à utiliser Aspupload pour le télécharger, alors il a passé une heure pour perfectionner son code.
Tous les codes suivants reçoivent des commentaires simples. Si vous ne comprenez pas, veuillez lire d'abord les instructions pour Aspjpeg et Aspupload (Text E-Text, j'espère que vous êtes préparé mentalement). Si vous ne comprenez pas, vous pouvez me demander.
Voici le code:
La copie de code est la suivante:
<%
ifSession ("admin") <> "sur" puis
Réponse.redirect "login.asp"
endire
%>
<! - # includeFile = "config.asp" ->
<! - # includeFile = "mdb / conn.asp" ->
<%
SetUpload = server.createObject ("persits.upload")
Filepath = server.mappath (".")
Count = upload.save (filepath & bigphotopath) 'transférer une grande image
SmallFilepath = filepath & smallphotopathe
Foreachfileinupload.files
Setjpeg = server.createObject ("persits.jpeg")
Jpeg.open (file.path)
Bigfp = bigphotopath & (file.filename) 'Chemin relatif de grande image
Sfp = smallphotopath & "s _" & (file.filename) 'Path relatif à petite image
FileSize = file.size 'est prêt à écrire dans la base de données
'Commencez à déterminer de quel côté est le côté long, l'échelle avec le côté long et générer une petite image
imgwidth = jpeg.originalwidth
imgheight = jpeg.originalheight
ifimgwidth> = imgheightandimgwidth> 120Then
JPEG.Width = 150
Jpeg.height = jpeg.originalheight / (jpeg.originalwidth / 150)
endire
iFimgheight> imgwidthandimgheight> 113Then
Jpeg.height = 113
Jpeg.width = jpeg.originalwidth / (jpeg.originalheight / 113)
endire
Jpeg.sharpen1,130
Jpeg.save (smallFilepath & "s _" & file.filename)
'Ajoutez un filigrane à la grande image (ajoutez un filigrane à la grande image)
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 = false
Jpeg.canvas.font.bkmode = "opaque" 'gère le lissage
Jpeg.canvas.printtext10,10, "www.luanluan.cn"
'Jpeg.canvas.drawbar1,1,100,100
Jpeg.saveserver.mappath (bigfp)
Suivant
strSql = "insertInToDeskTop ([name], typeId, zhuanti, jj, [time], imgh, imgw, fileSize, url, surl) valeurs ('" & upload.form ("name") & "', '" & upload.form ("typeId") & "','" & Upload.form ("zhuanti") & "','" & upload.form ("photoIntro") & "','" & now () & "','" & imgheight & "','" & imgwidth & "'," "& fileSize"