en_e_shop.asp

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

<%@ LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%

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

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("Ec1ddh4bOhIfWhfgQificCbiTHshIgqehitiifriPi1GcfVhbCbiRgeCfghgEdUbDc7b2cHfhcWdEc5Hke7hACygjfkf3I4iUe6gafygniaiEgEIbCygkg4bdg7eAfcfjfZfaixi5CYbUchcCHBH5HXGBbhcVcGgXGqfmh7eAfagzg7eYfvcgi8fYgZhYfAhTHuh6eEhZe5HHfWICHHh5HWIhb5bncyGaIzbzbncxHyGDWwqWQzVqr6OprSRxHxHxHaIyGxHaIzbxHxHaIxHxHxHzbxHncncWICH5bqRHusR")
AspCoding.EnCode("DqGR4RdPoPEWirMPXWQszqUORRuq8R2HoHhbXIhCkhZimCkiOeFgEgsrGrFoZRYpBWaCFhliAfSHaGxb8h8h8hybsgUfZgjCxI5fzg4bVbgI3daIyGnczbaInczbzbncmdzbzbdRIuKqBoqRZqDpIqRRnRB9TWzbaIncncxHzbxHxHxHaIaIncoHCHmgxhkgXdAgmh6e8gng7fMi6i7cmcECmhAhDhYfAh0g6i8cgdVc6fmhlgEe4iEi1f6i7cBGcflhACEivIuCng7glCmhFiFhvcRf4iFC6iYf6eshYClg")
AspCoding.EnCode("vf3f3gviZeAgnH1IViPitgRgLCPghgfhhgReefqf4HmHychcWdlh4iEiFfYf7f2eDh8cFcbg7eDfAhmGqfng7gDeYfFiliaHQgmh7fDhYfAhte5h6evf3f3gafmh6fvI2bPhbiRergghQhMiOfbe9hgh4HwIycgdVcXIifnf2HAgZe7f8gmh7f1f8gjHBHHf2b4H5cPixgYfahWICHXIibygYg1G1GjhaiYewbECmhFC8gmhlg1fFflbzIBdabvi3CximGAgngEi6iZelg1fDhDdvbycBHHf7emhAhDhmhAh")
AspCoding.EnCode("0gFfjIXd3IDfxgmhahWIWdXIhGpcQhngFi7hzhxiECmhybPgYfnhwelgmh5fFh3IAg4iAhDhngEiMiFfkboHCHYHCIngxiZf2HygZhWIWdXIghjemg3Ivf5i5chcVcgdhb5bzbxHzbaIncncmdncSpaWrRwPU9HrUp0rncyGxHzbmdncaImdaIaImdzbnczbncxHncmdhcCHeexhvC3IOf1fRgyi7eEgyHVgMidingEgndVg0gohzgxGOf1fifkf5imcpCNhNiziyHOf1fYe4hmcoi0gYeXflh8e7fzIXgze")
AspCoding.EnCode("YfEili1fygahnfzhyH5hzemh6eDf1fFg7fkhyHVgNhFhH9lengabPh4i5f2efhzh7fkgFinduing5f1fhfag6ezf0gzhAfYfzgyHRfYf3h1fciyilgzfabzgjf0gIhxgngXeyeVbVceexhvC4beC6g7hjgvf5f5hEgzCzhxiqCZizeFgngxcAcnGWICHchDC7hvivf5f4eFhxhzhahshXgafFg3CvIkHwIGh2bXISCFIGoZiahmgUiwbbWycSCmhBhng5fbWwezglhYfAhEgIVFimhkhngniliHpnhYfafYf")
AspCoding.EnCode("EgngUi8fAfmg5hEg3CIV3hkeFgzgDfUizcUi2cSC3hyhAhHpjhyg3iUivCZi6fFhng6eUili7fAixiXe3fFh3CUi4gaCXglgSCnh4i3hvi3fEi3CYc2HZGGqGMeR9QLQJRD9btWICHdg8i8ijgygmCXgEgxhagjeuf3faf8f4ixc6dvbFcYcwfDfDfleFbwcwcDgFeEfybueUfZgwgzG5fxiYcgHCIibgHibgHibhGibhGgHgHCIgH5b8pURSW6qcrFPRRbKJql9EpbPUWpqEp1Rtr8OhcgIIfAfAfjgwe5f")
AspCoding.EnCode("XgFhvfjfzguf3fafEhYfxc8cwITH2bqRHusRDqGR4RdPoPbqa9TowqvOBWgsaR7WBVuQapMqNRSOQqRrGMtrrP8VeJcrx9SoCRUpaWtsKqD9Iu8pYoWqMqJqXWOqaRYpZVKCzg0fzg2b4bXIHskVTomrqqnRRrbquqfr9sXWVbgIIf7hlejgxh5f5hEgygyiahshXgviAiYfwblHmHTH8ICIpcgHgHCIibCIodCIibhGCICIgHpcpcpcpcodibibibgHibCIpcpc3d69wphq7RSoB9RrIQGi7c1GMQ8WTOMr")
AspCoding.EnCode("HR4sDVMRVsbKLr6W5cAH5cHsa9BpxPBWTsHR0Q6pMR5cAG3IQQIJurl9SVdRusGREVaWrRDogQyQ2H7H5cGrzOHqmrcrEQQQHuMPyWhcVcdgleAfkhwe5fXgEgwejfxiRi3fjgEhYfwb7HvbBG2bmejf7fkgjHbWnfagAhjh8c3GCIibibpcgHhGibibgHCIpcodpcCIgHgHgHCIhGgHCI5b7pDp9Rzp6plQUWmphcVcdgAf7hjgvf4g5hEgygkejeshZizeEh3CwbjdwIGhlIgHgHibCIodibpcodpchGCI")
AspCoding.EnCode("CIpcpchGCIgHibodibpcgHgHhGibibib5bWqCRUpFRhsTRtQfRDW7W9RlODVAP79vWXVcrAb4bU9csCqBqsRgQ4bkG3ICqSQrqfRWIVcch7h6gviai5f5hDfvfjfzgrgZiaf8fngwb6IxdHg2b4emgkgvfxiwcYcpcodibibibgHibCIpcpcodpcgHibCIhGpcpcgHpcpchGgHib3dU9BVBO6R6VlsUWerfqD9dQ89ndLrGQ6oYqWslRsQFpTVBrPPzVhQFVGr89WIgIgdgIVgNhpgje2HTH2HIf8i8iwCxh")
AspCoding.EnCode("niZiDfvfjfjeshZiviFgZenHAbnGoHgIXgzeYfEili1fFgAhaf4bTH4bbe7hleafvf4g3fFhvfagahshZizeFgmhwb7cmHpGhb5hafngEiACMiygkfnfjf3IBG2Hdg7hAfafyg5f3fDfxhjfxiRiXgafEhngnHjIvbWIgI9e2eFhH9lemhXdGhXddg7h6gafvf3hXgACxhyiyCRi4ejgFg4ixcAGwIoHhbtCmhni1fhfkeAhjhlh4bGh3IIf6gDCjgvf4g5hFhygxCzgteZikhFg4iwbDbycgdhbPhng5fNh")
AspCoding.EnCode("geagAhzfNhag6g4iah4bHg5cfiAf7hafvf5fXgEgaijfkfrg5hjglCngwb7GwIWICHxiyiMihiaCmh3hvh2HGh3Ifi8iDCvivf3hXg8eaiyikfRiZize8fmhydlcwIgdgIQg3C3hMifhyi7fwiXdFc2H7e7hwCygDfnHQg4iXe0ghfagEiwiAgzIZdIV1IvbWIiGOf1fifkf5i5cEd4bFi8iafvfDfmGWhMiWizgxG4HbW3GmHWIgIpGCHai5i2Hygah6fFh7fwbze3h4e6fYfvI6fmh7f8gmhAhMiEeAIvb")
AspCoding.EnCode("abvi5f4elhmhnHzgyiLChixgYf5fxfwInGTHlI4bDfwfngkfoHCHVbCHpc4cpgnf4bPgYf7gEhngAg8ezGfhyi6ejhFdBbZd1I4btgwfYfah3ItCFhyiDCWijevgngniliweagkfwbuCmhDi8fYf7eFhybfhzhAhkgmHWIWdWICHCI5bohYgXdPgZeDiEhngFiFhybsilCmhAhBgRfFh6eygahmfHhTI1IYc4buhxg4ixi2HPhDfjfAfpgzgjiYf5fEgxhagyCvIQhZe7gFgYfFilivcsilCmhAhThRfFhlg")
AspCoding.EnCode("aixi5CycoHhbWIiGpc4cif5i5cReYf6hlC4iAgACxIbgxCzhkixh4i6fEcSdYc4H1GuhaCngkf2HQglike6gifzgji4i4gEgzCagzgwbPgZelf8fYf6flivcgCzhyikivfYf6fnGVbVc4izgYe2HxhmeoHgIWIiGhfAixi5fEgxhjfah2HWh2echzeYf7fEgnH5hafngAhFhMiwezgZhzhycoHiGibhhvfkg5cEClilgoHCHgHAg8e7f3IGh2H4HGg4HZH4HPh5fEiai6gDf4b9g3fzgYhFgXgneZeGh9i4e")
AspCoding.EnCode("DhYCPhmClgxh6gDf4HXb1ISd2bhcWdpcqengjg4ini8e3Icf5hECmh5cOf1f8eTh7hmhVbhbCIgHbgYCAgYf3IlbVbgIodCIhGFiFhlg5cGh4bFiACAh4b5I2H2bFeygahZfzhDgxIyi7hmhzg4iEiTHah8fafafFI3I7ivfkfmgzhDgwd4gkhkeAgngnHycHiYchcWdibibIh3flhng5c8cgdVcgHibCI7eliEi2HFc5c7eDfAhXd3c3IZdXgjg3CAhliwb4c4H3cYCviYf6eFhLCygkfnfag3c3GogDfEg")
AspCoding.EnCode("8iGiyIyIRCDgDgybsgSemfxfaH5fxiJiyC2hxigiUfSHdfze5hnikiWgDeDf5bnGUHDgygjeZfyi7iaHag7hYfahYfAhBGahDeafafFI2H8hvfzgnhzh7izG4gkhzhFiYfmGvbEb4HWIVcodpcbg3f6fYf3IAGoHgIibgHgHAgDf7f2HGh2HFililg2HXb3I4Hjgzh4gXg8ewezhxizGyhFCmhXCHg5b1IZH3fkhngFCFhMilCEize5I1I4cHi3GWICHibodIhZi6fYf1GDbVbhbibibCI6fEgFC3ITH3Ilh")
AspCoding.EnCode("FhlgXd5I1GYc5hjg4iAhFhxc3d2bXbXgafmh6eEgNhvfahYgag3c2b5bwIHivijf3h3fDfvfagzgvcwf7fngZhHg3d1IXb4ejgng7fliMiAiEiwCXb2b5bUH2bWIVcpc3CxiZf4bQgZevi4i5flihciGgHlhACEi3IEd3IAgACAh5cXb5c4HEcZd3c4HaGPhmClgvfAfEgYcYG1IHf1IhcVcCIlg3CAg6gzhzg7eYfaHEf7faili3C4b5cFiDf7foHiGghxi3i3Ige8fahXeDfygagje2HhcVcoHgIfh8fah")
AspCoding.EnCode("5fFhwezhje2H3fjgDfwb6fEgAhvbhciGCIibAh4i6flezhah6fngvc6CEiygDfYf2H1ITG4H5I2bRf5flgvfAfDf4bWfZixiZg8f5hZgYfHgChXg8g4eqe3hEiwe7hAC2b4d1IBbXgafYfAhEgyd5bYcXd3c1GAgEgEi5cYG3I4H5bxdEbEc4HZH3GxbPh3hAhxh6gDf1I4d1IHf1IVbhbhgyCmg1GciEhzgniFhxhyiyC4bVbgIoHhbgeFgah5fFhygagxi4bPhEgyi8iifahyfYf5fEgygyikfnH8g5hjg")
AspCoding.EnCode("lCnglhnGWIgIgHciyiEi5cIC5h3hyh2HWh0gdi4iAC5cifah3IEeZivi8f4iFipGCHibodWiYgXd8gXgwCEh4ilh5cTH5cuC4ilfDemhECEgaHhfagEiae3Isfxg4ixiWIgIodCICIohYg1GRfYf5f1fciyiFCjhMiyiAfYfkf1GGh5c7c3Irewfmhje2HWIgIhGgHpcpcRfng3h8fAhvfFhSeNhge7fjfkgnHDh3fjgEhmhFinGWIhbibpcgHfekhlhYfWIVcodpcCIgHRfYfjgZe5fEgNhdf3fmgcfwf3f")
AspCoding.EnCode("AhnH6iZijg8fmhAgmHWIhbCICIhGfeah3i1GohXC4bgdgIibCIefaflhnggdhbpcodpcqengjg4ini8e0gdf5h4CIhzi3f7fmGDh5hkhEhmhAgmHWIWdCIgHhgahnh3IVCYgpGVcibVg4iBhFhhcWdghahmg2HfhDezg3hDfxhagzg5cVbhbWIVcci8fah5fDfvfagzg5cRfYfjgmh4gAC0gbh4emgbgwfZiEixc6iYCkhEhmh6fvbWIVcpcdCyi7f4bVg2eNiziTH6c5crejf4bPCmiaglCzgmgydWhMioh")
AspCoding.EnCode("xinfycgdVcgHhGohXC3IifkfAgli6evIWfbgZiFingvI7CXgjgEhng7enHOf1fgf4ilixdvbmcoi1fifkfmewboiMiLgvemHvbTGHflI3Irewf4ixioHgIibgHibOfNhbekhZe7fDfvI3fkhYflgFhNhaijeYgzhvbhcCHhGibibqfngFiDCyizg6fYfaHhgjeZfWIhbgHgHhgkfZf2HohnfhcVcCIOfmhTgDfWIhbhgzgYe1GfhAije3hACxhxCzgVbgIoHCHfhFgyC3hlizCyije3IQg4iniDelgvfFhGO")
AspCoding.EnCode("Nhci7fjfaewbDh5hkhEhng6fwIgdgIgHegzhAh3IpC0gweFcAb3IPizh4bQihCzhEhzgZfwbqeng3h1ffhaglgwivbVbgIpcpc7fmh6fAfjfzgAg4iaHEflgxhEg3C3IWh2efgngDfhcVcpcpcVCZh4bohkflhEgEixcCChi3flhngmGoiMigf4ilinGyHPh3Cni0gdCaglgvCwboiNhaimHycEd5ckH1GuhaCngkf2HQg4izeng5fEgMigiXgmggCxgXgAhvIEe3faf8fYfFiycgdhbpcoiYfSfDfpGhbbi")
AspCoding.EnCode("ximg1GhfEhje5fEgygkekf5chcCHZIBboHhboHhbTGYbpGCHZfygzf4b5fagahahhciGmgxhjh5c5fkeahah6fEgEigdVcmgvfzf2Hmg5eoHgInhXfTH1IaHaHzHhh3fliZi3g3flhngzH2IZbYIZI5GZeFhlc6GDb5CAh3CDgFhlgYfDfAhng6C8hjcAdjc6GAI6IDcjcSeZgxf3hyC6hH9EfBfnemhYhmh8hYhkIaHkg4C3g4H3I5bWqfJHsXRdPxrQqoRT9dKQqdruseqVbgIjfah1GngAh7fzhlg3IEi")
AspCoding.EnCode("mhlhFgwi4i2HahYfSfDfWIgInijfkfzglhEgFCHg2beeIgqgTHYcacFi4iFCDhmhAhaHjhXg8i8iYCliwfwb1I3G3c3iXf3cYc3GmHmbZdHigg3CYgXglCkhlihhai7fFcGCIiqfCeshICPgTHTfOgaiXelgjfAgyi5iEg3IeC4g4gmhAg7e2Hff7fvf6i4iFC4bxczcaHzfZf5evbSiHi1IpGCHlhZeDf3I4gkekfxiFc6fngAhFfmh7fybXeAhZe3fDfngjf4hyfng3hFhxc3GdghhVhIidfzGIhVhOfVg")
AspCoding.EnCode("bigCPipg9fOf4HwIpGCHygZh2HYflg7f2HDfyhYfxihcgIYfAhlgaH4gkhngXg6epGhb4izelh3CVbWd4gzhzgkfaHzh6g3Cah5cmCyijezgAgliEipGgIYfah4C4bainfoHiGAhmhlh7hzhzg6fngwd4gjfagvhxhngECvI3GgilhQgkixhahFiZdvbGh1IAHAbkG1IVbCHlhFg3g5cIhkhagFi4icfzhkfkfnHwIWIVcgH5fagahzgwd4gkhkeAgngoHVcpcFi4iAC4b3hzhkfahHgxiyiACzivfahZgpG")
AspCoding.EnCode("Vc4ikf3i5c7e8f4hgdVcZISdWIgIgdhbEcYbhcCHhixCxi6f8e4bpCngEf6fOgZiUeRgYflgriZiZgngLCggngZhXgDeafDfTHAH6c5cXd4b5c5c2H2H2HZGuqor9rpRhPcQsqDo6pzRRRmPOQHLhcCHbgzhkflhDf4bWe5hUeQfYflgQf5hmfngNhhh4imeXgEhkhliTHkGjb4b2H3I5cXd5c3I2HYHDpGJoPUpfRIquQ8pQRKQOQdQWqcuhcVcbgjfahAgDf3I9hXgTgPeZeAhri4eYh3CNhtCng5hlg5f")
AspCoding.EnCode("wfGhAI7d4b5cXd5c1G3I3I5c4c8oGJpQEWRstqqrTQuQDoeqIqsq6WPqLROQIRqsfJoHgIIhzhzgECEg1GCi5hTggixhYhhiwC5hlhAgOfEhaeRgmh7fOhygzg4iGhlblI5c5c2H4b2H2H2H3IXIprcQsQtRPqLRqsIR7WItiRFVFpBrirvrRrGMVbhbIhjfahAgli5ciCZiSfPhkg4evivicfviZi7e6fWhlCwiRg3Clg9gzCah4iGh7ckH5cXd5c2H1G4bXd3IYHgQbRJrrPQRKQVRGrU9GJiR8OtRZVhq")
AspCoding.EnCode("mR9PcuoHCHcfyixiECFh5cCi3fSfQfZeAhriZiZgZe1fhhkeEfzgEgBGjH6c5c2H3I4b2H4b2H4bZGPqgPKQ0QJRsQuqCQfRIqsqS9qPLRWqbqRrcupGhbIhjfzgFiAC5cQgwfjfEfQgae3fjgkhcfafXg6f6fsfThAf4iMiggYfZhXg8fjgFhHg1IWeZeahAi3G4bXd4bXd3I4b3I2HYHWqKRMs6W79fsuruPgRGRerHrqPLROQbqJsIKRrIQoHiGIhzhahlhFh3IRfxgxCDgRfkg5hkhjggCjg4eFilhtg")
AspCoding.EnCode("H97hmhMitCmh5hlg5fyhBG1Iuh7fmhng1I5c4b4b3I5c5c2H4bYHqQCQMReRqrrQ9QSRsq7V6OoRJquPgRGRCQHrOrrrRrHstqIKWqIQVbgIhiyiyCFiDf4bQgveyi7iRfwiZizeafIhwCZiAgECtgBgDCmhMichEiDfaimCviYfBG2bQCagAf4H3I5c1G3I2H3I5c5cXIPRfsMReRpqNRVP3QuQ8pEperurLshqIrercQRQKQ9PbqKrdLVRbPoHhbdejfzgAg8e2HuizijfDgPhzf5hafkhdekh4e6f6ftg")
AspCoding.EnCode("Uf7hYf0gVhFhziZelgGh2bCiYfjeEh2b2H3I5cXd5c3I2H2HYHiRvP9QHJsq8pgQvREpCQLQrqfQIrerbRRQMqVRdQuRIKVRdRpGiGIhyijelhAC4btCxgzhDgcfjfahEg3CahlihCH9PeXgZg4iFc3GMgYflhZd4b5c2H2H1G4b4b4b5b7WGJpQFVfsNRWQXRWqiqFVUsFVLPLr6WQRrrWqbqhcWdIhzhzg6fFh1GOg5hSfqhnglgri5hYhngMihijfahDfYfkfEgHg8ckHkHlIAblIXd3I4b1G3I3I2H5c")
AspCoding.EnCode("4cprHrMs6WPqMqOQbqUVBrrrBOurMQEWHJ9PHLhcCHhiyije6fFhXduixgxCDgPglCahPixhwiYfFcZd0iYf7e2bXd3I2H2H3I5c1G3IYHVRhrD9FRQRssVRIRsq7VhPyQMQFpsQJrRrEOdqYrhcCHcfjfjelhli5chgje3f4hzeYfdglg8evfniviYfbgyhYf3hxfGh3GLhZe6f4H3I2H4b2H3I4b4b5cZGVRiqEWSrpQUPrqeqDpGJgr8OQrDRHQ9QTpmViP4QWIhbcfjfzg6fDf2HghkfZimijgYfOhyg")
AspCoding.EnCode("kfwgQhngZgBG3GLh4i7e2bXd4bXd3I4b3I2H2H5bVRgsEWSrGsl9SopRsRKrhraPhRFpcqLs9q6roQjQpGhbIhzhahlhEg2HRgxC6gIfzgahzhFgyC4gZeFc2bMg4ilh2b5cXd4b4b3I2H4b1GXIWqoQEWFRSVa96WSqHRA9IryQSW7pcQ2QWIgIhijfkfAgFh3IWCygFh7eWgYgCfyiliFckc7dAb4b4b2H4b3I5c5cXd4cWQOqfRCP9rerJQor79nPGQUqqsHLWIWdbgagyClhli4bCi3faiwCpiXfxemh")
AspCoding.EnCode("mCEgTH4Higwi4eygaf1I5c5c3I3IXd3I3I4bXIuPOQbQfuUpv9qrVsJqArT9fuoHCHpGhbhiyizg7eDf4bfekfXg3gzeYfQi8iafag5hZfqh7fzhYeEhXeDfQfyg5fGh4HMgmhlhYc1G3I4b4b5c2H1G4b5bOQCRD9UsHrxVUpiQDpGJoPUpqRdqpQkpORRQFpzpVbCHhiyizg6fFh3Iffngkhug6gzeke5h3iPeAhxCnhlC4gFhRgvf5fGh1IpCzhYcXd5c1G3I3I5c5c1GXIuQyWtsMq89lpVQcP6WeKQq")
AspCoding.EnCode("4qrqfREpoRSOGJpQFVRqdqiRyOORqP69xWPRerdqdKhr6s9qkqPRap2bKenglh4HVbgIbgyiahlhEg5cui3fDhYfrfAfRglgyiZf8f4gFhRgzC4gqh4eEgxgTHYcQi8ivixC5hnhqh7fzhmgAiniACrivf3h1I1G5c5c2H5c5c1G2H5b7OmrFVesORQR7OxWU9HKgrUpWrBOgrkpFopqfsbRhQbQWIVcdeagkfAgli5cug6gsClgagnhFgXeDfQfvf5fPiH9DCmhFcYcAfkfmfGoYhai5iIVxeAfYhGoXfkg")