共计 950 个字符,预计需要花费 3 分钟才能阅读完成。
pj论坛看来的。没有修改过文件的可以下载了直接覆盖,修过过的自己对照添加。只添加了2段代码。
打开attachment.asp
查找
Dim F_File, F_Type
Set F_File = FileUP.File("File")
改成
Dim F_File,F_Type,sy
Set F_File=FileUP.File("File")
sy = FileUp.Form("sy")
查找:
F_File.SaveAs Server.MapPath("attachments/"&D_Name&"/"&F_Name)
在下面添加:
If UCase(F_Type) = "JPG" or UCase(F_Type) = "JPEG" or UCase(F_Type) = "PNG" or UCase(F_Type) = "BMP" or UCase(F_Type) = "GIF" Then
If sy <> "" And IsNumeric(sy) Then
Call CreateView("attachments/"&D_Name&"/"&F_Name,sy)
End If
End If
找到:
在后面添加
在最后一个%>之前添加
Sub CreateView(imgName,mode)
'默认为文字水印
If mode = "" or Not IsNumeric(mode) Then mode = 1
On Error Resume Next
Dim Jpeg,Logobox,LogoPath,x,y
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件,请安装!"
Response.End()
End If
If mode = 2 Then '图片水印
LogoPath = Server.MapPath("logo.png")
Set Logobox = Server.CreateObject("Persits.Jpeg")
Logobox.Open LogoPath
Logobox.Width = 150 '加入图片的原宽度
Logobox.Height = 66 '加入图片的原高度
Jpeg.Open Trim(Server.MapPath(imgName))
If Jpeg.OriginalWidth
[mDown=attachments/month_0809/y2008926224242.rar]点击下载此文件[/mDown]
正文完