product_add.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("Hh6fFhSeafZe2HEgThleZeTH1IEg3CSfFhvd4g6f7e2bUchcVcEc3baIzboHgIxImiZinivh1fAgaglCFhyhwenhniXdTfbhfiIhCgdiqf9fQiVgIizbohWechdibiUGlClgvivIYHvfkg5h5CngzHDfaiFhafYfmimfxIYhygXCYHmHSGcfVhiipiPgGi6cjGjGkH7dlIHiIWWIWdzGEgYC5ejgYfLC6fzhEhDfxgxhZf3h2HUhhCdggCofhePgOeugOfggaIbgVhCC9fPgEI4bbekdbh7bff7IEbSiVbCH")
AspCoding.EnCode("aHDfvfDfXdBenfzhje8eaI6fvfTemhUG4blb7HleTgUHpGgIIWoHCHwdACAhNhECagAiEgzivfmg5f2HBeIgdghiCgehtipiPCOfggnchioC9gOeQhGi4bghdehfjdfhegFIbVVbCHxHxHUcWIiGGgyIlhEgH9jg3CBbVbgIEcnhygDh5c5hkhvfneahEd4H4gYfzgDfYfEi2bBbWIVc4b2HHhleHfTGvfkgYh1G7e7f4gHgZdtfTh5Cwg5fjeNhaiwiZiXimhyIqh7fagmgAiniliNhYfmgygACybwhleYh")
AspCoding.EnCode("YcXdEfxh3iFhxgFc4H6H6clIYc4byhZexhXizi8eEd1I7clI8HDH1IBbFdyIAfHfhchb2H2HEcDfXg4hjg3C2HEfweZfFhziFc1IlcAcFG3G2HnCagEinhngFCBG1I7d3G3I3fwCvfYhahTH1I3hYfahDfmhFC1IXd5fZejgze6g3fmgmgygah5CTH1IjI2b1GmCmhkhafAg7hZi3hvfkfmfTH4H6d3G2H3hze4eAg6fTH3GFh4e4hkhYf2eAgjfDeEgyhvfZfmCZdBbVbWd3I5c3I5cBHEg7fHfpGgI3I5c")
AspCoding.EnCode("3I4b5c5cFdDfmg5czi3CygneyhliGh2blG6HZd4b4gagjglhAf3fkfFc1IlG1I3I3hjgZiAgECGh2b3gZi3hwgNhFizhEhDfvexh4C5f1IHfGgZfvf6i4b5hjgaiYhkfGh3G5fZekfEgmh6e3GHfGgAgDC3fahXdAgDfSekh4iFcYc5izhzgFhxHDgngaiXiziFhSH3I3gxCkhnh3GBbS9WssQDqurXW6Vwr9QEpprSREcxblhle5hxiUcTGvdmgai8gHfBHyIFh4CTIoHCH5c4b2H2HEczHEgAhTIgdCH2H")
AspCoding.EnCode("1G2H4bEclilg5cnize4e6fECHgYcFhlgLC7eaglC8exgvf4C5f2bBboHgI4b2H4b2H4bXdGgXCjf6ekg1GkgYfEgxgagnhEd4H6gaglh8eZd4b5h5fEgxhyiahTH4HIfZfzfzCje1fhh4e8eXgdf3fXevhDe7hyb3f7e6gGf4e4gFhvfjfyCEdbh5hmCwgAi6gYcHfWICH2H1G3I3I5c3I4b5cEcACZf3I7iai4CEgveGhYc8bkbEG4HSdHhmgyg8g4b3fafvfXizgBG1IjgmhYgli1ISdVbhb3I5c4b3I4b")
AspCoding.EnCode("5c4b4b2H1GHhDC2H4gafXg6f6fFc2bFhygli2bHfHh7eAf4ekf3I3hze4e6fAgHgZd6fFhGOjgYf8G2bUcdr89MrlWKRXWDpnRZV89WrcLrqFQGR4RGsCqCqFPsq79VsHuLqGrGq5RirlQRQ79qRS9FWnquPlqKrrrVPlOiRCr8VyQVQRRsq6OMRcuOQB9DWyQuf8ckHAIAbZV8OgQcQPPLQlb6c6clIrrl9pGiGBHnClgUcVbgIXd1G3IXd1G3I2HXd2H4b4b2HhRyWRQUWPfRhvOTVFd6fleXgje3I5fjg")
AspCoding.EnCode("XgAglhEd4HAgEgThze3Clblb4HTIjbTcjbkHDHAHEHlHFd4e2HFh4e6eZgYfDfBG4hze5hahxf1Gxg7fZeYgGhDfYfyCmCmhahACEIwcyIwiYfAg6f3fnengyIScFgxhxiFc8dFHkI6clcDdSIAGXbuixhFhZeTHVsbKsR8RGR3qcQpQcQWrFVetPRxVpqZRD9cJOsEqXbOg4iahFgGhH9mhlhHfTGxhvCmf3IXfag7fZf4iAhGh1I6c2b2Hlh6e5fBGifkg5hneZe6fyI7g8CjfahwCygkfZeybXiai5i5c")
AspCoding.EnCode("5hjgFhTH1IqRcLMrTrHq5QbRiRGsRqEWetQql9fsmQEWILQqFRYcHfBHwcXgUcDblbDG8bTclc6GTdjIEcyI6fAfXgahSdGghf9foiuh2HnfZi5fngGhrg3C7fZf4ekf5hUcEcXg5cli4e6emf3CEgFc4hjgYCjewgXdvelgYfXCTHFhmhkf4gmhkfFhSHxbvdkg3C6f7eXgnengzHBIFgygahEd7HAI7I8bEGAdDbUbAH5IPhaiFhYfTHPQHutQBsTo5QIqoPdPqRUpfuRPyWiPYqEWfuRPFRZHWengah8f")
AspCoding.EnCode("THGO3ClhBbFdygwiZg5cXfag7fZfZelgHgYclI2b5cFiFC5fHgWiwiYCZgZelhwc6h6hkekfwCxhzgngxIYhvfnf2HZijg8eHg1IRqIJMr8Rbs3qIqiRHrRqFVdK9ryWpqmQSodKOs8Q1IHfGgzH3fUcHhxbegpiWhsfBbTG6fle3fzg4bXeze3fAgAgEd4HlhACBgafZelb7cYcUclc8b7Ikb7HUI7I6cTcEcxb6f6gXgyCBbHhgeVhoiQC2HZhZi3hngFcufYfEimgZiah5hGeHhcipi9eQC3I5iXg5fYf")
AspCoding.EnCode("Hgsh3ClgZf3fxi5hHfBHZi2HEg5hlg5CYfDfBGXfkhZixiwg5czi6eZenfEdEg4iah4g3CjeEgHCaGyIzf3C6flh5hmfngxbGfEhvfahEd6Ijd8HlG8IEG7IkHUI5IQgxhACYfHgqRbKuPBsHq3qcQiRIqWrEWfuqQapCQmQ8OetqQEqYGWengkf8fBGThZelhBbBHwekgmf1G3gzh7fZf3CFCGh2b7d1I5cAgEi5fHgifzf4eZgngFiyI6hDiyiyCafygxi4iwdZgweZh5c5hkh8eTHZdRqIJsR8RHq5QcQ")
AspCoding.EnCode("pQHrqRSocJPRyWoRyrFVbMQqEq1IUcHhyI5hUcHhxbhfOeWhQCHfGgXflgHfoHVc4b4b3I5c4b2H4b1G2H1G2H3I4b1GTGzHegWgpCsfBbFdAgAf4eah5cniviZilhAgGh4HAgEgH9vi4ilbjH1ITI6OvqTW6o5Wcr7dAHAbncjb8IkckHDHkcSI6cabjb6G6b6c6c6G7dlImcAIlH6HjI6bBdSI7H8HjcSbBHXfEiHfWIhb3IXd2H2H1G2H4b5c5c3I5c5c1G1GtQqsQRYr5WTV6CZe3gvC7eEgYfFCbf8h")
AspCoding.EnCode("Thmfwgyb5fahBH4hFCTIgdCH1G3I1G3I2H3I3I3I4bXd2H3I3I4bsPNsWqbqYpTVHhZi4bwf7fYfnfTHZdveDfFhleUGyIzHEfFe8hzG8hThmfyexI5fjeyI6hUfEfbOBdxb2bSdxgliEg8iSHyIzHEfFeDgxI7iBgYhkivcmCkfyIDiH96CUgEGHhwc5hBbTGzHEC7hXgzgTIHhzH6fAfZizgGe3IGg5h3Izilg3CZhGh1IziFhEg7hGixbxblfSe8hbOAHAIaHDgUfmfkiyb3hzgwc2bHfyh8eDfleSHyI")
AspCoding.EnCode("xbAeSeEfUgjI6daH8hGOZgxfzG3hxiEcwcZiBbGg4h7f3IyIUchcVc4b2H3I3IXd4b4b1G4b5cXd2HHhFi7hXgxi2H5fviXgFilhGh3GlhliH9ze3C6IYcTIBH6f6g5hyC3I5fafZilh6fTHYc6fEgThjg3CjHjH3GHfGq4rD9dRw9crTG4e2HaClg4iZhHgZdveEgACleEIzHvdEf8h8haHDgThmfvhaH3hyCyIZdHfveEg8e6gSHyIyIDg8h6CaHDgBgYhyewd3hahBHyI5hUcHhzH6fAf3fkfSdTGzHlh")
AspCoding.EnCode("le4ezgHfBHaG7hGeVbhb2H1G3I2H1G3I4b2H2HXdFdxbnhzC8gUcGgwcDfmgHfoHiG3I3I5c3I4b5c5cXdBHEg3i5c6CygYeFhziGh2bkG7H7d2bTIGgmgxhFf2H3fviygnezgHg2b4g4izgACmhAh1IUcHhXg4bziAhmhnfBG2baCDfEgAfAgSHzHwc7h5hBgDcyb5fyhwekf4eXfXgahyezG5fagkgwd5fahvdRg3fSeFhyiSc6iMijhygnhTHUIjIAcBcYcBbBHygkg5C4blh6e3hFcZdifjhZiYhngFi")
AspCoding.EnCode("zHAfZiBgwimhah8elhmiH92e7dAIvcZgvfnf1I4b6CygZfDfziGh4HjH8c8H1I4bxg3CvfmfveDfGhYclcjIYc5c5eke7f4CngEiGh1I7d3GTIFdaGXgHfFdzHnhxhFfTIHhzHFhZfBbgdgIXd2H1G3I1G3IBHyIYgagAhvCHfWIgI4b1GXd4bHhzHEgAhUcVbCH2H2HBHzHAC4eXfkhZeGeWICH2H1GHhleBbXbkf5eAgAfSGGgxbAfHfgdWdHhxb4Cyg6iTIhcCHGgIf6flebgag3iygahXivcgCwfXgEi")
AspCoding.EnCode("Fi3CEgBGYhmikbjbkGAHSd")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>