اليوم ، رأيت برنامج ألبوم صور كتبه مستخدم الإنترنت على موقع مدير الموقع. كانت الوظيفة بسيطة للغاية. عندما رأى أنه استخدم ASPJPEG لإنشاء الصور المصغرة ، لم يستطع إلا أن يفكر في استخدام Aspupload لتحميله ، لذلك قضى ساعة لإتقان رمزه.
يتم إعطاء جميع الرموز التالية تعليقات بسيطة. إذا لم تتمكن من الفهم ، يرجى قراءة التعليمات الخاصة بـ ASPJPEG و ASPUPLOAD أولاً (النص الإلكتروني ، آمل أن تكون مستعدًا عقلياً). إذا كنت لا تفهم ، يمكنك أن تسألني.
ها هو الرمز:
نسخة الكود كما يلي:
<٪
ifSession ("admin") <> "on" ثم
استجابة.
Endif
٪>
<!-#includefile = "config.asp"->
<!-#includefile = "mdb/conn.asp"->
<٪
setupload = server.createBject ("persits.upload")
FilePath = server.mappath (".")
COUNT = TOPLOAD.SAVE (FilePath & Bigphotopath) "نقل صورة كبيرة
smallFilePath = filepath & smallphotopath
foreachfileinupload.files
setjpeg = server.createBject ("persits.jpeg")
jpeg.open (file.path)
bigfp = bigphotopath & (file.filename) 'مسار نسبي صورة كبير
sfp = smallphotopath & "s _" & (file.filename)
ملفات = file.size 'جاهزة للكتابة إلى قاعدة البيانات
ابدأ في تحديد الجانب الذي هو الجانب الطويل ، والحجم مع الجانب الطويل ، وتوليد صورة صغيرة
imgwidth = jpeg.originalwidth
imgheight = jpeg.originalheight
IFIMGWIDTH> = imgheightandimgwidth> 120th
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)
أضف علامة مائية إلى الصورة الكبيرة (أضف فقط علامة مائية إلى الصورة الكبيرة)
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 = "inpaque" "معامير التجانس
jpeg.canvas.printtext10،10 ، "www.luanluan.cn"
jpeg.canvas.drawbar1،1،100،100
jpeg.saveserver.mappath (bigfp)
التالي
strsql = "insertIntIntodesktop ([name] ، typeid ، Zhuanti ، JJ ، [time] ، imgh ، imgw ، filedize ، url ، surl) ('" & upload.form ("name") & "'" "" ، "" & upload.form ("Zhuanti") & "" ، "& Upload.form (" Photointro ") و" "،" & Now () "،" "& Imgheight &" "،" & "&" & ")