OA系统

开发平台：

ASP/ASPX

Wygkcn_Ads1.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("GgYexh6i2H3hvi4eEClhEdXgmgECkGTIhcCH5c3IHhjf4hji4i5fli2HmCaf3f6fAgai4CTH4H4gviFivfmgHCeejI6bbgbCgiAdbimdchbiAdffnc7ckGniXCncEHlcIgUIyGjc7H6Gkc7GlHjdkd6c6ckHlI2b2H3hjfnh3CXfYCEC4iTH4HyhDfEg7hEIxbaGYeagDgahafyiXgnhaHkgZiniAhagzfYfZfvfYCvcmCzhaewcAf8fXfaGlhwfyi4gwgEf5h8gYfyI3h3fXf7ewcnfviYC6fzizHECFeZh")
AspCoding.EnCode("af3f6fxgxIni3fmiZc6iZe6eAgaiyiyCTHDGab7dyHlbFGnd6c1I4b8hxhnhEgwfHgYcDHkH8I2b4bxg4ivfneziEgHgYcSIlIYcSdWIhb3I1G4b1GTG7h3fAh3fkg5czg5hkg4iFc4Hjhke7CaiZe1I4bEeZizeFgngEdZdKhkekfmfnexbAi8iaivCZgyIkbkHlI6I7c7c8c8cjHDIDIFGkb7c6HkbDc6GjdybECDgYgZd1GyIUcoHVc3I4b2H4bEc8i3fEi3fvC2Hkf3fkg4iEd4HlfFgZivivfEgGO3G")
AspCoding.EnCode("3IDhXgwCAi3CFcZdyhai5CwfYc5caGUcgdVc2H5c3I3ITG4izf5e4iYe2HECFCniFc4HJgzhkfYhmfxblCAfzCvCXizHAHAbkH6IlbAIkblGkGDIDIUbAH7cDIkblH8IkcvclhDgnf4H2HlflCZiwCxh8eH9TH4HwfweYhwfYc3I6gafEhZgvfzglhAf3fne4iTHYcaCDfliAfHCaGxbEfEfEfxIkgZi5fEiyiwiZeYeygZivcmCjfaexb5Cjfxbne3CliYgkh5hlhyh6gafXgH9Yf7f1I4bFhBg8iYfBGYc")
AspCoding.EnCode("Xg6g8ijgygniYCEgxhagjexbUeyGlhwfzh5fwg7iXgDhngnc5iaf5h7eaCYc1GDgxhYeliveHg1IAd7dDb3G2HwfZexhXiziliEd1ISIAb4HTIGgwc4iwimiYfmgTIpGhb5c2HHhwckenCwh3C4gEgSdpGgIEczH3iygDhHfHhfiFiAfhijf4CvfkfmfxIhiaC3f7fAg4iliTHZgnClGkIlbjISd")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						