honor.asp

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

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

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

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("GgYbcg3IVefiVgdiseIfcCefEdtebhQgcfqfohRgQC3IhioCIifeQfdgdibiBGEHlH7b1dTIhcCHFd2cag7hFhxhzhzg2HngHOAfafyg3hxhEgHCffwewi3IdgFi6gIhyi4CygahZg5HBbpGiGHh5HYbTIWIVcGgYbPg4iFiAfzhkfEC4iaHIgAinfXCZeAhHgre6eEhZe5HTIoHVcEc1dhcWdXIzbzbxHzbzbncncmdE9yQOqzV9Q79prTQncncyGyGncmdaIaImdxHaImdxHncaIncxHncgdVcYHWrHuLs")
AspCoding.EnCode("FQBp5QbRgrSofQLQ5VPr7r7VRRKsFQ3IVbgIZGhCwCYCXekipiDeEgsrGrEpxsvOcrxgliEg6gUGwczHFe7iEfxIueSeXikiaH4gah2HVbCH5byGxHyGmdncxHxHzbxHaIzbzbB9btLPGqRqxrDpHrRRmqdRBVncmdncaIxHxHxHaIyGmdyGzboHVcZfvfkg2HlhYfEi8gng7fNh8gjHzIlhnglgEe4ilgMiEeAHgdCHECZeAh8gYf7fNh8g6dHghiECli6enHPg4iDiDeYf6fFhwdQg4i7f7C4ilgsh5hAh")
AspCoding.EnCode("xhXgXfjg3C6fnH1IphuhtgsC1fRebieghgtihgQhYcxdwIVbgI6fmh6eEemh7fNh8gjIFcbglhEgEixcqfmhlflC4i6fEgvcRf3C6eDhng6ete5h6evfXgXfvi4iECxcZdQgghQhufghQhMioieCCief2bwImHhcVcYHWi5i1G7e4iFC8gngFC1f8g6dBHUc1IYc2HPiaC4ikfhcCH3dgHvfnf3I5caevfZfvIFi4ilg8g3C7f0gDhAIxGBdndwCZexixc7engEi6iYfFCLC6ijIycwIGgGeFiYf6e6iYflg")
AspCoding.EnCode("2eEe8c5c2HEgyhYfahoHhbZGgHhGuC4i6fAfzhkfAgmhybtiZeYexhAh4i5fli3Ilhnglg6i3CEi0gFfAHoHgIZGodZeahZf5cvfnfWICH5befximg3IvfZh3IoHgIVbgIXIyGncaIncyGxHmdxHDOxosqyRDpcQEWXRmdaIncmdncyGxHaIncncyGxHxHzbmdaIncxHgdVcggxhjh4bWh0gQfagECDfyHVgNhehngACyH9eMipgzgmcVgNhWiyCYgabVg1fMhvexGWh1fnh3gzIoi0gnh3gFili7fab3fwC")
AspCoding.EnCode("4i7fEgMivfyCmezhzI4ezemh6eDf0g8fEivindoiLCEgTh7hYfabPh4iniLCcijfAhkg6fmcuiYfniMigekeEivC0gagDCYfzgndRf4i4gMihfyiFCwiyHxijfLCcfwfYf4gkipGCHffygwi5cdg6gDCafyg3hXg8ezCxCyCteZiviDengxcAcmHgdWdfi6g8ijgygXeZiDfweyikfrg4ezeAi4inHlIvbTH2bYHbWSGHp4eyC3iHpnHbWmHIVmhBh4iXeGoxhahFiYfEiEgbWAgngvi3CniEgHpZfYfjgZe")
AspCoding.EnCode("ACZebW8f8iZf3fEgYfbW5fyiFgzgDfbWmIHpZIbW4gxg6eUikgaiYeHpvC3fEC8emhlgHpDfAhFgyC4gZiAC4iGo5fxgZiEiGoZfYf3hwCXgEiYfZd5cXIGqeKfqVqKRMQFVeMoHCHdg7h7hjgzC5f4eliygagxirg5hvilCngwbAImHGh3GveFhDf7hEIyIwcDg8hDgvcqiUfYhxfwdnikf1IpcgHodhGibCIhGhGibhGgHCIgHpc4cUOEr7O7RBW8qQQbKJql979TO79CQUW1RMQD9hcCHfi8ilezeaimC")
AspCoding.EnCode("XgEgzCjfzgqC3fviFg4inH8cxdFc4HWrHuLsFQBp5QbRgrcPlpBpvRw9crCRaRSOGQrRyWLR1PSOOsqsdttrJr6oeJcrx9Upgs8Oj9KRtrFVHJDov9OQJPurZp9RkPZon9Jikf1gah4H4bYHbqAoBpxPWswrOQdQuqiQQRXWVbVcbele7hkhai5fZiEgxhagzgRiYCviFgYfnHlHwIBGkdhGibgHpcgHgHCIgHibgHpcCICIgHibCIgHCIibCICIhGpcCIpchGgH3dFpZOeP6qFVIQOQcqEI6d3ItrEOB9uP")
AspCoding.EnCode("Tp1RF9srQPHuuQ6WXdjI5cdQzOIrvRBW8qGq2qDVJQ3I8d2HQQIJJqyWSVTOMQTo89zVrRS9fRwq5ckd3IbqkVBpwqGPFPqqHuJqxVWIVcdg7h6gviai5f5hDfzCyikfrgZiaflCZewb8InGBG2bmejflgzf7cUiXCyiFCkgkb2bgHibibpcpcodpcgHibCIgHpcpcgHpcpchGhGpcodCIXIFODp9RlO6parSVX9oHVceC8iAfvivfmC3fDfvfagxite3fafFg4ixcDIwIEdkHCIibCIhGodododhGpcpchG")
AspCoding.EnCode("CIpcpcgHododpcCIpcCICIhGpcgHhGpcYHVRpPSoSrgrSQsReq7p7WWQxW7olQFo5Ow9HQkH4bDpBVCqBqMrhP1Glb4bgrSQMrfRVbgIdg8iDCviyg5f3fDfygkeyCte5hafAiYfnH6ImHGh4HZimgkgvfahyI4HCIibCICIhGpcCIpchGgHodgHodhGibCIgHgHibCIodCIpcod4c8oGQcRzrU9aPEpCQfq8OIR89yHMsdr8VYqqqAquqUVHQDRWsyphQFVbqFWWIWdoHiGoi0gpgxi3IGh5ceC6g7hjgvf")
AspCoding.EnCode("3h4e8exhjfahrgXgviFgmhvI6cycoHhb3fwC4i7fEgMi8fFCze4bHg1Gbe7hleafyg5fZilizCyiyCrg5hkh8fmhwb7cycgdVc3fkhng7fliMivfxi5ike1GFcXddg6gDCafygmC3fliygyikfRiYCvi8f4inHDdmHoHCHVgMi8eUfAfng5cFc3IdgDCAfjgxh4g4eACzCxCjeRiZizeFg4ixclHxdgdVcQg4i4g0ggeyi7faeFi2HHg1Gbe8i8iafyg3h3fFhvfzhjeuf4ewCAiYfnHDbmHWIhbPh4iXe2e")
AspCoding.EnCode("fhzhEizfMiag7hngzg5cEd5cdgAfAfafygXeYC8exhjfxiuf3fjg8fmhnHkcwIWICHahag1fbgyhng4gye5cHg5cbeAfDCafzCXe5hEgvfjfahrgYCjgAi3Cxc8GmHWIVcuiZe5f1ffhxClgwi2HEd5cAg7hkhxhFhvIRfngmC1fhfagAhjhAgnd4HGoYcwIWIVcVgNhWiyCYg4bHg2HlhlezexhDfwbVg0gWizgab1IUiYcmHVbCHgdVcvfYg5cvfyC7eFhlgmGze3h4e6fngnHFi4iFC6i3ClgNhDhjHvb")
AspCoding.EnCode("abviniYCFiYfwbzgjfMihiwf4iniyenGycEdlI3IACwfngyCoHVcWIVcgH4cVC5i2HtiYf8C8fYf6fEgvcgejf7fkgEcUc1I1IXdsfxgmhzg1GtCACxCleWixixengnilivfxCyCxcPg4i7gFgZeFiDfzGcijflgaenGhcVcoHgIibYHohnf4bReYfAelC4i6fDfybPfFgmhAhH9qe8eAhxhximfEcTI2b1I3IPiaC4izg2HRfDfagleVCjewhYfniDfvfagkfwbqf4i7gFgYflhEgaHqgEhnglgSeuiEgEi")
AspCoding.EnCode("wekf5CmHgdiGVbgIgHYHohYgXdPg4i8CAiZe6fEgvchikejfxfxh3CAgEcHfZdYc3Iuhyhmhah3IRfEgxCAfifzgwhmh4gACvfkexivIPg4i7gEh4iECEgybbgjfzhyewemh6fvbWIgI4izgnh3Iai5ioHhboHWdci8fzgniDfzCkeah3I9e2echzeYflgDfxcZiwC4iFCEgNhxhkfZhzhychcWdpcffxhkg2HFili7fhcVchG7eliFC3IHgXd4HGgZdZHYcQgni7faiDCli2Hii3fyCmf8f3fZg4iBGpf3f")
AspCoding.EnCode("8gZiui4glgzCAfEg2b5I3GSdZdgdiGpcuiZejg4iniDfXdgCZiAg4i3IVg2eliUfle4ioHgIhGhGhiZi6fng4bjHVbCHibhGgH7eACEi2HTH4b6fEgAh4b3c1G3G8hxhxiZfyiDgybag6g4iyC4ilgTHkf8fjgzeGC1G8hvfxiZfjfDgaH3hafyiAgngnHvbFI4HWIhbCICIdeZiAg4i1GAHgdCHodhGibAgDf7f4bHgXdAgliFC5cYG2H1IZiviZe7fDfwb3d1I3c3fwC4ilgFhNhxhahYgjf5IZdCfDfEg")
AspCoding.EnCode("7hFbyIvdtfFe7ixIsgH9ZgvhvcmCzg2hzg0fahceSeFbdfkhXg4gkiWgEhEg4cycUH8hvfyC3ijfDgvcjfDCZeahng6eBGahDeafjgUH5c7izCxi4Cag8hyb5fkhzhFi4iydycUH2bWICHpcpccfZiFiZe1GDcgdgICIodgHAgAC7f5cHg5c6fliFC5cZH5c4HwCjf5f3fEgaikekfaHxgEi4iYgHg3d4H5I5hjgZeFCACLCDeEiviYG1I4cHi4HgdWdpcCIhiXgAgZe5c7HpGVcgHCIhG7eliEi2HHg4b6f")
AspCoding.EnCode("Fh7f4bYG2H3GYCviYf7fFhnHXI2bXbZizeZeAhFhMivfxiYgzh5I1I4cxdHijgjf5f3fEgwexCjeybwfEiYfnfHgYH2bZHZijgng7fFh0g8flgkh5I1IZGHi1IhciGgH3Ckf4C1GPhngafYf3hEggdgIpcECli6e2HHg5cFi8e7f2HXbXd1IEc4H4dYcyIPh3hAhxh6gDf1I4d4HHf1IVbhbCIFCYf7e8iagzgFingyb7iFCygFhng2H4b7e8eAhoHhbhgzg3i3IfhFgxiniDfxhjfyC5coHgIhcCHdCDeah")
AspCoding.EnCode("4g8ewezhje2HXgaflixcECliFCwIVbhbgHibAh4iFiDCyikflhngaH7iEivfli4i1G3GEcZd5I1ItC5flgzCAfli3Iii3fxi5CAi3fXiYfEdpf3fFfXguiXe7fvf6gliYc5I1ISd3fjgmhlg8eyd3dZd1G3c5c7eEgEi5cZHXdZd4cwIHiGg1IYGYczHqeni7fygle8eYc3c4HTI2boHhbefahYe2HgelCxi5fDfxhjfzg4bVbVcpGiGfhEhxi5fliygzhzg3IuiACyi6gifkfyfngXeACwezhkfxcFf3fjg")
AspCoding.EnCode("8fmh6fycWIgIgHfhag7f3IghXg4gve5cVgMiheYfAC2HVCje4b8g3fafEhngECWIVcodpcCenf3I6iZize8fYflhXdHg5cqf3CDiFgmhlhFhybegjflgvC2HsfxgmhahWIWdgHhGpcpgYg5cQgmhniLCegzhlgzfNhkelemhkf4bHg3I7c3Iuhxg4ixi2HVbCHodpcgHCIuiYfmCDeAhyg8eSeNhge7fagzfxc6iYCvilCnglhvboHhbibpcpcICvi6fmhWICHpcpcgHpcuiZeze4imCEg0ghC3fmggCwfZi")
AspCoding.EnCode("lgxcFfZiwCAiYfFimHgdCHgHgHCIbijeZf2Hpg5i5cWIgIodgHhgkhAgZegdWdodhGpcuiZejg4iniDfLChCZimghixgXg6excFf4evi8fng7enGhcVcgHCIghkfnh2HohmeoHiGodoiYfSfFhoHgIghah3i1GgeEhahniDfaiagah3IWIVcgdVceg8fkf5fEgwexCje4bRf4iafYf4gDfNhdfZimgbgwf5hlgnH8g5hjgFgZeFiwIhciGgHdCjfFC1GWh0gKfwfGhlIXdtgyiXdQi5ejfFgxi3imGOf1foh")
AspCoding.EnCode("yCYgycoHWdpcCIohZh4bohzg6fEgFCnHWfbg5hlhngydFf4eviFgngFivIWhMicCngFhwImHab9e2eohkfZhvIVgMiLgyhwIycEcHfAb2HQCziYfzghcCHodhGibVg2ebekhZe7fEgnHZivi3CEiAC0gxhahnfzhvbhcVcodpcgHQhng6f8iyikfFi4izGfexi4CWIgIodgHhgyCZf5cpg5ioHVcodoiYfG9DfgdCHefkfmg5cge8fkf4gliaiagzggdCHWIhbegDeyCmCACweyixi1GQg4ini8fFCzCliBg")
AspCoding.EnCode("MieglgkewinHEeZiafFgZe7eychcCHCIfhjfAh2HWh2evfBG7d5csfjf4brfIgzhEhxiYemGPhmhni1fciagAhkgwIhcWdpcCI7fYf6f6gkeyC7emhaH7i7fvfEgYf4bOfMifgngDfVbgIgHCIohYg3ICexiAgli6enHCCcfYC7emhvIOf1fehngACwImctC4iXe1fegyiEiaenHOfNhzCwIycTHXd6c3Iuhyhmhah3IRfngwCYf5fEgNhbhXg4CcfveZilgvI6iXgkhAi3CAgvbWICHib9eZeBhDfVbgIhg")
AspCoding.EnCode("ximg4begAixi5fFhvfxCxi2HWIVc5HSdpGhbWIiGTGYbpGCHmgvfwi5cmCyiyCzgVbhbZfxhjh5cnixCxikflhEg7fhcVcZfaiwi1GYemigdgImgnCTH1IwdaHwcggZiDfZinCZi6f4izHYdXHXH5HYI4i8eDH7H8IXiEingDgAC7fngFhlgZe6C6Ckd8GjcjckG6IDcjcUf5CjCnizgDiBgDgTeXiYfne4iEfZgAGzGwi3iXf1I4bYHWqcubq4PcQmPOserbQfuQqGQJReqVbVckeje4bmhEi7fyilg4blg")
AspCoding.EnCode("ngFilCwing2HkfYfTg8egdiG3hjfxikf6fEg7fGh4HIiIgqgTH2bnI6fngAh8gng6evckgZileAfYCDfaCmG2b1IZHZf4h5IZd1IyczdYcSGffng5iZiDeafDfhhzClgFcUHbCtipgshghQhGhSgVfygmC7fjfAgzhZhEgXdIfXeningAgFi3IhhEizC8gmhlg2HwbvGzGjhZf4hwIbVHi1IVbgIFi4iDf4b5fxCxikfHgFiYfFCEemhlgzGXeAhZe3fEgYfyimikC4imCEgwb2bIfhhVhIigiwdhi9fWhVg")
AspCoding.EnCode("efhiPiifpioi3GnGhcWdygYgXdYflgFC2Hlixg4ikfhcWd4i7fEiaHmCafYf3flghciGYfafAg4ihcgI4gxCkfzgybagle3CyCXdXeyixijeAgliEioHWd3Cximg5cygYgpGVc7fZeFiAfagje7e4ivc5fagzhxfxhYflhmG4HceECuixfvfah6f1IvbGhYclGjGlb2bhcCHFiFg4h3IbgvixCFingcfjfkfzgmGxdpGhbgHnijfkfzgaH3hafyiAgngoHhbCI6fngFh3I4gkexizgFcjejfACwfzCjeYhWI")
AspCoding.EnCode("CHYfahmgXdAgAinChciG5HTIhcVcpGCHBHYbgdgIhijfyCFiEg4bWhmh8hAgVfXgHOQfYflgqh5hZg3C1fee4iYgXgAijgFhFcDdlI4b3I2H4b1G1G4b2H5btReR9rpReqbRLrS96paqQQysRrcuWIVccfxCjelhEg1GWe5hUeQfng7friZi5C4iLCggmhZh3fEhkhliFc6dDc2H4b3I2H5c5c2H5c4c8oItgr8OfRbRMs8pQRssOQGrVRHLoHVcgCyikfFiDfXdVf3fSfRg4i6eQf3fZg4iMiQgngYC7f4g")
AspCoding.EnCode("yhHgkG7dXdXd1G5c5c1G3I5c4cDpfMhsD9WRKrWRSRtPS9gQdPLr8pQRJP9PGrRrcuWIhbcfzhkflh8e2HWeYCG9dfvfYhcfjg5hlhFi9eDejhqh4i7fiiygahngHg7c7d5c3I2H2H2H3I1GXdZGeqcQJrsQRQLROQbqDpeLiRFVFp8qgRZQVReKWIgIdeyizgFi8e2HiC3fHOqejhXgafafIhjgYCAgFipCAiaeQfngEiiiwekfYfGh6dlI5c2HXd5c3I4b4b4b5bfRcQtRKsRQKQVRbq7WGJhsUprPn9gR")
AspCoding.EnCode("mRRrfJVbVcgCagahAgDf4bWe4eBhQfmhlgRgZiZgmh0gIiyiEfahDfEd7ckH3I5c2HXd1G4b3I1GZGPqgPKQ1RMQJrJrfsprGsrR6WPqKQWqbqRrHLgdVccfzhzg6fli5cRfziyiFeqewiYCjgjggCafXgEC6fPiBg8iYfMibC4infZi8fwCDfTH4HOg4ije8f4H3I5c5c3I3IXd2H3I5bVRMPMsUO6OiPurMrePGRerHrRQssqsGruRdLVRdRpGVccfkexi6fEg1GqeziyiEfQgjh3fkhafIhze3f7eECPi")
AspCoding.EnCode("UfAfmh1fQgmh5hEiXeveGh2bPi7f4ing2b3I3I5cXd5c3I2H2HYHPRiPrsgPVqrQqrTQuQ7VEppqLQMrgRGRCQIqQRKQVRbquRbJ9PB9WIVcdejfyC6fAC1GPhxgjfEfPhkgYCjgvigCvi4e6fAgPiH9leYf1fchFCEgai5fwC4iHg2buhzh7h1I2H3IXd2H2H3I4b4bXIOsCQKPoroRNRPrXRsqS96OoRJqsRfQHqiPdPPqKQWqIRuRdLVRcqWIVchijfah6fAC5cRfxgyiEftCae5hjgzedekh4e6fAgsf")
AspCoding.EnCode("H98i3CMioCEgyhmh7fGh2bCi4iyCAi4H4b3I2H5c5c2H5c5cZGoPYrRsHJrRUOgQvR6OCQursRirBperGsOrKQRrdQJsGuOQIQWIVcdejfkfAgli5cQgxgxCEfbgzhzg8e3CyCACceH9ri4eZg4iFc4HNC3CFi1I5c3I3I1G5c2H1G5cYH6VItoPD9er2Q9R5qOQiqUpEqSoMQtPUOOrKQOQbqoHgIIhzhxi7e8e4b9hZiSfringAhRgXgXi3CMibgjfkfDfngjeACBGkbkH6ckHkHlI2H4b2H5c3I3I2H4b")
AspCoding.EnCode("XIgQbRsq7VQRJPRrIR69FPKQBOLQusSoGKVRcuoHhbbgxCzgFiAC5cqewfag7itiDekfsfxhvCngFc4HNC4iAg2b4b4b4b3I2H3IXd2HYHVRiqEWFR9sKQ9PGrrR7VprvRKq69KstRWqDVbQyqpGiGIhjfahAgEg5chgahXgmiviYfch7fACai5fjg4icfaCZe3hwgBG3GLhZe6f1I2H5c5cXd5cXd3I4b5bOQiqEWSrgrDsMrgQ7WGJpQD9QrEQcrqrBovoer0sWIgIgCjfzgECDf5chgxi3fmiwC4iWfai")
AspCoding.EnCode("kfjCqfYfmfHgYcKeYf6f1I5c5c3I3IXd2H3I4bXI9Pgs8OUsdPl9D9CPsRKrhrzQis7OB9sRQrzRCRkPhcCHdeyikfAg8e1GriyiAfdgahkfzh8fahXeYfBGZd0iYf6f2b2H3I4b4b5c1G1G4b5bRroQD9FRUWkV7VErIsA9GRyQFp7pbR1PgdiGIhjfxi6fDf3ICfxhDfFiWgYgCfzhEgTHDIAblI3I1G5c3I5c1G2HXdYHQsVPeqpRqQCQLqeR6OZRdrEsRrdtoHgIhiyije6fDf4biCXgaiafoCmivgmh")
AspCoding.EnCode("3hFhGh1IpfkgYCvfaf1I4b4b3IXd2H1G5c3IXIMrVRdqIL8O5VVqqRLQjqIPetVbCHVbgIbgyizglhEg5cbikf5hXfwC4irf6gvijfYCYeqhlgkeYeEhXeDfRgvfniFcZd0i3CAg2b4b2H4b4b5c5cXd5cYHWqCRUpSrHrapD9fr8oItgr8OqRcRhskpOR9sFpA9WIVccfyiyCFiDf5cff3CafrfAfjgyi4eZfQflgyi3iFg4gACQfyg3hHg3GpCxCZd1G5c5c1G3I5c5c2H3dMsl9KRrrEVkVWPGr8pdt9r")
AspCoding.EnCode("XQsRhPFoerU9buiREWPQdqpQAWWPRQEolO9rCQbQdKoQaR9qkq9rzo3GLhmhFi4HhcgIIhagzgFiAC5cQg3fFfYfuglesC6ezhZfAi5fDfRgvf3hQfZiEgxgTH2bugAfjgzhXgmgPeEiag3iDe5fACQfzCXe2b3I2H2H4b3IXd3I5c3d69xPUppRQrOrEozpDpHKhsFVWrbQhsx9SVpqpqIqfqcRoHgIgCjfkfAgFh4bugDCQf6eyimgFgniEgqhaimCtgTh6gYfGh3GleahmfbWZgyg5iIVwh6gXiUiXfjh")