productshow.asp

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

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

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

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("EcYbIe3I9gbeWhcCQifigfbiBGRidfRfIhReohRgsf4bhi9fhhefRgeCdihgHgFGkI7b2cBboHCHGg5Hag8iACwezhyCXdYfSf6gafxhmCaiEgSHffxhzf2HdgAglebgyi3iygahXiZIBboHVcBHYb5HTIoHhbBHYbPgmhlh7hyikfAgmhybgi8fnf5i4ilgGhPi6eAingZITIWIgIBH5HWIVcYHxHzbaIaIxHncxHncE9vRWQaWWREpeqFraIaIxHxHzbncyGzbyGzbyGaIzbaIaIxHzbzbgdhb4cVsdMtQ")
AspCoding.EnCode("8RGR1sGspQEWfQurYoOq7r8pRRsQTr4bVbhb4cIgjgXgXevh9fEhFhsrbqFoYqYpcrziFhAC8iFbwcaG7i7iDgaHqiUfZgvhxI3hzg3IgdVc5bzbmdncaIncxHaIxHaIzbncxHIQHJKqGqQPYRU9cQqqnRIQdrmdmdmdyGnczbncaIzbzbncmdpGVcmgxhkg2HFi4i7f6i3C7f0g6ikGmclhZelg8gZeAhLC6i8coHVc7e4i7fFfmh6eNh8gjHGhhi6fFh7fvIuC4i7gFgZeAgFhvcPhYf7f8gYflgRiYC6e")
AspCoding.EnCode("xhYCnCafYfAgnH2bWCPitgQf1fQhefhfhgPgfePgYcycwIVbVcAgmh7f6iYfAh1f8gAHGhcflhEgAhwbQh4ilfFgmhlhliaHRf4iEi8gmhEiteZilgygXg3gjgYf6fvIYcRfefQhrghgqfMiOffiCihg4HvbwIoHhb4cpgYg2H6fmhEiEemh6eNhEeAIHhTI1I4H4buhaCmhxigdWdYHCIygXCXd2Hjhvf3imGlh4i7f8gYfEiNhDhlbmcUIzIjgZeahnHlhmhEiDhZeAh1f6i8cvbxdEcBbFiZeEi6ing7f")
AspCoding.EnCode("MiFfjI4b3IFhxgngyChchb5bodpcPg4i6f6gjfzglh4iaHqfngnhxh6engniDf4bAgYfEi7C3CFC2e6ikbhcgI5bib4iyCYe5cygZhWICH4cbikf3iXdvfYg5cpGVcVbiGXIaIyGzbmdncncxHncUoj9uQvQ7WdPEWXRxHzbncxHzbxHaImdncaIaIyGaIzbnczbxHxHWICHggaivC1GWhLCsCjf6fEgyHWhLCdingDfyHWh1fifzgzI9e0gWixiYgaboi0gMhwfmcOfNhZf3gyHWh1fnh3glhFhAhmc3fjg")
AspCoding.EnCode("mhAhli1fvfxi5iagabZize4ilgEg0gFglgafyHVgMiDfUf7hngzIRf4i5fMiciag7fjhAgyHPh4i4g0ghfjfAhwi2ezhlemhjezIPhng4g1ffhzhFCjhmcyCxC1fbgxg3CmCxfVbCHIiwejh5cIf6gAfvixh3h5hliygagzgte5hafEhmhxc6bnGVbCHfi8i7hwCai3hZi8eaiyizgufZiafFgmhvIAbwIHgZd4cbWEbSCZizg3iHpvIHpwIbW4iSfYf4gbWxhjeAg4i7fFhIV6f4iwC3CmC8eUinh4ijgmh")
AspCoding.EnCode("Fh4iSCDe8img5hEgYfUinijfAiyCDfIVzcGo2cbWXexglgGojhzC3iUizfZi7eliYf7fbW8eAhFgkf3hZiDfmhHp4gaCZilgIVYeng3hvi5h7fYf1I2HXIbrGMgPVqtsusUpIuWICHchDC8ijgvf5f5hDfvfagzgteXgviAingwb7cwIGh4HziDfFhAfEIzHxbEf8hDgybrhThXixfxI3hahYcgHgHpcpcCIibpchGpcCICICICICIYH8pUR69lQHQ8qRRIJLQl9EpB979oREp2qJRUpVbVcdg6gAfafxhni")
AspCoding.EnCode("4eFhwezhjerg5hjgFgYfwbkbxdGhYcVsdMtQ8RGR1sGspQbqlpIrxP5WcroQaRDpdrsqyWMq5r6VPRVRdtKqsQDWfKcrAWSoiqUpj9urKq8OfL6Wv99Prrur5VWQ7rYpZV2hzg2hzg1IXd4cbqjWbsmrRRwrOQIRsQpRPqv9oHCHdg7h7hzeygni3fFhygjfxiqCYCwCDe4iwbDcwIGhDbpcodhGpcCIibCIgHpcpcgHpcodgHCIpchGpcibhGCICIhGibodpcpcYH69voirlQUpcq9PcqEIjH4btr6pcqtQ")
AspCoding.EnCode("HR4sF9MRqRGtrR6W5ckb2HdQkVBpvRcrTsBo2qEOrs2HlH3IQQbKtsl9SVIQMQHqSpyprR7VhPvR5cjc3Ibqa9GRwqHQBrQQbKLQxVoHhbIf7h6gkhxh3hZiDfygzhahRi3fafAi4ivIDbycBGYcYgaglgkgAIHpnfagEizfAH2bCICIgHpcgHpcpcCIgHibCIgHibpcCICIgHgHibpchG5b6o7WVPyV8W7RSVmpVbhbeC7h8iwCzC5fXgEgzCxCkfsh3fviDemhxc6HwITH6cibibibpcCICICIhGibgHib")
AspCoding.EnCode("ibpcibhGibgHpcpcibodpcibpchGpcpcXIOQhrUpFRCqTRrqfR8VSOPrxW8Wzs79wVw9HQlI2H6VTWgrSQtQfR4blb1GiR8rtQeqWICHfiDCDCwCweni5hliygzhahRiYCzeAingwb6ImHFcYc3f3ivCvfzgwc3GpcibhGCICIhGibodpcpcgHpchGpcgHgHibhGibCIgHibpcgH5bDpBVBOzr6VkRFooRfqD9bqSpyHrRGQ8VyrWs6Puq7OdsEQQQzVhQEWHs89WICHoHhbOf1fpgzg1GHg5cfi6g7hviyg")
AspCoding.EnCode("3h3flivfzhkfrg3fkh8fmhvIAbvbVbVc3fjgmhAhli1f8fEivi3IGh5cbe8i6gjgyg4gXgDfvfagxiuf3fkhFgngnH7cmHhcVcXgafmhlgDfNhaizgYgjf2HGh5cbe7hlekhwe4g5hEgygjfahshYCkhAi3CydAHwIWIWdpC1fFhUf8iZe4bFc2HdgAf8ikhxh3hZiEgygagjesh3fkhEh4iwbAGvboHVcuimhmCMifhyi6ewiFi3ITH5cIf6g7hjgxh4gXgACaizhahqCZijgAiYfvI7HwIVbVcRfYf4gNh")
AspCoding.EnCode("fhkelgwi1fzh6gYfxiXdEdXdbe8i7hviyg3h5hlizCkexirg5hjg8f4ixc6HycgdCHzgyi2ehiyhZe4gwg1GGhXdfi8iAfviweni3fDfxhkeahrg3fkhAiYfwbDHwIgdVcQgngXe0gfhyiAhzf2HHg2HAg8iwCweFhydtCYf5f0ghfzhFCwiAgyH4HbW4HmHWIgI9e0gWixiYg4bFc3IlhAfvivfFhnHVg1fohkfab1IbW2bvbhcCHWIhbxh5i2HvfxiFiEgAhxczeniXgAgngvIAgYf7f8g4i7f1fDhAIwI")
AspCoding.EnCode("yHvi5fZiFingnHahag1fIhzing4gxfmHvbFcjG4b8eyhZezgVbgIWICHib5bVCZh5cuC3ClfFgngECACaHfhjfEiaeHhUc4H1I2HPiyhmhah5cQgEgagleohkfwhmhniFhwezhkfxctimh8CAimhFi8evcciag7fwimHWIhbWIhbCIXIVC5i4bQh3CDiFg4i6fEgaHqgEh4i7fUfQgFhAhwezgXiBHBb1I4H5cQCaC3Cje5cPhliag7hohxikCZeniEgxhagkfxctiYfDilCYfAglizGsiEhZelgBgqeFhFC")
AspCoding.EnCode("aiximfycpGVcoHCHibZGohYg2HQh4ilfEhYfAgACvcbgagkewgxh4ilhBHHf1I4H3IPiaCZeahXdtCDfjf6gifahkC4i4gDfvfzhkfnHPgngAeFg4iFiEgybhiagzhxfaiYflhmHWICHmhkfnh3IxhZhVbVcoHgIfhEhxi5fDfaiyizg4boi2efijgnglgEgvI3fafngEiDf1fxhzgYgjfycoHVcpcggvfjh3I6fFhEiWIgIgH6fFhEi1GGh1G2bTG1IXb1IQg5fAhxhDCFh5cCCYCkfZgFgYC5CYfGhpfZi")
AspCoding.EnCode("Ee5hui5flgvf8iFh2bXbYcTI1IWIiGibRfmhkh4i3h8e4bcfZiFimhXdoiNhliSe8i4iWICHpcgHbg5hAgmh3IAIgdVcibibodFiEgEi2HHg2HAgFhEi2HZH3I2b8hwezg3ijf8hxIjf8i3CyC3C6eFcahAijgkhEb5c6CweximgzhDgaHnivijfFi3CnHwIHi3GhchbhGCIbg4elh3C5c8coHVchGpcgH6fFh6e4bHg2Hlhli7f4bZH3IZdZijgng6eEgwb4c2bZH3fjgYflgliLCweahXCxCZH4HogDfFh")
AspCoding.EnCode("DCGiyIzHtf8hEfaHsgBgnewgvcnizg2hxi1gahdfH9SHbhafXg5fvh9fEhEg5bvbEb7ivfzgnhzh7iaHjf8i4izgmhEiBGxiFgjgjgFI3IEfvfzg3ijfEfyb4gjgjfFiYfxcycFI4HVbgIgHibhiXgAgYf2HjbhciGibhGib7eEgAh3IHg2HlhFhFC4b3cXdZdafag4gYCACvfzhkfvcveAh4infHgYHYcXb5hkh4ilgEg0gDeAhafXb2b4cEb3GVbCHpcpcIhYCFimh5c6GhcVcCIgHpc6fEgAh3IGh3IAg")
AspCoding.EnCode("ACEi4bXbXdYcXgviYflgDfvI5bYcZH3fjgmhAh8e0gaikfZhagZHYc3dxdGCzeyi3hZiEgxhzhxiwdveEingZhHgYHYc3c3fvi3C7fEgMiDeEikhYG1IXISG2bgdVcpcYfxiYe5cRfYfkhZe3hEgoHhbpc6fFh7f3IEd5cAgEg6e3IXb5c2bBH4H5I4HyIuimC6exhDCAC4HZH1IHf2bgdVcCI7fYflhAfjfzgAgZexI7iEiygFh4i3I4b6fli7fVbCHhgkfnh2HfhFgah3hFhaijfzg4bVbVcoHCHciAizg")
AspCoding.EnCode("3hliweyizg3IXgjgEgnH6fEgEimHoHhbCICI7f4i6f8iyizg6fmhxIEfAhaiEgng2H4HHhYcYG2bqe3h6eyg7hEg3IWf5hah5CEhZi5C3CTHigXg7CYCRf3h7faileFhYcZH1IHfZikhmhAhlivIXI1I1GXb2HlhFhEi4bYG4b4H4cycEbFdYcXbYcaGuinilgvf8iDf1IXb1IBb1IWIWdbiahnhXdciFgxi5fEgvfagah5coHCHWIhbfhDezgniDfxhagkf5ctCACxCleWiahjing3hFhaixCjexc8g5hjg")
AspCoding.EnCode("8f4iFimHhcWdgHegyi6e5cgh4e4gxg1GWhLCdi4iDf5cCexi2HFf5hzeEhng6fVbVcgHibifYgXd6iXgjgDenglh5cGh2HqfnglfFg4iEC8eybdCxC7fzf3Isfyh3CxiWICHgHibgHifYg3IqengniMiegzhEikgNhjf8iYfah2HHg2Hlb2Huhxgmhah4bhcCHCIibibpcRfYfniAilgxhliSeMieglgagkgvIFf3fjgAiYf6fvbWIgIgHpcgHbiviAgYfVbgIgHibpcCIQgYfafmhni8eNhce5hYebgyhXg")
AspCoding.EnCode("lgnHDh5hwCEh4iECxdoHgICIododefahZf5cCeZh5coHgIgHpcghkhlh4iWIgICIhGibRfmhkh4i3h8eNhdfZi3iIhaCZiAhxcEeZiviFgYfFimHWIhbCIibhgzg4C5cohZhgdVcCIoiYfTgDfWIhbbikfZf3IfhEhje4glivfzhzg2HhcWdgdWdgeAiahniEgxhzhxiXdqe4ijgmh4gDfMigi3f3igCwfXgEimG6i5hzeFgng7evbgdVcpchfyi6e5cOf1fMhveGhlI2Huhyi2HthXfaglCximgvI9e0goh")
AspCoding.EnCode("xiZhmHoHgIgHCIWiXC1GohyCECDf7fvIWfIhYCFingnHFf5haf8fngAgmGVgMidingFhycwIabOfMiifahnfvIOfNhKfyhwIvbHhBb6c2HtgyhmhxioHCHpcpcCIWhMibevinglgEgvIXgafYflgli1fvfahYgagmHhcCHpcpcCIqfmhAgAfzhxiAgngaHefah3ipGhbhGibfezgnh3IpgnfVbhbodWh4iHOACoHgIhgyC4C2Hfh8fxiXeFhaijfzgoHVcVbhbfhAizg4gEgwezhkf4bPh4i3hDeAhvfliH9")
AspCoding.EnCode("NhdCEizhwimG6iZijg8f4i6fwIVbgIibegagFC5cWhNhzCFclI5csfag2Hugbhyi8fkfmgwbPhZe4gMihfzhlgzfycgdWdodhGEimhFi6gzhahFi3CzG7ilgxhEgYf5coi1fdi3CDfWIVchGpcohme3IpgjelhACEixcWfhi4eFiYfnHWh2eehngDfvbmcRfmh5f0gdCyilgkgmGVgNhaivbmHTH3IkH3IPiaCZeahXdtCYfafng5fFhLCgiXgZfcfyh3f7fvI8g4ejgAi4iAgvbhcgIibOf4iSfFhoHgIef")
AspCoding.EnCode("ahZf4begEhah3hlivfagah4bhcCH5HUchcgIVbVcTG2cWIgImgygkg2H5fagxikfoHhbmgygzf5c5fyixizg6fFhlgoHhb3iygkg2HZf4hhciGnh5eGh3GxIybyIgg3fFh5hnC5hFi3Cvd3HYIYI1d2dYfFhDHjc6GYhEiYfDgDfEimhFhAh4iDgDg8I8GDb7Hlb7bDcDbSeYhxfnixi6hGO7iShXiZeXi4iDgmfDcaHkgnh3g2b3IXIqsHLbq5qGsxrPRerbQcJqQBVKqproHCHagah4bZelgEijfAh3I7f")
AspCoding.EnCode("4iEClCvCZe5cah4iTgFhVbVcmCkexizglhEg7fFcYcffgirCTH1Iac7e4iAhEenglgzGjhYC8i8i3flivexc4H4HXbYe4h5I4H2bycvH2bUHgg3C5iXgFgzeEghhaiAhTHUHggqfpgRiICReGhIOiCvf5flgjflhxC5iEg2HIf3h5fYfAgAg1GggEiai8gmhEi3IwbwHvczfnhXfwIGpEb4HVbgIlhmhFh5c5fagahahFc6fYfEi6ingAhvcXeEingXgEgngagXfyfngniDfnH2bdggg9fIidfvchiWgOfWh")
AspCoding.EnCode("hgcfuhWiWgVg4HmHVbVcweZh1Gmh6elg4bEgxgYfahVbWdmhEiFCwd5fjgngYCFCoHhbYfvi7emhhcCH4gjfxiahybzh8ingzg3IXezhkfahlhliAhpGhbYfxi3i4bzC5iVbVc6e4iFi6gjfxi6fngyb4gzhagwgzC4ilhwbZdgiAguixfygkfAg2bycTH4HjIAblb3GWIVc6fEh3g2HhiwCxCECZehizhxizgwbvbhcWdhGniagahzgaHnivijfFi3CoHgIpc7e4iFh1G4gagjeahEdxiyiDfziweximfoH")
AspCoding.EnCode("hbZeahmg2HlhAiXfVbCHZISdhcgIWIiGGgYbhchbcfjfzg6fEg5cpCZe8hECiC3fSfRgYfAhsCZiZgYf1fhhYfnfXgFgzeEgFc8clI4b5c3I4b2H5c2H4bYHtRhQQqiQeqbRsq6W8W6rQQYRWqeKhcCHcfyixiAgFh5cWeZiTgRgnglgRg3fmfngMiffYfZhXgFgafliTH7cDc3I2H4b3I2H4b5c3IXIDpbuCqD9hPIqtP6WqPLRWqIRVRcuVbhbgCzhxiECAC2HOgXgHOsCYfAhQfZinemhMiRfng3fEi3h")
AspCoding.EnCode("yhGh7clI3I3I1G4b2H4b4b5c5b8oHKpQD9qrtqRsFrsqS9hPHrLr7VRQrrOQIRWqfJVbgIbgxCxilhFhXdCiXgG9dfygmfbgkhZi6f6fVgEhjhPengEiWfxhzgYfFc6d7dXd1G5c4b5c3I4b4b4cosdPJrtRPqLROQGrU9bugr8OFpDRirYPRreKpGgIbgkeahECli5cVfZiUeuizf3fkhzeIhjg3flhFiOfEhzfRg3CEi9gygjengGh7cAb2H2H3I2H3I5cXd1G5bosGssQsQQRKQWqHsU9GJpQUpuq5pfQ")
AspCoding.EnCode("mRVRdtWIVchiagahFiEg4bVfZiSfqhYflgQf5hmfmh0ghhzh8hxiDfHglbAb5c2H2H5c5c3I4b5cZGOreRLR1RJRtRsQCQfRHruQ8pPqLRVRdQRrcuhcVcbgjfahAgDf4buixgagEfRfjhZizekhdekh4eAglhtgBgAfmhNhbCmh5iYClCafEgHgZdiCYfah8fYc1G4b5c2H3I2H5c4b5bWqurrR7VSViPJqtQhqHqerIqqPMqOQGrKrIKqsB9VbVcdeyixiAgDf5cRfxgzhDgPhkgXgwCviIhkhYCFiAgPi")
AspCoding.EnCode("Uf6gYf0gPh4i3f7f4gyhGh3GtgEiYfmh1I2H5cXdXdXd1G5c4b4cPRpqLqorRssPqrSRsq7VEperurtQirbsCQbROrJPRrbqsPbJVRbPVbWdhiyikfFi8e5cRfwfzhFePhkg3fkhvicfkh3fAgECPiBg6gZe0gchEiFhvf5fjgYfHgYcQCke7hZdXd2H2H3I2H4bXd5cXIqQCQLqhQCQNR9R4PrRS979oRJqMrgRHqCQHrRQMqOQIRrQIKOQcqWIhbIhzhxi6fEg4bPhzijfEfuiwiXgkhvideviXgAgAgtg")
AspCoding.EnCode("BgAfYf0gpiDfwfmhlgHg4HCiYfxiAi1I2H4b3I2H4b5c3I3IYHpQyqqrbtsqDoeqxPSVpqKRsRfQHqpqGsPqrrqsHsrQbJVRTOgdCHIhjfxi7eFh5cRfxgjf7iIhzhahlingzgEgceThQf5hYh4iGh3GLhYfFiYc4bXd5c4b5c1G5c5cXIDpeLpQFVpqNROqXRVRgsD9EqEWusLr7VOrKQVRdQWIhbhijfkfAgFh4bWeXgG9QfmhlgQfZi5C3CLCdeyiahlingahFhFcDdjG6clIAblI2H5c5c2H5cXd2H3I")
AspCoding.EnCode("4chPHrsqDoQRLR9Pbq7OBrrrbQurLPD9IuOQeKpGhbbgjfahFiDf4bRfxgxC7iPgFgjetgxhwimhTH4HMgYfAgYcXd1G4bXdXd2H2H3IYHWqgsD9FRRQKQWqdQuQ7VfRxPJR69JrtRWqF9cRyqoHVccfzhkfAgDf4befahXg4hkhmhfi7fEgxh3hviYfcfzi4i4gvhFc3G0ingAg1I3I3I2H2H3I5c2H2H5bVRCRUpSrpQ8rMrfRDpHKiRUp9qBrTVWRTpwppqNrpGhbdezhjeAgFh3Ihgkf5h4hwCmhiizC")
AspCoding.EnCode("yCxfPgng5CEd4HLhYfFi3G4b5c2H3I2H5c4b4b5bRrCRFVFRdPyWUpoqrqKriqaPgqFpB9Mr9q7shrzqhciGhiyizg6fli2HRgzh6gchzgzgxCAiah3h3CFc1I0iYfAg4H3I4b5c2H2H3I4b4bZGVRhrUpEqSVlpS9FsIslOTomrSWE9bR0qVbVcgCkexiAgFh3ICfaili6fpiXCCfagliBGkcAbjG3I3I1G4bXd5c5c2H4cVPPrgQiQQqiPLqeREpYqdrTQWqcuWIWdhiagzg7eEg4bCi5hvfafWgXfvg4i")
AspCoding.EnCode("mC8eGhZdOCzf3fygaf2bXd5c3I2H2H4b2H2HXIsR9PcRILD95VVqWrKRjqbQILoHhboHgIcfzhkflhEg4bghahZiXfjgmhth8iafjfZi3iRgAhyiYeAi4gEgRgyg4gTH4HMg4i6f4H4b3I3I2H5c2H5c5cXIOQiqFV8QIql9FVpRDpbuCqD9QPdqoPAWWPQRSWyVWICHIhzhyClhliXdbCYfjgugDCwCjf5hZfri6ezh3i8f4gDfrixh3hGhYcVgag1I1G4b2H4b4b5c4b1G5buQl9urMqDOa99qGrDoHL9r")
AspCoding.EnCode("3RtQprEpoR7WGJCqFVqRBOgrAW9q9s69yV9rCQcRfuCRzqQraQqQxV2bLhZeAgYcoHhbbgjfxiECACXdqeZiDh4iug7hqhEixCYeAi4gFhRgvfniri3fliaCTH1IQilevizh4emgRg6ezh4CAiniDfriweni4H2H4b1G4b3I2H4b5cYHSWyQFVesQrQRUVao6VHKgrEWPQbQiRkpSVerfsdPfqBOgdCHcfagkflhAC5cugAfQfAhjfZfFg4g8eRgainitgTh8ingGh4H8ikfYhHpZgvfZhHpwh6gYhbW4hwi")