e_shop.asp

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

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

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

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("Fd1ddh5c9gdgoiherffigfbiTHshcePhhiQhCerisf5cde9feehgqheChefeTHBcjbDH5HUcgdgIHhZIxC8iliaiyiah5c4iSf8ikhweniailiSHIiygzfXdfi6fDChikeZfaixiYhYbHfWIhbBHZIXGBbhcCHFd2ctiZe7e6gjfzgAgngybhClCYgYgmh6eGhsfAh8fYfYbUcVbCHBH5HoHCH3dncmdzbyGncyGxHxH6ovRVPaWWREphPSRxHyGaIzbxHxHmdzbxHzbncxHncxHncmdaIxHoHiGXIqRcLtQ")
AspCoding.EnCode("DqIr2rGsoPUphqurwOVP6s6WVrsQDqXdhchbYHIgjgXg3hxf9f8fliKPcPSVZRXVTVziDfAC7hEIyIwcEfDg8hvctfThmfyeybmCyC3IoHgIYHxHncxHaIaInczbyGzbmdncncTOHJKqBoWrys6VbRVrvscqcsyGxHmdzbncncncncxHaIzbxHWIgInhaiwi4b6fng7f7CmhAh2eDh7cndECmhEi8gngEi2eFf8coHVc6fmh6eDh4iAh2e6ijHFcde6f8elgwbuCZeAe8f4ilhDfaHui3ClgDhngFCRiZiEi")
AspCoding.EnCode("ai5hmiviYfFiwb3GViPiPiQfMiPgefdCbiqfICti3GmHychchblhYflgDhYflg2eDh8cTHgCFili6emGPgYf7gFgnglhACwdQgngAhEemh7fsh3f7fxhZi4hafYf6fnH4HtCbiuCshfeti2eOfIfWehg3GvbwIoHiGXIifme3IlhYf7f7Cmh7fNh6ijHEcHfYcZd3IsfwfZezgWIVcYHibai5iXd1Gzfxh3iyd7e3CAh6iYfAhLC6ilbyHUIzIjgmhkfnH6f4i6eEenglg0g8g8cmHxdHhTIAg4i7f8gmhEi")
AspCoding.EnCode("1fDhAH1G4bACaCngkfWICHYHpcgHPgngFi7hkeahEC4ivcuCngnhweEi3C4gEg5cECmhFCEeYfFCNh6i8chcVcYHCImhkfmg3Ixh5ihchbYHhgkf4C4bxhme4bhcWdgdhb4caIaIncyGxHncxHncSpaWtPxqU9IqSo0rxHncyGxHyGaIzbmdyGyGxHnczbxHxHncmdaIVbgIbCaiwi5coiNhriyi6fliab9eMidi4iDfmcVg1fVCxiyHpCMiCekf5imcWhNhKfxgabOf0gYe4hmcOfLC3imi7e8elgyHXgjg")
AspCoding.EnCode("ngAhACLCygzgZhkeab3fkhYf7fFhMiEh7fafyHOf1fACH9DCmhxGuiZe5f1fgeag6ejhAgyHqeng5f2eegzh7fzfLCzhAfmhxiyHuiYfniLCegjf7faezIzgyi1fIhzi4imCyeoHhbIizCaeXdch8iAfkhzCni5hDfygagzgsh3faf8f4imGDGwIWIgIdg8iAfwCxh4gXglivfagahRi3fkh8fZewb7dxdHg4HXIHpUHUi3fzgmgUiwbGovbSC4iG93C4gbWwexiECnglgliSClh3CzeYfmCFhUi3i4iviYf")
AspCoding.EnCode("EgmhHpFg6gnhZilimhHp4gjflCahFhGonbUi1dSC3hzilgIVwiweZfUizfZi6fFhZeAhUiFh6eAikfni4eDfZeIV3haC4e6eHp3imh5fafZiFCng2b3I3dbrHLorqrJqtrD9Iuhchbbe8i8ivivfniXgDfzCyikfqCZize8f4ixclbvbTH1IyhDfEgleFbwczH6C7i7izGueBgmfwgxI4gahZdodCICIibhGibgHibgHgHibpcibgHYH8pBQFpzscrTsqqGturzoEpIQFooRFo2qJRUppGgIIfle6gkhvf5f")
AspCoding.EnCode("YCFhvfzhxiufZiafAi3CvIAHmHBG1IqRcLtQDqIr2rGsoPdQjWIrnsZodsiq7rDpTWMsl9Mq2Q6VPRVReKMQsQ7pGLGPjoFVCRFVzVurMQ8OGK7V5VRrKQKRXWPrjQ5W5pNeahKCyC1I2HXIdQlpIryQRRnRRrbqrPoq9sv9hcWddg7hlevizC4gXglizCzhyCte3fwCEh4ixcDcycTH8IibgHCICIibpcpcibgHCIgHodibibhGibpcododibpcCICIpchGgHpcYH69wphqAPEWB9WqbPGijH5cLP6pbPsR")
AspCoding.EnCode("Gq4s7oKPPQcLsq8p2H8cXdIRjWGRnscrBrbr3r8Wsr5clH5cqqGturl979IQtrGRSpkOLr8posmr1G7H5cGrjWHqyQTV8qQQIJMPyWhcCHeC8i8izewe4g3fEgygagahqCYCjgFgmhmGDbmHGh4HnfzhEijhjHHpnfjf7fvC8cZdibhGpchGgHgHhGCIhGibCIgHhGCIgHhGCIibgHgHod5b7p7WPrzpF9lQ795OWICHIfle6gjgai5f5hliaixCjeuf5hvilCZeyd8bycTHAbodpcibgHCICICIibgHgHgH")
AspCoding.EnCode("pchGhGCICICICIpcgHodibCICIpcgHCI5bRroQEW8QoPBqLsos8VDp9Rzp6parEpwVXVcrAb1G7Wcsgr8rLsfR4bkG5chsTRsRprgdhbeCleAfwCxhniZiliaijfzgsh3fjgFgmhxclcvbTH1I3f4CjhxhjexbYcododibpcCICIpchGgHpcgHpcgHibhGibpcibhGpcgHpchGgHZG6VTWBOlP8ozQ79pqhQUpGrDOzIsqBVFOyrVrjrJrSWcrBrQQj9fqSoGr89hcCHhcgIOfLCWikfXdFc1GIf8i8ikhxh")
AspCoding.EnCode("5fXgFhvfagjeshZiaflC4ixcjGnGWICHXgjgngAhACLCFglgkh1GGh2HchAfAfkhai3h3fDfvfjfkfqCZiwCEhZexckGmHoHiGXgzemhlgDf2eygkfmeag4bTH2HeC7hAfkhai5fZiDfaixCzguf3fzeFgngxcAHvbhcVcpC2eDfTh8i3C1GEd4bfiAf7hwCai3h3fEgygagahuf3fafAiZemGkIwIWIgIuiYfmCNhegagEizfAg4bFc2HchAflekhzCmCXgDfygjfkfRi3fjgFg4iwb6GvbgdVcui3C4gNh")
AspCoding.EnCode("geyiFCkg0gyiDCmhyC1GTHXdch8i8iviai5fXgFhvfagzgshZiviEhYfvI6HxdVbhbjezhMigCaCmhniwg3IFc1GIf8iAfvivf3h4eFhaizhjeRi3fviDeYfmG6IvbgdiGqeYfniNhhfjfEivC3IGh3IEC8iviailiwbui4i5fMifhkeEiwiFiyHYcIV4HxdhcCHpCMiCekf5i5cGh4b6f6gkhvfEgmGWhMiifyCmcYcGo3GwIoHgIWIgIxhXCXdygzglh8eAhnHkh5f3flh4iwb6fYf7fFfYfFCMi7ClbnG")
AspCoding.EnCode("mcze5f3f7engmGahag1fdexgYfXewgvbmHTH7d4bDfyh4ikfhcCHhcWdCIYHifme3IPg4ilfEh4iFiACzGhfzhEivCTGSd2bYc2HuhaC4iah2HQgEgag7hifkfyf4iXe8eygagzgvItiYf8CEhngAgliaHegzhEizfvboHiGVbWdodXIifYg2Hqf4ilfFgngFiFhzGRhlC4iEiGOQgFh6eaiyCZgGgUcZd2bXdrewf3Cah5cuiliyiAfpgahyfng4gFhaiyiahnHPgYf8CEhmh7eFhvcrClCmhEiBgQgli6e")
AspCoding.EnCode("vfximfycoHhbpGhbpc5bCe5i2HtiZelfDenglhACzGdejfyivhvfYfFiFdTI2b1IXdPizi4ixi4builijf8iohjeji4iniDfaiagkfydtiYf8CAiZe6flivcIhzhjfwgxhYfAgnGVbVcYfyC3i5cwemeWICHWIgIegEhyCmCEgygzhje4bOfNhIfafmhEiFhnH3fafYf7fACMizCahmeyinGoHCHhGggwejh3I6f8elgoHiGCIlhDf7fXdGh2H2bEc4H3c4HuimClgvfAf8e3I9gZikfYhAiZi5CZeTHChZi")
AspCoding.EnCode("7C4etC3hEivf7hACYcXb4HTI1IWIhbgHRfYfviZeXeEg3IbgXgFiYfXdWh0gEgH9AfngVbVcgHibcf4elh3CXdAIoHgIgHgHpc6fEglg5cGh1GlhACEi5c4d3I2bFeaiyCmgag7iwdzhDCZekf3CAhFcxiAiviafFI4bEfygzgnhyi7iyb5fjgjfECmhwbnGEbYcgdWdibpcbgXgFiZe2H8coHVcgHibhGlhliAh1GFc2HFi8e7f1G5I4bZd4ezeYfEiFhnHYHYc4dXgkhngFCliMiaixiZhyi3c4HViFh8e")
AspCoding.EnCode("8iGiwczHqiDgEfwdqiUf5CkizG5fxiJiah2hkfIgThSHIgze5hnixfoCAiliZGnGFIEfygzgmgzh6Cwdag6gmhjemh7fGhkf8fkhviEb2HEfvfkfZfxC7iwd3hzeyi7eYfnHnGFI3GVbgIgHhGbg3f7eng4blHoHWdibgHibFiDfEi2HFcXdAgDf7f1G5I3IYcafzhniZiACwejfahvcaC6e3CZhFcYH2b4dZikhYflgEg0gEh7fafZHYcZGSG1IWIgICIpccfYClhng3IjcoHgIibpcgHlhDf6e4bEdXdAg")
AspCoding.EnCode("Dflg2HZH5c4HXgjg4iAh8ewb3dYc3cYCjgmh6eliLCygzg5ixCXbZdZGmHGCkhyiniZilivfagahaHxglgmh5iFc5b4H5I3fwCmhAh8eNhAiFCwCXbYcXIFIYcpGCHpcYfxiZf4bqemhvimhXelioHVchG6f8elg4bEd1G7eDfEi4bZH2HYcFd1IXb1IvduiniEiai7hliYcZHYcBb3GhcVcpc7f4iAgAfxCxi6f3CvcFe7failimh4b2HAgFh7fWIiGghxiZfXdciAijeXeEgvfagzg3IVbWdgdgIegEhje")
AspCoding.EnCode("3hDfxhjfkf4bZikhDfnH6fDf7fxdhcWdibhGEiZe6fAfkezg7emhxIEf6eygDfZe3I2bBH4H4d2bRf3hEivf8iDf5cCCXgkfmfDeXgZg4iTHChZi6iYCqe5fAhaiDC8eZdXbYcHf5hwC4iAhDfvIXI1I4bZH2H6fli6e1G5I3I1IXIycUHFd2b5I1IwcRf4gAhaiAfFh4HYG2bSdZdWICHhgkfZf5chfFgzgniFhwezhyC5chcWdWIhbgeAiyC4gEgaixCahXdqeDfxC7hWixiji4i5fEgxhjfzgvIDhZivi")
AspCoding.EnCode("EhYfAgmHgdhbibgezhEiXdIC5hnixg3Ioi2egf4iDf5cifah1GDhZikhDe4i6fhciGgHhGpgZhXdEe4eafAimh6f2HFcXdPgmh7glC4iFilivcfhyiEizf5cuhve4ixihcCHpcCIgHVC5i2HtC4iXe1fciyiAhjh1fag7hYfzg1GGh5cjHXdPiziZeje3IoHgICICIibodtCng4gEh6exhDfTh1fhfAhyijhnHFf3faf8f3CFixdVbiGpchGgHefzeAgZeVbgIgHhGCIgHqengkhYf5fACNhdf5h3icfzi3f")
AspCoding.EnCode("Eiyd8g3fafDengAgycoHhbpcpcodfekfnh5cVCmeXdVbVcgHibICvilhYfWIgICIibgHRfYfviZeXeEg0gIgXg3icfaC5hlgvI6i3fjgEh4i6fvboHiGibodICzgZf3IifnfhcCHCIVg4iBh8eVbWdbixi4C3IfhDeximCEgygyiyC4bgdiGoHWdfhAixinilivfagah2HQgngkh4iniFh1fIg3f4CIhyh4eAhxc7CYCkhAingAgycpGCHpchfyi7f4b9eNhNiyhBG6c2HPike2Hse3gzhlCjeYenHoiNhif")
AspCoding.EnCode("kf5ixdWIhbCIodWi5i5cWiahFili7fxcOhdeZiFi4inH6iXgaflC4i6fydoi2egf4ilivbvbyHVgNhifzgmewboi1f0CziycnGTGTIkH3ItgxgmhyCgdgICIibhGWh1fchafYfAhliwb3fafYf7fDfLCaiyCZhkeycpGCHgHhGCIRemhAgAfkezg6fZexIghkfZfgdhbgHibbikf3i2HWiXCWICHgH9engTglioHhbbixi4C1GhfEhximC8ezCzhxioHhbgdVcfh8fzg4gEgxhjfkf2HuiZeXeFglgygEgH9")
AspCoding.EnCode("1fdCAhagkgxcFfXgkhAiYflhmHpGhboddCag7f3IOf1faiTHlI3IPizh1GthhCyiAiyCmgwbqe4imC0gegyiFCjhxdpGCHodibEi4iFi8ijfzglhYfxIDgAhailimh2HVg1fcCmhFhpGhbpcodVCZh5cpgzgFi8e7fxcWfhi3flhZewboiNhhe4iDfycxGRfZe4gNhdCke6ezfxcWh1fvfycxdHg4blIXdPizi4ixi4bui4iaf4i3h8eMigiZiZfhixg3fFCxcFfYCviDeYfFiycVbhbgHVgmhSfEgpGhbbi")
AspCoding.EnCode("kf4C5cciDeje4gDfygagzg4bgdWdZITIVbiGVbCHHh5HoHhb3ixhzf2H5fjfkfyChcWdnhwewi1G5fjfjezg7eFhlgoHiGmgvfae3InhXfoHWdnhXfGhYcaHvczHIiYCEg3fXf4eAgngwc3HZb1c2c2dZeDf7bjckdneFCmh7iDfAh3CliAhYfDgDg8I7b7H7HjHlcAG6GBgZgwg4gxilfGO8hUgZg4imfng8hXilHybzfYe4hZdXdXIOQfJdQ3QHrnQPRoRT9dKRPTWusprhcWdagah1G4iFClgagEiXdAh")
AspCoding.EnCode("3C7e8fvCmh5cxi4iG9DfWIhb5fagzgahFiliAhTH1IffhCRhGh3GmbFi3CFCDh4ilgxIwi4eAf8i3fliwfwb3G2b3cnh5e3c4HYcnGvH3GFIhh3Cme4e8fviFhffvfEiEdFIhhPgVCRibitiFcUhCiai5fEizh7eyi5ili2Hfi4g5f3CFi6fXdIi6evf6i4iAh4bnHmIybzfmg5evbSiUHZdhcVc7eZeEg2H4gagzgahEdECnglgDhZeAhaH3h7fYf5hlimhjfXfyfYf5fACxcZdcheepieedfaHdeWg9eWh")
AspCoding.EnCode("hgcfrepg9f9e1IvboHCHzCZh2HmhEi7f5cDfzi3CzgoHCHZelglgvc5fkh4iZiFCpGCHmhviECZegdhbnijfahyCvczhAfngzg3I3hjfkfkfFi8e6eWIgIngzg3i2HzCZhWIgIEiYfAg7hyikflhYfzG3hxCxCwgvfng6fnHYcdfAgQgkixhjelhZdycFcZdjIAbkGYcgdgIAgAinC4bgCzejfECmhhiyixixinHwIVbCHCI4gzhxixiyb5fjgjfECmhVbiGibFi3CAC4bniagzgxiBGkfyiDfzivfahneVb")
AspCoding.EnCode("Vcmhje3i2HFiDeXfpGgIYbSdpGiGoHVcHh5HoHVcgCagahAgAC5coi4i7ilhCiZiSfrimh6eriZiXiYfMiggYfXCZi8fwCliBGAH6c5c4b4b2H3I4b2H3IZGuqorqQesprHrtPDoDVkQRRYRVReKgdWdbgagah7eFh2H9h3fSfqh4iAhQf3fmfYf1fbC4iXC5hDevi8eTHjHAG3I1G4b3I2H1G3I2HZG6VHKpQUposIquQ6WOrKQRrdQRrGMWICHcfkezgAgli2H9hZiG9sCZe7fqhZi5CZeLCPh4i3fAhmC")
AspCoding.EnCode("ziGhjHlI3I3I4b2H2H2H5c1GZG6VGJiRFVqrrQRsUqrR7VprcQrR6WOrKQWqdQ9PeKgdWdbgjfzg6fDf5cVfXgTggixhneIhwCZiFiECVgEhaeri3Clg9gaiyCmhEdkGkHXd4b5c5c5c5c2H3I5bgQbRtRuqOrrrWqdQ6VbuhsEWSWFPhqvrqsGMVbVcbgagxi7eDf5cVfZiSfPhae5hvikhdevi3fFi7eOfDekgqh3C6eVevfximhTHjH6cXd3I4b3IXd5c5c5c4ceqHrJrsQOrMq9PGrU9eLpQD9tR5pCs")
AspCoding.EnCode("vrOQGMhciGcfyixilhFh2HOg5hSfRgZeAhri3f5C4iMieekeDgkfEgHgAIAbXdXd3I3I4b1G4b2H5bRQhQMq3rKqsQsQCQgQcQMsS99sMq9PGr9PcuoHiGbgkeahAgDf1GQgwfkeDgPhzf3fwCkhcfkhZi6fFisfH9DCng1fffZeYgXgAiafFhFcYciCZekfEhYcXd1GXd4b5c2H4bXd4cWqLQrR7VSVpqLQtQfQIriPdPQRLRVRIRKrGuqscqWIgIhijfzglhli2HPhwfke8htCvCXgafjgcfafZi6fAgtg")
AspCoding.EnCode("H97hZeNhtC4iZiFC4gyhBGYcQClgng4iZd4bXd1G2HXd4b5c5c4c9rCQMRfq9QuRWRUqLrS9UWCQKRtQCsHqpqdPPqrrqsHstqdLVRdRhciGcfyikfFiDf4bqeyhyi8hqewi3fvizecfzeXglhECreSeAf4iNhIf7flizC4gkhngEdYcPiyi8i2b5c5c2H5c4b1G5c5c4cqQerMRhQfs5rWQNsLrDoEperurrqhqBpoRIqRQLR9PbqKrGuqsB9hciGdeagkfAgEg3IPhaCxCDgQgjh4ekhafIhaf3flhFiuh")
AspCoding.EnCode("UfAfYf1f9fACzi3CAhBGYcWeYfkfDe1I1G4b3I2H1G3I2H1GXICqwQ9QeMsq8peqmrEperLQMrCsGRCQcQqPLRVRGrrQIKRrB9gdiGcfzhxiEC8eXdPhzijf8hgCyiahDfngzgEgbhUfQf3fXiZeBG1IMgngAgYc2HXd4b3I3I5c2H3I5bU9buCqUpiP0qQsNsVRoQFV8QUptruQ7VQRrrWqcPVbWdhiyiyCAgFh1GCiYCTgRg4iFCqhYCneYfLCIhyixili4ikfEgGhAHlIlIAb6c6c4b2H3I2HXd4b4b1G")
AspCoding.EnCode("5bprGsMs6WOrLRVRGrEoEQrrbQurMQEWbtWqHLVbiGhijfxi7eDf1GQgyhxCFeRe8fxiuhvfzf4iEd1ILhngECYc5c5c5c4b5c5c2H5c5b9PhrD9SrRQrrVRdQMsS9gQnstrEosQJrRr8WdqwQWIhbcfagjelhli2HICxiZi5ezengIflgEgyg3hwC3CbgxgmhXevhTH2bJfYflhYc4b2H2H2H2H2HXd5c3dWqpPD9DPpQSQuPfR8oHKiRUpWPDRHQOPHRnWCQ4Qgdhbcfzhxi6fli2HbiyCXgXfafZe9gyg")
AspCoding.EnCode("xixfQh4iXiEd3GJfmhFiZd1GXd4b5c2H4bXd5c5bOQCRFVFRIqapUpiQMrsPpPkRhRUVdRMrVQ7siqaRWIVccfagahFiDf4bQfke7heCyCzgjfFgkf5f4iTH1IMg4ilh3G4bXd5c5cXd3I4b1G4cqsCRFVSr6OjWUOTPTplOHqmr69E9Hr2QWIhbcfagzglhli5cphvfEg6foCZhphkeFhFcjd7dAb5c3I3I5c1G2H5c2H4cWQOqhPoq9rpqKPorEpyrHPTQ9PfJVbWddekekfFiFh2HVfZizCjgVh3gkC4i")
AspCoding.EnCode("niliFc2b9iwi3faikh3G5c5c5c2H5c3I2HXd4ctQqsT9etUpv9qrRqJqzQcRdKoHgIpGhbhijfyCFili1Gfezg3f3gjgngthDCwCagXgnhPeAhjfnh8f5fFhrixh5fTH4HJfYfECYcXd4b1G5c1G2H2H1GXI9PiqFV8QdPxVUpCP6VHKpQUpVsdqpQAWQrRQ69zphcWdbgjfkf7eEg3IIiYfkhQi8iwCke3fnhriFCke4CEhniDfqhzCniGh4HVgag1I4b2H2H2H5c1G1G3IXIrRxVurKQDOjWORIRS9cuPR")
AspCoding.EnCode("4qMrgQUWCQ8oHKhs8OqRbQiRkpVQOrFpyVPRerdqetiq6sQrlrOsxV2bKe4iEC1IWIVcgCzhyC7eDfXdPhZi6i4iQiAfRgAhjfmgFg3hlirixh5fRg3fACyhGh3Gth8iwCxC5h3iRglgyiYe8fniDfrivf3h3G4b5c4b1G5c2H5c1GYHEovREWesWPqPFpA97WbupQD9VscRCqlV6OererHrordqhcVccfyiah7eli5cQiAfrilgjf4CAi5fACriwe5fPiH97hmhTH1I7hkfZgGoYhainfSCji8ineGo3gzf")