Сегодня я видел программу фотоальбомов, написанную сетизеном на веб -сайте Webmaster. Функция была довольно простой. Когда он увидел, что использовал Aspjpeg для генерации миниатюр, он не мог не думать об использовании Aspupload для загрузки, поэтому он потратил час, чтобы усовершенствовать свой код.
Все следующие коды даются простые комментарии. Если вы не можете понять, пожалуйста, сначала прочитайте инструкции для ASPJPEG и ASPUPLOAND (E-Text, я надеюсь, что вы умственно подготовлены). Если вы не понимаете, вы можете спросить меня.
Вот код:
Кода -копия выглядит следующим образом:
<%
ifsession ("admin") <> "on" then
Response.redirect "login.asp"
эндиф
%>
<!-#includefile = "config.asp"->
<!-#includefile = "mdb/conn.asp"->
<%
SetUpload = server.createObject ("persits.Upload")
Filepath = server.mappath (".")
Count = upload.save (filepath & bigphotopath) 'Перенесите большое изображение
SmallFilePath = FilePath & SmallPhotopath
Foreachfileinupload.files
Setjpeg = server.createObject ("persits.jpeg")
Jpeg.open (file.path)
BIGFP = BIGPOTOPATH & (FILE.FILENAME) 'Относительный путь большого изображения
Sfp = smallphotopath & "s _" & (file.filename) 'Маленький картина относительный путь
Filesize = file.size 'готов написать в базу данных
'Начните определять, какая сторона - длинная сторона, масштабируйте с длинной стороной и генерируйте небольшую картину
imgwidth = jpeg.originalwidth
imgheight = jpeg.originalheight
ifimgwidth> = imgheightandimgwidth> 120then
Jpeg.width = 150
Jpeg.height = jpeg.originalheight/(jpeg.originalwidth/150)
эндиф
ifimgheight> imgwidthandimgheight> 113then
JPEG.Height = 113
Jpeg.width = jpeg.originalwidth/(jpeg.originalheight/113)
эндиф
Jpeg.sharpen1,130
Jpeg.save (smallfilepath & "s _" & file.filename)
'Добавьте водяной знак к большому изображению (добавьте только водяной знак к большому изображению)
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" 'Randles сглаживает сглаживание
Jpeg.canvas.printtext10,10, "www.luanluan.cn"
'Jpeg.canvas.drawbar1,1,100 100
Jpeg.saveserver.mappath (bigfp)
Следующий
strsql = "insertintodesktop ([name], typeid, Zhuanti, JJ, [Time], IMGH, IMGW, FileSize, URL, SURL) значения (" "& upload.form (" name ") &", '"& upload.form (" typeId ") & ',' "& Upload.form (" zhuanti ") &", '"& upload.form (" photointro ") &",' "& now () &" ',' "& imgheight &" ',' "& imgwidth &", "& filesize &", "& bigfp &", "& sfp &" "& filesize &", "& Bigfp &", "& sfp &" "&", "& bigfp &", "& sfp &" "&", "," & bigfp & "," & sfp & "" & '