product_save.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("TGlhFhUfzeng2H8eBg7hYfTHZdACmhBhACyIniAgFi4HTIoHCHTG4IaIncWIhbvcmiYC5fwgMiFixCFg8eyhainh3h1GTfhCchbgCgfgQh9frfOfIiaICeOgdgehhgGiFgFCkhwbXIaijhXgYh4ixbFhvf8ekh3CXfZgaHZgvfnf4cvbEbbgpiOh9fQhUGkHjGkHlIAbjGSGGpWIgIwdDf5hnCjgYf2elhyiAilizixhmg3h2HSgIgfihiOiehqfWgugpChhzbdeVhiioCqfFb5cch8IgiDHffAcFISiVbhb")
AspCoding.EnCode("zGFhaili1GIOYgyizgDfxHAgxhbOngSH2H7cDbAfSfHioHgIIWWIWdaHDf6e1flhyiAiEgziaiYeXe2HIOIgfiIhCgcCReWgPC9eggxHgC9fOhVhqfEI4befIhhf8bdCegGCGppGgIyGaIHfWIgIGgxbECDfBgjgmhGegdhbHhZfygDh5c5hafvfmfkfTHZdXeYfah8eZelg4HHfpGhb1G4bHhAfGe5Ikf5eAg7hUHBHvdDCBbVbWd3I5cGgli3f3gafYf1GDgyg3iEgyhFcYcAd8HSIYc5cnCag6enh4iAh")
AspCoding.EnCode("Gh3GkHZd4bXgjgygYhkfTH4HningjeEgngAh1I5c4g3Ckhkh6gZinhmgxhxiYhGh4HlG2bXd5fngafjg6fAfZi3hxhzgXiGh4Hlb3G2HXeafXglh7eBG4HEgXgnCafmhLCAgjfDeFhziai3ini2bTIVbCH3I3I5c5cEcFh7fTIWIWd4b4b1G4b5cXdBHFh3i4bxg4ivfmfziEgFc2bkb7G2b5cnikewCAg8iXgkfTH1IkbZd3I5fafZilh6fTHYcXfXg3hwgLC6fjfDeDfyhai3i4gYcUcTGYevf7C3IZikh")
AspCoding.EnCode("yg5CjeHgZdXengkfACYfAh2bHfGglhAf5hkf4bECEgGOafZeHg3GYgjfzgEgaI8h3CvfZgxgFhUGXd4hzhafmg2bUc6WQQsQFQLQZpSOZP9QUWhPBPGgzH6fle5hjeBbHhzHYeygFfGeGgxbDfZfSdgdhb4bXd3I5cGgwcDflgHfoHiG3I3I5c3IHhliEiXd5fjgZiFiECHg3GFhEiNhlhke8fACyhygmg4g2bHfoHCH5c3I1G3I3I4bGg5iagFCjh4bkg4iFhxgzh3iGh2bAfkelhAC4H3I3f4gDfvfyiah")
AspCoding.EnCode("Gh1Ifinhzfxhje1fee3fEg5hce4e5fwgFgDCaH5hEC6gGf4e3hliaiyixiGhIg5h5fwgFg8iYcUcVbCH3I3IXd4b4b1G4b5cFdDfnh5c8hyg3iDfwfFc1IkckbSb3GBbEc3iwe7C3IZijgvfmfzgGhZdjgYfnfli2bHfoHVc2H3I4b3IXd2H2H1G2H4bEc8i3Inivi4e7e6fEd1IlixhEgZdGeGgECleXgkfXd5fkh5h6fAgGh4HlhDfThwCngAd4HGeBVUosRjpKR5V6VmqmOSpqRIJrqEPbs3qIqpQiR8q")
AspCoding.EnCode("LrUWPQHuJQdQTp0sePlQPqFoQP7VSpZQuPlqsPMqOqzpoPhR7pxPORqquQEprsGMWqcqFOvRRijI6cjHlI5pUphPbRRRurAIAb6c6cssapWIVcEcnClgGeVbVc4b4b1G2HXd4b3I3I3I4b2H2HeQl9QRFoqgqg5WTVEcAgDC5hah3InikhXglhFiGh2b6f8eThwCYfAIjH1IHflHTcjbAb6I8cUblHHh4e2H8e3flgYhZe8eTH3gjgYCkfvhXdxg7fZeZhFcli4ixi3hngahDfEIyIwcwi4ilh6fXgZg3Cxb")
AspCoding.EnCode("TbDexhxiEdlHSbDcAb6I8cEHlH3cQgaiFhmhBGRqcLMrEPbs4RHriRcQPQFVdKOsxVCQmQD9dKqQ8Q3cVfngahFgEdUfYf7eHfHhaiwiZg5cmike6eZf3ClgFc2blIZd1GAgFCXeHgifvC3fYhmh6fyI6hlfzhkfkhzCzg3CaHneygme3I3fjgEgHg2bVsHusR8RHqXPGsCqIqPQFVdK9ryWCQmQUpfuqQUs3GHfHhaG4eTI7HjHDG8bEG7bDbEHlGGgzH7e6g5hkfHfFddCVhWhQC3I5iXgniYfHgufYf6e")
AspCoding.EnCode("mgXgxiXgBbEcZiXdDfXgEiXi3CEgBG4hvi5hahye2HaCAhngYgHgFhYfkf5f4izg8eEIyIxbkg4iAgEC5hYhngwcTbFgxhxiGhDbjHDG8bBdDH8IEHjIZHRfaiFhmhHgWrbKtQDqTo5QdPpQbRRqSoetqQxVoRxsUpdKOsFRZHWemhxiAiFcH9mhAgBbBHygkgXi5cmizh7fmgngFCGh2bjG2b5cEC7f3hFcohkgZimfYfFiyIDi6hzhjekhaixiZewdZgaiYg2H3fjgFhEd1IPQHuMrDqBp5QHrpQbRRqFV")
AspCoding.EnCode("bMqQapiPmQEWIL9rFRYcUcTGaG3fSdGgwcfhWgpCreTIFd7e6g3fyC2H3hkh3fAglhTH2b6fFhGOjg3CjHkG1IGe6I6H7IjI8ISbldkHUIGgxb7eDC5hahHfGgfhpiWhsf2Hnf3f5f3CBGufmh6eYeXgkf3fGeHhgeVhWhsf1GYg3fXengGhufYfFC4C5hahYCTIEcXg5cDfXg7fmfZeEgHgmijg5hxikiXdwflg4i5iEdEgZeahnimhah8eSHvdxbkgngAglh3fmfYfwcBIDeygzgGh6Ikc7IDdDbSb7I6c")
AspCoding.EnCode("Sb5IPhaiFhmhTHQPbKLsFQGR5QbRpQcQWrEWdKPRl9pqmQEWetqQDPZHOgmhjeDeTHBgngECHfHhzCkgmf1G4hyiEi3i4iAhHg2bkH1I3IFiEiniGhifkgXg5CmhlhaG6hDixCkfkhaiahngvcmfvf5i3IZikhFhBG2bWrcLuPBsGR2rbRpQcQqREWbMPRapCQyrEWfuqQSr4HTIHhyIYCHfBHaGhfVhoiPiTIEcmi6eGeoHWd3I5c4b3IXd1G3IXd1G3I2HXd2H4bHhzHegVhOfuhHfHhEC6gYCkf1G4gze")
AspCoding.EnCode("Xg6fAgHg1IlhACUfjgnglbkGZdBbUWxQBVDWw9BWkHAHkHxHlHkd7GkH7b7GFGlIyHlH6G6bjGAbDbkHjGzIjHAGDIkb8HFHTdkd6bDbBdGgmilgUcoHgI2H2H1G3I3I5c3I4b5c5cXd2H3I5cMrqsQRvP5Wcr8hmh5ezfECFhnglgcg8hUfmfxfvc4gjeGg3gAhTIhcgIXd4b4b3I5c4b3I4b5c4b4b2H1G4bJs3QVRdQXVHQBHZi4byhlg4iZhTH2bveDf8eAfEIxbaGFeEfDgxI6CUfYhjCxI5fjexbDi")
AspCoding.EnCode("H97iI9SbyI2bHfxgEgli8iGixbzHDgDg6Cyb8hSeYhkiwd5fahwc6hBg7iBfFHEcyIZiBbHhaGlh8iZijeSdGgwcAgAf3fzgBbXdGg3f2HziAhYfnfFc4HxgFhEgDCSHzHaGlfTh7iI9jI7cvcFeSemfjCxIniahyIZdGexgAC8e6gSHvdzH6hThEfUgkbjHybEfTh5Cwgwd5fjeGgaGXgHfGg3glg4bvdHfWIgI4b1GXd4b4b2H3I4b5c4b2H2HBH6fAfYCje2H3hze4eAg6fTH3Glh8eThkhYf8G1IHfTG")
AspCoding.EnCode("Ag7h3fkfXdmCkh5hECAgFc1IFiDfBgafYfkGAI1IUcHR1qD9B9vOHQGgZi5caClgZeZhFc2byh8eDfDCFbyIyIDg8hEfaHEfH9ZgyexI4gahyIYcTIaCFhFh6gGixbyI8h7i8hybEfSeYhjCaH4gkfGgzH3fUcHhxbAg8i5hkfBbTGzH7eAfXgahGeTGzH6gTIgdCH4bXd3I2H1G4b5c5c5c5cHhyInhvf8gTIEcwclinhHfWIgIXd4b4b1G4b5cXd2HHhlinh3I7ivfZflixgFc2blb6GAbYcUcTG4Cyg6i")
AspCoding.EnCode("3I3fafygYhyCHg4H5f4iahDfYfEi4HTIHhXgXdwf7fZenfGhYcziEgli8i7eUGzHvd6gZiThkIwdXexgzCjeXgXfYCkfvhyb5fagjhaH3hkfxbsCXgGODfkeBIEe0gzfygmgHgSbDd8HSI1IBbTGzCjhYh2HAgAhniGh4Hifzf3fmf3C7ezH7h4eSekgYfkf8elh5eThNhkHkGxImfweYg2b2HEfzC4CFhyhEd1I7cjIAc4H3IwfYfweZgxgliHg2blc8cZd2H3gyiEi4Cng6eGhYcAb2bGeBHvd5hTIGgyI")
AspCoding.EnCode("nhvfFfHfEcyI8emgTIVbgI5c3IXd4b4b3IEcxbYgzhEijhBboHiG4bXd2H3IBHyIDf7fUcVbhb3I5cHhzHFh4eXfzeYfTIVbiG1G2HGg6gSdZHahnCAgAfSGHhwc8iUchchbGgxbZfyg8gUchcVcHhIfAg6ggCzhnhweahXiwdcfyhZiAhAg4iDfTHXi3g8cjblblGBb")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>