大家都快来分析代码了~!~!

平淡♀芳

<%
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
%>

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

玲珑之翼

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

哪里找

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

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

cool

好久没去关注了,今天再去看看,谢谢了!