今天不知道怎么回事，FTP目录里出现了ASP后门，但是我的网站里除了这一个ASP文件以外，其他的没有任何ASP文件，更别说上传的了
，注名：IIS的权限都设置好了。各个IIS站点的IIS用户都是不一样的
代码如下
dim newimg,oldimg
'调用图片属性存储过程
Set rs1=Server.CreateObject( "ADODB.recordset ")
sqlcmd1= "TB_iouoafd_countimg "&imgggg& " "
rs1.open sqlcmd1,conn
if not(rs1.eof or rs1.bof) then
jpepfontcolor=rs1(2)
jpepfont=rs1(3)
jpepbold=true
jpepfontsize=rs1(5)
jpegscolor=rs1(6)
jpegsx=rs1(7)
jpegsy=rs1(8)
jpegr=rs1(9)
jpegsytx=rs1(10)
jpegsyty=rs1(11)
jpegsymx=rs1(12)
jpegsymy=rs1(13)
jpegsyzx=rs1(14)
jpegsyzy=rs1(15)
else
jpepfontcolor= "FFFFFF " '文字颜色
jpepfont= "宋体 " '字体
jpepbold=true '是否加粗
jpepfontsize=12 '字体大小
jpegscolor= "FFFFFF " '阴影颜色
jpegsx=0 '阴影X位置
jpegsy=0 '阴影Y位置
jpegr=0 '文字旋转角度
jpegsytx=27 '水印位置TX
jpegsyty=33 '水印位置TY
jpegsymx=27 '水印位置MX
jpegsymy=53 '水印位置MY
jpegsyzx=27 '水印位置ZX
jpegsyzy=73 '水印位置ZY
end if
Dim LocalFile,TargetFile
LocalFile = Server.MapPath(oldimg)
Dim Jpeg
Set Jpeg = Server.CreateObject( "Persits.Jpeg ")
Jpeg.Open (LocalFile)
aa=Jpeg.Binary '将原始数据赋给aa
Jpeg.Canvas.Font.Color = "&H " & jpepfontcolor '水印文字颜色 '
Jpeg.Canvas.Font.Family = jpepfont '字体
Jpeg.Canvas.Font.Bold = jpepbold '是否加粗
Jpeg.Canvas.Font.Size = jpepfontsize '字体大小
Jpeg.Canvas.Font.ShadowColor = "&H " & jpegscolor '阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = jpegsx '阴影X位置
Jpeg.Canvas.Font.ShadowXOffset = jpegsy '阴影Y位置
Jpeg.Canvas.Font.Rotation=jpegr '旋转角度
Jpeg.Canvas.Font.Quality = 4 ' '输出质量
Jpeg.Canvas.Brush.Solid = False
'jpeg.canvas.font.bkmode= "opaque " '文字背景
Jpeg.Canvas.PrintText jpegsytx,jpegsyty,nstod '水印位置及文字
Jpeg.Canvas.PrintText jpegsymx,jpegsymy,nstom
Jpeg.Canvas.PrintText jpegsyzx,jpegsyzy,ns
bb=Jpeg.Binary '将文字水印处理后的值赋给bb，这时，文字水印没有不透明度
'============调整文字透明度================
Set MyJpeg = Server.CreateObject( "Persits.Jpeg ")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject( "Persits.Jpeg ")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 1 '0.9是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了
'Response.BinaryWrite cc '将二进输出给浏览器
Jpeg.Save Server.MapPath(newimg) '保存图片!
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close : Set Jpeg = Nothing
MyJpeg.Close : Set MyJpeg = Nothing
Logo.Close : Set Logo = Nothing
end function