给PJBLOG加简单的上传生成缩略图功能

首先声明，这个代码不是我写的，是<span style="text-decoration: underline;">狼的旋律</span>帅哥写的；不认识？不认识正常，他是用Z-BLOG的，被我抓来写这个代码而已。再次声明的就是，这个功能有一个必须、一个弱点、一个不确定：必须就是需要你的虚拟主机，或者说网站空间应支持aspjpeg组件，否则用不上；弱点是不写入数据库，就是没法通过数据库进行管理；不确定是不确定是否支持PJBLOG3，2系列应该没问题。其实我的目的只是提供一种思路给需要的人，顺道赚点流量。

方法，修改attachment.asp，在F_File.SaveAs Server.MapPath("attachments/"&D_Name&"/"&F_Name)后面，回车，加上下面的代码。其中192和144两个数表示当图片大于192宽144高的时候自动生成192×144大小的缩略图。这两个数字可以自己看着办的。
  Dim Jpeg
  Set Jpeg = Server.CreateObject("Persits.Jpeg")
  Jpeg.Open Server.MapPath("attachments/"&D_Name&"/"&F_Name&"")
    imgWidth=Jpeg.OriginalWidth
    imgHeight=Jpeg.OriginalHeight
    if imgWidth>=imgHeight and imgWidth>192 then
      Jpeg.Width=192
      Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/192)
    end if
    if imgHeight>imgWidth and imgHeight>144 then
      Jpeg.Height=144
      Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/144)
    end if
    Jpeg.Sharpen 1, 130
    Jpeg.Save Server.MapPath("attachments/"&D_Name&"/"&"small_"&F_Name&"")
  Set Jpeg=nothing

怎么？不会改？还想省事的话就直接下载下面这个文件覆盖，不过，我不确定是否和你用的PJBLOG兼容，或者说不确定你是否已经修改过这个文件，总之是，后果自负。嗯，这个代码我是在用的，在我的用PJBLOG做的相册那。