1.请将此asp代码解密！解版用ZWDECODE解密不全
2.下载的源码p源asp源码怎么使用？
3.请问哈，那能找到个简单的码下迅雷的源码整站ASP源代码，有基本的解版功能就可以，后台好操作，源码p源快源码完整
4.有关asp源代码解密

请将此asp代码解密！码下源码之用ZWDECODE解密不全

       以下是解版解密后代码

       、<%'2FlyWorkroom Make

       server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

       server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

       if mid(server_v1,源码p源8,len(server_v2))<>server_v2 the-

       response.write "<br><br><center><table border=1 cellpaddi-g= bordercolor=black bgcolor=#EEEEEE width=>"

       response.write "<tr><td style='font:9pt Verdana' alig-='center'>"

       respo-se.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！码下</p>很辛苦的解版，就放过我吧。源码p源 本站点不容易的码下。。解版源码帝国。源码p源。码下对源码<a href=') 光这一句就可以了,下面的都不必看.

       <%

       www_fjqq_cn="帅帅m[_3w斌斌斌斌uu~&""ww4##的dY$gg`\$mmm##v2ww""ww4##大dY$gg`\$mmm##v2ww""bcj>}jd[jde9j[=3dYUgg`\Ummm斌~wwww{ [c.dUgg`\{ wwww""ww商供提务服盟联容内序程偷小家首内国ww""[bj_jUdYUgg`\}[YWbf[H3[bj_jUdYUgg`\斌~wwww{ [bj_jUgg`\{ wwww""ww的ww""[bj_jUdYUgg`\}[YWbf[H3[bj_jUdYUgg`\斌~&""ww4[bj_j%2ww""ww4[bj_j2ww""bcj>}jd[jde9j[=3[bj_jUdYUgg`\斌~bhk}[].Fj[=3bcj>斌wwfi.$de_dkww2bhkUgg`\2wwww3bhk斌斌w帅[-[Ykj[}Kd;dYeZ[}m[_~~帅\kdYj_eduKd;dYeZ[}YY~帅uuuu\ehu_u3u'ujeub[d}YY~帅uuuuuuuu_\uc_Z}YY""_""'~w斌wuj^[d帅uuuuuuuuuuuuj[cfu3uC_Z}YY""u_""u'~u!uj[cf帅uuuuuuuuuuuuuuuu[bi[帅uuuuuuuuuuuuj[cf3lXYhb\{ j[cf帅uuuuuuuuuuuuuuuu[dZu_\帅uuuuuuuuuuuuuuuud[-j帅uuuuuuuuuuuuuuuuuuuuKd;dYeZ[3j[cf帅uuuuuuuuuuuuuuuu[dZu\kdYj_ed帅帅帅帅"

       execute(UnEncode(www_fjqq_cn))

       function UnEncode(www_cfss_cn)

        but=

        for i = 1 to len(www_cfss_c-)

        if mid(www_cfss_cn,i,1)<>"帅" the-

        If Asc(Mid(www_cfss_c-, i, 1)) < Or Asc(Mid(www_cfss_c-, i, 1)) > Then

        a = a & Chr(Asc(Mid(www_cfss_cn, i, 1)))

        else

        pk=asc(mid(www_cfss_cn,i,1))-but

        if pk> then

        pk=pk-

        elseif pk< then

        pk=pk+

        end if

        a=a&chr(pk)

        e-d if

        else

        a=a&vbcrlf

        end if

        next

        UnEncode=a

       end function

       %>