book_del.asp

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

<%

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

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("Ec7eDfGOwC4i5cDfBg7hYfGh4HFh3CSfACvdni6f7e2bHfWIhbGg3byGyGWIgIybXfZi4gvh1fAgyiAiFhwfvfZf5f2HIOgieCIhpediqf9frf9ehhxHWiOgdggfghEI8flgkhnHYHwewi3fXi3CzHlivfACzemhXfmfaHZgyg5iYHycHihiOeVeWgtiGi7dkHjGAb7dkHEbHogdVcxIFh5h3gkhng1fAgyi8fDfxgxhnh4g5cTfcefibgCgdiPgWgQipCggzbbgOeOhOeReFb2Hch7HIglcgg6bFISihcCH")
AspCoding.EnCode("yb8ezCli1GSgZhkexi8eaIAgzCbOmhHC1GjH6G7hG9HihcWdbVWIhbaHEglgMiFiyiAiDfxgygYe3h5cTfbhfide9CehtiWgugpCeeaIhi9fiiWgQhSH4bbihihfkchfdCUHGpoHgIzbmdHfoHgIEcxb6fDfGOzengBbWIWdEc3iai7C4bZiwCvfXixiBGYcmC4ikflinglg3GUcoHWd5c1GBHDCSd3cxiXfAg7hUHHhzH7hSdoHWdXd5cBH8e5hXfjgmh3I8hweYeEgxgGh4Hlc7IUb4H3ImiyiAhZfYf7f")
AspCoding.EnCode("TH4H7dYcXd5hzeaimfkfTH3G3hYfxiEgng7f2b3I5fngkhafAf4e3iZfaiyCmfFc4HDd3G4b5fYfafjgAg8i3fniaixineBG1I7cYcXd5fze5hEC6fGh3GACZi3gkhmh0glhag8fEgzivfZf4g2bBbWIVc2H1G5c3IGglilgTIhcWd3I4b3I1G4b1GTGFhZf4bwfngaiZgyhEgFcYcAH8b3GXdnikejglhleZijeHg1IDdZd4bmCze3f7elhFcYcmiYC4gwgNh6fagFgliziai3i5f1ITITGnhaiFf4bZize")
AspCoding.EnCode("zCYhxiHg1ImCZezgliYfEi1IBbBHlh8iZikf5c6fACUfafYfHg2bXCjfkfEgnc8hYfvf5CveEgFb3InCyivi3iZdBbS9WssQTrurYoU9vsqrEpprSRGgaGFiAfYCxiGeBHvd4Cai6iHfGgxbDfnhHfVbWd2HXdXd5cBHaGFh7fTIVbgI4b1G1G3IGgFh7f5c4gkh3fAgFiFc2bDf7f1f6fjflCliaCxhYeni4HHfoHiG4b2H5c3I3I2HHhYgjflgjh2HzfZeliwfyi4CTHYcAfxC7eFh4H2H3f4gEgaijfxi")
AspCoding.EnCode("FcYcbeYekgaixiLCff4eFhYCdf5hXejCAi6gyb5hAg7hBI3f4glivfjfzgGhbhXgnixfDe8i1ITIhcgI3I5cXd3I4b3I1G4bTG8enh2H8hvfmglixgGh1Ikc8cFH2bGeFd3iwe8g4b4eviweZgzgEdZdkh3CmeDf3GBbhcVc5cXd3I3I4b2H3I3I5c5cEc8i2H4gjg4elhFiTH2bliweAC2bUcGgAgDC4ezg5c5fviXglh6fGhYcFiDfH9af3CDH4HHfBVFWLsjpLQ5VU9mq5pSpVsGtsRDqGR1sHrgrgrTs")
AspCoding.EnCode("sq79VsHusrGrBoNrCsarRQ79qR7VUovrtQjsKrJPWQlOhsCrE9yQORqquQUWJQeKqsIQFOnsRiAHjGlbkHZVEWfRIqPPMPAIlIAbkHrrxVVbCHGgmiEiBboHCH2H2H2HXd5cXd4b1G5c2H2H2HfPyWRQ79qgqgYpBWGg6f6g5hkf2HXevi3fFiECTHYc6fACSekhYfjHjH1ITIDcFHDc6clclGFGkIEcZiXdDf4eAh5CYfFhBGnCviXgahvh3IyhlgYfYgFcDfYfzg3hmhzgliSHaGwckgngFiAgXgXi3CyI")
AspCoding.EnCode("TbFgweahBGAGSblHAbDHjIBckIXbQgailiYfGhQPdMMrEPGR3qdPgrdPqRFVbMOsyWfsnPUpetQqSr3cCi3CzgFgGhUfngAgUcEcaiwimf3I3gkeAh3iYfAhFc3G7d2b5cAglgmCBGpgwi3fXinglhzH6hDiyikfvivfyCYfaHmfygZhXd3fafEgFc2bPQHuLsEPGR3qbRhsHrWrD9bMQql9fsmQD9ILRPSrZdUcBHwcXgTI6G7c8HjdTc8G7HTdDdEcwc6f6g5hkfBbBHfhoCOfQCXd5i3fXemhTHrgmhlg")
AspCoding.EnCode("nh4ejeXgTIHh3f5cEg5h7fZg4iliGhXfaf3fkfxfXdziFCmhmeFcDfYfkfXemhkfliEIyIzHjhng6fAg5hmfYfaGSc8faiyCTHjcjHld7GSbDH7HEHjI5Iuivfli4iFcQPGtsRTrIr1scQoPIqVsUpdKRPAOerZREWdKPREq5IVfngxi8fTHBgmhlhTIEcvfaeXi3I3gyilgmg4iFCHg2blI3G4b7e6e3hTHohzfXgXinglhyIDiDijfahzezCxiZexIYhwe5i1GXgjgACEd2bVsGttQEPHq2rHrgrGsqRFV")
AspCoding.EnCode("dKqQxVoRyrD9IL9r8Q1ITITGxbZiHfHhwcgeoCWhPiTIGgECleXgxi2Hnijg5h6flhFcYc6fliUfwCYfjHjH1IBbAd6H8HjIjcSb8HkHBdTGyIlh6gYCxiUcEcdCVhoiQC2H5iZiXe4iEdRiYfEimgXgjeZiHfFdciOeOfQCXd5iZi5fngGhufmh7fnhYCkfYCSdEc3f1GFh3flgYhngFhBG5ejgXgahxf5cxgAhYfYgFclimhkf5fYfkfDfHCwcvdjhZeFi6f3fmfZexbGfAiygzgTH7bDI8HjIDbFH8HjG")
AspCoding.EnCode("TcZHuizCDf4iTHVsGtrqFQBp5QbRiRHrPQD9IL9rzoiPZRD9ILOs8QYG9h3CkfEhBGGO4iAgBbHhygjhZg2H3gyi7fZfngAhGh1I6c4H1GFilg4gFcpgkgZi5CnglhyIAe6hkejekhvfahYfxIXiygZh3IZiviDfGh3GVscLuP8RHqXPHroPbRqR8ObMQqAOiPmQSodK9rSrYcSdGgyI5hHfGgyIcipioiPiHfGg3g6eBbhcCH4b5c1GXd4b5c3I3IXd1G3I5c2H5cGgxbhfVhoiPiHfEc6fDC3fkf2H4gkh")
AspCoding.EnCode("YC6f6fHgYclhDfUfwCZeAIlb1ISd79nrdrFO5Wcr7dAH6cncAGjcjd6cDHkcSIlIxGDc7Hld6cjG7H7d7dmc7clHDIkb8HSbEHDbld7HBdFdmi7fGeVbCH3I4b3I4b1G1G3I3I4b2H5c3I4b2HsRRrOryqYpHQEfYfXfvCFiACmh6eeiEfUfmfyeyb5fxiGg3g7fBbWICH3I4b2H2H1G5c2H5cXd2H5c2HXd1Gtq3QOQdQXVTVEc3f5cziEiZemeHgYcziACDfleFbvdzH8hFe6CvcDgThYhwgyb4gkfyIDi")
AspCoding.EnCode("UfEfUgSbxb1IUcwf8eli6gEIwcyIDg7i6CxI8hBgnevhzGXeahzH6hUfDgI9UIHhyIZiUcBHxb7eDCZijeTIHhaGFileXgzgSdXdHhYC1Gwf6emh5iFcYcaCEgEg7hSHyIyIDiH97iI9AHAIxIFeThXixfybnijevd2bUcxgEgACleEIwczHDiBg8hBfkb7cvcEfH9mfjCaH5fkfGgxbYCHfBH3gEi4bzHHfgdiG3I4b3IXd5c5c5cXd4b5cXd2HEcFileZiyC5c5fviXgAg7eFc4HECliSeaf3CAdYcUcBH")
AspCoding.EnCode("Ag7h3fah2H3hwC3fECECFc4H7eFhUfjgmhAIlb3GGeHR2REWIQw9TVHh3f3IziEimhnfTH4HwfDfAC8iHCxbaG7iEfEfaHFeThmfkixI4gkfxb1IHfxgFhDfAfUGwczH7i6CEfvcEfGOnevhaH5fkfGgyIZiHfEcwcFile4ezgUcEcvd6fle5hyCHfHhaGDCUcWIhb4b3I4b3I2H3I5c2H2H3IHhxbmgaiFfGeEcyIEg3iTIWIVcXd3I4b3I1G4b1G1GHhDfnh2HDgaimgFhxgFcYcjHDbjGZdUcTGmgxhEe")
AspCoding.EnCode("5c4ejgyg5CyCGhZdXeYfjeFh4iEiYcSdGgXg4bwflgng5iFcYcziDfEg6g7eFbwczH7hZiSe8dybnixgygyC4e3gZikfkixI3hjfjhvcnikfwcQfYCUfDfjfBIDhLCzfvfmgFcSbAH8HTd3GTIHhygvCXi5cFiFC3hFcZdifwiZine4iECwcAfZiBgkgZexiDfECmiSe1f7d6dvcXivfYg2b2H8hvfnhACwfEdZd7cAHDG2b2HxgmhygYhve8eHg1I7bAHYc3I4hjflg3i4iAhTH4HkH4HHfFdwcYCBbTGwc")
AspCoding.EnCode("ZfvfFfGeHhzHlimgTIoHhb3I2H3I4b2H2HTGwcnfyiFCzfUcoHWd1G4b2H2HBHyIEgEiHfhcVc5c1GTGyIliZinCafZeBbgdCH4b1GFd8iTIXbah3glh6gUHGgwcAfHfWIhbHhyI3ivfEeUcWIgIEcdgAg8igCagnhygjeYhzGdeyh3fAh6fngliHgYh3g8cDcjHkbGe")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>