en_honor.asp

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

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

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

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("TGXGbf3I9gfiOfehPCdggfICGhRigiuihiQhpgqhsf3IbgVhIibiqhIffgefEdUbjb8GYbUcgdCHHh2czh6glivfjfxi3I4iBh7hzexhnixh8eHCggaikg2HbeAg7hgCagZfvfxiYh5HHfhcCHGgYbZISdpGCHTG5HQh4iFi6gyixi7eZeaHhCFg5iZhngFCBGtgFCDeYf5HSdoHhbHh5HWIhbYHzbxHzbmdaImdxHyG8VxP9RypWRSVfRUqmdxHaIaIzbyGmdzbzbxHaIzbnczbxHxHxHxHoHWdZGPQbKuP")
AspCoding.EnCode("EPGR5QcQoPEWePJqXWWQkP7VQQrP8R4boHCH3dhCjg5hniwgpiFgliJQIREpmQZoTVxgliEg7hGiwcvdEfEf7ivcRCBgnevhvc3hahXdoHWd5baIaIaIzbxHxHxHncaIyGaIaIcqHJtrHRVsZq7WbRVrmqdRTWnczbzbxHyGzbmdxHaIxHaIxHoHVcnhygkg5clhYfAhEeYf6e1f8glbxG7eYflg8g4i7fNh7CjIoHWdlh4iEi6i4iAh0gDhjHHgbglhliEiwbqfnglflCmhlh8eybui3C7fDh4iAhrgZi7f")
AspCoding.EnCode("vfZi3gvimhlhmG2bViuhresC0gtihghffePgghuC1ImHmHhchb6fYfEiFfngAh0g7ClGTHde6fFhEixcPg4iDiDeZe6fACxIuimhlg7CZelgqC4e7fvfYCXfkhmh6fvI2bRfghqfshICPgLCOfbeOgfe1ImHwIWIgI5bVCnf3IAgmh6e7CmhAh1f8glbEcBb4H4H2Hsfwf3CjeoHhbZGhGygnf2H1Gjhwenhwb6fZelgFfZelgNhFfjHndBdzIkh4izgxcAg4i7f8gYf7f2e8gjIycwIHhUcFi3C7fFf4iEi")
AspCoding.EnCode("LC8glG4b5cFhyh3CkfgdhbXICICIQhYf6fAfyizg7engxIQhng3iygFCmh3hEg5clhngAh6imhAh1fEekbgdCHXIgHngkfZf5cxhYgWIVc5befahYe2Hwenf3IVbiGpGCHXIaIncxHzbmdaIxHmdFWj9LrZrU9IqFV5qxHaIaIzbncnczbxHaIxHmdzbzbyGzbncmdxHVbVchhygwi2HOfMiRgyilhFhxGWhMiehZeACzIoi0gifjezIWhLCpgkfnfmcWh1fKfziyHVgNhmgnCxGOf2eZf4hFililgmcZize")
AspCoding.EnCode("Ze7fAC0gaiahYgxCxGXgwCZe7fDfLC8fAhkhyHVgNhDfThAfmhndQg3C5f2eegkelgzfAgzIQgmhmC1fegagAhaeLCzh7hYfzgabuimh5f1fhfjf7fvCxGkfzh2edexgYf5fyeVbiGhhxhzf1GdgAflejgxh5f3fACzCagahRiXgviFg4inH7ImHoHiGdg6g8ijgxhniZiACvfjfxiRiYCjgDemhxcAbvbEd4H3dbWFIIVXgahZfHpnHUiwIGongTgmh4gUiygyClhmhlglibWAgmhvimh3hDfGonh3Cafng")
AspCoding.EnCode("DfngHp8f8inhXgEg4ibW5fzhDekf8eHpmIbWXGGo5fxglgUizfxh4CIVzfYClhli4iEiUiFhlgEhkf4gXgFh4iUi3hwfXg7fSCnhmhXekhZiFCYf2b5c5bHRHLhQ9QurJRD9GKVbiGch8i7hzezC4gZiEgvfkezgshYCjg8fYfxclbmHTHYcwfEgFh6gHCaGzHFeEf8hvcqiBgXikizGXekfZdCIpcibCIodhGCIodhGgHgHodgHib5b8pURSWlQBWEQqqdMKRAOEpbPSViPSV0QJRFVWIhbeCAf6gjgxhXe")
AspCoding.EnCode("YCFhxhjfzgshZikh8fYfnHAHmHEd3GPQbKuPEPGR5QcQoPbqAoHqwqYpGPCRjQ8oBVsqapKQXsSOPRWqHLJRJr8VGLHQlVUpoQSozVKRtrFVGKS9v9qsKQLQv9Pr6sXVXo2hxi2hahZd2H3dbqkVGRvRqqYQOQdQJrpRqP5VWIhbdg8i6gwCxh3hXglixhagahRi5hkh8fZewb8dmHHg7HCIgHgHpcibCICIpcibgHibhGgHhGgHCIibhGhGgHCICIpcgHibodCIYH7OnWirarD9B9WqdRFbjH3IJR8WB9Mr")
AspCoding.EnCode("Gq0QDVJQVsbKsqDo4b8cXddQjWIrwqTVBrTp0QF9MR5cjb4bPPbKuryWFoTOJRIrEVyptP7Veqns3I7H2HGrjWBpyQcrEQRRbKKRAOpGCHbeAf7hviai4gZiliwekekfqCXgviEhngyd6GwIEd3GnfjfFCzflbbWnfagAhzfkb4HibodCIodgHhGCIhGCIgHCICICIibodgHCICIibhGod5bDWDp9RxWF96qEpmpoHCHIfDCleafxhXe4eEgvfjfjesh4ekhEhYfmGDImHBGlIibgHgHododCIibpcCIpcCI")
AspCoding.EnCode("pcgHCIgHgHhGCICIpcCIibpcpcodgHgH4cRrgsFVDPCq8rrqeqFODpQsxWDV7RSVvWYpHQkH5c6VHPiRTRrqfR5cAIXdCqBqsRprVbgIch8i7hkhvfXe5hACvfagkfrg3fafAimhvI6IycGh4H5hYezfwekfyI2bhGhGgHCICIpcgHibodCIgHodibpcpcpcpcibCIibgHCICIib4cU9TWbQ6RDplsUWpqgPEWGrDOyHsqdrDWZRVr7QsQ69TVBrqqaWgPEWGrFWpGWdWIVcVg1fCezg4bEd3IIfAf8ikhvf")
AspCoding.EnCode("5fZiDfygzhzgqC4eafDeYfwb6cycWIVcZizeZe7fAC0gAiAhjgXdBG3IeCleAfafzC5f5hFhvfagahuf5hafEh3CvI6dmHpGgI4ejgYflgEg0gxhyCnfag3IGh1GeC7h7hafyg3hZiFhvfjfkfuf3fwCDeYfwblGnGWICHOf2eFhSe7hmh2HBG3IIfle6gkhvf5fYCACygzhxirgZijgAiYfvIlHmHpGgIQg4i4gNhciyiFCzf6f5cFcXddgle7hvixh3hYCDfzCzhzgrgXgkh8fYfnHjcwIpGgIQgmh4gMi")
AspCoding.EnCode("egxCAhjh0gyi7hngah5cGh4bIfle7hwCvf4g3fEgvfjfxishXgjgAimhnH8bnGoHiGkfagNhdeveYf4gwg5cTH4beC6gAfwCxhniZiliaizhzgsh3fjgFgmhxclcvboHgIRf3C3hNhgezhEivC2HGh5clh6gvivfDfxcQg4i3hNhgezhEijh7end1IUi1ImHpGgIWhLCpgkfnf5cGh2H6f8iafygFhvIpC2eifjeyH2bUiYcwIhcVcpGiGvfXC3IaiahAgAC6evIwCXe3f6f3CnHlhmh7f8gmh7fNhFflbxd")
AspCoding.EnCode("zIwC5f4eAgZevIkfag0gbgyh3C5fwgwIvbBG7d4bFhwfngahhchboHCHgHYHifXC1GqfmhAeDeng6fDfzGfhkeAhjhBHGe1I4H1GtgyhYfkfXdtCEgzh8ipgxivg4i5fEgvfjfjevIPg4i7gEh4iFiACaHhfyiEivCwIpGhbhchbib3difXC4bPgng7gEhYf6fDfvcqgDenglgThQglilgzCahYhGgUc2b1I4bPiyhmhkf1GPhACjf6gifzgyfYfniFhygagxiwbqfmhAe8fZe6fEgybQeDeYflgBguiDfAh")
AspCoding.EnCode("zCzgmfxdVbVchcVcpc5bpgZh2HPgng6hAi4ilhDfxIcfxCzhvhwemhFiFdHf2bYc4btgziYfkf5cQglizh7hCeahjimhXeACygyizgnHReng6hlCng6fDfvcIhjfjfkivfnglhwIgdiGYfjeZf4bai5iWIVchciGge8fyC4glixhagyC1GVgLCbeafYfFCDfwb5hafngAhDfNhvfahXCagxdoHiGCIeeygzf3IAgEgAhgdCHCIAgFh6eXdGh4b4HGg2b3c2bRf5f7fvfAfAC1GWf5hjeneFg3fmfZeGhoe5h")
AspCoding.EnCode("Dh3fqe4g7fwe6gFh4HZHZdSd1IVbVcCIuingviYf4gDf2HdeXgAg4i3IWhMiliGOAfYfhcVcodCIde5hFimh4b6doHWdibCICIAgFh7f2HTH5cAg8elg3IXb3IYcDgzCahnhag7iybag7h4iahmh7fBGahlCafjgUH3IEfvfxinhagDgvc3hafzh7eYfmGmHFI2bpGiGgHCIbgZi6fmhXdjIoHWdibpcpcFiliAh3IGh2HAgEgAh5c3c4b4HXgaf3CAhFhmG5bYc4d3fkh4iAhEgMivfkf5iag3c2bph8eFh")
AspCoding.EnCode("8iFbaGvdsg7iDgaHueBgYhjCxI5fkfJiah0fkfgiUfEIbhjgYCXexfOe8fFh4cycFI7iaijeYejf6CxIyi7hngyCZelgEdje8fafwCUH4b8hvfzgnhjf8haH3hwCagECYfmGwISG1IoHgICICIIhYC6fng3IjbpGWdibibgHAgFhEi4bTH2H6fDf7fXdYG2H2bzeke4g3fDfwezhjeybyh7fZeYgTHZG1IXb3faf3CFCEgNhAilgvi5IYcYHFI4HoHiGCICIhiXglh4i5ckdoHCHpcpcodAg8eAh5cGh4bEC")
AspCoding.EnCode("DfFC4b5I3I1I5hafYf7flivIZG1I5I5hjg4ilgACNhxhzg5izh5I2b4cvbEbafke3hYCDfygjfzgaHwfEimhYgHg4c2bZH5hzeYf6eDf0gEh6ezeZH1IXIHi4HVbWdCIYfyCnh5cui4ivimh4gFhoHgICIlhliEi4bTH3I6fACAh4bYG4bYcFd4HXbYcxbQgni7fvf8iEgYcXb2bGe2bhchbhGFCngFi6gjfjeAgmhwdDg7fvflimh2H2HFiDflgVbgIICjeZf1GhfEhxiniEgaiyije1GoHWdWIVcfhFgyC")
AspCoding.EnCode("XeEgzCkekf2HYCafFhwb6fEgAhmHVbCHibodlg3C6fleagjeAgYfxIDglgxhACYf3I1IHh3G4d2bPh5flgxh8iFh2HWf3fkfmflC4emfmhBGoeXgFf3fqe3h6exh7hDf3G5I4HGeXgkhYf7fACydXI2b5c5I5cAgli7f3IZH2H3GXIwIHiGg2b3cYcvdRf5fEiaiDCEg3GXbYcBb2bgdCHICahmg3IegEhkf5fDfaiagje3IWIhbWIVceglCah3hEgaizhzg4buiFhzhAfCeahkCYf4gDfygjfkfxcDhXgjg")
AspCoding.EnCode("Aimh6fvbpGCHhGhfagAh1Gfe3f4gxg5cOfNhcCngDfXdohxi5c6iZikhFgmh6fWIgIibpcWiZh2H8g3fwCEhmh7e4bFcXdqfmhDiEhngFiDfaHciagEijh4breyh4iahpGWdCIpcCIifme3IPh3C4g1fhfyiAhzf1fyiAfngah3IEd1GjH1Gsfyh4ixi3IhcVchGhGgHodQg4i3hFgFCweEgGO2ehf7fxCzfwbDh3fjgEhYflhmHVbWdCIodgHfejg7engoHgICICIibodRfngjgmhXeACNhbh3fmgIhzi5h")
AspCoding.EnCode("7fnHFf3faflCZe6fvbpGiGCIgHgHfeahYe4bohnf1GWICHhGCIghaf6f3CgdgIibpcCIuingviYf4gDf1fceXgmghixg5hEixc7C3fafAi4iECwIpGhbpcibghyCZfXdohYgWIgIibOfYfSfliWIiGhgzgnh3IciFgyC3hFhygyiah3IVbVcVbhbhfDeahmCDfygjfzg2HRf4ikhng4gliNhdf5hYecfve3flgwbEe4eafFgngFimHVbWdCIhfxCAh5coiMiNiyhHgAb2Htgag4bQimizh8fzgZfydWhNhCe")
AspCoding.EnCode("ah5ixdoHhbpcibpg5i2HifxiAgliAhwbVeIhZilhZeyd8gZijg8fZeAgwbpC0ggfYflivbmHyHoi1fpgahYgyd9e1fJewfvbycEcTI6c5creveYfyCWIVcibCIod9e0geCzeYf7fACnH5hkhYflgFh1fxhkfZhxCwIgdCHhGCIhGPgYfAg6gagahECYfxIhgahYegdhbibgHhgah3i4bifnfoHCHgHpCZeSfFhpGiGhgkfZf1GfhDeah3hDfweagkfpGgIVbCHhflCyC4gFhaiagxi3IuiYf4g8f7fweEgBg")
AspCoding.EnCode("MiegAhyiwiydFf3fviAi3CAgnGVbVcibfhxC7fXdWh0gygHgAb2Hsfjf5cugceagFgahmgxcQg3C3hNhegyiAhkgvbhchbibgH6emhECAfagkfAgYfaH7iAhygEg4i4bOfNhheYf8eoHgIibhGCenf3Ipgxi6fFhFCvIWfgC5hFi4ixcoiNhfgmhDfwIzIPh4iniNhhfag7fvCwbWh2exhycxdTH4b6c4btgziYfkf5cQg4ikhmhXeFhMibh4e4CbgziXg7fmG8g5hwCFgYf6fycVbCHgHoiYfTgFhWIWdfe")
AspCoding.EnCode("kfYe2HfhAixi4gliaikeje2HgdgI2cBbWIWdpGgIFdXGoHCH4Cvfjh4b5fagahkfVbCHnhzCkgXd5fkezgjeAgDflgWIgInhzCzf3Img4hpGWdnh4hTH1Iybvcxbff3fDf3fXfYC7eYfxb4G5GYI5HXHZeFh8GDbDbmf6engEf8elgmhDf7f3C6CDgDblc8IjcAIlclH8IUfmfye4gzgDiBg8hI9Xi3CmfYf7iXi8dxIaenhmi2b4b3dOQGMbqXRbRYRQqCQbQfu9rBVLPfRWIhbagxi3I3CAhAhagEi4blg")
AspCoding.EnCode("mhFiEhjhYf1Gah3CSfEgoHgI5fjfxiahAgEgEiGh4HhhcePfBG4HnIlhZe6eFfnglgvczf5hDC6g3fACyhxcYcYc3cnh3gXb4H1IwImbYcHihhYfYg3flCkhFheexhEiEdUHhhtiohrgbiqfTHb9Ogai3hAhkelhyiZh8eXddgni4gYf7eAg4bbClgvfFf4iAh2HnHzcaHkgnh3gxdHoUH3GoHhbFi4iEg5cnikejekfEdAg4iAh8g3C6exImC6eYf3fACYfzh4hyfng3hDfwb4HchbCWgbCdfzGbgOeVgOf")
AspCoding.EnCode("hgbgtgohoCOf1IwIVbiGzCZh4bYflgAh5cFhwfYfkfoHCH3C6e7fybXezeng3f7fpGhbZekhlhYfpGgI5fkezgahaHjfDC3Czg4bniagxizgFiDflgoHCHZezgmg5cygZhhcVcFCYf6f8iyiyCAgZeybnizhzhjCvf3ClhvI1IIglhRfxfvfxiAg3GwIHg2bjI6cAIZdVbhbAgAi4h3IIhvizhlhYfdezhyCkfvImHWICHgHnizhzgzgvc3hafzh7eYfpGCHCIlhZe8e2H4gagxikfGhyCagDfaCxhxiXihc")
AspCoding.EnCode("Vcmhzgnh2HAgFg4hhcVcYbHfWICHgdhbHhXGVbVcgCjfahFiFh3IoiYfEfFiOgZiBhqhZeAhri5hne3C0gIingnf4eFgkhACHgAHkH5c4b2H2H5c2H3I4bXIKsgPqQCPgQIqLrS9DV6rVrmP9PcugdgIhizhzgEC8e3IiC4eSfQf3C7fqh5hmfngNhffmhnf5hlCjgACTHkGkI1G3I2H3I3I3I4bXdYH6VGJCqSoosIqsq8pQRMqRrbqOQcuoHCHcfxCje6fFh1GWeXgSfQfZeAhPe5hYhYf2eQgYf4elg3h")
AspCoding.EnCode("wfTH6d7d3I4b5c3I5c3I5c2HXIDpbuoPFVWRKrWRUqLrS9oscQuQS9OrssVRcPWqHLVbhbgCjfyClhEg3IOg5hSfdfvfXibgzeXgAglhVgAikgsCmhAh9gaiahngGh7cAb4b2H1G4bXd2H3I2HXIgQcQJruqQRLRRrbqDpHKoPUpEoEQgRnq9PdtoHgIbgyikflhAC3IVfYCBhuiwiZivikhbgkh3fAgAgWhAiwiqhYflgWfzCahmhBGlb6cXd2H4b5c4b3I5c2HYHprbRJruqPqJPWqGr7WIthsFVJrZVfQ")
AspCoding.EnCode("YPVReKgdgIcfjfxilhDf2HCi3fTgqhngFCPe3fneYfNhIiyiDgxiliBGkGkHXd3I5c4b3IXd1G3I3dqPhQKQ4sMQuquqCQfRIquQ6WRQMqqsIRqscupGgIdeagkfAgEg3IPhaCjfDgQgjh4ewCkhIhafXglhFiuhUfAfYf1fff3Cme3fEhze8eHg4HVfZeahDe2b4b2H1G3I2H1G3I4bYHOQtsMs7VUWerKRMrgRIrCQbRRQKQ9PIRuRdLVRcqhcVcgCjfkfFiliXdQgvezh7iPhjhYCafwCIhjgXgAglhsf")
AspCoding.EnCode("UfAf4i0gqengXgAh4gziHgZduhAhng4i2b3I4b5c4b4b2H1G4b3dqQoRJQeR9QrQqrUqrR7V79pqLQrqePBpiPcQQRMq9PcPrQbJVRB9oHhbgCagkfECFh5cuiziyi8hQgjh3fjgjgIhviZilh6ftgUfDCmhNhbeAhlizC5fkh4iGh1IPijfAfYc3I5c4b4b1G4b5c4bZGOsoRsreRCQ1P9R5qMs7VEpCQurrqfQBpercQQRMqVRHssPGu9PIQVbVchiagxiFi8e1GRfaCag7iPhkgYCzejggCze3f6fECsf")
AspCoding.EnCode("Th7hYf0gVhDfyhYfAhEd1IiCYfjeFg3G3I2H3I3I3I4bXd2HXIiRyqOPeMsq6WgQvRUWerJqtQfQBpCQcQ9sJPOQbqsPHtVRIQoHiGIhkeahlhDf1GQgwfkeDgIhjfkfAC3CzgFhgiBgriXgXiYfHg4HJfZeAg1I5c3I4b5c5cXd2H2H4cU9fMiRSopq5rOq5qqsoQ8OEqFVJRrR6WRQKQOQGrWIiGbgagahAgli3IiC5hBhRg4iAhRg5hXimhNhcfkeahACYfzgDfHgAHkH6cAblIlI5c4b2H4b1G2H1G2H")
AspCoding.EnCode("XIeqdPtP8pQRLRRrdQSWTsLRbQtsKqD9fLRrHLVbgIIhjfzgAgFh5cuiyhjfDgqflCahuhwejh4iEd4HLh4ilh1I5c2H2H5c3I5c4b4bZGWqhrEWDP9sLRRrIRuQDofRwqusUVsQsQRr8WbQwQhcCHbgzhzgEC8e2Hfekf5hmivingfiEi8ewe5fwCnghiyhngmCyeHgZdKeYf6fZd2H4b4b2H3I4b2H4bYHWqgsFVUspQUPsRhP6VbuiRFVOR8qds9QHRmVpq3PgdhbIhjfzglhli4befkf3fXfaf3CVevf")
AspCoding.EnCode("ahyeRengmfTH3GLhZelh2b2H1G3I2H1G3I4b2HYHqsgsFVEqHrxVD9pRMrrQCRzQeQEodRsRQrzRiq7rhcWdcfjfxiFiAC3IPezh8ichahyCjflCah4gngHg2bJfYf6fYc3I1G3I3I4b3I5c3I3dWqiqFVSrUWkV6WErGqxWBpxPSWFOcQNRoHgIcfjfxilhEg3IVixhDflhOenfiejfEgGh7GjGkH3I3I5c2H4bXd3I2H3dOqPrprfr9rpqMRfqEpZRBVUqRrHLVbCHbgjfyClhFh1G9hZizCafVhmiwhng")
AspCoding.EnCode("niDfTHYcigwi5hxhze2b5c4b1GXd3I5c3I2HZGsRWqBOcJUpZpqrRqLQzQT9fuWIhbWIWddejfje6fFh5cbizgZimizeZerfDCjgyi5hmgsC6eag4CDe5fDfsCvf3hGh4HMgmh6f2b2H4bXd3IXd2H1G3IZGVRoQFVFRbRyW8OiQ6VGJCqSoVsdqCqkpORPq69xWoHCHcfjfkfEC8e2HhhZezeugAfafke5hYeqhAhjfYeFg5f8eRgxh5fTHZdpCag2b5c3I5c3I5c2H3I2HYHtPxVKRrrEVjWQrGrUOcuqQ")
AspCoding.EnCode("1rMrosSViP7WeLCqEWVsbQhsAWORQRUVxWqQCQbQILCRkPORjRQqxVYcMg3Clh2bWIVcIhagahFiFh4bRf4eDh3Crf6gQflgjfZfAi3hEgRgai3hQf5h8ewfBG4Hug7hzeke3fmgRgEijfnhlC4gDfsCxhniYc5c5c4b3I4b2H3I3I5b69mrEWiQORRQ7OxW7WItCqD9VsbQCqx9UWoRercQhQT9WIVcIhzhjelhli4bseDCRgEiagZfDe4gFhsCyg5fsfH97hYfTHYcAfzgYhIV5CwenfGoyf7hXiUi3gwi")