请教一个问题，ASP图片水印能否让别人传ASP后门
今天不知道怎么回事，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