honor.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("Fd2coHhbXIxHncncxHncncxHaIE9nsPrzVRsSVfREszbmdzbncxHncmdncxHxHzbmdaIaIxHaIncyGWICHXIWrcLsR8RTo4RbRCqFVePLQZpWQaRS9VrrPDq5chcCHYHdfaf5hnikiWgDeDfLqcPEpZRXVGPwflili6gEIwczH8hEf8hzGrhSemfxfxI5fah2HVbhb5bncyGaIzbzbncxHyGzbzbaIaIB9eMtrHRPQnQDpbRPPYQdRTWxHxHaIxHaIxHzbxHncncaIxHVbgIZfygjh3IAgZe6eDh4i6eNh7C")
AspCoding.EnCode("lbxGAgmhlg8gYfAh0g7CkbhcWdFiZelg8g4iEi2eDhjHFcdelhli7fnHRemh6hEhmhlhEgaHQg3ClgFfmhAhshXgFCxh3fmivingFixc2bViQCuhqh0gqfghhfhgQhefQh1IwIxdVbhblh4iEiFfmh7f1fFfjIHghi6fDflgwbPgZe7gEhZeAgEgaHui3CFC6i3CAhshZi7fxh5hmiwC3CFinH2bQgeftiRieftiMiOfdgCiICYcwIxdWIgI3dohXC4bFiYfEi7C4i7f1fDh6dGgTI4H1I5crexgYfzghcVc")
AspCoding.EnCode("XICIweYg3I4bkgweZfnH6fngEi6iZeAhMi6ijHyHFHyHkh4ixivI7eYfAhEeYflg0gEeAHycycGgTIFiYfAhFfmh6eNhEeAH2H3IDfyhYfahVbhb4chGCIQhmhFiAfkeahlhngxIti3C3iyg7fYf5fEg1G6fngAhFfYflg1f8gAHVbCH4cpcngkfnh3IvfYgVbgIXIfejenh5cweZhXdVbiGWIhbXIaIxHzbaImdzbncmd89xorRyRU9HrSo5qxHncyGzbncxHxHyGzbzbzbzbzbaIxHaImdaIoHhbhhxhkg")
AspCoding.EnCode("XdWh1friyiAglimcWhMicCmhFhzIOfNhifzgabOfNhpgzgXCabWhNhNiziyHWh1fZfXfzIVgMiZfXfAgFhlgxGXgkhZelgEg1faiyCXCyind5hkh4i7fFhNhAiFCwCmcOfNhEgUf8i4iyHui4i5f0gcixCEikgECzIQg3C3hLCfhyi7fwiLCyiAfYfahndQgng5f0gcikelgzfzIxiyi0gbgveng4gvhWIiGffvfzf3Ifi8ilekhaini3fDfvfjfahRiZijgDeYfwbDGmHWIgIbeAf8iviyg4gZiDfxhjfah")
AspCoding.EnCode("te5hze8fYfvIkHvbTH2b5bbWHiGoXgahnhUinHGovbbWngTg4imCUiygkf6fYflg8eHpAgmhafYf4gDfIVZfmhaf4ilingHpEh6gZfXgFhngIVXekeEhxi8ebWadbWXGIV3hxglgHpjhyg4CbWwiYCFi8englgUili6eEhkfni4eFh4iHp5fve5hAhbWnhmh4gafXgFCng4H4b5bGqfJpsVqLQtrD9HJhcVcch8iDCkhxh4g3fFhvfagahuf5hjgFg3CwblbvbFcYcwfFhDfAfSHyIyI7iEfEfxIrhBgnewg")
AspCoding.EnCode("ybXezg1IgHpcododpcodibibpcgHibibpcod3dS9BQSW7RHQBrVrHuurl9EpdR79fs791RusFVWIWdchDC7hvivfniYClivfjfahqCXgjg8fngxclGwITH1IWrcLsR8RTo4RbRCqIRAoBpyQYpTVhr7r8oTWLrl9KQ2QDpqQWqHLtrtR6oduBWjoUpCRFVxoLQtrD9HJ7Vv9OQMqLQXWVPzqZo5p0fzg0fah4H4b5bbqa9TovRqqmqRrdQrPoqPq5VWIVceC8i6gafvf5fXg8evfagahuf3fjg8fngnHjbmH")
AspCoding.EnCode("FcjcCIgHibCIgHCIibCICIhGhGibpchGibodibhGCIibCICIgHibCIodib4c7OY9eP7RFVB9RrbPFbjH5cLP8WB9tQTpNP8WLqRqbKsq7V2HjIXdIRlpHqwqBWDRIs2q6psr5ckI5cVrbKurAOUWcqJRBpFWyprR6WgQwq3I8IXdbqjWHqmrcrEQqqHuLQapWIgIfiAfAfjgxh4g4eEgxhkezgrg3fvilC3CxckdvbGhYcnfzhAhwi6dSC5ijfAhkgAHYcpcgHpcpcgHCIpcodpcCIodCICIodibodibpcgH")
AspCoding.EnCode("pcod4c7pDpOqlODV7REpwVhciGdgAf6gviai4gXg8eygagahrg4eaf8fYfvIkcycBGAbpcpcgHgHgHgHibpcpcCIhGgHibhGgHCICIhGgHpcpcCICIpcgHibgH5b9PiqSo8QpQTRtQeq7p7WOqxWF9APSVvW5WcrkH1G7WTWiRTRMros5cAI2HpQSQsRhPoHgIchAfAfjgvf4g3fFhvfyixirg3fkhFgYfvI7bwIHg3G4enhwiweahvd2bhGCIibCICIgHibCIodibpcodpchGCICIpcpchGibgHpchGib4c")
AspCoding.EnCode("DpGQIP7q7WjqUWpqeRUpIRDOzIuQTWDWYqRRksuqFpcrBrRRj9orEWGrDOVbhbWICHWh1fpgah2HGh3IdgDC7hkhxhniZiDfxhjfkfufXgjgAiYfnHlIvbWIiGXgkhZelgEg1fAiFCwC5cEd4bch8iAfkhxhniYCACaijfahrg3fviAiYfxc7cmHWIVcYCvingFCEg0gzCahXCzh5cTH5ceC8iAfafxhmCXgEgvfagxiteXgafFg4ixcjIwIpGgIVgNhEgSeAfYf2HHg5cfile7hviai5f3fDfvfzhxiRiXg")
AspCoding.EnCode("ze8fmhmGlHwIWIiGRf4ini0gegyi7fjh6f4bBG4bbeAfAfjgvf3h3fFhxhzhxiteXgkhEh4inH6GvbVbgIQg4imCMiegjf7fzf0gkeAfngah2HTH3IIf6gAfkhvfniZiEgvfzhzgufXgkhFgngmG7GvbhciGahxCNhdexgmh4gwg2HGh3IeC7h8iwCaiXeXgEgaiyijesh3fviDemhxcDHmHpGhbPhmh3hNhegjflgvC3ITH4blh7hjgzCFhnHui4i4gMicizhEivClhab1IHp2bmHWIhbOfNhpgzgXC4bGh")
AspCoding.EnCode("4bFi8iafxhDfnHOf0gpgxiyH4HIV2bwIpGgIVbiGygYg2HaiyCECliFCwbkhni3flhmhxcEC3CEiFfmhlg1f6i7cmHmcvi5fXgFi3CxczgxC0gbgaCmhmCvhycmHFc7d5cDfwfmhyCWIgIoHgIpcZGpgnf3Iti4i7gFgZeAgEgybegke7fzfBHTIYcYc1Guhzi4ikf2HRfDfzh8iWizgxeYf3h8evfagzgmGqf4iDiFgngFiDfybhfzh6ejhnGoHCHWICHibYHohZh4btiZe7gEhmhFiDfzGRhEhnglgH9tC")
AspCoding.EnCode("lilgvfkfmfGgGe4H1I4bsfwfngkf3IRfFhjf8iWizgyfmh4gDfygzhzgvIReZe6hAiZelhACybQeFgmhlgBgRfFhlgzCahXixdhciGWIgIpc4cCeZh2HtiZe6hAiYf6f8eybIhzhzhvhygYfAgFdTI4H2b4buhxg3Cah2Huiliag8iWiahji3C3hFhygjfahnHPgmhlfEhngAgACybIhzhyikivfmh6fmHoHgIngxiZf2HygZhWIiGWIhbgeFgzg5flizCxCxiXdWhNhfiafmhAhliydYCviYfAhEg1faixi")
AspCoding.EnCode("nfyiycoHgIpcbCaikgXdAgEgFCVbWdibFiDfEiXdFc2H4HHhZd5I1IRf4gEiwe6gDf3IiiZizgZgDeXgZgmhHgoe3fFf3fQgniEiwe7hliYcZH4HHf4HVbVcpcQgZeafmhXeDf3Ibg4e6f4i5cVg0gliUf7hYfVbiGibhGcf3fAgYf4bjHVbhbibpchGAgFhAh5cTH1GlhFhlg3I3cXdYcDgvfkfZfagFeaHag7hYfkfng7fHgkfEhafviHi3IEfxhzgZfag8hxI4gzekelh4imGvbGC2bpGgIibCIbg3flh")
AspCoding.EnCode("ngXdkbhcWdpchGCIAgliEi1GGh2HFi8eAh5cZH2H3G5hkhmhAhFhvIYH1I4dXgafmhAhFh0gzCahnfyi3c1IViliFh8iHCxbxbsgEf8haHsgThmfvhxI4gyC2hah2hxigiUfFbdfaf3f4gwgpi8fDfXIvbFIFeygahYeagDgaHyiDC3Cxi3CAhGhxi8fkhkhHiXd6CaikfnhagEfvcniafyiFiYfvIycGCYcWIWdCICIgC5hECmh5clHhcWdpcgHgHlhAClg3ITH3IFi8elg2H5I5cYcjgagXeXgEgxhagje")
AspCoding.EnCode("aHwf7fng5iFcZG2b3cZiafYf7fDfNhAiEijgYG4H5bSG4HWIgIhGgHhiZiAgng5c7HVbCHibhGib7eDf7f3ITH4b6fFhAh4b3c1G1I5hkh4i7f8ewb5b1I5IZiwC4ilgDf1fvfzgmejf5I2bYHmHFIafag5f5hDfaiyizgaHyhlgYfYgGhXI1IYG4ekh4i6eFhLCEh6ejgXb1IXIUH2bWIWdib4iyC3i1GQgngvi4iXeFhoHVchGlhli7f2HBG4blhFhAh4b5I2H1IFd1IZH2bxbPh4gFCxhAfliYc5IYcUc")
AspCoding.EnCode("2bhcWdibAhng6f7hjfzglhYfybDglgzCFhmh4b5cFiDfAhoHCHefzgmg5chf8fzg3hEgweagah1GWIgIoHVcdClCximCFhxhyikf4b5hviACydFiDfAhwIoHVcpcgHEi4i6f6gyiyCFingwdDglgzCFh3C4bYcBHYc4dYcRf5fAhzC6gEg2H9gZijeZg8fXgXi4iHgig4e8gXgPh4g6evfAfDf1I3cYcGe5hvi4i7fDfnHYH2b5c3c3I7eDfAh1GZH3I1IZGmHHiEc1I5IYczHPh5fAhwe7h8e4HZH1IHf2b")
AspCoding.EnCode("oHhbghah3i1GegEhahniDfwezhah3IWIVcgdVceg8fkf5fEgwejfzg4bRfDfagAfpgkfwhYfniliygjfahvIFfXgkhFgng7enGVbVchGfhxCAh1Ghg5h4gxg2HWh0gcCmhliXdWije3I8gZiviDemh6fhciGibpcifnf1GDh5hkhEhmhAg2HHgXdPgYf6hEhmhAgACybhfyiEikg5cPiyh4iyCVbhbCIgHibifYg4bRfmh4g0gdCzhAhjhMiyiAfmhkf2HTH3IAI5csfwfngah3IpGgIibhGCICIRf4imClC")
AspCoding.EnCode("EizCFhThMihfAhzhwiyd7CZiafEhng6fychcCHpcpcgHhgviEC4iWIWdCICIodibtCmhviYfniACMidf3fnhgCxgXg7fvI6i4ejg8fngFiycWIgIhGCICIghzgYe2Hifnf3IhcVchGibbivi6fYfoHCHibpcpcQgZeafmhXeDf0gIg4eZfhiziXglgxcFf5hafEhZelhnGoHCHCIgHghkfnh4boh5ipGgIibWh4iSf8eVbhbhgzg3iXdciFgkf5fDfygkekf3IVbCHoHgIhfFgkf3hDfaiyizg2HPhngafng")
AspCoding.EnCode("3hEg0gce4enhhive5hFCwbEeXgkhFgng6fvbWIWdibcixCEi1GVg0gNiziBGAb2HPike4bQiXfjfDeahnhwbWhNhpgkfYgxdWICHibibohYgXdohkfFililgxciiIhZiECmhwb8g3fkh8fnglhnHWh0gfg3CFhvbvbmcoi1fohkfnfnHVg0gNiwfmHwIHhTIjG3IuhvengzgoHVcododpcpCNhchviYfAhFhxcYCwC4i7fFh0gvfxi5ijfychcCHCIpcodtingEC6gagyClh3Cybbikf3igdVcgHgHghyCmg")
AspCoding.EnCode("3IifYghciGCIOfngG9liWIgIfezgmg4begDekf5fDfygyixipGhbhcVchf8fkf5fFhaiyizg1GRfmhXe8flgyg8eUfMicilgagwinHDh3fkhDemh7emHoHgIgHfhjfAh4bWhMiweHgAb4bPijf1GthbhagFgxi4CxcQgYf5f1fegke7fkgvboHCHCIgHlgYflhAfyixiAgYfybDg7fygFhng3I9e2eeh4i8eVbWdibhGpgZh3IpgkflhEgFCwbiigCZi7engvIoiMihemhDfycxGPh4i5f1fgezhAhjhwbWh")
AspCoding.EnCode("0gvfwIxdHg2HAb4buhxg3Cah2Hui4ijg4iniFhMihC5hnhbgwf5h7fvIDh3fkhFgngECvbVbhbpcoiYfBhDfoHCHhgzg3i2HhfFgah4g8eygzhje3IWICH2cSdgdVcgdhbHh2coHhbnhaivCXdnijfahzgoHVc3ivfwi5c5fagxiyCFiEgFCWIgI4CxhvC4b3iXfhcWd3iXfTH2bwdxIyIffXgli4e3g3fAg4iwc2IYI5GZIYImhEg8G7H7Hmflg4i7i8eAh4ili7fYfEfEfDblcjc8IkGDHjb6GUfZgwgXe")
AspCoding.EnCode("kfDiH9DgUgXiYfYhYf8hnejbzGzfZf3g4H4bYHWqeKbq0rdPYRQqpqT9fuRPTWKqfRWIVcxCxi3IYf7f7fag6e2Hlgmh6f8fkgYf3IkfmhSflihcgI5fzhzgkfAgFhlgHg3GeebhsiBG2bzdlhZelgDhnglgaHjhXgDC7hZiACzimG1I1I3c3i5eXb4HYcnGmbYcUHffZeZh5hEhkhFhggvflgEdFIffQhohshhguCGhTfCiai4gEiyilhyiXCFh4bdg5f3hYfAglh2Hhhlgyg7CmhAh4bxczcaHjhZfXfmH")
AspCoding.EnCode("bVFIYcoHCHAgmhEg1G4gzhjezgHg6f4iFC7C4iFCyb3hEiYf5hFh4ixCnCjiYf3hEgnHYcfiffpiIidfxIhioCoiVgICbgtgVCVhpC2bycoHVczC5i2HYfAhFC3IEgwfngxipGgIYflgEivc4gjgZeXglgVbgIZeaf6fYfWIVcnikeahxivcjfAfYfkf4bniyizgje6fFh6eoHgIngjeZf5caiYgWIVc7fmh6f7hkeah7eYfaH4gjfzhxfxhmhlhxc3GIglhPhkivfjelh2bwIHgYcDd6cAI4HoHCHAgDeXf")
AspCoding.EnCode("3IIhafjfAgYfbgjfahkfxcycWICHib4gjfzgahxI4gzekelh4ipGhbodlhZeEg4b4gagkfahHgyCzhliaCaijeZgWIVc4ijenh2HFiDe4hhcCH5HGeVbhbVbhbHhZIoHgIbCygzf4bPhFhXgFCuhvfwi4izIuiliThvi3CNhIhagAfThoHgIhhvfjh3Idg4CjhxhahoiZizfmhoHCH6fEgXgEiDfvfkgmhHg8eygjhZelgvImHhcWdeC3ivCxhahoi3fjhmhFcFC3C8iaf5h4gYfxcFiYfFiFivfagxiydYc")
AspCoding.EnCode("dg4CkgygyCWhYCjh4i4HycndYcYH4HabZd1IwIoHgIaime3IIfmgwiaizgVg4ekgngGh1I3G2HDfwfngxihciGibniZiafaf2HcfkhyiFingdejfahjenHwIWIiG5HUchcgIGgFi5fAhvf7h8e4bze3fkfZg8f5hmfmhGh5bji4e8g5hlhni7fwe7hFhXITIlixC8ixIafjf5fXg8evfagahTHYH9gjfZgvfahaHZiFi6gYHEbGgzHAg3hlgygle8eBbhciGHh1dVbiGXIiblgng6f7hagyClh4iwdEiZemg")
AspCoding.EnCode("ygEi4iXeFh2HYczezhXivfkfzG5hlh7h2bVbgIYfzg4C3IvfZhVbhbZISdVbCHEcXcaInc5c4bncmdBbVbgIBHYboHgIlh8f4h3IxgACjhkhmhxi3ioHhb5HHfoHgIGg8i2H3fjgxhZgjeHg3hZezgEgYfEiSdBOT9qsTqKqZ98pKq5WcrFdYC5cwfAhngnfFcYcwfliliAfEIwcvd7iDg6CxIDgGOYhjCybnikfYcXdli3f7fYh3CEgHg4H0gmizeXgkfwgYcUcHRZRLPXRqRbKsREPBp5QcQiREcwc4eBb")
AspCoding.EnCode("EcwcAfHfoHCHHh2chcgIZekfnh1G6fFg3gpGCH2cUcWIgIhcCHHh5Hxhme4bReYflfFgYflhDfybRhEh4i6eBgPhFhEivfjeYhwb1IzgyiZdycHg4HYf6fxgkeAf1I4bDfwfngkfWICHVbCH3iaikg2HPhqgWfzI4bPgAgxG1G3hyijeFh3Cah8epghhzIbg8fAhlg3CahlisCZinengWIVchiDeAh7f4ijeFhri3fmfZe4bGh4bAhmh7g8fngECEgnH2bqh5hZg3C2bmHhcVc4gyixiFh4iyCFhohggTHAh")
AspCoding.EnCode("Yf7gEhYflhEgvIZdohhh2bychcCHVbCH6fYfEg3IEi6fTHAgmhlgEengAhzG4glgYfZiAC3CyinCwhmhniDfwb2bZi4CxC3iXfyblgYfniyi7f3iFiYfEgYcxdhcgIEC7gjgACmhHOFhFc4H3i3CviYfDfmhXdYglgjfkg5cieagkfagEi5cDgxgZelgng4bpgYeTH4HZH3IniyijeFh4ixiDfifffoHhbEiFixIkeAfmhje2HAg7gzeDf4iG9EgzInijfahkfabAGabAGoHCHAgYfFh2HAhlhGhxikeEgyh")
AspCoding.EnCode("xhximfpGhb3hagzgxiwdnijgjf6fYfWIiG7fnglhAfjfzg6fngaHAhYf3iailgYf3hEg2H1Iyhagzgke6eybZi7e7hZdVbiGngahmg3IvfZhWIWdVbVc1dUcpGgIGg2chciGVbCHFiZeFh5c7f6fBGlhmhAhDhmhlgaH4gFCng3fFhmhzh3gkCmh5flixc1IZi3izh3inCybAhng5fzh7fmglhYfFh1IwIgdhblh6hviliYfBhDfTH4HAgngviYf5fEg4bmI1GYgAhkekg3ICfyiyCxCEiXdzhAh3iYfAh4b")