Heute habe ich ein Fotoalbumsprogramm gesehen, das von einem Internetnutzer auf der Webmaster -Website geschrieben wurde. Die Funktion war recht einfach. Als er sah, dass er ASPJPEG benutzte, um Miniaturansichten zu generieren, konnte er nicht anders, als daran zu denken, Aspupload zu verwenden, um es hochzuladen, und damit er eine Stunde damit verbrachte, seinen Code zu perfektionieren.
Alle folgenden Codes erhalten einfache Kommentare. Wenn Sie nicht verstehen können, lesen Sie bitte die Anweisungen für ASPJPEG und AspUpload zuerst (E-Text, ich hoffe, Sie sind mental vorbereitet). Wenn Sie nicht verstehen, können Sie mich fragen.
Hier ist der Code:
Die Codekopie lautet wie folgt:
<%
ifSession ("admin") <> "auf" dann
Antwort.Redirect "Login.asp"
Endif
%>
<!-#includeFile = "config.asp"->
<!-#includeFile = "mdb/conn.asp"->
<%
SetUpload = server.createObject ("Perssites.Upload")
Filepath = server.mappath (".")
Count = upload.save (filepath & bigphotopath) 'Übertragen Sie ein großes Bild
Smallfilepath = filepath & smallphotopath
ForeachFileInUpload.files
Setjpeg = server.createObject ("Perssites.jpeg")
Jpeg.open (Datei.Path)
Bigfp = bigphotopath & (file.fileName) 'großer Bild relativer Weg
Sfp = smallphotopath & "s _" & (file.FileName) 'kleines Bild relativer Pfad
FileSize = Datei.size 'ist bereit, in die Datenbank zu schreiben
'Beginnen Sie zu bestimmen, welche Seite die lange Seite ist, mit der langen Seite skalieren und ein kleines Bild erzeugen
imgwidth = jpeg.originalwidth
imgheeight = jpeg.originalHeight
IFIMGWIDTH> = IMGHEIGHTANDIMGWIDTH> 120Then
JPEG.WIDTH = 150
Jpeg.height = jpeg.originalHeight/(jpeg.originalwidth/150)
Endif
IFIMGHEIHT> IMGWIDHANDIMGHEIGHT> 113Then
Jpeg.height = 113
Jpeg.width = jpeg.originalwidth/(jpeg.originalHeight/113)
Endif
JPEG.SHARPEN1,130
Jpeg.save (smallfilepath & "S _" & file.fileName)
'Fügen Sie dem großen Bild ein Wasserzeichen hinzu (fügen Sie dem großen Bild nur ein Wasserzeichen hinzu).
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 = "opake" 'verkleinert die Glättung
Jpeg.canvas.printtext10,10, "www.luanluan.cn"
'Jpeg.canvas.drawbar1,1,100.100
Jpeg.saveserver.mappath (bigfp)
Nächste
STRSQL = "InsertIntoDesktop ([Name], Typid, Zhuanti, JJ, [Time], IMGH, IMGW, FileSize, URL, Surl) Werte ('" & Upload.Form ("Name") & "', '" & upload.form ("TypId") & "typId") & ") &") & ") &") & ") &") & ") &") & ") &") & ") &") & ") &") & ") &") & ") &") & ") &") & ") &") & "", "& upload.form (" typeId ") &") & ") &") & ") &" "," & upload.form ("TypId") &) & ") &") & ") &") & ") &") & ") &") & ") &") & ") &") & "") & "typId") & ") und "','"&Upload.Form("zhuanti")&"','"&Upload.Form("photointro")&"','"&Now()&"','"&imgheight&"','"&imgwidth&"','"&FileSize&"','"&BigFP&"','"&SFP&"')"