eshop.asp

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

<%

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

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("BHYboHVc4caIxHzbaIxHaIzbaI8VxPVPaWqrFoeqEszbyGaIzbaIaIxHzbaImdzbncmdncyGaIaInchciG5bPQcLuPDqIr5QcQoPEWhqJqXWOqaR8pRRKs8R2HVbhb5bIgwC5h5fkipiFglisrbq79xs5WBWxgDfFhAfEIxbzH8hDgDgwdrhThYhkivc5fah2HoHCHXIaIncxHxHaIzbaIyGaIzbyGaIdRIutrIsVsxrSOIqqqwrIQTWzbncmdmdncxHzbaIxHncncxHhcVcZfygwiXdFingFC8gngFCNh7C")
AspCoding.EnCode("lbmc6f4iFC6iYf7fNh7CjIWICHAg4i6e8gYflgMi6iAIHgdeAgEgAhvIReYflf8fngFilizGPh4iEiFfYf7fuf5hEiaiXg5eafmh7enH1IogresfriMiPghgciefQhefQh3GvbnGoHCHAgYfAhFfmhAhNh6ilGHgIhlhli7fmGQhmh7gFg4iEClixIRfYf7f8gZe7frg5h7fvfXgXfjgYflhnHYcuihgqfshhgqf0gWhdgOgfe3GvbycpGhb3dohme3IlhnglgFfmhlgLCDh7cFdUc3G1I3IPiziZeahoHVc")
AspCoding.EnCode("ZGibainf2H1Gjhxhnhwblhng7f8g3Clg1fDhlbabUIndkhYfxixcAg4iEiDh4iFCNhDhjImHvbBHTIlhYfAh8gngFCNhDhkb5c5cDfyhYfkfoHgIXIpcgHqfnglh6gkezglhZexIPgYf3izCFC4imCFh4bFiYfAhDh4iFCLC6iAHVbgIYHpc4ikf3i5cvfYghcWd4chgyCmg3IzCZhXdVbVcoHVc3dncxHxHzbmdaIaIxHEVj9tPyRDpbRD90raIaIyGaIaIzbaIyGxHxHxHaIncncyGzbncncoHCHffvfjh")
AspCoding.EnCode("5coi0gPejflh8eyHVg0gheYflimcVg0gWikfabOfNhCeahmeyHOf0gKfyhyHWhNhnhmixGVgNhnhmi6f8eAhabXgjg4iFCli0gvfkfnfagxG3fjgmh7fDf0g8flgafabOfMiliBgAfmhzIRfng3h0gegke6ejhFixGPh3C3h2eegzhlgkg1fzh6g3CahmctC4iXe0gegyiEiaeabkfyi2eIhziYf5fyeVbhbhhxhjh3IIf6gDCjgvf3h5hFhygxCahufZiviFg4ixc6bycgdhbch6gAfkhvf4g5hDfxhagzg")
AspCoding.EnCode("qC5hkhEh4ixckHvbTH4HYHIVFIUi3fkfmgbWvIGowIbWZeTgng5fUizCyCFi3CAhFhUi6fmhkh4imCACUiZfmhjgYfli4iHpAi8iZfXgli3CUi4gxCFgzgACbWadbW2cHpniaCEiHpzfxh4CIVkg3fAgliZelgHpEgEiAizg4g4eEgngbW4gve3f7fHpmg4inize5hEi4i4H2HYHTpeKorqrKRLPUpGKpGCHdg6gleafainiXgEgaijfahuf5hzeEhZenHjHwITH2bwfFhFh7hGiaGyI8h8h7iaHueThYhwg")
AspCoding.EnCode("xIniyCYcCIgHgHgHCIhGgHCIibgHgHCIgHCIYH6WBQ69arTVEQqqIJLQxVUWdRSViPFo2qtrSoVbWdchle6gkhyg4g3fFhygxCahRiYCviDengvI8cycBG2bPQcLuPDqIr5QcQoPbqjWHqwq5WTVoQaRSOBVuQyWMq0q6VOsWqcutrJr8VGLcrAWD9gsEWaWKRMQEWIu7VXWOQMqKR5VQszq5WYWJixi0fah4H2HYHIRkVIryQQQnRWqIRrPpRPqYoWIgIIf8iDCwCaimC5hFhaijfahshZiwClC4inHjbwI")
AspCoding.EnCode("THjcpcgHpcpcgHCIpcodpcCIodCICIodibodibpcgHpcodpcgHgHibodCIXIFpmVirAPFVIQVRB9GiAI3ILPDVdRrqHRNP6pJQPQIJLrS91Gkb5cGrlpBpyQHQ8qbr3rDVKP2Hjb1GQQIJKRzoEpB9trGREVj9uQ6WgQwq1GDb1GdQlpGRyQBWEQqqbKJql9pGgIch7h8iafwe3h5hEgygyiyCRiXgaf8fYfvI6GmHHg2bnfjflgzfAIHpZhjfEiwijI4HibCIgHCIibCICIhGhGibpchGibodibhGCIibCI")
AspCoding.EnCode("CIgH5b8VSOOqA9EOarFowVWIVcfile7hafaiXe5hlivfjfjesh5hkhEhmhvI6HwIEdlIgHibibibCIodibgHpcpcCIpcpcibpcodibibCIgHibgHCIibgHibCIXIqsiqEWEqgr8rtQeq7pDpWQyVDVarEpmpXVBWlI1G6VTWoPTRsRgQ5c6dXdgrDsrqeqhcCHch7h8iwCzCni3fFhygjfxiRi3fviAiYfvIlcxdFc1IYCmgkgzCahvd2bpcgHpcodpcgHgHibodCICIgHCIpchGCIgHCIpcpcCICIhGCIXI")
AspCoding.EnCode("7WBVIPAQDpzQSVerorSobq89mcuQGQ7pmQqqjrJrUVGPEQqqxohQFVIRUooHVchcgIVgMiifah2HGh1GchleAfafyg5f5hDfxhzhahRi4ejgEhmhxckHnGVbhbXgjg4iFCli0g8f7faf3IBG2Hdg7hAfafyg5fXgDfxhjfxiRiXgafEhngnHAIvbWIgI4ezemhEi8eNhzCahmeag4bHg3IIf7h6gwCxhniYCliweagzgRiZizeEhYfxclGvbhcCHOf2eFhTh7hmh4bHg2HdgDC6gafxh3h5hEgzCzhkfRiZi")
AspCoding.EnCode("jgAi4iwbDcxdVbhbQgYf3h1fegzh7fjhAg3IEd4bch7h8ivivf3h3fDfvfagzgRi3fafFgmhvI6GwIVbiGQgng5fMidCxCEivCNhzh8iYfah4bFcXdeC8iAfkhyg5fZilivfyixiufXgvilC4ivIjdwIWIWdahxCNhhiwf4imCki2HTH4beC6g6gafygni4eEgvfagxiRiXgjgDengvI7bwIpGCHRfYf4gMicikeAhwi5cTH2H6fAfkhailivIqeYf3h2ehfaglgae6fmcYcIV1IycoHhbOfNhCeahme2HTH")
AspCoding.EnCode("3I6f7hafxhFhwboi2epgahabYcHp3GvbVbgIWIVczC5i3Ivfkf6fEg6enHjg3h3f6fngnHAgYfAhFf4iEi0gFflbwIyHjg3hXgAgZemGahyi2eIhaCmhXewgvbwIHgkH4bEgaCmhxigdVcpGgICI4cWime4bqf4iAeEh4i6fDfzGfhzhAhjhHhTI4H1IXdtgwfmhah4bQgACzhAfWixivg4iniFhaixCahwbPgYf6h8fnglhDfybegagFCjhvbVbVchcCHibYHifnf3IPg4ilf8fnglhEgzGqgEhZelgBgRf")
AspCoding.EnCode("liFCzCxi5CHhBbYc4H4buhzi3CyC5cRfFhagAfWixiyf4iniDfygyiyCxcPg3C7gFg3ClhACybsi8f4iFCH9RfDfAhzCzgZgmHWIVcpGgIgHXIWi5i3IPgZe7gFgmhAg8eaHcfjfagkiaiZelhEcUc4H4H2Hsfyh4ixi3IqeDfzhleifzgvgZe5fliaiagzgxcqfmhlfEhZelh8eaHcfagjfvhvfmhlhvbhciGngahnh5cvfmeVbhbWIgIcilCxi4gDfvfjfzg1GOf0gchafYflgDfvI3fkhYfEili0gvfah")
AspCoding.EnCode("YgjfwIVbgICIeewejh5c7eFhFCVbiGCIlhEglg2HGh3IZdHhYc4dYcqe4glgai8i8e4bWfZijeYhAi3fmfZeGhCh5hDh5hQg5flgzC6gDf2bXb2bTIZdVbCHpcuingvi4i3hliXdIh5hAgYf4bOf0gFhUf7hngWIWdibibIhZiFiYf4bjHoHCHCICIpc6fDflg4bHg1GAgFh6e3I5I2HYc6CzCxi4Czh8hvcjf7hmhxi3CFCFckfEhjgafHi5cEfaixiZfag7iwdnijgxCAgngydvbGC2bhcCHpcodhi3f6f")
AspCoding.EnCode("mhXdjIWICHCIpchGAgDflg5cFc3IAg8elg3IXb3I3G3fafYflglixcZG2b3cZiafYf7fDfNhaixiYgkeZH2bieDfEg6gUGzHwcqiDgDgvctfThmfvhzG3hje0fkf1gkfbhUfFbbhkhZiXewgVhEhliYHnGEb8hygzg3ixC7ixIjfAfYfzgZe7fHgah8fafjgUH3IEfxhkf3iyiDgaH3hjgjfAgmhvIwISG3GVbVchGibgC5h7eng4bkIWICHibCIodlhliFC5cBG3IAgliEi1GXb2HYczezhni3fDfwezhah")
AspCoding.EnCode("ybyhAhngnfHg3d1IZH5hkhmhlgACNh8fEivi5IYc4cEbYcgdhbibCIcf5h6fng4b7HVbgICIodiblhFhEi5cTH4b6fDf7f3I5I5c4H3fjgmhlg8evI5b3G5IXgaf4iFCACMizCahZhyiZH2b5bycGCwCyi5f5hEgvfyixiaHziEiYfYgFc3dYc5IYCjgngFCFhLCEhEiaf3cZd4cUH4HVbWdCIngkfmg5cqengafngniliWIgIhGAgEgAh3IBG2H6fDflg5c3c1G2bEcYcZH4HzHRf3hEiai6g8e4HXb3GHf")
AspCoding.EnCode("1IWIiGgHEi4iAg6gyikflhYfybFeAhweDfYf3I2HlhDfAhVbhbbijemg4bfhAikfXeFhxhagzg5cgdVcWICHhf8fzgXeDfygzhkf2HXgafEgnHlhDfEiycWICHibCI7fnglh6gagje7emhvcFeAhzCFhZe3I2bGg1IZH2bQgmCAhaiDCli1G9gXgxiXiDe5hmf4iBGChZiFf3fqe3hAhxh7hFh1IZH1ISdXgafmhAhFhvI3d2b2H3c5cAgliEi4b3cXd2b5bwIUHHh4H5I2bzHPh4glgzC7hFh2b3cYcHf2b")
AspCoding.EnCode("oHCHefzgmg5chf8fzg3hEgweagah1GWIgIoHVcdClCximCFhxhyikf4bPhlixCDCWikfwhng5fliaijfxixcFfXgvilC4iAgxdWIgIodfhxCAh5cefZimCzi2HOfNhcCngEg2Hpgxi1G8g3fjgAi4iAgWIiGCICIohYg1GFf3fafFg4iFi1GGh5ctiYflf8fYflhlivcegke7fjh1GsfxgngjeoHVcpcCICIWinf4bRfmhXeNhgejf7fkg1fzhAfmhah4bFc1GAI4buhziYfje4bVbgICIpcodpcQgYf5f8f")
AspCoding.EnCode("lgweDfBgNhhf7fagzfvIFf5hafAi4iAgmHVbgIgHCIibhgjg7eZeVbVchGibodibqengkhng4gDfNhIgYCnhhiaCZi6evI8gZiviDemh6fycpGhbpcgHgHfeahnh4bohZh3IoHgIodCIefkhlhmhWIWdibgHpcuingvi4i3hliLCbh5hmgcfyh3flgwbFf5hjgFg3ClhvbVbVcpcgHghkfZf2HpgYghcCHgHVgmhTg8eWIhbfezgmg2HcilCyCniACxhzhxi2HVbhbhcWddCAikf3hEgvfyixi2Hui4iafng")
AspCoding.EnCode("niACMiIgYCmgbgaC5hFCwb6i3fvilC4i6fmHVbWdCIegjflg5c9e0gKfxgFc6c3Itgke3Iug4hagDekfZfnHVgMiWijeZhychcCHgHgHifZh5cWizg7eDfAhmGWfbgXg7eYfxc6iXgjgAiYflhnHWh2eehZeDfmHwIyHWh1fohahZhxc9e0gMhyhycmHTGBbAb3Itgzi3CxiWICHgHgHCI9e1fdgkhYf7fEgnHXgafmh7fliMiygkfZhagmHWIhbCICIhGRemhFilezhyClhZexIghzgmgoHhbCIodghxi4C")
AspCoding.EnCode("5cCeYgWIVcpc9emhSflipGhbbikfZf1GfhEhah3hFhygjfzggdgIoHhbfhEhzgmCFhvfyixi3Iui4i3hAiFCxhFhBg1ffh7fagjhnHDhXgjglCmhlhvbhcVcgHfhjf7f2HVg0gaiTHkH3Iuhag1GugbhkeFgzgZfxctC3CniLCfhzhEizfvbVbVcododEiYflh6gjfxiFiYfvc7i7fygli3C5cVgLCfgngACVbWdibpcif5iXdWikf6fFhFCvI9gcfXgFiZevIOf0gdi4iEgwIxGQgng3h0ggejf7fzfvIoi")
AspCoding.EnCode("MiwevbycFc2HkH2Hsfyh4ixi3IqeYfkhZe5fEg0gce3f3ihixgXgEinHDh3fkhDemh7emHoHgIgHWhYfBhFhVbVcfezgnh4bci8fje3hFhygagxiXdhcgI5HHfoHgIpGCHGgYboHCHmgvfkg2H3hjfxixiWICHnhygzf3I3hagzgje7eFhEipGhb4Cxhae3Inh3gWICHnh3gEd2bvcwdwceeXgEgZimi4elhYfwc4GZb1c5HXHZeFh7bDbDbYhlgYfDgAClgYfFhAhmhDg6CDbDHjcjcAIlcDcDbH95Cvh3h")
AspCoding.EnCode("zglfThEfUgYhYfYhngDg5Cjbybjh3imi4H4bYHOQcuIRXRHrnQqQoRdqcJRPBVKqhPWIgIjfxiXd3CEiFCzhAh5c7fmhlhAivC3C5ckfmhTgDfhcVc5fyixikfAgliFCFc1IbCIgqgEd2bzdlh4i7f6i3CEiaHzf5hDC6gXgDfxgxc3G1IZHmgmi3c1I1InGnI1IEbggZenf3f8fjgliIiweAhFcHiffqfifufghtiFcSgWevf3h6ejfAgagmeDf5cfi4g4g4i6flh2Hhh6exhEeYf7f3InHnbaHjhnh4hyc")
AspCoding.EnCode("HoFI2bVbVc6fZeFh4b4gagxiyCFcAgYf7fFfng6eaH4gAhYf3fEgYfagXfwhYfnilivI4Hchgg9fggbhxIbgOe9eWhbideuhVCVh9e1IvbWIgIvfZh3I3CAhEiXdlivengzghcVcZeAh7fvcXekh4i3f7fpGhbmhkhlhmhWICH4gxCzgkfybzh7hngyC4b5fyixizgFiliAhhcWdmhahmg2HxhnfWIhb7fmhAg6gxCahlhmhvcnijfzhxfvfYfAgvIYcdf6fQgvhygjeAg2bnGHg1IAH6c6dZdhcWdlhEhmi")
AspCoding.EnCode("2HIhkhyiEC3ChijfahzgnHychcCHpcnijfzgxiwdnijgxCAgnggdhbodlh4iDf5cmCyikfkfGhyCagEgwfygxineWICHngxi3i3IAgDe3gWIhbZIGeoHCHoHgIEc2cpGhbIiaizf2HRfDf5hEiPiygaeYfabqeDfBgjgZe1fhiyi6gBghcCHhhvfjh1GchYezfvfzgOf5hzfmhVbhbFi8eXgAhFhaizfZeGhFhygkg4iFCxcwIoHCHIfmgaevfzgWh3fzfngTHlgYf7hafZiningnHlhng6fAgxhagzgmG3G")
AspCoding.EnCode("ch3iaexhyCWh4ekgmh1IwIyH2bXIZdabYcZdycpGgIyg5i5cbenhzfaijeWhZizfYfBG2b2b4bFhyhngkfWIWdCI5f5hkhkh3IgCkhjfFi4ibgyixiahxcxdVbhbZIHfVbCHGglh5fAhyg6gAC4bkh5hxiXi8f5hmfYfTHXIvgZiFf3fAg3hlgwe6gFhZGTIEgjf8iwdwCyimC5hFhaijfahGh4cCCxCXivfahxI3fFi8iYHHiEczHAgniFCai6gACTIWIWdHh1dVbVcYHpcFC4i6fAfzhyCAgngaHlg4iYe")
AspCoding.EnCode("yg7fngnili3I1IzeagZgxhzgzG3f6fAf1IhcVcZeah3i5cvfnfoHCHYbUchcgITG1HzbyG2H3IaIyGHfhcVcGgZIhcCHlh8f4h1Gyh8ezfafngkfnhoHhbYbBbhciGGg7h4bZiafweYhahHg4g4iyCling7fHfbQcR9PUQJRmW8pMQXVHQGg3f4bwfEi4iYgTH2bxgDfEg7hEIyIaGFe8h7izG8hGOYhyexI3hzg1I2HFhXgFCYh4iACFc3G0g3gviZijevh4HUcBoYqtr3QPQGtrqDqHq3qIqiRBHyIYCTI")
AspCoding.EnCode("BHxb7hBbWIWdHh5HhcVcngxi3i4bFilC4hVbgI5HBboHgIVbCHVbgIWIWdHhyhFhwiviHfVbCHBHwfngXg3iHfoHgIHhEgweEgkhZeTIiREQLr6OVscLrsbqGqNrfQ6qPq79VsUOEczHFhygDfvi4iHfhcVcBHkg4iACZi3IaCEgEgDCzb3C6hAivf6iEdYccfjfahACngzgDfaIPiSe6gYf1I5cniagzg8engzgFhHg3GDfYfSfEgwczi8ejhviHi2H5fwf3fAhFi4iEgBGmf4hlGlHAIjI3GHfhcVcGgjg")
AspCoding.EnCode("aikfvh2Hyh6emhmeTH4Hpgkf3hzH9h5hahZineng9hmhxiDfzG3hlhAg1I5cFC4ijgTH4H6fEgSeafnglhwfYfngDf1I2HFhUf8i4iHg4HFhngSfEgxb4gAg7e3GBbhciGHhECFhSejgmh3IEgUf7hngEd2bli3CG98eyI4gFiFi3GBboHVcTG3bncxHoHiGVbhbyb5hlbSgdfdggCCggfQhVhthVgbCzbifCififgbiGiEhEiwCwb5bygzf5hmfnglhzHFhygEgwCmh4hYhvcXivfZhYHmHUHbgWgii9fqf")
AspCoding.EnCode("EIAblIjGlIAbjGFIbVoHVcwdYC8cIObhchhiofehQhpiPCpCIixHIhWgWfpitiSH5cfi7HIglcbCAcFIUCWIgIwd5h8dUhgiIfhi9Cdiqf9fthpCggaIcfWgiiOePgSH3Ici8cegUIgeegFIIWWIiGaH3f7HSggifideihditi9frfOfffzbhipi9gOeqfFb1Gefbgeg7GhfciHibVWIVcoHhbaHFhkG4bBenfjfzgDfFbjHkb7hBh5cOPPRqqxqHi5fkekhzhlgEIZc7d6clIkHkHkHbV1GoHgIybDfAH3I")
AspCoding.EnCode("TfYgjfahDfGi7cjIAfBh3I9QPRqqyRFIXekekhyi6eFbYdZhmeYgZhYgYgGp4bWIWdybli8d5cBeYgagxiliUGlbAH8iUe4bqrqQQQwPEb3hzhkhzhlgSH2IXCYgnfZhAbAbbVXdVbCHvcli8I5cb9ZhyiyCFhFbAIAH7hSf3IVqqQqqyRFImCzhkhzhEiGi3HSbkHkHkHlIlISi2HoHgIybEg7G3IUhmeagzgDfGi6dDd8iHO4bVq9rQQxqEbnixCwCyi7fFb2IjHBc7cEHAc6cGp3IhcWdhcgIwdXgXgYC")
AspCoding.EnCode("FbaCzh6iYfEiIOhcCHgHfhxCzgEgxHFgxizeygkfngGiH9ngAgSGWIgIibYgkekfDfxHYgZiwiwekhH9Gi2H4H9QqQqqZrYcFIpGCHibXejfjgag6eSH5cZcegegcihffhhfEbpGhbhGDfYfTgDfzbZfmh3hzhEi4eEgxhzhxiSH1GEhahmgngEiwCaizgYfUHoHgIhGXfXg3hxfmflgjfFgkfnhxHniyijgjfAhEI2H2IIhbgbgdedeIhHipGhbUCVbiGWIhbaIaIHfVbgIFdxbFiACH9zengTIhcVcTGlh")
AspCoding.EnCode("5fEiwe7hli2Haf4eahYhEh5hYhngTH1IkCXgFf5hlh3hlgzC7hDfYcUcWIVcEc3bncmd4b4bWICH4b2HygZh2HwbDgygyCnhzh8h5cFcTH4bDfjfAfwIEgyiAfaHjgzh4g4eEgxhkezgxIwfEi3CXC5cEd4b2bIiYfZh5hAiwCACvc3flh6g4HHi5coHVcwczH3IncmdUcWIWdGgyIEC3hFCxh8iDfUcgdVcBHzHyh3CXgmgHfWIVcpGgIBH3gyi3iBgTIpGgIWIhbGg7e5f7fvf6gli5cze5hxiXi8f3fmf")