OA系统

开发平台：
ASP/ASPX

GetCode.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("HhXGVhAfACaizhje5cghHOAfviai3hvflioHgIIiygwi3Ich7e8ihizhYezCzgXi5HTIWIhbHh2coHgIVbhbQhYfAg8ijfahAgYfvc5eDemenf4iEiFcEgAhEh3CpGiGpCFgwiIhjf4C3CWIVcdC8fzgniDfaizhkf4bWhDewideyi3ingxcnGgdgIgHQhYflh6gagahECYfybhgBhlezClgmh6f4bGh5czbjHWIgICIPg4i7eAfyiyCECYfxIdgZf3iie4i5hZfYfAh2H1IqhAh3fZgvCYC1IabYczgyiaI")
AspCoding.EnCode("ni3f3hwfng4HVbgIpcPgmhFi7hxCkflhmhybfimgZfVi4iXgnh3C7fXd2b4gXg4gxgYfaI4glilgjfkh1IzI1Ixiagmdni5h4gzimh1IVbVcCIWgkf2HbiFC7fyi6e4bqfngFiEhkgng4bWhZeG9ACpGWdgHhhxhvC1GBfWh8fwiyHaimcyfWICHpcIiaiwi5cchmgzh6fabdgnhyiFilbpGhbgHuCZiahYeyijhzCBf4i5cFhvfwiYflghcgIpcUgWhDewi5cGh1GmCygxiDfvIUIUbUbBcwHPgahnhmbjH")
AspCoding.EnCode("lI6ckHvbWICHpcqeZe7e6faiyixivI2bDh3C6eweXCBgnizhZf3CZdwI5cEd2HUgoi8fwiVbCHibhhwewi1GI9aikgXimGkdwIyHWhRfFhlgWIhbodOfPhEgAhBGmCAgFh7fwbShoiEhzfwIWIgICIcike7f5czCEdkH3Itgjf5cAGhchbgHgHShvfkgYhwbvfwIEdmCygahlivIwiyg3inHWhRfEg7fabygacAIab7cvbxdoHhbibWh4iTgDfhcVcCIhhzCzfXdqhagAgWIgIgHQgngli3IIfnhagAgHgui")
AspCoding.EnCode("ngFC6imhlgvcIhlgmhZiEgng9fXfji3C5flimG2bIfmgyinh3gxIPhFh6e4iYCaeZdmHVbhbodbeZfzh6fvcVfyi3iYfHglHhcVcpcfi3izhAgybsfTh6gmhFc7cVbiGibIf4CyilhzGpi7h3CkfhcVcibRf4iDf3IfimgyiAglbBGui4iAhEe3Clgvccflgng5hFh4i9f3gwhmh3hDfvIYcIfnhagZfmizGqe8e7f4iZiwi1IvbVbWdhGbe4CagFilbaHiCxCmg4iEdlHWIVcgHfinhjflhlbzGPiSe8i4i")
AspCoding.EnCode("Hg7cpGWdCIIfnhjflhAIxIVhDCYfahWIhbhGeCmgzh6fybOhyi5hZfeglgagkgciweaf4iydtCYflg8gYfEizGwi5hAfAf5hDfxgwb2bvfkgYC5Cnglhwc3gyimgH9aHfhvfTg4HvbwIhcgIibfinhxC6flbyb8hEiygDf4i5cdgnhxC6fwdAhngXgmgvIjHjIUI6cwIoHhbCIegagEi3IzCFcAb3IPizh3IjbhcgICIgHIf3ixC6fvcPezh6fyglixhagzgGhwbFGncbOwevCmfwbxhxdnGwHjbAH6coHVc")
AspCoding.EnCode("pcgHdgZfyiFi7cvcrizhAgxhDfxhagahFcainbAGkbkHgdVcibhGfinhxC6f7cvc8h7faiDfng5cXg3iaglhzGEi4i5hYeydkI8ckHwIWIhbiboiYfTgFhibVbCHCIfiZfzhAgaHiike4eYehfEiyiwiegxhkh3CmGqe3Clg6imh7fwdvCXg8iDC3fEgzinHYcxhzf5hYhZeFiaGzi4iXg3izGXCygSf2bmHvbWIgIibsCjflhHgkhZeyC3gwbIfnhzhFiyb7fngXgmgvIycnGoHVcodeCZfagAgaHrikeFi")
AspCoding.EnCode("xhDfvfzhkfHgqhzh6fWIWdodegzhEi3IaiHg6c2Huhjf3IEH4bQgling7h5clbgdCHibibfhyilg2HjiFclI4bQCjfXdjbWIgICICIgHdgmgyiAgjHybRgagAgaiEgzCyiahHgainbkIkbacvgmIlHAH6cgdCHpchGibIfmgyilhxIRgzhlhwelizCkeyCTHqhzhECwGlHAbwHjivHaizcjHjIkHhcVcpcpcpcchmgzh6fybDgAhailimh1G5hZfxCFilbzGEimhYCZfxcDcAbmHhcCHCIpcVg4iTgFhpGVc")
AspCoding.EnCode("pcWhZeHOEghcCHCIPgmhlh8ijfzglhmhybcfagxiDfmhzgDfPiSeleZe2HFc5cYcygjh5h5CZeaGhCOgri2boHWdoddg3ixC6fxIrijfFixhDfxhzhjeFcjGhcVcCItiZeEC6gjfah6fmhxIIgxhyC3fAhBgrh6ezCEgmh2HchnhyilhaHlgngXgmgxcnGoHVcodeCZfagAgaHhizeyilhYfSHlhYfEg4bchZfagECEdzgzhlixgaizgXioHhbgHdgZfzhAg7cxIIhvizhECYfFblhmhli3IIf3iyiAglbEd")
AspCoding.EnCode("kfxCFhxgygzgZgoHgICIWiYg2Hghlglg3IPixg3Cxi4bQg4ilhAgxhyizgvI4HFf4iFCvf5iSe3hjfmg4i2bwI3IGh4bFGBcTdFGgdCHghah4C1GhfEhkfniDfaiyikfWICH4cfiFi8i5c3hagnhYf4bbgAh4iZiFhZenh2HnCH94bceviEh3Cif3i4i5haHhi9fOg5csg4i3g4bre4iZijh1GqCkIAc2HjIlIAbjbnc8HaIkb8bVbCHZIUcBHchAgAfhikeYewekfXivchixg5hAhECZe8eEdZgmikblH6d")
AspCoding.EnCode("DdTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						