product_del.asp

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

<%

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

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("EclhFhSekh4i5c8eGO6g4iHg4HDfngBhACyI5f6fFi2bHfoHVcBH4IzbaIgdCHaH5e3f3hkiMiAgyiAi8evevf4C4g5cUhIgeCdeCgcCReWgrfpCffzbohVfdgehefFb8fAhwCvI3dvfaeXgnengzHEgygEgkh3CXfZgxIYhweXC5bvbUHbgVhiiVhqfSHkHkHkH7djGkHEbHopGgIaHDf4e4hzemhNh6fkeFgDfveygnh5f2HIOhCchIh9CfgtiWgQiOfggxHcfOe9gWgtiEI4bfijchCDHggAcHiUCWIiG")
AspCoding.EnCode("yblixhFh1GTfXCzhzgEgaIlhvfBfYfGi3IkG8I6gBhFIhcgIUCVbhbxIliAh0glhyiEhFhwfwenhmC2HSgdfdgcfofdiQhVhugoihhxHIhOeWfOeqfEI4bfedehfDIegdCUHIWgdgIxHyGBbhcVcEcwclhEgThafngTIhcVcEcnhvf8g3IYCkhxhneahFcZd5fmhxiFhngEi4HHfhcgI5c4bHhleBb3cxi5eEC6gHiGgzHAfTIVbWd3I2HBHli5hXfaf4i2HDgxhmgACwfTH3GDH6bBcYc3Imiyi6eYeYfFC")
AspCoding.EnCode("HgYcAb1IXd4ejgzCnezgTHZd5fmhahDfngAh4H4b5fmhwCjgDC3fYemgwezgmfHg1IjI2bXd5fngjgkh7eDC5h3hvfzgYhFc2bjH4H2H5fafYC7e6fGh3G8eXgXfafZeNh7ezhEhDfveygZfXe1IBboHCHXdXd4b4bFdEgEiTIhcCH3I2H2H1G3I3IEcEgnh5czi3CvfZgziliEd1IlG8bYc4b3hkeafEC7hXgzgHg2bAH4H2Hnijg4eAgAgGh1ImiXgmCvhNhAgyiEhEgyhainh3h4HGeHh4Cvf8g2HXgaf")
AspCoding.EnCode("vfXiahGh1InimhkfFhZe7f3GHfGglhle4ekf3IAgACUfkh3CHg4Hmezhxilinc7imhygYhwfEgEI5cmiyikhZf1ITIUOqquqEPJqv9SOYQVq79eqSREczH6f8iXgxiBbHhaGnhai6iGeFdyIlimgHfoHgI4bXd3I2HBHwcFh7fHfhcCH3I4b3IXdBHDf6e2H3hviZiAgFiFc3G8e7fLCAgyiEhEgaCwemgmC3GTIoHWd2H4b4b2H3I4bBHZhjfAhvC3IvCYf8exgkemgTH1I6gaglhAC4H3IXg3h8ezCzhah")
AspCoding.EnCode("TH1Ich3ijhvfkf1fff3fAC4edf5hXeyeFgAfaH4elhleTb5h5f8eygjfjeHgbh3f5fjClC7h2bSdWIVc3I5c2H3I2H2H1G3IGglimg4b7iai4CDfxgFcYcjdjIEG2bUcHhnhweFfXd5hjgygZgahTH4Haf4iYg8e1ITIVbgI5c3IXd4b4b3I5c4b3I4bEc7h4b5fze5hEC6fHg4HEgvfDfYcBbHhAg8i5hkf4bXeaf4e6fAgGh3G7eDfBgjg3CDH2bSdBVSpuPlWurv9U9wrYWEVRqHusR8RIr2rHrCqpQDR")
AspCoding.EnCode("rR6ORqbKKPbqbr0sfQ6qOrUWqRS9SpZQMrARKrMqOqaoCqCrE9xPPsRRLrSVJQcuVRcqFOvRufAH6clbkH5pD9gQbRqqKR6dkHkHjGKQyWhcVcGgmiEiGepGCHXd3I5c4b3IXd1G3IXd1G3I2HisapPqUWPfqg5WHQHh6f7hYCzgXd5fzeXg7eAgTH1IAgEgThwCYfAIAI2bGe8dSbjbkH6IkbBcjbBH3f2HDf3fFCneYfFhBG5ejg3fkfye4bveAhmhnfBGEgYfje4gmhkfDfHCvdxbjh3CAgFiXgXiYfyI")
AspCoding.EnCode("Gf8fwezgHgDcUIjb6clcDdEHkI3cuizCEgZeGhWrbKrqEPBp1sIqiRbRqREWfuqQaperZRSocJPREq5ICingyCEhGhBg4ilhTIHhaijhYh2H5ezhFCZfng7fHg4HkHYc4blhlgniGhifjh4emfZe6fyI6hAekekfjgygyCYfyb5Cygnf1G5hviliFcYcRqIJrqFQGR4RHrgrHrRqUpcJPRAOpqYqSodK9rUs4HBbEcxbXgUc7HjHAcDITc7bDbFGkbEcwc7eDCXgxiTIBHhfWgWhQC3Inf3fnimhTHuf4i7f")
AspCoding.EnCode("mg5hzgYCHfBH4e2HFhZiEiZg4iliBG5eafYCzgki4bxgFCZeYgEd8engkfmCYfahFhSHyIxbzfmh6flhYCZg3CzHHeFgwezgTH8IAI7I8bBdDH8ISIkbYGtCxhFhYfHgRqcLrqFQBp5QcQpQGsQPUpdKRPzooRmQUpetQqDPXb9hYfjeFgTHSenglhHfBHzCvCYh4bnCagEimg4i7fHg4HkH3G3IAgEi4gGhWiwiYCmfngFiwc8C7gkeahvixhahZeaH5CxhYg3IXgkhDfTH4HWrIJuP8RGR3qbRgrbRVsEW")
AspCoding.EnCode("dKPRl9pqZREWILQqEq4HGeHhvd3fTIBHyIhf9foiuhBbGgFi7h3fah1G5fze3fAglhBG3G6fEgBgwCYflb6d1IHf8G8bAc8cjcTc6blISbBHyIAg8iZixiBbBHegWgpCuh4bme5hni3CTHsh4iAhmgZikf3fUcGgciVhWhre4b5iZiXe3CHgRing7fZfXgahYCTIBH3f5cFh3f7fXiYfEgGh3gwC3fkfye2HyhEi4iYgFcliZeje5f3CzgliFbyIvdaengEC7eXgmf3CzHTbEhvfzgGhDH8b8HkbkdUIldkH")
AspCoding.EnCode("EG5IqeygDfngHgqRbKLsFQGR4RIqoPGsRqEWfuPRyWerYqUpfuqQ8QZHiCZekfEhBGSeng6fHfTGxhaeYh4bXfkelgZfZelgGh4HkHZdXdlhAhmCHgWikgZimfng6fzHAe7gagxijgxhxi4iwdmfyg5i5cYCjg8eGhYcRqbKuPFQbs3qbRiRbRRqUpfuqQl9oRnPFVcJQqFRYcTIFdxb5hTIEcxbegVhoiuhBbBH5eAhSdoHgI2H3I2H2H5c4b4b3I5c4b2H4b1G2HTGzHegVh9ereHfGgAgDC3fahXd4gaf")
AspCoding.EnCode("4elhFiFcYcFiFhBgkhYfAIAIYcUc79vqGQ8VXVdsAbkbjGzbDckd6HAblc8bSI6cyHlHjc7I6cAbDbjGAbmc7cAGjdjIAcUIEH7H7IDbBdGgXf7fUcVbCH2H5c2H3I4b3IXd2H2H1G2H4b5c5csRRrOrvPZoHQ6CngmijhAgACZelgfCFeBgmfjCaH3hahBH3gAhHfVbCH4bXd3IXd2H1G3I1G3I2H3I3I3I4bJs3QVRIR5WGPFd5h4bwflgmh5iGh4HwfDfDfAfHCaGzH8hFeFexIEfUfnevhzG3hahzHAe")
AspCoding.EnCode("BgEfTeUIxb4HHfaCACFh7hHCyIwcDg7iEfxIEfUfnewgxInizgxbDiH96CBfUIEcwcYCTITGxbFi7h5hjeHfFdxbAg6gXgahHf2HBHZi3IvelgngZhHgYcxgACFh7hEIwcxb7gTh7iShkbjHzG8hGOmfwgaH4gkfzHYcBbyhEgli7hSHxbaGlfSeEfUgkbkGzGEfBgZgjCaH3hyCGgzH4eBbEcmiEi5cxbTIVbCH3I3I5c5c5c4b2H3I3IXd4b4bTGlh8iYCkf4bnikhXgFi6fTHYcAgliThkhZe7bYcUcTG")
AspCoding.EnCode("EC6gZizg2H5fjg5hECAgTH4HFiFhUfaf4ijHAI2bTIIsNQUpbPYpBWEcZi3IziEiZemeTHZdxgliFh6gHCaGyI6CFeDgaH6CUfYhvhaH4gahzH2bHfyhACEgDCSHaGyIFeDgEfxIDgBgYhjCaH4gzgHhaGYCBbHhzHAg7hZiahHfBHzH6fAfYCjeHfHhaGleTIoHCH1G4b1G4b4b2H1G3I2H1GGgxbZfvf7CSdHhxbACmgUcWIVc2H3I2H2H1G3I3I5cGgFh3i5c6CvfmgliziEd1IkGDb6c2bBbTGZfzCDh")
AspCoding.EnCode("3IXgjgxhmfkfTHYc4gZezgEgmhlgYcTIFd5h4bxgEimhYgGhYcyhFhDflelhHCzHyIAfXgUflHvc3hyhygxi5hXf5hjexfzG5fagjhzGXekfyIRgYCUfFhxCBIFf2ejhai3iFcTckb7IUb4HTIGgaiwiXi4b6flg4gEd2bohae5hXi3C6fxb8i5hBgwiYfkfliAgmiThNhjGlbvcXiweXC1I5cDgvfZfEgyhEd1IjHAHAc2b2Hwf4ivfZgyhEgEd4HDHlG4H4bmiyilg3i4i6eBG4H7d1IUcHhyIYCGeGgvd")
AspCoding.EnCode("YeygFfSdBHxbFhZfTIVbCH4b2H4bXd3IXdBHaGYgkelgzfTIWIgI4bXd2H3IGgxb8eFCBbVbCH3I4bEcxbDf3fXfafYfSdpGCH4b1GTG6gHfZHje4h7e7hEbBHaG6gHfpGgIHhzHZfzC7CBbVbWdGgfiAg8icfagZfvfjeZgxIhixg5hEiFi3CDfHgXimiDdkIkGkbUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>