谁能帮忙吗？
问题一，<%@ LANGUAGE = VBScript.Encode %>
<%#@~^RgEAAA==@#@&0; mDkW P;UtShm/4W2cD+:abP,PP,~~P,P,P@#@&7WKD~k,xF,YG~^+xcO:2#@#@&idr6PskNvYhwBkSF*@!@*E rPY4nx@#@&di723{lkmc:r[vYn:aSkBFbb *@#@&7idr0,20@*qyv,Ytx@#@&did7w0'2V ,*@#@&did+^dnk6Pa3@!&+~Dtnx@#@&did720'wVQO*@#@&i7i+U9Pb0@#@&di7l{l'm4Dc20#@#@&7dV/@#@&didm'C[-81Ds0@#@&di+U[,k0@#@&ixn6D@#@&d/ tSh{ktK2'm@#@&+ N~W!xmDrW @#@&aEsAAA==^#~@%>
上面的这段经过JScript.Encode解码后是：
<%
function Cnhww_shop(temp)
for i =1 to len(temp)
if mid(temp,i,1)<>" " then
pk=asc(mid(temp,i,1))-5
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
else
a=a&vbcrlf
end if
next
Cnhww_shop=a
end function
%>
请问这是什么意思？


问题二，下面这段怎么解码，有是什么意思？
cnhww_strl="nuBWjvzjxy3Xjw{jw[fwnfgqjx-'XJW[JWdSFRJ'.趣xjw{jwnuB'|||3x~jlq3htr'趣xjw{jwnu7B'67<353536'趣xjw{jwnu9B'qthfqmtxy'趣xjw{jwnu8Brni-nu1nsxyw-nu1'3'.061qjs-nu.2%nsxyw-nu1'3'..趣nk%nuBxjw{jwnu%tw%%%nuBxjw{jwnu9%tw%nuBxjw{jwnu7%tw%xjw{jwnu8B'x~jlq3htr'%ymjs趣xjy%wxBxjw{jw3HwjfyjTgojhy-'fitig3wjhtwixjy'.趣wx3tujs%'xjqjhy%gttpni1zxjwsfrj1xmonfni1 mzfslyfn1 tsljw1gttphtzsy1snrnsl1hmnrf1~fsxj%kwtr%twijwx'1htss1618趣wx3fiisj|趣wx-'gttpni'.Bgttpni趣wx-'zxjwsfrj'.Bzxjwsfrj趣wx-' mzfslyfn'.B<趣wx-'gttphtzsy'.B6趣wx-'xmonfni'.Bxmonfni趣wx-' tsljw'.Bifsonf趣wx-'hmnrf'.Bwjvzjxy3ktwr-'hmnrf'.趣wx-'~fsxj'.Bwjvzjxy3ktwr-'~fsxj'.趣nk%wjvzjxy3httpnjx-'Hsm||'.-'zxjwsfrj'.B''%ymjs趣wx-'snrnsl'.B6趣jsi%nk趣wx3zuifyj趣wx3hqtxj趣xjy%wxBstymnsl趣wjxutsxj3Wjinwjhy%'gz~3fxuDfhyntsBxmt|'趣jqxj趣wjxutsxj3\wnyj%'Htu~wnlmy%|||3hsm||3htr%VV?=699<>87%YJQ?58662=;7788=7%68>866=:568'趣jsi%nk"
execute(cnhww_shop(cnhww_strl))

这是第一段编码后的结果：
<%
fu-ctio- Cnhww_shop(temp)            
    for i =1 to len(temp)
        if mid(temp,i,1)<>"-O ]hPJ
LU    E+_5i_4#i#6%PTxLs'K)i25
v;sOk[3f>Wz(9tMWJ
L;s^Ff&pG29)
L;    6csPsx{#E</2BrZPJ
L;s    3f=\k?-4
Uv;2SJ{Af
LU^5_:=ab](3f)
^LWl6
L;Lc&Hdv1N]Fk
L;2n#9i8
;=Pf]
s2MLw=iMPE\c
62} 40na]O42
%>

<%
function Cnhww_shop(temp)
 '循环字符串len函数取得字符串长度
 for i =1 to len(temp)
     if mid(temp,i,1)<>" " then'如果当前字符不是空格
        pk=asc(mid(temp,i,1))-5 '取当前字符并对AscII码-5
        if pk>126 then'如果AscII码大于126
           pk=pk-95'减95
        elseif pk<32 then'如果小雨32
           pk=pk+95'加95
        end if
        '不符合判断条件直接获得-5后的asc码
        a=a&chr(pk)
     else
        a=a&vbcrlf'为空格则插入换行符
     end if
  next
 Cnhww_shop=a '将处理后的字符串返回
end function
%>
这个函数好像在进行加密操作，asc是取出字符串的ASCII码

呵呵，YMS123版主真厉害啊

YMS123版主真厉害
其他的可以帮我翻译出来吗？