上传了木马,估计你的服务器被提权了,他们一般是通过旁注技术或者一句话木马拿下你的网站的,有可能你的数据库路径暴露了,或者是你程序的上传模块没有过滤,可以加上以下代码:
F_File.SaveToFile Server.MapPath("uploadfiles/"&D_Name&"/"&F_Name) '================================================== '病毒检测 '================================================== Dim sFile,MyFile,MyText,sTextAll,sStr,sNoString,filedel,MyFiletemp,wfile,i sFile = server.mappath("uploadfiles/"&D_Name&"/"&F_Name) set MyFile = server.CreateObject("Scripting.FileSystemObject") set MyText = MyFile.OpenTextFile(sFile, 1) '读取文本文件 sTextAll = lcase(MyText.ReadAll) MyText.close '判断用户文件中的危险操作 sStr = "Shell|Application|encode|eval|execute|CreateTextFile|SaveToFile|SaveAs|server|run|Exec|include|MapPath|Transfer|script|getfolder|delete" sNoString=split(sStr,"|") for i=0 to ubound(sNoString) if instr(sTextAll,sNoString(i)) then set filedel = server.CreateObject ("Scripting.FileSystemObject") filedel.deletefile server.mappath("uploadfiles/"&D_Name&"/"&F_Name) response.write("<a href='javascript:history.go(-1);'>你上传的文件中包含有病毒代码,禁止上传!</a>") set MyFiletemp = server.CreateObject("Scripting.FileSystemObject") set wfile = myfiletemp.opentextfile(server.mappath("attachments/"&D_Name&"/gjrz.txt"),8) wfile.writeline date()&" "&time()&" "&request.servervariables("remote_addr") Response.end end if next Response.Write("文件上传成功,请返回继续上传")
本文关键字:|网站优化改版|网站建设,网站制作,做网站的公司|长沙网站制作,长沙网站建设,长沙做网站的公司,长沙网站公司,网站营销|湖南网站制作| |