ment.asp

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

<%

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

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("EcXGVbVc4cTHTHTHTHGhFcFcHgBGTHGhBGTHHgGhBGTHBGFcHgFcFcTHFcTHEdBGGhBGTHTHHgHgFcTHFcGhGhFcBGHgFcGhFcTHBGGhGhHgGhFcEdFcHgGhGhGhVbiGYHWIWdYHDpGJCqEWfReM8poPw9TVqRcLsR8RIr3qbRCq1GBoxWqrcPwbhs8qtPSVycqRbKMRGrHR0shqar9s79QP7V5Wj9T9EP7ViRvOGPrhH9mfxfzG3hah5WzWVbgI5bDWns9RzVqrIKrqtRvOBWtfSeXiwgvcniahhcWd5b6W")
AspCoding.EnCode("RRtRBsLPiRurTQw9TVGqyrKq5qRqcLMrFQbs5QcQpQWIVc4ccfjf6gH9lgweZgaC8e3IkblI6d7dmd8c7dkbAb4btfH9YhkivcmCxi2Hnc3IIfzevi2HReaimfxgACEC5cPg3CAgmhFCDh3CnhvcoHWd3dhcCHYHGhEdHgGhHgFcFcBGHgHgGhFcFcHgGhEdHgFcGhHgBGTHTHTHTHBGFcBGGhFcFcTHTHTHTHGhFcFcHgBGTHGhBGTHHgGhBGTHBGFcHgFcFcTHFcTHgdiGYbGeoHCHGgZIhcCHWiZh4bui")
AspCoding.EnCode("ZeAgFixhyikfmG2bqhlgzh3ilCniEgOhxhlhFh3GmHHgZd4H2HagAh4bQg3C6f7eaiagzgxc1IRgEizhmgEhXe8eOhai7eFhZdvbBG1I4cFgahmg4iYgzCah4i4C4c3G3Iuhzi4ijeWIgIuCZelh8ijfkf7emhybQhmhnhygAhmhmCEg1IiizhYhygyClhXfzGZiAg8iScjhFi5CGhpqGJfRcsuPtRKr5pbrTV9qVrCqEW5Wx9U9GQfs4QTpGQdRwrsrOQYpZVYcWIiGhgyCYe3IohYggdWdVC5iXdPhmhlh")
AspCoding.EnCode("6faizhxixcZdQi6f4ilgOf4ewiYf3GycBHTIZdZd5ctgaCngahgdhbuCmhFiAfxCyCFiYfaHQh3Cmgxhlg4ini8e1IOgmhxiliAIybYCAg8i2bWIiGefaf6fYfpGVcXGBbhcVcBHCfsfVfOhUcEcogfeIfhhGeoHgIHhreifreiihgUcdrYQrr6p6OpPfqIPBHzHtgpgPiWfbiBbVbVcTGkg4iFhZi2HveFhFh6gzb4i8CAiygDhGh2bIhkekfEg3CkfDfaIuhTh6g3C4H1GniagzglingzgliGh1IFhZeUe")
AspCoding.EnCode("FhwcveFhvCkhSG3Inixg5hlgFingACGhXinC8cAGAIkbYcUcpGgIGgwCweahki2Hwf6emhZhGh2bybxIxbohyC4gyIhilhlhxImClh6f3G5clg4iviGhYcECFhThjgngECveng4iDfYc3IFhH97hmhGhYcliYfHODfzH5fAgFiYcHfoHgIEcAgXelgzCleEg4bjgYCyC5CAiYCYhmhGhyfZiDhZiFimCEivf8iEgHfpGVcgHmeAikf4gACzCyizgXdbgyh3C3hjCfhyi7fvCydycoHCHibIOWIhbCIpcaime")
AspCoding.EnCode("vImgzhniAikgmhyCEgvcthAgZe7fWfjfmfwexizGthFi4i7fOf3fzfmhvc6iXgze8fmhBGTH1I2bnGoHiGpcCIb9hcCHpcgHod4ekhZe7fDfvI1IhrjQRryqOq7ruPfRdrmWprIuZoYW2bwIEbhcWdpcCIibnhzh3hDezfngyCDfaHuglhmhlgCCjfneaizgxIQiAgngEiWhXgjhZezGZhyiXeEhECwbnGFIhcgIibCIpclg3CFhAiFCxi1GYg5hviFiZeFIWIWdhGibSioHCHhGibxhZhwbnhag3hEhvCng")
AspCoding.EnCode("zgliybthAg3CAhWfkeXiygxivcqhZiEClh8haglg4CzG8gZiafAing4bFcGh4b2bYcycoHWdgHgHTfWIVcpcgHgHXgving6eEgyd3GCRzqVRZsQs6spr0sfqzq5W5pYcvbHihcWdpcgHpcmgjfXeAizfZexiDfxIPCEC4ilgCCagYhzCahwdqhZi6fEC6Cyi7fZfybXCag3hFgFixcnGFIWIhbpcpcCIAh3CEgAiAhzg1Gnf3faf6fZeHipGhbpcpcGpoHCHgHIWhcVcGgaG6f3h6evf6gFhGeoHiGEcyIVi")
AspCoding.EnCode("biIfIiHfgdiGHhce9fffMg3Imimfnizhkhyi6eHgYc1bIiEHeeUbhhSI2b5cwC4iYgFhjh5hAhnevfzgEd4HkH1I4bFhagDCzf4eEiZgygxiHg1I6c2b3Ijh4e6eYhaije8hzCnh8exgFc1IAb1I5ckgYCAhXizCxivengxhXizi8eHg1I7d3GBbhcCHBH5eAhBbVbhbHhtgchbhCChg3I7ixhnhEgaCGh4H8G6clIYc5cyh4izCYhyhEgHgZdFGDI2c4HmiagAh3imhAhGh6c5c3fwCvfmfkfHgYcniYfkf")
AspCoding.EnCode("Eg4ilg3G3ImCZejgkhRgYC4C4CaiyCYhGhlb2HnimhvivitC8i3fniygkfneFcjH1Gmimf4gxCwCyilgEd1I1bAd7bAd7blcDHZdSdhcCHgHHhQCPg4bXgviainezgHgjhai3imgkh3CTI5cVbgIhGgHBHsfff1GziZexhXiziDfTH4HAHkbYc5c3gne5fzhzejflgGh3G3HFGBcSIBcBcEHYc2HDdGeHhYevfFf3IXgvivfXiahGhYczeng5iFhYcoHiGBbHhYgzhxiAC5c4gzhkhzhAhBG4H2IdC6HFH8I")
AspCoding.EnCode("bhlb1ISdBHmeyizgEg5c4gagvizhlgGh3G4GfhcigefhdCfh3GWIVcTIFWLRU9BVhsFqw9yOPryPrRyWbrcrgP8RORWsoPEWw9kp6pNPuqzqPqOqcqIJuquq6OCReRT95WAW9RmsGqIuiPeLBVbrprTWMrKsJqXW6VnROszoPRLrgQhrSVpqdrmqMq8Ww9x9oQ6sBH3f2HxgEi4infTH1IQiAgZelguCZeZgybXgECDCZd5cAC5hAhYhYfliGhYcMinCvi3fxiwg4HpGVcHfTG5ijfzgACXdniagwCagAhEd")
AspCoding.EnCode("2bYdfhcikH7d7d6c4HHfJqwO6VmqGgwc5ikezgEgBbEcwcXgBbdsDRrr1qHRGPhQFQVQQQoPD9ZoYW3cxiXf6fAfUHHhwc5iagjeDfBbTGzHYgzhjeDfGeEc3gEihcCHUcBHXCkeah8e2H5fagjgyi7fFc2b1bcigeegcifhci4HGeOqvqHRGKerfMLruRbqlWWqiqHPYQLREOYpkpCRzqPq9R6OoQgPT9XVTVEcyIYgyiahEgBbTGaGnhaiEeBbFdxbreggUcWIhbCIEcyIQCQhUcgdVchGGguhti5cEedg")
AspCoding.EnCode("jgzCneahFcDfjfle4b5hkhxhYhzgGhjhzCmgmgvimhBb3IgdhbgHhGEctgIi5cyh4izCYhyhEgHgZdkG6I6c4H5c8g5hvixhYhahFcYczfzCZfZfafngYc5cXfmf4gyijgkelgEd3G2IfhlIdCgCdCciZdBbVbhbgHpcHh5iyiFCwi2HZi4gDfweyikfBG4cVfngyCACviag5Cygahwd5hEC7h4czf3CACzijfZfGh3d6gzhAgli4cjeXgkgmhFc4cuglh3ClgiizhZgwekfYHjfkfqeAi5ejhailiTHYH7f")
AspCoding.EnCode("YfFhAiEizg1GcfyhZe5fwgfhke7faexcwIHi4cHfhcCHodhGibTGsfIfIg9gbi2Hnimhkhviqe6gZi3haikfneGhAb3I3h4iwCviRg5hnhnhxhjemfHg7d2HEfygnhFhxgEdjHjG6cZI3IzingygXiyhEgGh3G6G6bYcGeVbWdibhGCIpcGguhPgUc3IgdhbpcodpchGCIHhPiIi1GXgjgzCneahFczfvfYenhkhmh4byhngxhYhaCEgHgYcDb6b1IXd8hvfYelixgFcYclb6c7dYb2bTIWIWdhGCIpcgHpc")
AspCoding.EnCode("CIHhPichbhOhbi5c5f3CafafRf6gZinivfkfZgFcAI1GDgzCYeEgyhHg6d7d7d2cXdyhmhxhmfziFhFcYc6dYcHfhcgIgHhGpcgHhGpcgHGgQCuCUc3IgdgIibodibodibpcgHodFdPiff2H4b6CygnhEgziFcAGjIUI4bzi4iygYhaCEgFclbUIGeBHZfvfFf1GZizexhXixiTH4H7fvfYhzili1IGeGQmqJP6pSViqgPbQhPfL7Vgrw9HQEczH4CweDhGeBHzHtgggUcoHVcibibpchGCIpcibpcBHrehh")
AspCoding.EnCode("4b3I8hai4ClixgGhDblbUb1GwfngzCmfwfEgGhlbUISdBHwexi6gFgli3IzgZijhngGhZGselh4i6eWhYCjhZeXIliBg7hngFcXIACmhG9AC4cwemgGh4cQi7englgpC4ejh4iYH6fweShmhGh5blbkI5bjhYCTgjg4iahYhEgaCGhYHkGlcXIUc5cHhwcQChhBbWIgIodhGCIpcgHpcCIHhwcuhQhBbhcVcgHodgHgHgHCIpcEcDf7fTI5cWIiGCIodhGCIibCIododFdPibC4b8hxhZfliyhFcDcDdTc2H")
AspCoding.EnCode("zingvfneziDfBG7cHfGg4CzC6i3IYCjgxh5CahEd2bEivf5CaCli4HHfTWvsLR8WSVhrorIPfR5Rfq7rw9TVHhvdmgaiDhTITGzHsfffHfpGVchGibpcpcgHgHgHgHHhPiIi3IFevfnh8ewfHgDbkGEH1GzingaiXiwfliTH6dGeHhwekfAfFgEg5ckfZijhmhFcZGRgZilhFiEfkeAhnhXIFhH9DC4iHg5b7h5hlh7eEfagFCZfYHygnhGhXIsC3f7eFiDgagEimgXIFixhUgmhBGZGlbDcZGjhYCBhzeng")
AspCoding.EnCode("xiZgFhxgFcXI6d7b4cSd5cTGyIuhIiUcpGgICIodhGibpcgHgHTGxbFhAhBbVbgIibibodCICIpcibHhtguCBb2HpGVcCIpcpcibpcodibibGgtgbC1G4gyiafui6g5hxiGhkb4bzi4ivf5CwfDfTH1I7cYcHfBHggWirg1GXgwCweZgahHgmC3CyCli3CAhVbhbHfEc7h5cFiACH9af4iHg4HFeyi7fYenc6f6gYCmCaizg5CEI4b7dEbXdjhZi7f5CzCxixHDfzhDCEI4blIHi5caeXglgYhaixiaI4hxC")
AspCoding.EnCode("EglizhkgUG2HkH4HoHiGUcTGxhxi8i8fDf2Hkf5hwi4iHgZGWfzhnevfzg5b8eUfle4iHg4cFi8fmizfzC8e5bweZfTHXI9gyimfaiah5b6i4ejgAimhFcYHFoiqfqcR4b4cSd3czg4hlh7hEb1GBHyIbCifufTIHhxbtgbCHfpGVcCICIpcCICIpcibGgxbreReBbhciGibodibhGCIpcGgxbtgfiIgCCghUcgdVchGCIibpcpcTGyItgbCGeVbVcgHgHhGibHhxbuhQhTIVbhbodCICIEcxbuhdghCOhef")
AspCoding.EnCode("GehcgIpcpcHhwcdCVhQhOgTIgdiGCIpcBHwctghhUcVbhbibEcwcsfuCHfoHCHCIEcPiqf2H8gfijgweZgyCBGEgzh6gXdYCwCai5CahGhjhvf3inhvi4iSd5coHVcCIgHTGPiff1GziYfyg5CaCliHgZdjIkbZd4bnCYhnijfwCxCEiTH4H1bTdSIUbSIBcBc3G3IjIBb5cEc6gBb4dzgmilh6gSGBHzHAfHfTGwcrehhUchcCHgHBHzHuhtiUcWIiGBHxbreIfIgOhfeHfpGVcGgwcgi9fIiJfSdTGxbie")
AspCoding.EnCode("sfVf9gTIhcCHEcYbghxiYe3IWiZh2cHfpGhbHhdglh8igCyimgxhahYhybdewfXgFC6fYfEgGhYh3gDdlHkG8cTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>