Hoje, vi um programa de álbum de fotos escrito por um internautas no site do webmaster. A função era bastante simples. Quando ele viu que usou aspjpeg para gerar miniaturas, ele não pôde deixar de pensar em usar aspupload para enviá -lo, então ele passou uma hora para aperfeiçoar seu código.
Todos os códigos a seguir recebem comentários simples. Se você não consegue entender, leia as instruções para aspjpeg e aspupload primeiro (E-Text, espero que você esteja mentalmente preparado). Se você não entende, você pode me perguntar.
Aqui está o código:
A cópia do código é a seguinte:
<%
ifSession ("admin") <> "on" então
Response.Redirect "Login.asp"
endif
%>
<!-#incluirfile = "config.asp"->
<!-#incluirfile = "mdb/conn.asp"->
<%
SetupLoad = server.createObject ("Persits.upload")
Filepath = server.mappath (".")
Contagem = upload.save (filepath & bigphotopath) 'transfira imagem grande
SmallFilePath = filepath e Smallphotopath
ForeachfileInupload.files
Setjpeg = server.createObject ("Persits.jpeg")
Jpeg.open (file.path)
Bigfp = bigphotopath & (file.fileName) 'grande caminho de imagem relativa
Sfp = smallphotopath & "s _" & (file.fileName) 'Path Path Path Path Path
Filesize = file.size 'está pronto para gravar no banco de dados
'Comece a determinar qual lado é o lado longo, escala com o lado longo e gerar uma imagem pequena
imgwidth = jpeg.originalwidth
imgheight = jpeg.originalHeight
ifimgwidth> = imghightandimgwidth> 120then
Jpeg.width = 150
Jpeg.Height = jpeg.originalHeight/(jpeg.originalwidth/150)
endif
IfimghEight> imgwidthandimghEight> 113then
Jpeg.Height = 113
Jpeg.width = jpeg.originalwidth/(jpeg.originHeight/113)
endif
Jpeg.sharpen1,130
Jpeg.save (Smallfilepath & "s _" & file.filename)
'Adicione uma marca d'água à imagem grande (adicione apenas uma marca d'água à imagem 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 = false
Jpeg.canvas.font.bkmode = "opacque" lida com suavização
Jpeg.canvas.printText10,10, "www.luanluan.cn"
'Jpeg.canvas.drawbar1,1,100.100
Jpeg.saveserver.mappath (bigfp)
Próximo
strsql = "InsertIntodesktop ([nome], typeId, zhuanti, jj, [tempo], imgh, imgw, fileSize, url, surl) valores ('" & upload.form ("nome") e " "','" & Upload.form ("zhuanti") & "','" & upload.form ("fotointro") & "','" & agora () & "','" & imgheight & '' ',' e imgwidth & '' "e arquivos e" ',' "& bigfp &" "" "" "" "" ",