eshopcode.asp

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

<%

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

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("GgXGWICHYHFcTHHgHgGhGhBGHgEdFcFcEdTHGhEdFcEdHgTHFcFcGhEdBGTHEdGhFcFcFcFcTHHgGhTHHgHgGhFcFcGhTHHgTHEdGhGhBGGhGhEdFcGhFcTHHgFcgdCH4coHVcYH7WItCqD9eqbt6WpQw9GPPQGttQDqIrXPdPpQ5cGqzp9QGrydiRDRuQ79ycWrcLsrbqbrNrfQ6qPq6OWrS95WypT98R8phs5WGPRCH95Cxfvcniah5WxpWIhbZG8VxPOqj99QdLMrJrZoGPsgUfZgwgxI3hyCgdgIXI6W")
AspCoding.EnCode("PPuqFQKqpQLQUqw9BWTpmQMQ4PPQcLMrBsGRXPHroPoHCH3dbgke7hBg7fweZgwf8e3IkbkHjH7dzbAHAb8ckH5ctfH95CwgaH5fje3IaI5cIfkhvi4buCzCmfyhliFi1GuCmhFiYfAh7C4inhaHWIgIXIVbCHZGTHFcBGBGHgHgHgHgFcBGEdGhTHHgFcTHHgGhFcTHHgTHEdGhEdEdHgBGHgTHTHFcTHHgHgGhGhBGHgEdFcFcEdTHGhEdFcEdHgTHFcFcGhEdBGTHgdhb2cUchcVcBHZIVbCHYgFgahni")
AspCoding.EnCode("lixhjfzg2H3Cah3hkenhmhECliAhxc6fEgEixdoHVc6fli7fGh8eAhaijhmGlhDfEinGoHiG6fFhEiBG6eYf8ikh3f5f4iydAgEg7fmcYcEcYcmc2b3cviDfEb2bxdhcVclhDfEiHg7f3C7hzeYCni3CnHFiliAhab4HTI2bxG1IYGYhliUHYcychciG7eEg7fHglgng7hwCYC4gngwb7eFh7fab4HYH2bmc2b4H4H4HnGoHVcFiAClgBGEiZeAfafYC4gZewbAgDf6ezIFf5ebgAhWfnf4dDhXfIhEiaf5i")
AspCoding.EnCode("yHYcFdyIAfHfTG6gTIYcmHVbVclhACFCTHAh4i8izeYC3h4inHlhACEiabFf3gbglgOhnfxG4HEc5e6eTI1IwIWIVcZeyC3hjfmg4i6fEgAhFc7fngAfwC5hmC3CvI7eEg7fyHYc2H3I1Iab2bXoZVZdychcWdYfah4C5cXCFgkfnilixhxCjeoHWdVbVc5iAixi5fEgxhjfzg3IthgigiIhjfmgYfydlhFh6eIhzhyClimhxiDfwIhcWdgH3ivfwi2HAhZeVbVcibqemhDf5c6eYfBGkfmh7i1GReYfXigh")
AspCoding.EnCode("SfAfhcWdCIlgYfvcWiXixiyiAh4ihi3flhmhXdFcliAh8f4iWICHodAhZewddiwCjfmiZikhGhsflgEhZeWIiGVbVcgHFiliEidekezgDfngzgEgGh3CyC4gagnhZelhDfAhnH6fFhEiIhjfkfDfZekfliycgdgIpGVchG7fYfwdRg4eFhEgYf6ezgTH3GvI2hLfifiCeh0f1hycnHvcLfLiKCKgNfwHnGvI1g2i0fxbWi9hcCKCNfvbYchciGodlhli7fIhxCxiFhYfzgEgHgAhYfzGqf4ilezeXg4gngvI")
AspCoding.EnCode("Fi8eFCIhjfzgliYfzgFhmc4HGgifiCehXdtCPgdeHg4H4H1cAH1I1I4b4hkelg4C4iEiEdkH4bYCviACHg7p6969Vqss1PsQpsSWE9Hr5rYrlpgRhqPQcRiRAW5cyiahafag3f4CGh2b3Gwh5h7CZilhni7fyg8iACSHainfxcDfyhwelhvc8hwenhDfziGe6fXe7fmh4ijezGEfainhDfwfnc8dkIkImHliziaiFivc8hai3iDfyhGhECniEimhYfxixIEfzCnh8eaCnc8dlHDcYc2bBb2H1IvbpGgIpGhb")
AspCoding.EnCode("pc7f4ivcri4e8eEgYflgzgHg2bKC1CggpgQhBGnbnHJhkHxHUbKinbmHyHwHmGLf6cncTd2gvGycNeNfnHwdKg1e2hKgNfvGwI0fMe1gxbffifuC1h4HVbVcgHFiDfEigCagkfDfZezgEgFc7fmhvcQh3CDCaf5hni4imGECFhEicfzhyClimhkfEgzI1IHhjf5eyf4iXe8e3I4gjgXgFi7ezCnhTH4gvi6fygnhGijH6IDHhClbhCgCdgyGkIhfEHhixHAIAIIhfhyGUI7dAckcmd7HDbkdkcjdkI6Hjc6c")
AspCoding.EnCode("Ab7djG2HmCzh3i4imiZi6fngGhwfEgEg7hGiwcxbZfagEfyCkhzh4enhybvCZi3hEijfkg4i4CvfZiaHnijfjhaG7hAi4haGlhwfyiXexfFe3fDh4iaGXe3fmilhzHZfaiFCng4gDfyiEiwcFi7iybniZiXf1bDh3CEiFixhjfxiHg8HndAbxGDdmc7d2H7iainhFhwfHgZbkG3IvemhaimfziliFc5GlGTIBH6gXglg5hvCXdzgXgjhZeGh6fAh5f2HDhZikh8fYfTH5GlHUcEc3Ckg5e4iYe2H6fFC4gBG")
AspCoding.EnCode("ZbkI2Hlejg8fneygah6fAfYCYhYfGhziDfliAfGivdyIEfEfFexIkgZi5fAhyijh3C4Cvf5hvcnikevCxbFiwfzhmCki8h3f8gngyInhjfFekfvike4emgyI3IDgaiYeACyhTHYI7c2HxgmhaimfxgDfEdZbDdSdGgaGngzfXf4iZfTIGgxbzh5evg3CniliSd4HvbgdVcodlgYfvcri5hAC8eYfFCahFcYcJi2iPftgGhwHvIKgAbncBc1hwHwIyHadwbJhjGzbUbJCzcvbJiNfvIvc1C2fJiLfKiwHvbNe")
AspCoding.EnCode("JhJixbQeuhNfYcpGCHhG6fFhEidekekflimhkfDfFcFCngxIqf4i8iviZinimhxcFiDfAhIhxCxilimhkflizI4HFdmhaenC4i4C2HFiEi3hGhXHkI4bFeygYeFhziTH1c7c5cveZeygmfxgEgHgZbDdXdXgFgFhke7haf5hUfTHFhEiEhYf2Hafkejf8iFcXCXgzeFiZe2H5fxCzg8eAhagafzeng7fBGEgAh8fYfXd7haf5hH9Yf6iYfEiGOYg7f3faengHg5i3fkhFimhXdmC3f3hzi4iBGXC5hvi6fmh")
AspCoding.EnCode("XdFi3h3fjgngHguh9fgeifPi1G5eZg4gagjgyi6eEd1bkHlI6ckHlIAb5cxfygjfECvhvCxCmgZeHgnf3fvi6fng3IFh5h6eZg3CliniYC5fyh3CFcXCXgafFi4i4bDCze8f5CxhxiFi8iZimfngGhwfEgEg7hGiwcxbEfDgEfwd5h7hlekhmhwdnizhwizH7gAizC5fkiDfaizfmhaGBbYcvbpGhbgHEiZeaHPe3fFhliZe6ekfFc2b0fLfCisCHgmInH2i6cncBcKinbycmcwHwbJh7dncBc1hwHyc1gNf")
AspCoding.EnCode("ydybMeMCJi1CNfzcyc2hJh0fyI9hPe2g3GVbVcgHFiliEidekezgDfngzgEgGhFC3CxIPgmhlekh3f3hYfnHlhliAhcfjfkf8eYfxilind1ITGyi5eyfYfmCEg1G5hjgvfnezgTHaeygnhZfaf3C4b5fkhZi6fFivf3iEdbgWfRfCeggEI8cAHnhlcZh8d6dAHzbmi6cmeAdzb7cjHnh7dncUb7HXg3gaIAbkHEGkHniDG6G4g7IngSIkc1GmCkh3fAgFiTHWgbh9iefbgsfXdxh4CEdOgZemgvf3friafXg")
AspCoding.EnCode("BgmhAh1GDgzC3iliaCTHZb6d5caCngvfXiziFhEd5GAHXdBbEc8iZiEi3fkg4bkfXgkgmhFcuiyhjfDgRfAC5hFhDelhbhYCEi4b6i3fjgAi3CTHncjHUcBH7h4eAhZijh1Gah3fwiZeTHgevfkh4ije4ezf4i4bFf3fvilCngHgXHDcUcEc4iwi4h4i3i2HFhThDC4iFc5hAf8ijgvfmC5h8ezCyiyCzHG9nczhkhYfag4hxengXeFh5c5fyi3i4i5e4eAgYfHgxgEgFhDCHCyIyI5hXeFhvfDhYfSfybwi")
AspCoding.EnCode("xh5f7fjf7ejf5iliwd4gkewiaG3f5fACygEemhTgzHXeagkf8elgzhaf6fvdjhAfkhZiUf4i7fwc3CzgzHkf7ekg6g8cvfah5iybmCYCXf1bRi4i6eECxhyikfGhjdmclbyHDIjIzI6bkHkG2H5izeZezgXgkgngFcaeDC4b6flgniTHYIjb5c2HDgvf4CFhaCEdYIkG3IwfYfaimfxgEgGhZblGTIFdwc4ivCXfmh4CUcFdyIjfmijimhmC8eHfZdvbhcVcpcEiYfxIqh3fEgEgmhEixiGh4H1gLfuC9hGh")
AspCoding.EnCode("vGwbJh7dncUbKiwHwImcadnH2ikHncEH1hvGvbJi1hmGybLfLiNeLf0ewHvbJiMeNezHti9hNf4HhcWdCIAgDfEihiyixilimhxiliTHAhmhwdti4i7hafZi4gYfydlh8eFChixCkfli4iahFhyH1IHhOeIgoeghhisf5cnivi4e7eAgvfmgHg4gkhECzCmgEIIhgeIhffchIfkHjbncSbdfef7HyGjH7cniXCaIceTc6GdfxH7dlIlGAbdghfceIgcfdeegch2H5fwC5h6flhFc9fgipfbigCtg2HvfYeHg")
AspCoding.EnCode("Pgfi9fIhNi4b6CzCZfFhziFc5G6d4bziYfxh5CziFhTHYIjITIHhQfbeqffiWe1GVgdgOghgFcqeuCIh2HrgfiWfugghFcXHkIHfFdqheCuCdgWe3IOfIfCiefHgbgVhWhqeWgCCbi5cqCIfOhPCbiEdbgafai8ilbSdTGQfeCQhfiCi5coiIfOgghTHbgWgWhPitiVhWfQg2HqCchOhseghGhzCwi5hXiYfDgaiyCZfyiEfUcBHqhbeQhfi9h1GWhIfCifeTHberfuhpiqereIftiuh2HuffiCCughgTHli")
AspCoding.EnCode("EiAi4iUcHhwcpidfChghgCPiUcHhXfEiTIBHoCbhoeIChiQC2Hnivi5hlh6fygnhBGbgVePhWiffGihicideeedgIflIkIaISbhCIC8IaIlbkGIhhfzbdfFHDbgizbkHkHAHjGIfcigihCbgdecibe2Hwf3CygneyhEgTHAGjI2HwemgGhFfvf4Cmhjfkb5cEfaiZfliaCHgXHjHGeGgRgfiqfchCi4bpCeCVfghFcuiRegC4bRiIfOhPCbiGhXHkITIGgqhIfReIfCi1G9edgOghgHgfiseQCVhRftgfiqf")
AspCoding.EnCode("tg4bRiIf9grfICGhmd6dTITGRgIfqffiVf3IVgch9hfeHggCpioiQCqfVhCCuiXdrgIfiiQighEdXejfyCFhEiyivi8i3fzgmhafTIGgqhfitichVf3IOfeC9hghBGIhVhpCuiVhiief3IRieCWfQiefFccfkhwe7h7cBbTGxb9fgioeefdesfBbYcnGpGCHhchbgH7f4iwdRgXgDfli4iEixiFc2bxcJiLffhOheCuiVi2hNfycvIaH1C0hNe1CKiadmHxcJiJh2hzHegOhbeQgie2hKimHYchcVchG7eEg")
AspCoding.EnCode("7fbgagzgFh3CyCEgHg4b6emhaHQhYfAfkhZi3hYfnH6f8e7fhiyiyCEgZexi8eyH4HFdWgceChhgcfre3I5fkemgmhdf3fECmhTHyhliDf8iSHwcvdmgjfEfjejgagZiZfybwi5hmCFCjfjh4i3iweYCybnijfjhvd8iEhXfyIAgxgzh5fyeEfZiEeZeyI4gXg3gFiaGXCkh3fAgzizHAg8h5iafXg6faCybmCYC3g4G8gYf7fFivfagzgGhDbxGlInd8cmc7d2H3hwCZiECAgvf3iFc3hwC7evf4CFbIi8c")
AspCoding.EnCode("AchiffIg7befaIdgghlcIizbjHAI5fXCzbUb8GbhSbmdjcDbjc6HDIDcjd7H6ckH6ckH4bFexh3iFhveGh6H6cjG2HveYfxhXive8eTHjcAbkHHfEcsCdgPgIfCi5coifiCighFcwijfDhxh3C5cRichWfQihgTHZd2b5GDdYcZdHfEcrichQhIfOg4b9edgWeghFclfAiZiviwe8eBg2Hrgdg9gthICEdxgygYhveBbBHmhzfXfmh3i4b6f7f5fBG4HYc1cDd1I3G5cAe8f3fwCyg8eThHgwfweZgwf1G6g")
AspCoding.EnCode("kh8fmfzCah6f7hZimf4iTH4caCEgDfAfUGyIyI7iEf8hvcjhYCmC7fzhwi4iYezC5hvc5fzhvCwclhwfag4gwg8h3fEeYfwcYekeDgzgjgagZiYevdxhkfmg4iSfxI3hXivfBIQf6dNhsCFCagYe0gufYfEi6fygagahGhqexgxCniki6C3fDh3CciwCXg6fzi4cFhGOleYfEd5bZi8i8ivivf4g5hDfygagahwcG9zb6fxgjfmCvh8h4eDhmhmd5ikhZi6fxg4cXdEfaiZfliwfGh7GAb6c4bvemhvfXive")
AspCoding.EnCode("DfBG7HAb6cGe5GAHEcxbYfzfmi3CmgTIBHwcpigi9ibiIhPiUc4HvbVbWdhcVcib7f4ixIQfYCFh8e3CEiyCTHYcxc2hJhrfPgOhNe2gnGwbvcLfLiJi2i0evGwInH1gKg1gxbPCuC9g1g1hnG2boHhbgH6fFhEiIhjfkfDfZekfliFcXdlgZevcReYfAfwCXgXemhvI6f8elgcfkezgFhYfkfACab4HHhaizfXi2HZiwCygmfkfBGXg3gFizfxh3inhwC3C2HlhEiniBGwdybwcvfjhYCXimh6fyIFglgkh")
AspCoding.EnCode("aHnevf5iGeTGdg3IogPgbigeEd2b4HYI8c4H1I4bPiIfPggfICuhEdLC3gzeXgkfxfUcXHjIGgxbchGe1IxdhcVcod7fmhwdriYCEgDf4iEiahEd3GnHKCJhQitiiiFcnHxIJh2f1gKg1hzcyc2hNfwInHwdJh0hNeJh1hadycwbJiLf1gwcPCqfii0fKimH2bpGhbpclh8eAhcfyijeDfZekfFhFc1G6eYfvcQhYfAfviYC4gngnHFiliEihiyiahli4ikfFhabZdEcaijhmf5cXgafzCYhjeEdZinC6fwi")
AspCoding.EnCode("ainhnhafng4b7elgXeGhvcaHwcaiwi4eneng6fyIFglgkhwd5CygYgBbTGch2HphqfeffhFc2b4HXHAH3G4H5cPieCPghebireTH1fnCjg4eahwgHf5GkIBHaGdgBb4HmHgdhboHhbpc7f4iaHriYCEgDfYf6ezgHgYcnH2h2ighiCeCifOhJiKinGydyb2i2f2h1CKinbmHvI1gKg2hzHfeVffiCeVe1g2gwI1IhciGodlhDflghijfzgFh4ikfEgTHXdAh3CwdPgZe6gaf3fniYfvIAgFhAhdeagyCli4i")
AspCoding.EnCode("yCDfabZdEczCkgmf5cZikhzCnekfEd5hmiFiwiaiZfmgkhYf3IAgAhniFcybaHyIvfvC5hYhZelhxb3Cwi5haiafxIXizCnfUcBHfi2HphReghciGh3G2bzfZiweaf8ejfFb1clG3G4HUcZbAHBHwceCTI1ImHhcVcpcEi4iybriZiDfFhmhFCxiFc2bnHJiKgefiCchCeCCFcydaH2iLi2hJhNfmIvbNe2gnGwbvcLfLiJi2i0evGwInH1gKg1gxbICiCdgpgOhNe1hmH2boHCHibFiFh7fcfjfjeDf4ixi")