OA系统

开发平台：

ASP/ASPX

Zx.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("FdZIgdCH8eHgmG3hvfzgFhvInh4eUfvImg5hDfZewbvbmHwIzc8cDbvH5fvfkfDfydwfjfEh6emGEgvfzfZewbmHycvbwIwH6IlIvH4gxhkfDfmGaexhxilCEg4ivIACvfjhYfnHmHwIwIhchbkiFc6cpGgIygFc7cgdgISeGh7dVbhbeejfXdrhyhxhjgmh3I3f6g8ijgvf4g5hFhygyizgmGYcShTgai7h1I3czCvbHhTI3G2bpGCHibvfZh2HXg8i7hkhygniZiDfxhkekfmG1IUgBhweAf4H5IygxdTH")
AspCoding.EnCode("Qh3C7g8fZelhlivcui3CAh8gmh7frgXgEiaiZimiafngAgmG2btief9hpireefNhfihhgguC1IwI5cFhzimhahoHhbpcpc4ele6gwCyg5f3fEgxhxCzgnH1II9Bh6fyfZd5IygvbHgACoHCHgHgHThFc6dVbVcpcZekfZf1Gxh5iVbgIhGweYgXd8eaI3fDCAfviai5fXgFhvfzhkfwbZdUgHO6fxe1IYGxhmHTIUb3Izh6e2HEgGg5hAflekhxh5fXgliaizhkfnH4HBfSfECyf4HXbwenG3IDfwfZeahoH")
AspCoding.EnCode("VcibCIxfHgwgvHAIVbCHgHZezelh4igdgIpcCIzCnf4bxfHfkH3IEgzimhxihcVchGCICIZi8iDCjgwe3hYCFhxhkekfwdkhzh3hwgVbgIgHCIpcXgAf6gkhxh4gZiEgweyiahvIYcShTgaiDC2bXbygyGvhnGTH5hAf7hafygni5hFhygyixinH2bTeSfwe6g1IXbwemHoHgICIodgH5hDC6gafwe3hZiliaixCahvI2bBfTgAgjiYc3caixHwgwIBG5h8iAfkhaiXe3fFhaizhzgyd1IUgG9lhji2bXbvf")
AspCoding.EnCode("vbhcVchGhGCIYC6gAfafyg3hYCEgvfagxiyb8fkfwCag4gvhWIWdgHgHYfkfnh5czCZhhcVchGYfkfYe4baiZhWIiGhGygXC1GwgHf7d2HliziYfzgVbCHibgH5hDC6gwCvfXeXg8exhjfzgybjgzhXexfWIgIibgH4e7h7hafygniZiFhvfjfkfnH4HbOSfvf7h3GYGygmHTH3G2boHVcibCI3f6g6gafyg3h3fDfwekeahvclCzgviagmCxfVbCHgHYfzgmg5cxh5ihcVchGygHgaiac6dWIiGkhxCzh7h")
AspCoding.EnCode("pGCHzCZh4bThHgAb3IDfxg4izgoHgIib5h6g8ijgweni5hEgaizhzgxcZdShBhygle2bYGvfvbTHQhYf7gAimhlhEgvcuiYfAhEeYf6ergXgAhwe3fXfjgngECnH2buChgVfOeuhbiMifibChhPg2bmHWIgIpcZi8i8iafyg4g4eFhaijfahxc3GBfBhFiwh1I4dygwIFcFhhchbmhaflh4ihciGhGygEdygxHjHWIhb3CzgZf3IaiZh5HHfFddgAg7hbgxCZfvfkfmfybhiaC5hEiFiZeDfTHne4h8cjbAI")
AspCoding.EnCode("lGGe")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						