|
修改/admin/admin_upload_save.asp文件。
源代码：
set oFile=upfile.file(formname)
if i mod 2 = 0 then
'检查原始图地址是否为空和文件类型
if GetFilename(oFile.filename,".")="" or checktype(GetFilename(oFile.filename,"."))=false then
'fso.deletefolder(FPath)
Response.write ("<html><head><link rel=""stylesheet"" href=""Admin_Style.css""></head>")
Response.Write ("<body class=tdbg><p align=center >原始图地址为空或文件类型不正确,只能上传jpg,gif,png,bmp文件.</p><p align=center><A href='javascript:history.back(-1)'><返回></a></p></body></html>")
response.end
end if
'检查完毕
upFileName=htmlfilename&"("&int(i/2)&")_"&DateToFilename(Now())&int(i/2)&GetFilename(oFile.filename,".")
l_url=l_url&"|"¤t_url&Base_image_folder&"/"&htmlfilename&"/"&upFileName
oFile.SaveToFile FSPath&upFileName ''保存文件
else
修改为：
set oFile=upfile.file(formname)
if i mod 2 = 0 then
'检查原始图地址是否为空和文件类型
if GetFilename(oFile.filename,".")="" or checktype(GetFilename(oFile.filename,"."))=false then
'fso.deletefolder(FPath)
Response.write ("<html><head><link rel=""stylesheet"" href=""Admin_Style.css""></head>")
Response.Write ("<body class=tdbg><p align=center >原始图地址为空或文件类型不正确,只能上传jpg,gif,png,bmp文件.</p><p align=center><A href='javascript:history.back(-1)'><返回></a></p></body></html>")
response.end
end if
'检查完毕
upFileName=htmlfilename&"("&int(i/2)&")_"&DateToFilename(Now())&int(i/2)&GetFilename(oFile.filename,".")
l_url=l_url&"|"¤t_url&Base_image_folder&"/"&htmlfilename&"/"&upFileName
oFile.SaveToFile FSPath&upFileName ''保存文件
'---------逍遥客增加水印开始------------
dim photo,logo,photopath,logopath
'打开一张要加入水印的图片
Set Photo = Server.CreateObject("Persits.Jpeg")
'确定要加入水印的图片路径
PhotoPath = current_physicalpath&Base_image_folder&"\"&htmlfilename&"\"&upFileName
Photo.Open PhotoPath
'打开水印图片
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = current_physicalpath&"\img\shuiyin.jpg" '在这里修改水印图片所在的路径
Logo.Open LogoPath
' 重新定义水印图片的大小
Logo.Width = 180 '更改水印图片的宽度
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth '按照原先的长宽比计算新的水印高度
'将水印放置于上传图片中
Photo.DrawImage photo.width-190, photo.height-50, Logo,0.6
'在这里可以更改水印所在的位置（photo.width-190,photo.height-50 这里我是放在了图片的右下角）还可以更改水印的透明度（我定义为0.6）
'保存增加水印后的图片
photo.Save FSPath&upFileName
'---------逍遥客增加水印结束------------
else
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）