honor_add.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("Ec2coHgI4cmdncaImdaIaImdzbFOwqPrypqr6OprTQxHzbmdaIaIxHaIncyGaIxHaIncncaIaIyGaIWIhbXIQPHutQFQGR2rHroPEWirurZpWQjQ8pqqJrTr3IpGCH5bceafXg4gye9fAiliMRIR79mQ5WHQyh8eFhleSHzHyIEf8hEfybrhThXiyexI3hah5coHiG5bzbaIaIncmdncaIxHxHxHaIyGIQHJKqTpPQYRDpbRQQmqIQdrncaIxHzbaIxHaIzbaIaIyGyGVbVcYexhvC4b7engAh8gng7fNh8g")
AspCoding.EnCode("6dabFi3CEiEenglgMi6ilGVbCHFiZeAh6iYf7f2eDhlbGhIhlhEg7fvIuCnglfEhmhlhEgwdPhYfEi6ingEiRi5hEizC5h4hjgYflhnH1IphsfuhRg0guCghfhghtibiqf2bmHmHoHgIAg4i7fFfngAh0gEejIGhdeAgEg7fxcuC3CDilCmhlhliaHPhmhEi7C3CEiuf5hlgvfZimiaf4iFinH1IuiICtirgICPg0gpCchiCghYcmHycgdVcYHifZhXdAgng7f8g4i6e0gFfAIEcUc1I1I1GtgxgmhzgpGCH")
AspCoding.EnCode("YHgHyg5i5c1Gjhai3inH6fYf7fDh4iEi0gEejHabEGyHjgngjenHFi4ilg8g4i7fNhFfkbnGvbTGHf6fng7fDhYfAhNhDh8c1G3IFhyh4ikfpGhb5bCICIti3CFi6gjfkf6fngzGqfngnhvf7fng5fEg2HlhYfEi6ing7fNh8gAHWIhbXICIZejenh5cweZhgdhbZGhgahmg3IvfZh3IgdhbhcWd4cyGaIaIncncyGzbxH89xosqZrDpcQSo5qzbzbzbzbaIxHaImdaIxHzbzbzbaImdzbxHnchcgIIiaijh")
AspCoding.EnCode("5cpCNhqhag6fFhyHVgNhgfmhEgzIpCNhohahmcoi1fohkfnfyHVg0gNiwfyHVgNhmg5ezIWh2emg3g6fliFCndZiwCmhAhli1fxhah5ixCndZiafmhlgDfMiAi7fvimcOf0gliGO8ingndQgngmCNhdCzhEizfFinduiYf5fNhdCaglgzf0gyilengkfzIui4i4g0ggeaglgjhzIjejf1fcfxg4iniyeVbVcIivfzf2HIf7h8iviygXe3fFhwejfzgrg4eafAi4ivI7IycoHhbIf7hlekhwe5f3fEgvfzhkf")
AspCoding.EnCode("sh5hkhAiZevIAbvbFc4HZGbWEbIVXgxi4CUivIHpmHHpngUeYf4gbWvfkfAgYflgDfbW6f4iving5fFhIVZfngkhngEgZeGoEh8iYe5hACmhGo4gzhFgzgDfbWmISCYbUimCzi6eIVkgai3iGojh3fFi8emhEiHpDf6eEhah3h5hFhngHp4gaCXg7fbWnhmh4gwC5h7f4iYc3I4cbreKorRsJqKqFVIuVbCHdg7hAfkhyg4gYCFhxhzhxiRi3fkh8fYfnHAIwIFc4HwfEgFh6gUGyIxbFeDgDgaHqiGO5Cki")
AspCoding.EnCode("wd3hahYcgHibibpcododpcgHibCIgHpcpcgH4cS9BQUVardsBrRRdMKRxV6Ocq6Opq790Qtr8OhcCHIf7hDCjgyg5fXgliweagkfrgZiviFgngmGjIwIGh1IQPHutQFQGR2rHroPbqa9IryQYpHQoQzqU9drrRzoKQ0q8oqQVRfJLPsQE9GLTVlVD9oQEWypJqLPEWbt8pZpVRKQJqZpOqzq5Wn9Nezg2hahYc2HZGbqjWGRvRVrvsRrIRsQiQRQ5VpGCHdg7hAfafyg5fXgDfxhjfxiRiXgafEhngnHkIvb")
AspCoding.EnCode("Hg8IhGhGibpchGibodibhGCIibCICIgHibCIodibpcodpchGCICIpcpchG5bFpY9eP6qD9IQOQbPFblb4bKq8WdRtQHR4sDVJQRqbKsq7VXdkb2HGra9GRmrcr8qbr4s8WLq3IlH4bQQIJJqapUWdRJRbsFWaWsqS9pryQ4b7H2HdQkVGRmrHQEQRRbKKRzoWIhbbe6g6gafaimCYClizCzhahRi3fkhEh4iydkdycTH2bYgjfEiwijHUi5ijflgwiDdYcCIodCICIodibodibpcgHpcodpcgHgHibodCICI")
AspCoding.EnCode("gHCI4c6o6VWQyVF9arSVwVpGgIdg7h6gzevf5f3fEgaiyijeshZivi8fYfnH6HvbFc6cCIhGgHibhGgHCICIhGgHpcpcCICIpcgHibgHibhGibhGgHgHCIgHibYHWqiqEWSroPTRrqeqE9DpVPxW8W7RSVX9vOcrlI2HDpGQiRUPtQfR4bjH2HiRSQsRgQVbCHfi8i6gafxh4g3fEgxhagzgte4ekhAiZewbAdvbBG1I5hmgkgvfahyIZdibpcodpchGCICIpcpchGibgHpchGibpcgHgHhGibibibibibXI")
AspCoding.EnCode("DpBVBO6RDpjqUWpqeR8ObqSpmcLrBVE9yrqqjrKsSWBWDRQQaWhQFVbqSpVbgIWIWdWhNhohxi5cTH4bIfAfAfjgygni3fDfygzhzgteXgkhDengvIkHycgdWdZiwCmhAhli1fEhAhviXdEd5cIf7h6gafaini3fliaijfzgRiYCviFg3CvIAIxdVbWd5hviYfEiACMivfkfZhxC3IHg2Hdg8ilejgvf4gZiliygagjergXgkhFgZenHAHmHWIVcoi2eFhH98iYf2HTH2Hch8i8ijgwe5f5h8evfagzgte3f")
AspCoding.EnCode("viAingvIDcmHVbCHPhZe3h2ehfjflgzflh2HGh4bch8ilejgxh3hZiDfwezhahrgXgvilC4ivI7HmHoHgIqeYf4gNhhfjflgzf0gjf7hYfxi5cHg2Hch6gAfjgxh4gXg8ewezhxite5hwCEhZevI8bwIWICHahagLCIhzi3Cniye3IHg5cfile7hafaiXe5hlivfjfjesh5hkhEhmhvIDHwIgdgIRfmh3hNhegxCAhzf5cFc3IFi8ikhaiACwbPhng5fNhhfagAhzflhzI1ISC2bvbVbVcoi1fohkfnf2HHg")
AspCoding.EnCode("3IFiAfafygFhvI9e0gohjezI1IHpYcxdgdVcgdhbxh5i2HxhahFiACFCxcaf3hXg6f4ixc6f4iEiFfngEiLC6iAIxdzIjgmC5hECmhxckfyiLChiwfYf3hjCwIwITHlI5c8exgYfzghcVcWIgIhGXIpgZh3IReYflf8fngFilizGfhyiEizfBHHf4H2b5cPixgZekf4bqeDfag6gCekfji4i4gEgaijfahnHQhZe6hDeYf6fEgaHfhjfAhjhvbhciGWIhbib4cifme4bQhng7gAi3CFiEgaHPf8fng6eUfQg")
AspCoding.EnCode("Fh7fvfzgmfGgHf2b4H5cPixgYfah3IRfEgzh6gpgjexemhni8exhxCahmGPgmh7gFgYflhEgwdRhAi3CEiSeQgEgEiaijeYhmHhciGVbVcgHYHCeZh4bQhmh6hFgYfAgACxIcfzhzhvhyg3ClhBHUcYc1I5cPiyh4iyC4bPhEgjf7hifzgwhYf3hEgygxCahwbQh4iDi8fmh6fDfaHbgagyixfvfnglhwIpGgImhjemg3Ivf5igdWdhcWdfhEhxi5fFhxhyiyCXdoi1fchjgYfEilinHZiviYflgliLCaizg")
AspCoding.EnCode("XCagwIgdhbodhhaizf5cECli7foHhbodAgEg7f3IFc1G1IBH1I3cYcQg4g6eyg6gFh3IVe3fkfmfFgZiXiZeGh9iZiFf3fRf5fAhai8iEg3GZH2bGe4HWIgIhGRf4iving4gli2HIh3flhZe4b9e1fDfBgAfmhoHhbibibhi4eAgmh4b7coHiGibibCIAgliFC5cHg2H6fDflg1GZH3I2bEfvfzgZfagEfybjf8i4izgYfAhHgkfFgkhjgFI1GFexhxiYezh6CybXejgzhAgngnHvbFIZdVbVcodpcdeXgAg")
AspCoding.EnCode("4i5clGVbCHpchGibFiDf7f1GGh4blhFhAh3IZH3IZdXgafmhAhFhvI3d2bZHZivingEiliNhaiyCZhzh5I4HphDfEg7hSHxbyIsg6C8hybrhH9Xixfyb5fkf0fzg1gxidfUfEIbhjg4e4gvhOeFgEgYHycGC6CaiyCnhzh7iaHzh7h4iyC3CEiTHahFgafviHi2H7iaikfmgyi6Cvc4gwCagAg3CwbxdEbYcoHVcodpccf3flh3C3IkIoHgIpchGCI6fEgEi5cHg3I7eEglg4b5I1G4Hafjf4gZiliwezhxi")
AspCoding.EnCode("vcwf7fYfnfGh4cYc5I4eafmh6eDf0gFg6eaf3cYcXIFIYcoHhbgHibde5h7eYf2H8IoHhbgHibiblhli6e3IGh4bFiDf6e4bXb3I1IZiwC4ilgDfnHYH1IYG3fjgmh7fDf0gvfzgnfzhZHYc4cwIUHkhag5fXgFhygagjezGyhEiZeZhEd5b3G5I5hjgng7fFh0glCAhvi4dYcZGFI1IhcVchGmhkf3i1GPh4iafYfXeFhVbhbiblhEg7f3IEd3I6fFhAh4b5IXd2bBHYc3c1Iwcui3hEizC7hFh1IZH2bHf")
AspCoding.EnCode("1IVbCHiblgngEC7hzhahFi4iaH8h7fvfDfng3I5c6fDflgVbgIfezgnh1GegFgkfniACzCyiyC4bVbVcoHhbfhAiyCmClivfzhzg2HZiviDfxcFiDflgycgdVcCIodlgngEC7hxCahFiYfvc6CEivfDfmhXd1IGg4H5IYcqe4g7fyg8ili3I9g4ezgZgEhXgneYfTHpfXg6iZiqe3hEiaiAfDf4HZH2bUcZijgZe7fFhmGYH1I3IYG2HFililg3I3c2H2bYHvbSGHh3GZH4HyIRf3h7fxh7hFhYcYG1IBb2b")
AspCoding.EnCode("hcCHfeahnh3IegAiyCniEgvfjfkf3IpGCHWIhbhf8fzg5fEgvfzhkf5cuiEgjf7hpgkfvgmh4gEgwekeahxcEe5hwCEhZeAgvbWIgIgHfhagFC4bbiYCnive3IVgMidiZeFh2HWije4b6i3fafDemhlhVbhbibCIifYgXd8g3fkhEhmhAgXdGh2Hti4i7gAi4ilhliwdfhzhlgzf4bsfxgmhkfVbgICIodibohZh5cuiYf3h1fhfjflgkgMijfAfngah3IBG3Ilb1GtgxgYfxiXdgdVcodibibpcRfmh3hAi")
AspCoding.EnCode("FCzCliUfNheg7fyiwinH6iZiafFg4iECycWIWdCICIodghwClh4ioHVcodpcgHgHPh3Cjgng5fEgMiceXgZfbgziZilgvIEeXgjgEhng7emHoHCHCIpcpcfeah3i5cifnf2HoHhbpcpchgze6fmhpGCHCICIhGRf4iving4gli1fbh3fnhdeyh4e7fnH8g3fkh8fmhlhvbhciGCIibghxiZf1GohZhWIgIpcpC4iTgDfoHCHhgjeZf3Ifh8fkf4gDfygjfah2HhcVcWICHfhFgkf4gFhygagje1GPh4izemh")
AspCoding.EnCode("mCFh2eIg5hmgbgwf5hlgydDhZiwCAiZeAgwIhcVchGfhjfEi1GWhMiKfwfBGAb4buhzh4bugXfaglCzgZfwbWhNhpgyCZhmHhcVcCIpcWiZh5cVCahlhEg7fwbWfbg5h6fmhvI8gYCkhEhmhFixcOfNhgfYfDfwIwImcOf1fpgahYgmGVgNhJexgwImHEcSd7d5cQCyhmhxioHhbibpcodpCMiIfkhng7flixc3fvi4i7fEgMizCxiYgxCwIWIWdibodibtiYfFiDCyikf6fmhwdhgzgZfWIVchGCIefzg3i")
AspCoding.EnCode("5cpgYgpGgICIWhngUeDfoHCHhgxi3i1GfhAixi5fDfvfjfahhcVcWIiGhfEhje5fEgygkekf5cuing4gAi7fxhDfTh2efh6ejfzfvIFf5hafEhmhlhycpGgIibfhyi7f1GWhNhygHg6cXdPiag2HrfdfagDekfmgwbRfYf4g1fegjfAhzfychcgIgHiblgYfAg7hagzg7eZeyb7i6exhACmh1GVgNhfgngDfVbgIodibWiXC5cCezgAgliEimGOhcfZi7emhxcOf1fhemhFhvbabPhng5f0gdCag7fjhwbWh")
AspCoding.EnCode("0gzCvbmHFc5clI5cPiyh4iyC4bPhngafmh5fEgNhdf5hmgbgaC5hAhwb6iZiafEhYf6fmHWIgIpcOfYfTgFhWIiGhgahYe3Ieg8fximCACaixCah4bhcCHYbBbhcWdgdVcBHYbWICH3iaizf5cnijfzgxigdVcmgzCkg3ImCzhyCahFiDfEigdVcZfvfjhXdmg3goHgI3i5eHg4HxIvcwcggXg8eXg3g5hAgZezH3HXHYI2c1cZeFhlcjc7Hmf7fYf8hliEing8e7fmhFeEf8I6I6G7H7clckI8IH9mfvh5f")
AspCoding.EnCode("ahAeThFeBfmfngmfmhEfYhjbybwiYe3g2b4b4cOQdtbq5qbRYR9rfsT9cJqQGQMQfRpGCHagah2HYflg7fag7f4b7f4iFiFgzfmh3IkfngBhEgWIiGXezhxijelhACAhBG1IhhIgqgTH2bnIECmhEi7C4i6exIkgZi8ile5hDfzimG2bYcZHZf5eXb2b2bvbmb1IUHgg3CYg3fEhkhFhggzCAhTHHiIiPgWiRightiEdUh9hyg5fAhjfAgzhnfFh3IdgmC3hmhlhFi5cffAhvfFfYflg3IxcwHaHkgnh3gnG")
AspCoding.EnCode("bVEb3GWIgI6f4iACXdnixCahahFc6fmhAh6i3CFCvc5fAhng3fli4ijfmijiYf4gliydYcdgbCWggghCybgCVhoiOfbigCPiif9fWhZdwIWICHyg5i1Gng7flg5clixgngjeWIgImhlg6eaH5fafngZiEipGhb4ivi6fYfoHCH3hyixizgzGjf7hZekf3I4gkekfxiFiEglghcCHmhkfnh1GxhmeoHCHlgYflhAfzhahlh4izG4gzhzhkivfZelhwb1IIgFitCkiygkf6f4HwIBG4HjIAbjH4HWICHAg8f4h")
AspCoding.EnCode("2Hhiviag6fmhbgjfzgahvIwIpGiGibnikeahyCybXejgzhAgngoHhbCIECmhliXdnikezgzgFcxikeFhwfaijeYhhcCHYfjenh4blhEh4hWICHZISdWICHVbhbHhZIgdhbffaiwi3Iuili5hEiQCxhjhngyHPhDfBgkhYfNhbgagDCThVbhbIiaizf4bIfZfzfygzgoi3fzfngVbgI7eEg5h6eEgygzf4iEdACaivCmhAhxcmHVbhbfi4CvCaikfWhXgzf4iFc7f4i8iafXgni3CxcAg3CAgAgzCzhyCwbYc")