download_del.asp

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

<%

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

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("FdAgliThkh4i2HEgH97h4iTH4HFh4iTgliwcXeFiAg2bBbVbhbBH1HaImdoHCHyb4h5h4gjC1f7eyiFgEgziygnhni5cSgbhIfcfihdiReVhPCWheeaIWiOgchehbiFblCAhviyd4cvfkgZiXi3CaGFhyg8ezemhmimfxImfaiZh5bvbHibgVhOhOeQhFb6cAbAbAb7dAbUHGphchbwdli5hmize4iMiAgaglCDfxgzCmgmC3Ib9hCfiIhihcCti9fPCOfffxHbgpiii9fqfEI5cdg6GIgAdff7IEbbVpGWd")
AspCoding.EnCode("wdACweli4bb9YgyiahlimdECaiUg4iEI2HkGjcAfUeHioHgIHopGVcyb8elgMiECzhlCFhzivfYemC5cTfdfchdeCgehQhpiQiOfhhzbhioCiiWgQhUG3IbiIheg7GhfhfUHbVpGWdyGzbUchcCHBHyI6fFhGOvingHfoHhbBHZfygDh1GXgzeaiZgxiFc4HmCYfje8emh6e1IHfVbgIXd3IEc7hBb3ckf3gFi7hHiBHzH7hUcWIVc5c1GEcEg5h4hkhmh2HEfyg4CDfwfGh2b7b7ITd4H1Gmiaglg3ingAh")
AspCoding.EnCode("FcYclI2b2H3fkhaineahEd2bXengxiEgmhAhYc4bmCmhviwC8i3fmg3iaiyCneGh1IlG3G4bniYfjgafFi7h5h3haizgYhGh3Glb2b5c3hkh5hEClhTH4Hli5hnCvimhMi7eyiAiEgxgzCZf4gZdTIgdgI5cXd5c4bHhACEiHfgdCH2H2H3I5c5c2HBHEg3i3IvengzCmfxgFhHg3GDdjdZd1GnizhviAg8i5hxiEdZd8c1I5c4gaf4eFi6fBGYcXfXgXeyeMilhkeFgliaCxh4C3hYcHfTG4CaiFf2H5hze")
AspCoding.EnCode("ygYhahFcYc5fmhahli3CEi1IBbTGAg8i5hzg1G6fDfUfjgZeEd3GZhyixiDfxHDgYfxh5CziEgSH2H4hjfafmg2bGe7VPPJr8Rurv9Dpvs9QFohPUqTGyI6f7hXgyCTIEcxbnhaiFfTIEcxbliZfHfVbVc3I5c5c1GEcyIFhAhBbVbCH2H3IXd2HBHFhAh4b4gwC3f7eFiHg1IlilgNhFiyiFgFhwfvfnhni3GBbgdhb1G3I5c3I4b4bEcZhxCAhwiXdwiYfEgziyi4CBG2b6gke7eFhYc2HXg5flixhzhah")
AspCoding.EnCode("Fc1IchnhaexhahMihh5hFhYCbh3f5fkiEhDCvc5hFileScZi4gEgzCjfzgEdIgYC4gkilC8i2bBbgdVc2HXd2H2H2H3I5c5cBHDfmg5cDgwemgACwfHg2bDIlGBdZdSdTG3ixh6i3IZikhai5CyCFc1Ivingnf8eYcHfpGVc2H3I1G1G5c4b1G3I5cXdHhDC4bniaf4eECFiTH4HFhweEg2bBbEcFiAf5hah5cmCviXglh7eHgYclhEgSeafYfDH1IGecsUorqy9urZpDpnR5pFWVscLsRFQBp3qcQpQiR8q")
AspCoding.EnCode("tPSVQPcLMRGrbr4QCslQqPFoRqDoEVZQrqARJsLRPrxWCqCr7pvRQrqqLrEpJQeKRrdRE9mrte8clIlbAbYWEWgQcQRRtsjHkHAbAbMqxVgdCHTGmilgTIhcgI4b5c5c3I4b2H2H4b5c1G4bXdgqzoQR79qgRh5WcrHhEC7hZiyC5c5fjgZiFiECBG2bAg8eSekh4ijHAI4HUcjbSbjb6c6IkbUbAGHh5h5cFh5hAh5CmhDfTHmikhYCxivh5cveEi4iYgHgACYfzgmCngyCEgGivdwcjhmhECFi3f5CYfzH")
AspCoding.EnCode("GfFgaixiTHlHUIDclI8GjITdlH5IPhyg8e3CEdVsGtMrDqIr4RHrCqHrVs8OILPRl9oRmQSoILqQDP3cVfngjeDeFcThZeAgUcFdxhvCYh5cXfkeFC3iYf7fGh3GlI2b4bFiEi5fGhohwiYCXinglhaG7gDizhzgzevfkfYfxInezCme4bZiviDfTH1IPQbKLsTrGR5QcQCqcQPQFVdKRPxViPyrFVIL9r8QZdHfTGaG5hGe8IjH6bDIBd6IjcUbkbEczHAg8i5hxiHfBHfhpiVgPi5cmeZi4gmhGhshmh7f")
AspCoding.EnCode("ZfXgyC3fHfHh5h4bEgYC7fne4iEgHgmijg5hxiki3Iyh7fYfZhFc8emhyC3hZezgliEIxbxbwimhEClhZi5C4izHBIAiaiyCBGDbAIDG7GSblc7HSIAH3cPhxhFh4iHgRqbKuPDqHq2rIqCqIqVsEWfuqQl9pqxsD9dK9rDP3cCingzglCTHBg3CAgSdGgaivCXi4b4hxCEiZf3C7fTH4HlIYc5c6f7f4gFcpgaeXg5CYfAgxb7gAexCyCwCweximhvcZgaiZh5cYCwCliHgYcqRHuuPTrBpXPHrpQbRQPSo")
AspCoding.EnCode("ILQqzooRyr8OdKOsEqYcHfTGvdZiHfBHxbgeWgWhuhUcEc6f7h5hxiXdnijg5h7eAgFc2bAg8eUfafYfAIkGZdGe7bkcAcAH7HUI8HAbBdEcyI6fAf5hkfHfGgfhOeVgre5cYgZiniYfEdufZe6enh4ezg3fBbGgdCWgoiuh4b5i3f4g4iGhRiYf7fnhZizgZiUcTGZi3IFh5hAhYhYfDfHgnCaf3fahvh4bxgFCYfmeFcEgngxi4gmhxiliEIxbzHzfmhFi7e5h5CmhaGBIAiygahGhlc8bldkbjcBdAckH")
AspCoding.EnCode("UI3cuizC8emhHgQPGtrqTrBp4RcQgrIqRqEWILPRyWpqnPEWdK9rEqXb9h3Cah8fTHH9mhECUcHhaiaeXi5c3gagFCZfngFCHgZdlIYcXdFiAh3hEdWizfYCmfYf6fyIDiDijfkfjgaizgZexI5CvfYg4bXgzeACEdZdQPcLrqTrGR2rIqgrGsVsD9cJ9rxVCQnPD9fuRPSr4HTITGaGZiBbTGyIcioCWhQCBbEcXf6eSdhcCH2H4b1G3I4b4b5c5c2H4b4b5cXd5cGgxbgeWgoiuhTITG6fAf3fzg1GmCze")
AspCoding.EnCode("5hFiFiTH4HAgDfThwC4iAIjH4HBbEpxQBVDWZoTVjG8clIncDc7HjdkH8G7GUbjGzIlHDb7I7dlIjcAbAbmcjHkIkckbAcFHEHDbAc8ITcEc5eEiTIVbhb4b4b2H2H3IXd2H2H4b4b4b3IXd2HuPRrQRxRw9TV8h4imikglhDfYfAheiFeTh5CvhzG4gxiGg4hAhUcVbWd4b5cXd5c2H3I5c5cXd1G4b3I1G1Gtq0rOQIRYpcrHh5h4bzilgmhZhBG2byhliFh7hFbvdxbEfEf7iyb6CH9YhkizGnixiyI7g")
AspCoding.EnCode("GOEfUgBdyIZdTIziACli7hFbvdwcEf6CEfaHEfBgXikiaH5fzgwc7gSeDgbOFHGgxbXgGeFdvdECleZiahUcGgwclh8iYCyCUc3IEcXg2HveEiYfmeFc4Hxg8e8e8iFbaGyIDiGO8hbOkb7caHFeGOXixfaH3hjeyI2bBbziliDf7hFbwcvdDiBg8hTejI7cybDgSemfxfaH4gjeFdaG5hUcEcXf7f3IzHBbgdVc3I2H2H4b2H2H3I4b1G3I1G5cGgFi8i3fyC2HXeze5h7eAgTH2bAgACBgvimh7bYcHfGg")
AspCoding.EnCode("Fi7hZikf2H3hviXgFiFiBGYcAgFhThkhmhjHjH1ISdTpNQEWcq5WTVFd3f1Gzilgng5iHg2bziliEg7hSHzHxb7iFe8hwd8hSeZgkixI3hahwc2bSdyhliAC8iSHyIwc7i6CFeybDgSenevhvc5fzgBHwc5hBbHhwcAg7h5hjeBbHhwclh7h5hyCBbBHzH8iBbgdVc4b5c1G5c5c3I3IXd2H3IFdyI4Cyg6iSdEcxbFh4CUcoHWd2H2H2H3I5c5c2H2HGglimg1GDgzCZfEgyhHg3G6dkd7d3GUcHh3iyg6i")
AspCoding.EnCode("4bZiwCzCXizgFc1I5fZexiDfZeEi4HTITG4e5cyh6eng5iEd2baCFhliAf7eHCwczHAf5hSekIyb3hziaikf5h4hZiyCkixI3hkekgvc3hzgaGQf3fUfEgkeUdEeNhwiaiZfTHUIAH6bTdYcTIBHvfjhmf2HAgAhXeHg3GWikgZiXiYfECzHle4eThaengkfFhAgnCBgMiAblbvcmfyg5i2b5cEfvfnhlixgFcYckG8c7I2b4byhmhvfmfxgACTH4H7bkb2b3InCjf6e3inglgFc1IAbYcUcGgxb3fHfHhwc")
AspCoding.EnCode("Yexh7CBbTGyIlimgBbVbVc4bXd4b5cXd5cBHyI5iyiFCaeBbWIiG1G4b5c2HGgzHliAhBbVbVc3I4bHhaGFh5hmikhmhBbgdhb2H2HEc7hSd3cahmi7e8iHiGgyIDCHfWIWdGgvdmgai7CUcVbhbFdfi6fDCcfjfZfygxiXiaHcfxgZilg7engACTHZg4hjIAG6dDdSd")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>