<%
Public Function SaveRemoteFile(s_LocalFileName, s_RemoteFileUrl)
Dim oStream, Retrieval, GetRemoteData
Dim bError
bError = False
SaveRemoteFile = False
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", s_RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing

If LenB(GetRemoteData) > 100 Then
Set oStream = Server.CreateObject("Adodb.Stream")
With oStream
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(s_LocalFileName), 2
.Cancel
.Close
End With
Set oStream = Nothing
End If

If Err.Number = 0 And bError = False Then
SaveRemoteFile = True
Else
Err.Clear
End If
End Function
%>

我有卡巴斯基扫了下,所这个文件是病毒
因此让大家看看这个文件到底是什么样的病毒
谢谢 了~!~!

[此贴子已经被作者于2006-10-2 23:15:38编辑过]