首先声明,这个代码不是我写的,是狼的旋律帅哥写的;不认识?不认识正常,他是用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做的相册那。