智思阁

今天为了顽石摄影的博客特地研究了一下LBS的上传组件。
看到作者在里面写了一句“I have to use VBScript to call the Upload Class”。看来该博客的作者，还是没办法完全的脱离VBS啊，呵呵，废话不说，先贴出代码给大家看看：

If Not InStr(newFilePath,"gif")<>0 Then
  Set Jpeg2  =  Server.CreateObject("Persits.Jpeg") 
  Jpeg2.Open Server.MapPath(newFilePath)
    Set Logo = Server.createObject("Persits.Jpeg")
    LogoPath = Server.MapPath("styles/default/images/watermark.jpg")
    Logo.Open LogoPath
    theX = (Jpeg2.Width/2)-500
    Randomize
    tempH = Jpeg2.Height
    theY = Jpeg2.Height-Int(RND*tempH+25)
    Jpeg2.DrawImage theX, theY, Logo, 0.5, &HFFFFF0
    If Jpeg2.Width>=240 And Jpeg2.Height>=150 Then
      Jpeg2.Save Server.MapPath(newFilePath)
    End If
  Set Jpeg2 = Nothing
End If

很显然这里用到了ASPJPEG组件，服务器上没有这个组件的用户，就不用尝试了。具体的使用办法：
1、在styles/default/images/下创建“watermark.jpg”水印图片；
2、计算你的水印规格并修改一下数值，以达到更完美的效果；
3、找到博客根目录下的upload.asp文件， 将代码插入“outputUploadDone uploader.FileExt,newFilePath”下面（*注：即文件上传完成后进行水印的加入）。
本组件代码精悍，采用Y轴随机数，确保打的水印能真正起到“水印”的效果。