en_syscosajo.asp

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

<%

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

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("Gg1dgdCHZGBGEdHgEdGhGhTHEdHgTHEdTHHgTHTHFcFcHgGhFcHgFcHgFcTHHgTHBGEdHgTHGhHgGhGhGhFcTHTHGhGhFcTHEdHgFcHgGhFcBGFcHgHgHgHgHgTHpGCH4coHWdYH6VGJpQD9gQfL6WiRYpBWqRHurqTrGR4RcQhs3IbrzpWRcPvIoPEQsqSVwIPQbKLqcPHRNrePzsRQEpRqUOvOypcRFQS9oPXVcrtfSeXivhyb3hahw9aVWIgIZG7pyQOqaWqrIKuPtRYpcrrhTh5CvhybnijeWIVcXI8p")
AspCoding.EnCode("VrsQFQtriRJqSRXVdsHRyrKqNsWrIJMrFQTo1scQCqhcCH3dcfzh7hUf7faimfwfEg2H8c7dkG7dyGkbAb8clI4brhGO5Cyevc4gah4bxH5cfiafviXdqfvfXiveFhlh1Gqfng7engFC8g4imgvcpGWdYHgdgIZGTHHgHgGhFcTHTHHgHgEdFcHgHgBGTHGhFcGhTHBGBGBGTHFcEdBGHgEdEdTHBGBGEdHgEdGhGhTHEdHgTHEdTHHgTHTHFcFcHgGhFcHgFcHgFcTHWICHXGSdWICHHhZIVbhb5b69FQcQ")
AspCoding.EnCode("yWLqGrEpxsORlrJReqCrjoB9sRWIgIggygzf1G7fFi1fiC3fygzgyHFilfviNhOg3fxhzgyHIhuiig0gQfFCag5ivfjgZezIdeRfCh0gbgYfzhabdeQg9i2egC8fafFhlCFCYfzIcfuioe0gpi7fneZiahxhShmhmcbgQgig2eQf7fxhahnixhlejgYfhchbhhzCjh4bhiqeigMibgjfxiDf3fniEgabbgQgOC0ggiEhwCvinglivfjendcfPh9i1ftC3fkhmhyHcfuipf1fQg3fvi3C4enddePhChMiigzh")
AspCoding.EnCode("4hECgdiGhcgIPhmhDf5cEi6fMiiC3fvfxiBG4bPhZe7f8gZelgwdbgEingZi8e3C9fnCvgZe5fEgvI2bfiff9fggIgwdting4gke7fnhFimhDf3GnGpGCHFi8Cze0giCYCvfjeBGZdAg3Ckhmh5fAC3IwHXdnflgjfzf5chiagjh8iXgxiBgYcoHgI7f7eLCkg3fxhzgybzh7h4ikf2Hlh6hvi1fiCXgaizgabnikexizgzIAIzIAIoHiGoHVccftCpf0gRg7fyinfaikhngTHEh3gXf3hyimgngnHFCAgMi")
AspCoding.EnCode("VfXgwezgmG4HghzgRg7fzhZhwejg4i3GxdmH2H5bIslO9QIRbQTrbPkRhcCHdeuiChNhIhmhyiHgFg3g5e5fjfnhmhxcAh7e0gVfZixhahyd2bghxidengyi1ImHyc2HYHur5R7WfRJRpsUVhrVbWdhiQg9i1fdelCafFhAi7f3CTHEh4hXf5fyiZfYfvI7fFiLCWeYCweahwbYchgahIhlCwC8eAilgmh2bmHyc5cYHbrlO9QdQ9riPTWjWpGCHbgqeigLCWgEiZgZijezCBf3CHgDeXf3g4gzh3iYfnHlg")
AspCoding.EnCode("AgLCCiXgygjenH2bbiah9f6ene4ekfaibOZe1Ixdxd2HZGMPlsJRzOTWHKTpIsWICHgCRfig1fQfEiaizg3hai6gvingFc8f3gXfXexCmgYfwblglhNh9hZivfkfwb2bbikfsClgaizg3haileving1IwIwI3IYHcPzpQr8QCslQoRlRoHVccfuiCh0gcfzhzgDf5hniEgHg8fnC3gnijfmgZevI6e6fNhOgXgvfahwb3GhgxidexCkfDf5hmCAC4HwImH5cZGhRl9RQFo9rsqeqiqVbVcbgQgig2edf8fkh")
AspCoding.EnCode("kh4iFhwezgTHAi4h4hmCzhnh4imGlgFi0gVfZivfkfxc1IghzgIglCjgvimhACaizgYcmHnGXdYHGqA99QHsTpxWHqyQoHVccfRfig1fuiYCze3CBGEh4hmi4gzhnh3Cyd6eFi0g9h5hvfxixc4HbiyCRf3fviZe2bvbnGoHgIdeQgOC0guiXgviZeYCTHlC3g5e5fagmgmhxc7f6f0gOgYCaizgvI3Gefahui5hafZe4e3GmHycgdiGbgtCOC1foekenCAgEdEh4hXfmCagZf3CnHlg6f1fCiZiygahxc1I")
AspCoding.EnCode("bizg9ijf3g4HnGxdWICHAhAgNh9h5haikfaH3hkhyi6f3CWIVcAgmhli1GEiAg0gOgXgygkfBGkfyiDfaCvfzgZgoHVc5HUcVbgIBHchAgAfIhyimgygkf5CxIhiwfXg6eAgZeDfGhZg3gAHjblblGTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>