download_save.asp

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

<%

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

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("Fdlh8eBgkhng3IDfTh6g3CGhYcAC4iUeEgyIniFi7e2bHfhciGHhXcxHxHpGhbyb4h5h3hwg1fAgxCFgDfyhxhnh4gXdUhdffihiCgditiVhQipChhzbpgVfchgfhgFb8fAhjgvI3dxhjh5hXi4izHFhvfDfafng3gXiaHmfygZhXInGFIIhOe9gWgqfGi7d7d6c7dAbAbHiGpVbhbvcACYCmiafmh0g6fyiAiDfziaiZf4g5cIOgidggCCgfguCVhPCWhIixHhioCii9fqfFbXddg8Idf6IIiDGFIGpWIVc")
AspCoding.EnCode("vcEgyg8e3ISgZhagjeDfxH6fygI94iUG4b7cjcAfSfUHoHhbSihcgIzGDfAh2e6fagFg8ewfai3i4g3Ib9dfchcfihheQhOerfOfggxHIh9fOhVhQhGi1GhgIhfhkchfgeEbIWWIgIncmdUcWICHBHzHAg8eUfjgmhHfoHgIBHmgvfDh2HZiviygmfahHg4H4gmhzgEgZe6e2bUcpGhbXd4bTG6gBb5IzgXflh6gGCHhwcDCUcpGgI3I5cEc8e5hXfviZe4b7ivfZf8eyhGh2b7b6bSI4H3InCag7fnhmhAh")
AspCoding.EnCode("HgZdAb4H5cZijgaiXiahFcZd3hmhzgDfmh7f1I4b5fmhjgjgDC5hnhnhaiximfGh4HAH4H3I4g4iafafAg7hXgXeygahneHg1IjHYcXdmCviYClhlhFc4HFh5hmiwC3CMi6fzhFgDfziaiZfniYcHfWIVcXd5c3IXdGgEgFCBbgdhb5c2H5cXd5c2HBHFh4C3IxgYfygXiveEgTH1I8ckc1I3IXeagjglh6g4ekfTH4HjIYc5cXekhZiFi6fTH4HXf5hniki0g7ejfEh8ewfygmgXe4HUcEcmgyg6i2H5haf")
AspCoding.EnCode("xhneahBG4H5fngkfFhYfAh2bBbEc7e6g5hah5c6f8eThkhngHgYcXCyizgDfxHEfngwemfxgFhSH2H3gjfjgZf2bHfS9VrtRFQJq5VDpnRVqSVfRBPTGxbFile5hyCBbTGyInhyg8gHfHhyIACnhUcgdVc1G3I3I5cEcaGFh7fUcpGhb5c2H2H1GHhFhAh4b3hjg3fAgECHg4HFhAhNhAgxCEhDfziaimgniYcBbhcWd4b4b3I2H4b2HGgZhjfAhkg3IvCmhFhyhyi3iTH2bAfjf6fEg1I5c3f5fEgxhagje")
AspCoding.EnCode("Hg2bbemgkgvfxiLCbCZiAC5hbhZi5fvhEh8iwdYCFiAfTbXg5fliaijfxiFcdfXgnijCAi6gZdTIWIWd4bXd4b5c2H5cXd5cBHDfnhXdDgygZfEgziBG1I6HjITcYcTIGgYeyg8g4bXgzevfmfkfHgYcviZeZhliYcHfoHCH2H4b5c5c3I1G2H4b1G2HGg6g1G5fviZiAgAgFc4HFhvfFh3GBbTG6fAfXgkf4b5fkh5hlhFiBG1IlhFhH9afZe7b2bTIBV89Lsy9KRZpDpYQZVUoPQIJrqFQBp4RcQiRpQ8q")
AspCoding.EnCode("uQ79WrIJJQbqHR4QgR6qQRSVQPDoFWvruPlqJsMqVPyVCqhR8VyQ9qRRMsUWsrGMRrbP8VvRRi8cjGlbkHn9SoeqHrQQLQkGAbAbAbMqyWWICHGgnClgHfVbhb4b3IXd4b2H5c5c3I5c5c4b5cisyWPqSVPfRhYpTVHh6f7hXgzgXd3hkh5hFiFiTH2b6fDfUfjgng7cjH4HTIjbUIAGlI7blGSIkIBHZiXdACZiFCYhmhliTH4hkhZiyCjC5cwfAhngnfFcliYfxiniYfzgliHCwcyIvCngAgEC5h5Cmhwc")
AspCoding.EnCode("GfAizCxiTHlHSb8dlI6IAHSIDcYGQgvfEg4iFcqRIJuP8RGR3qbRoPcQPQUpcJ9rl9iPYqD9ILqQ8QZHVfmhxiAiHgSeYflhGeBHygkgne2Hmiyilgmg4i7fGh4HAb3G4b7e7f5fHgifjh3fYhmhlhwcAe7gzhahvivfjemhybZgyg5iXdZijgDfTH4HqRGttQ8RHq5QcQiRcQqRUpdKqQl9erZRUpdKPR8Q1IBbGgyI4eGeDb7cDG8bBd7b6GSIkbGgyI6f7hXgyCBbEcdCpi9etg3I5iZiXemhTHRiZeAh")
AspCoding.EnCode("3i3fkf4eBbHh5h4bFhXg7fZg3CEgTH4hkh5hzgjC4bwfEi4iYgFclimhximCmhahEgSHxbzHkgmh6flhXgZg3CxbTbEhaixiTHDbjH8H6HUI6IjcEHAH5IPhyg8engGhQPIJsRFQIr1sGsgrGsRqEWILqQyWpqyr8ObM9r8QXbOgYfxiAiTHH94i6fTIEczCwiZgXd3gagFCnh3CAhFc4H6cZd5c6f7f3hEdpgkg3fZg4i7eyIlf7gyixijgygjengxIYhygme2H3fafEgFcYcQPbKMrTrBp5QcQpQIqWrD9")
AspCoding.EnCode("cJRPappqnPUpcJPRDP4HUcEcyIXgUcBHxbhfVh9euhGeBH6f6g3fah2H3hkh5hFi7eHg2blhliUfzemhlbAI1IUcAdkc7IAH7HFH7IjGFHGgxb6fAfXgkfTIBHfh9foiPi3Inf5h4gYfHgshnglgYe4eahZiGeHhdCVh9etg4bYgXg5fmhHgqCmhEi4CZijeXgTIEcZi1GFh3fEinemhliTHXfze5hahvh4byhlgYfYgEdEgYfah3hmhzgACFbzHwcwingFiFi5hXi3CxbTbFgvfahTH6I8b8Hkb8IUIldAb")
AspCoding.EnCode("SbXbuiaiDfmhTHPQHusR8RIr5QcQiRIqqRSocJQqzooRZRUpILOsUs3ciCmhahAiTHThmhFiSdFdaizfYh3IXfyiEiZf4iEiTH1I6cZd5cAgFC4gHgVCjhYCYh4i6fwc8CDijfkfkhzCzgngaHZgaime3I3fjgliFc1IqRGtsR8RHq4RdPpQcQPQFVIL9rzopqyrD9fuqQ8Q4HBbEcwcXgGeBHxbge9fVgtgGeBHmiEiTIWIVc2H4b2H4b1G4b1G2H2H3I2H4b2H4bHhxbciOeVguhBbEc6fle5hah3I4gvi")
AspCoding.EnCode("YCFiAgTH4H6fEgSeafnglbjH4HTIEpwRGQDWYpcr6cjIkHzbkI7HDIAb6IDIFGjGabDc6G6b7dAb6GlIAbzIAIlH8bjIldSbBckdAc6GUIGgmiEiGeVbCH5c1G4b5c2H2H1G4b4b4b4b4b3I2HsRqsQRwQ5WBW8hngnCjh6fli4ilgei7iThXijCyb3hzgBH4h7fTIVbCH4b3I3IXd4b4b4b5c5c2H4b2H2H2HuRXRRrdQYpTVHhXg1GxgAhZeYgHg4HziACAC8iHCxbxb7iEf8hyb7iGO5CkiaH3hzgzHDi")
AspCoding.EnCode("H9EfI9TczH1IUcaCliEgDCEIyIvd8h6C8hvcEfH95CkiaH5fahvd7gBgEfUgTcTGyI3fTIEcwcAg6g4ezgTIHhyI7eAf3fkfTI5cEc4e4bziEiYfnfTH4Hyhlili6gUGzHxbAeUfDgUglGjHvc7iBgZgkiaH3hkfxb3GBbveDfDf6gSHxbzH6hTh8hI9lGAIyb8hH9mfyeyb3hzgGgwcYCUcGgXf7f2HyIGeoHgI4b2H2H3I2H3I2H4b2H5c5c3IBHlh6g3fzg4b4gjg4e7elhFc3GlhACThzeng7b1ITIBH")
AspCoding.EnCode("lh6gYCah5cmCvi4eAgAgFcYc7eFhUfviZelb7c4HHfBo1qEWcq5WBWGg3f3IaClgYfZhGh2bxgACFhAfGiwcyI7i7i8hvc6CThYhwgaH3hkfyI2bHfyhEgEgDCFbxbxb7i7iEfybEfUfmfwgxInikfBHyI5hTITGyIlhleXgzgHfEcvdEC8iYCahBbEczH7hBbhcWdXd5c2H4b3I2H5c5c2H5cEczHmgai7CUcGgvdEgmgSdVbWd4b5c2H5cXd5c2H2HHhACmg3IEfyg3i8exgTH1I7cjclI1IGeGgmgxh8g")
AspCoding.EnCode("1G3fafvfZgxiFc3G3h4ixiDfYf7f4HBbEcZi3Ive7fmhmeTH1Ixg8eDf8iFiEIyIwcAf5hUfjbzG3hvevfkfXgXf5hkfvhyb3hyiaexI3hahwcQf4eThFhagBI6iLCwiygZfTHFHjIDGEH1IBbBHvfkgmf3I6fAh5fFcYcpgzf5hZgYfAgxb6gXgSeaemhxi8elhnCTh2elIlbxIZgvfZh1IXd8hai4CliveHg1I7c8cDG2b2HziZexhXiwfDfBG2b7bkb2b4b3gjflg4Cng7fGh2bAb1ISdHhzHZiUcGgwc")
AspCoding.EnCode("3ixh6iSdHhxbEgZfBboHgI4b2H4b3I3IXdHhxbZhyiEizfBboHCH2H3I3I5cBHzHEgAhTIpGgI4b1GGgyIDfZinCwC4iSdVbhb5c2HHh7hUc4dyCmi6f7hFIBHwc8iHfhcVcBHyI3izC6iTIgdgIGgeClhDCIhyiZfaiyCXiaHcfyhYClgAgYfEgFcne3gAHkI7c8cTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>