en_ment.asp

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

<%

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

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("EcZIpGCH5bBGTHHgHgBGTHFcFcHgHgFcTHGhTHGhBGGhBGTHTHHgTHGhTHHgGhGhFcBGHgGhGhFcTHBGGhGhHgHgFcEdFcHgTHTHTHHgBGTHHgGhTHTHHgTHHgTHVbCH4chcgIYH7WGJpQFVeqHJ7VoPZoBWWrGtrqBsHqXPbRCq3IHRzpVqIRydCqBrMs79nGqRIJsrGrBo5RfQ6qqPUWWr8pYpxodqDq6WCq5WTVtfBg5CwgaH3hah5WaVgdhbYHE9mr9Rj9qrIKMrKs5WBWsgUfYhyexI3hkfVbgIXIS9")
AspCoding.EnCode("qquqDqtrgrLQUqYpHQTpZRJR0rPQHusRDqGRXPbRCqpGgIXIcfyiDCGOEizCYhyhFh2HkbAb7c6cmd8ckHkblI2HqiH9mfkivc5fzg5cmd5cdgwCjg3IuCxh5Cyhli6f5cuC4i6fYfAh7CngZfaHWIVcZGWICHXIFcFcHgHgEdHgHgGhHgBGTHTHTHTHFcFcBGGhFcFcTHTHTHTHGhFcFcHgBGTHGhBGTHHgHgBGTHFcFcHgHgFcTHGhTHGhBGGhBGTHTHHgTHGhTHHgVbhb2cGeWIhbHh2coHiGohZh3IQg")
AspCoding.EnCode("4iECFiygjfkfnH1IPe7fagnh8f5fEgWfyg6fFh4HycFc1I4H4bag7f3IPhngAg7ewezhximG2bsCAhkemgEh4gEgWfxhAgAC2bycEdYcZGFgzg3i4imeygkfmhYe5bYc2HsfvemhahVbhbQhng6f6gxCzg6fmhybQhng4Cxh7f4iniEgYcbiahMiCCzhYhygkflh5exI5h6f7hBIkgFiYhGhLhyiAi2Hyh3fFfYf3IzgyiDf2H4gyhag7engah1GEgxgYf5c5CxCyi4Clh4bab2H3h5hxi5cyCyiDf4b4gwf")
AspCoding.EnCode("4inixf5cyi8fEgw9mOYcWIWdhgzg4C4bVCZhhcCHWiXC5cRfYflhECygjfkfvIYcseAgYflgoiZikgngZdwIGgBb1I3G2HsfwfYfxihciGQh4iFiAfjfkf6fmhvctingYevfAhZe5fEg1IfekfMiCingzglijHyb3flhle2bpGCHefjg6fmhoHgIYbBbhciGGgphuhCiWfGeHhphhgdgIiSdhcgIBHsfiftgVeefTI9hYfzf3gYflg2HkhjfXiaizgBHxbtgiftgOhhgTIpGiGHhwiZeFhYC4bveEgFh6gaI")
AspCoding.EnCode("Yf6hFgzCDhFcZdhikezgEg4ixi8eaIsfThlemhYc2H5fkeahFhmhahFhHg4HEg3CTgDfxbyhFhkgwCEb2HniziXgEiFimhliEdYh4hjIlHlblG1IBboHhbGgjgaiahvh4bziEiYfZhTH4HaHxIyIWikf5fyIIhAg7exI3h7eAg1I2HEi3CwCFcZdlhFhThafmhlhzi4i3Cli4H4bEgUf8i4iTHYcliYfTglivdniAgEC1ITIgdhbFdlhni7faiDCli2Haf5hyCZg8f3fZg4iBGvg3f8gZiFi4glgzC6gEgBb")
AspCoding.EnCode("WIiGgHnf8fkfniliwezhxi5ccfwfYf5fvhciyilgaenHvbpGCHCISgpGCHpcpcygYgxcZfzh5fEhaemhjeDfaHug6fmh7f9gzhYhaijexIthlh4i7f9e5hjhngxI6iYCviFgYfTHTH1I3GmHWIhbgHgHSgoHgIgHibgHZiving7fFhvI4HRgkhngXg7eZe4baije7hlCFh1GEgyhng3I8flhngFC4bxiYCwiZeXVZVYcycSGWICHibhGib3ijf5fDejhmhahFhybug6fngFC9gjfYhxhahxIPClhYfEioiXg")
AspCoding.EnCode("wi4iyb5ixC3hEhAgnHvbSGWIhbgHibCIlg4iFhEhAhxi5cnf5haf6fYfFIWIVcgHgHbVVbgIhGCIxhmevImgjfnilCvC4iyCFhybth6fmhAhiiyi5CaikfybRg3fFiFiEfyiEiZfxI6iYCviFg3C3IHgEd4bZd2bycoHVcodpcTfoHhbodCIgH3fjg4i6eEgnH1IrivingXgECng3Ixhzgle8fDf2HDfzi4i1G7hZiFi6fEfjf7fnhw9n91InGUHVbiGgHCICIYejfniAikgngxiDfybrflhZeAhVejfmfyg")
AspCoding.EnCode("kfybQfXglhlh7ikelgnhyb5ijfXeEhlhvIwIHigdVcCIgHgH7fng8e8flgah2HnfXgafAgYfEboHVcpcCIGpVbgIgHbVVbgIGgaG7e3hEiwe7hACBbpGgIHhyIogefchggSdVbVcFdgiOeggMg5cmine4gjfkhkeAhFc4H3HeeUbhhUbhhUb1I2Hjg3CYgDfjh5hAhZgzCahTHYc6c1I5clizh8ivC5hAhZgvfahBG1IAb4H4bkgXgEiYhxhah7iaiZfFhwfTH4HlI1I5czf3flgYhygjexgmhweZgxgDfFc")
AspCoding.EnCode("Zd7dYcSdVbhbHhXfAhBbhcVcFdPiIfbh9gef5c7ivf3iliwfHgYcAd6clIZd3Ixg3Cxh5CyhliTHYcTdkc5H4H4hxClgZfYflgFcjG3I3fjgaiXizgHgZd4gngahEgZe7f4H2H5f4ivizeqhZi3iZfvfkfmfGh7c5c4gZeafkhqeAfXg4gwekfXiFcAI3Imimf3hjfkhkeAhBG4H3H6IDH7bDH6I7b2bUcpGgIibHhPiqf1G5hkhygZgxiEdwiygZfZfafngGe2HWIhbgHgHGgsfgg2HyhYfaiXixgDfGh1I")
AspCoding.EnCode("AHjI2b3I3gneXezhvikeAhEd2b4GSIUbSISIEHUb1IXdkbUcFd3iwe8g3IZiviweZgkfGh3Gkh4infDf3GVbhbBbHhZhagkfEgXd4gjfkhzhAhHgZd1bhfkcTc8Igi7c2bUcFdZhzhzgDf4bXeagkhjfAhHg1IZcfhfhfhcicihf2boHCHHfpg3IZizf2HAgzhlg6eBgab1GygYg2H7izCwCviXd4hEhTh2HFhyh4i5c5CyijfnhAg2Hmc5czfAiFiDf3IniYCEilgGO3IagyC4bwCzhXivfxiXd5ivf7flh")
AspCoding.EnCode("AC3IyH2Hyg5i1GBgjfFg5cziXg8g3C3IzgzhEg1G7fYfmfvfFiliZeAh4i3i2Hnfjf7f4byiAilg1GzfmhaeXfnglg1GUf4ilizI3Izi3fDhYf4b5emhZekf2HygkfDhvfEgmhnh5cTGXg4byhEiYfmeGh2bhgzgMiPCFing7fqfYfZgzG3fAg7h4H2HEg3flgmfmhDfFcYc0gXfkhXgkfwg2bWIgIGeTGZhyijeFhXd3hkejgzhlgHg4H1begdCAb6c7d6c3GTIPg4iXiweAgDfmh6eHhwcnfjfjeFhBbHh")
AspCoding.EnCode("xb5hTIIfzg4C3IDfyhmhah3InCEhUf5clixg4i5cYhyixCnhlh3I3fYh4eygahYpYW5Izgmilh7hEbEcwcnfzhkfDfHfGgyI5ijfkfEgBbGg5elgVbiGTIGgnfyiyCAC5cmCzhkhzh7fGh2bZccidCcihffheg4HUcWinf5cH9jfFg5cYCEingXdXg3IvCmhvC4h4i7fmcXd8iafYf5hECng2HafagXiwezg2HYgaiEiAgEgvOTVGgxbYgkekfDfHfBHwc3iweDhUcEczHsfffHfVbVcpcGgaGsfQhGeoHgI")
AspCoding.EnCode("CITGsfti5c8gdgvivfYhkfGh8ezhle2H3fjgvfYhkfHgjhxh3iYejgmhBb5coHiGibibGgtgIiXdzingvfmfwfEgBG4HAI7bkH4H3IFfXgafxhmfxiFc1IzfxhmgZfjgmh1I3I5ene3hyizezhFCGh3G2IfhlIegcffhegZdBbhcWdpchGGgYgyiEiae3I3f3h8exhyikfTHZGghahNh9hmhzgDf9gxCZgvfahyb5hAgDC5bzf4ilixgyi3iGh4cDCzhlhEgYHah4ekgmhTH5bugAg4iAhOhzhXiaikf5bjf")
AspCoding.EnCode("kfRfFg3gwivfDfHg5blgZeEgEh6ezg3Icfzi3CmCkidCzhAhjhnHvbEb4cUcgdVcgHibCIBHPifidfiibi2H4g4iwCviQgDCXg4gzCah5CGh6c2Hni3CviafQf5h4CmgvfkfZgFcjG3IEfyg3ilixgHg6dlIlIYb3IveYfvfmfwfliFc3GDbAcYcHfoHCHgHibpcpcGgreqfBb1GoHgICIhGgHpcpcGgtgIi2H5hafxhneahBGzfvfmgZfkhYf3IyhmhainexgFhGhYc7HDG2b4bDgyg3iACziHg4HjHkHlI")
AspCoding.EnCode("XG4HTIVbCHgHCIgHCIgHibBHPifiIgWfgh3I5fngkhjgQgle4e3haijeYhEdlb1GDgxhmgEgwfGhAI7dAb2cXdziZeygZgziliBG1IjH2bGeVbVcgHgHhGibibibibHhtgqfTIXdWICHibibibCIodibgHpcEctgIi5c4b7izCnhFhxgTHjblGUI4bwfmhygZgziFhGhlbTcUcBHnhvfFf2HXgjgaimfkfHg2blgweZgyh8e1ITIrfFi3CFCoiYCjhmh5WHQHhxb3iai7CUcBHxbtgffUchcCHpcpcgHCIpc")
AspCoding.EnCode("odpcCIFdtgggXd4b6Cxh3iDfziEdjcjHEH4baCngvfmfxgliBGAIFHTIEcaizg6glCEg3IahXgaeYfTHYHrfFi4i6eWhZiwiYfYHDfUf7h4iFcXI8eYfBh8eYHygmgBGYHQiFinglgoi3fjhYf5b7exhTeYfTHXIjHjbYHkg5hBhviZezgYhFhziTHZGlb7bXITI5cFdwctgffHfoHgIhGgHCIibgHgHCIBHyIsfQhHfhcVcCIgHibCIgHCIibGgEg6eGe4bhciGibodibhGCIibCICIBHuhggXd8hai4Cli")
AspCoding.EnCode("veHgkI8cTc1GxgYfxhneyhliTHjHGeHhnhxhDh4bXgafyg5CzgTH2bAhxhZgaCFh4HUcQiAg4iEiqhZiEClh5WTVBHxbYeygDhHfHhyItgIiBbVbhbpcpcgHibgHgHgHCIGgPiff2HDgxhmg8exgGh6GAISI2Hzi3CzCXiaCFhGhlbHfHhxhxi8ilCli2HahXgzf4iFcYHriZi6fAg7ixCEimg3dEgBgDCmhEd5b8i3fFiEC7ijf7fnh3dygZfTHXIri4eAg6fDgyiEimgXIECygUgmhHgZGjHlHYHzfZiG9")
AspCoding.EnCode("zemhxiXiDfwfTHYHlblc4cTI1GBHxbreffTIWIiGgHpcpcCICIpcgHHhzHFh6eBbpGCHgHCIgHibgHCIibHhPiReTI4bVbVcgHhGibibCICIpcodEctgff2H5fagzeRf6g5hkfTHjI2HxgYfxhmfziliHg4Hlb1IHfGghhpgrg1G4ekhaineahEd3hZezgFhnglgoHhbTIFd7h5cECliSejgngFcYcFeag7fnhyGlh8i3f5fweahYhFb4bAbFI2HkgYClgmfxhahzbEgxC7hSH5c6cFI5cwi5hEi5CxhahaI")
AspCoding.EnCode("Xfzh8eEgzhzfFb3IlIYcVbhbBbEcaikf7h8fDf2HzgXgwiYfTHXIOhagneygahZGEgBgAf4iEd3dFilC4hjhxhDf5bxh3iFc3diijfYhygkf4c6i3fviAiYfHg4cCCyiZgzCzg3I3dBb4dahmi6f8iGC5cBHzHhhVCrgHfBHyIPieeTIoHgIpcpcCICIodCICIHhyIreqfHfoHCHpcpchGibpcpcBHzHsfIfbhiibiTIpGCHibhGgHCICITGzHPiIiTIWIVcgHibgHibTGxbreqfHfWICHibgHCIHhxbPibe")
AspCoding.EnCode("IgOhghUcoHiGibibGgyIcioCtiOgHfoHCHCIhGBHyIuhffHfWICHCIBHxbsftiUcWICHibGgsfPg4b8gdgzeweYhxiBGFhxC7h1GXgkhygZgkfGhkgzCnh3iwC4iGe3IWIVcpchGGgsfhh1Gyh4ivfmfveFhGh2bkbkb1I2H3g5C4gjfkhzhAhHgZd1bEHBcBcSIBcBc2b5cDdBb4bGgAfBbYGzg4h6f7hFIGgwc7hBbHhwcPiffBboHCHgHGgyIPiqfHfWIhbGgaGtgchce9ghgHfhcWdFdwchCVhhhLhHf")
AspCoding.EnCode("HhxbViPiiCiiHfVbgIBH2cbikf3i5cifYg2cSdhcgIFddgAgDCIhxCnhaikfXiwdhiwf3fAhECngDfTHZgmilGkIjHjIUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>