<%
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编辑过]

呃……
很正常的asp程序，用来完成保存远端文件的功能，卡巴报错，可能认为，其打破了域的安全性（只是猜测，我又不知道卡巴的病毒判断机制……）
你先把这段代码复制到记事本里，然后保存成txt，然后在查一下，如果不报错，那就是那个asp文件本身绑定了病毒，而不是程序的问题。

呵呵，试了下，保存为TXT照样发提示病毒。

以前玩海洋2005的时候也是这样，下载源文件提示病毒，用了个小软件加密了一下就可以正常使用了。