OA系统

开发平台：

ASP/ASPX

BlogtopUser.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("GgEgZiXfafng4b3gxC7fnhZelgTH3GAbYc5cni3Ckhkh7h3fmgmgaixi5CFc4HAb1I1Gni4iafviFile3f3hzCahZgEd1IlIYc4bFiFhThafmhEdYcXfkeAh4Cng7fxH4gyizejg3f6gFi4iSH3ImCagjgkhXgle6fYf4H2H7iai4CFhziFc4H8HkHXG2b5cyhngwenexg8eTH1IDIDd4HUchcCHCIHh5HlhYfFhXdlg7ejHjGHg6fmh7f8gmhlgvcXelgng5hFhYfke4hwhYf4gliydYcXgZfjfZf3gzG7f")
AspCoding.EnCode("Yf3hjf7fmg6fYfDf2bmHhcVcCI6f6hjgjHlIGh1IAgZezemhniAC4bACzhDC3I2b3IZH2HFhag8iEhFi4iEi1G5I3IYc5cvG3ImeAhxCjh5c3GZH1Gnh4hNhthlhng7f0gQCXgXfjgmh4b5IZd3IFezimhlg4i4bzgAivC4hmhlgHfGhkG3Izh7fnhYflg5c4hTh3IxiAizf4hZe7f2HmgngFi5fyH1I4b5IXdZf4h2eug6fZeAhMiWi3iXdXb2b4bZfngAgniYcgdVcgHAhAgkG6cvcjf8i4ije2Hlh8Ckh")
AspCoding.EnCode("AI7dzIbgyiahxithlhYfAhnd7cyHkGVbWdCIvfnf3IxikeEg2HlgFi7ckHxIICWgeg4bEgveYfkfoHCHpc7iaCxhvi4i2Hkfjf8e4bEilhAIjGzGhgOehfWIgIod5HUchcCHCIHhDfAhHfVbWdCIhGBH8emg2H5hafygYhzgFc3GjgngZhFh4H1G8hxhZfEgziEdYc7I6H5H4HTITG3f2Hyh7fYfYgTH4HdfkhjfXiAiAgYfAhxI3fAg7hBIFg7eZeAhFcFdYbEdAhECAIAbvIZfXfNhugFimhEiMioi4ekg")
AspCoding.EnCode("ngyc2cGe1I1GFhYCAhXiZeDfBG2bNh4hkh5hzgxf1IXdTIBHZIGhAhAg6dlImG3i4h0gQilhngEiLCWh5hkgYfvbXGTIHhzH5hHfGgwcFhnhTIhcVcgHibTGDfZf3IXgvivfmfzgGh1IFCvfYhveEg4H1G8hai3iliaCGh2bkb6HZI1IUcEc1dFc7flhAIjGxcYckfAiwi5eYfAhZdvbZISdGgyIZiBbEcxbFhZfBbgdVcgHTGxbAClgHfoHgIpcTGZI7fAg7c6caHOgxC8gngWhngUeDfoHCHgH7i4iyCnh")
AspCoding.EnCode("hcVcgHYfkfYe4baiZhWIiGhGlg7ejHlIxImCafyiFiYfWIhbgHlhYfFhXdlg7ejHjGHgkfzhDfxgxhzgXipGgICIYbBboHiGHhxbDfXgmiwC4iTIBHIf6f6gdejfZfxhkfmfxIcfwf3fAh6f4iliHgmf4hjIlHAIkbTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						