syscosajo.asp

一个很好的企业整站的ASP的源码。稍加修改就可直接使用。

<%

'创建时间:2009-03-17 18:14:00
'请勿修改下列任何代码,以保证程序正常运行

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%3Cbr%3E%3CA%20href%3D%27http%3A//www.gbwinsoft.cn/%27%20target%3D_blank%3E%3CFONT%20color%3D%23008000%3E%u6280%u672F%u652F%u6301%3C/FONT%3E%3C/A%3E%3C/DIV%3E'))</script>":Response.End
AspCoding.EnCode("Hh2cWIiGYHFcGhTHTHFcTHHgHgTHFcBGBGBGTHGhFcFcHgGhGhEdBGTHEdHgFcGhTHEdEdHgEdEdTHTHFcTHGhGhTHHgGhBGHgBGGhFcHgFcBGEdHgBGHgTHHgHgWIhb3doHgIXI7WIthsFVeqIu8pCqw9BWPQHutQEPBp2rdPpQ3IBolO9QdQnHhsDRtPUWvbPQGtMRdQBo5RhqlQRQ6OVs7V5Wj9cRTr7VgrYpTVtfUfnewgxInizg5Wk9VbWdYH7pwqPrj9WRcMrqJrXVBWRCUf5CvhxI4gzgVbCHZG8p")
AspCoding.EnCode("VrtREPJRiRKRSRw9TVIsYqKqXRWrbKsRDqIr4RbRpQgdhb3dcfagleBg7fvfXiyhEg3IkbAbkGlImdlGjGAHkH4bRCSemfwgaHnikf4bmd2HIfwCkh5ctiaiXiyhEglh2HPgnglh4iEiDhYfmgaHgdhb5bpGhb5bEdTHGhFcGhHgFcTHTHFcHgFcHgGhBGGhFcGhBGEdHgFcTHTHBGTHGhFcHgBGTHFcGhTHTHFcTHHgHgTHFcBGBGBGTHGhFcFcHgGhGhEdBGTHEdHghchb5HSdgdgIFd1doHCH4cFpDqIq")
AspCoding.EnCode("apMRbqFoZRWPkqtrfRCrjoTOsRpGgIffygkg3IAhEC1fOgXgxhjendAg6haf1f9hZixhkfyHcfqepfMiPe7fagmezCafYfyHgCQgoeNhIhYfkezIcfqeigNhcf8fwCACFgAh4izIhiQg9i1fWg7fmf4ezgygI9ngabhiPhOC1fQfAhaixi4gzC7hvingVbWdffzCjh3IbgQgCh1fdejfxiEg4e4gEgzIbguiigLCbhEhjgvimhEgxhxizIbgRfOCNhOCjf3g7ezIcfRf9iNhQgXgkhmhxGbgtCoe2eRf3fkh")
AspCoding.EnCode("3C4eoHgIRf4iDf4bFC6f1fiC5haixiFc5cPhngAhFfnglgybhiEimh3fEgYfoC4hwhZe3hFhyd4HchIiVhgggiaHqf4i4gyilgnh7emhli2bnGgdgIFilfaf2eVf5haizgBG4HFimhafYfniDf3ImI2H5i6ekeae2HIhyiwi6g5hahGO3GoHWdlgFiNhzfYCzCzgwdxCAfYfxi2Hlh6haf0g9h4eygjeabniagxijendAIxGAIoHgIbgQgChLCQflgagZhwewCngGh8fXf4hnizhZfYfnH6e6fMiWe3fygje")
AspCoding.EnCode("yd4HQf7fxCYgwekhmh4HnGwI2HZGHRxW9QdQBOBsdRjqhcgIhiQg9i1fbgYfjfBGFg3gmi4gzh3imhyd7f6fNhCiZiygyCwbYcbgmhxC4Hxdvb3IXIKRXqDphPMQorUVpPWIgIbgQg9i0ggCEhkhEgAiAhngGhAi3g3g5fxCnh3CnHlg7e0gVf3faiahvI1IIhEhzeEglC6eZe4HmHvbXdZGTpyV9QGrqQpqcslpoHWdIhui9iMipiAhZg5hkfygUgmhFcAi4hXf4gjf4Cmhwb6elhNhiC3fxhxiwb1Ipi7f")
AspCoding.EnCode("mfZizgaiUgmh3Gvbyc4bZGtskRtrlpGQItTpGqhcgIdeRf9iNhQf7faikf4gygAfviZeBGDeXf4hniyimgmhwbFC7e1fiCXgaiahnHZdsClgzCyC5fvf8iafmh2bmHwI4bZGIRao9qSrgRariPksWIiGbgRfig0gbgzhyCDfXg4gFhBGlC3g4h5fjfnh4iwb7f6f1fWe3faijenH1IdexCkfDf3fmCEg3Gvbvb2HZGhRapqPSVQquQgQgsgdgIIhuiigMiIgAiafjgYfDfwezgHgAi3g4hnizh4CYfnHAhFi")
AspCoding.EnCode("MiOgYCxhxivI2bhC8fwCkhngEgygah4HnGmH5cXIBoyVWRIRHRA9GRnsVbhbbguiCh0gPhZijgngTHlC4hnC5fagYengnH7fFiNhOgXgxhahmG1ItC4ezeYf4HvbxdpGCHbgRf9i1fPhYCafYfYCGhAimiminizhmgmhnHlgAgNhCiZixhkfvI4HtC5hkhZe5h2bxdmHVbVcIhQg9i1fpfyi3gFiHgEh5e4hnizhYe3CvIEi6f1fWe3fxhxivI3Gpfyi4h4HmHycoHgIlg6fMiWe4ewekfybniviaglhmhgd")
AspCoding.EnCode("iG6f3CEg5cAh6fLCiCXgzCyCTHkfyiDfyhxhkfZgVbiGZIGeVbVcGgfi7eDCbgkemgvfzgZgxIIhaC3flgAgmh8eEdZg4hAHlHlb8cBb")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>