Hari ini, saya melihat program album foto yang ditulis oleh netizen di situs web webmaster. Fungsinya cukup sederhana. Ketika dia melihat bahwa dia menggunakan ASPJPEG untuk menghasilkan thumbnail, dia tidak bisa tidak berpikir untuk menggunakan Aspupload untuk mengunggahnya, jadi dia menghabiskan satu jam untuk menyempurnakan kodenya.
Semua kode berikut diberikan komentar sederhana. Jika Anda tidak dapat mengerti, silakan baca instruksi untuk ASPJPEG dan ASPUpload terlebih dahulu (e-Text, saya harap Anda siap secara mental). Jika Anda tidak mengerti, Anda bisa bertanya kepada saya.
Ini kodenya:
Salinan kode adalah sebagai berikut:
<%
ifsession ("admin") <> "on" lalu
Response.redirect "login.asp"
endif
%>
<!-#includeFile = "config.asp"->
<!-#includeFile = "mdb/conn.asp"->
<%
Setupload = server.createObject ("persits.upload")
Filepath = server.mappath (".")
Count = unggah
SmallfilePath = filepath & smallphotopath
ForeachfileInupload.files
Setjpeg = server.createObject ("persits.jpeg")
Jpeg.open (file.path)
Bigfp = bigphotopath & (file.filename) 'jalur relatif gambar besar
Sfp = smallphotopath & "s _" & (file.filename) 'jalur relatif gambar kecil
FileSize = File.size 'siap menulis ke database
'Mulailah menentukan sisi mana yang panjang, skala dengan sisi panjang, dan menghasilkan gambar kecil
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)
'Tambahkan tanda air ke gambar besar (hanya tambahkan tanda air ke gambar besar)
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" 'menangani perataan
Jpeg.canvas.printtext10,10, "www.luanluan.cn"
'Jpeg.canvas.drawbar1,1.100.100
Jpeg.saveserver.mappath (bigfp)
Berikutnya
strsql = "insertIntodesktop ([name], typeid, zhuanti, jj, [waktu], imgh, imgw, filsize, url, surl) nilai ('" & unggah. "','" & Unggah