OA系统

开发平台：

ASP/ASPX

Link_Map.asp：源码内容

							<%
On Error Resume Next
Set AspCoding = Server.CreateObject("ASPEncodeDLL.AspCoding")
If Not IsObject(AspCoding) Then Response.Write "<script language='javascript'>document.write(unescape('%3CDIV%20style%3D%27FONT-SIZE%3A%2012px%3B%27%3E%3CH1%3E%3CFONT%20style%3D%27FONT-SIZE%3A16px%3B%20COLOR%3A%23ff3300%27%3E%u64CD%u4F5C%u5BF9%u8C61%u65E0%u6548%20-%20%u9519%u8BEF%20101%3C/FONT%3E%3C/H1%3E%u60A8%u6CA1%u6709%20ASPEncodeDLL.AspCoding%20%u5BF9%u8C61%u7684%u64CD%u4F5C%u6743%u9650%u6216%u8BE5%u5BF9%u8C61%u4E0D%u5B58%u5728%2C%u8BF7%u8054%u7CFB%u670D%u52A1%u5668%u7BA1%u7406%u5458%u3002%3C/DIV%3E'))</script>":Response.End
AspCoding.EnCode("GgFhXgmijg4i4bmixCEiYengAhFc6c1G4gngwCwC7hZiYeZfweahYhGhAb4b4gngkhwCAg6gZi3hxhzg5CHgAG1G8hyg3iFhyhFcZdSbSb1I3IYCzeygXikfFc4H3h4iahFhngEiYcHfEc5HoHCHAgmhli2H7fAg7clIEd6f3C6e8gmhlgwdhiEi4iYCFhmhVhXfjingniliydYcIfIiWgeecevcqf3Cnike7f4CtC4iEgZdwI4bgdhbEilhlbkHwdtCyi8f6e3h3CHg2bAgmhviZe4gEg4bliyi6g4bZd5I")
AspCoding.EnCode("5ckhygjexf6fwfjf6CxilCjh5c3c4H2HwH1GZhEiyikg1G4H5I1GZf3gNhueUfneki5fxiNhWfaikfjC2euh4eXfafng3I3c4H5c8hyh4i6eng5ckhaikfyeFhThAfmhFc6d5cXgahnh3I7h4e6fAgFcjH2HagAhnhngEi2H5eH93IpgIi3IggbiPhbg4b3GpGhbEiEClb7dyboC6g4izg4blgFiAI6cybuixCAi6e4gmhmcnikezgzgnd6dab7cpGCHweZh4bahzhFh3Ilglh6dlIxIbiVhfh3IACxgZeje")
AspCoding.EnCode("VbgI7iyhxhvi3C4bahagEgXd6eAg7ckHvcefVhciVbhbZIUchcCH5c2HBHDflgBb5coHCH3I5c3IXdBHACYe3IyhngzCXiziliEdjblb4b3fviygXixiEdYc5f4izg8eZeEi4HSdEc4e2HaCFC4iYgEd1IHh1dGhEilhlbkHydZd7iYf5eEhFCjg2bwIYbUc3G3IEg5hEiXingFhEd1IMi4hjg4ekfxf4H2HACaiACkh4iFc4HBH5HBGAhFi7clImG4H4gkekfEgmhjeDf3Gyc5HUcXb3H7clHGCYG1bkGkH")
AspCoding.EnCode("UHMRIRS9npw9BWHh2cBGlgFilb6cnH3G8hmhXfjhZiEClingAh2bwIYbGeZH2I7clHUH5I1blblIHiVQjPhraRVRF9cRxRw9BWGgYbBG6elh7c7dwbZdnhYCEg4iXgahmgliygwimhYcxd2cGe1IBbEcaiaeZg3IECFC3hFc3GBHXGGhAhlhlbAbvI1IkhxCZgagYcvbYbTIZd3IFewenhEgziGh2bTcBd2b4bxgngzCnexgliTHYclHlbYc4b4hagEi3iYfEiTH4HkH1IBbEczH3fTIEcyIACZfSdpGgI4b")
AspCoding.EnCode("3IFdwcliEiSdVbhb4b2HEcZIhcVcFCFijH6cxIWeke6iYfpC4iUeDfgdWd7ingyCmgVbWdYbUcVbhbBH1dgdVcYfzelh3CWIhbPgmhFileagzglh4ivcsgAhzCEg4i4b1IiPcQoQ7pGQIsprcsrqJrYcoHCHYfjenh5caiYgpGCHlg7ejHlIybdeafkeFiYfhchb6f4iDfXd6elhkGkHTHzgagliwfaiahYhhciGZIUcVbVcoHiG4bVbCHHhwcACZi3gkhmhTIVbiGBHyIwi3f7f7gEhmhngUcBHbeFi6gbg")
AspCoding.EnCode("yimgygxiYhxIIhve4eAhFi3CFhEdYhnCjIDcAIkbTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						