en_search.asp

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

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

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

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("Gg5HfC2H9gbe9ediQidgehbiHgshdfuicfPgifPeQC2HcfVhggghqhchdiefTHUbjblc5HUcWIVcGgYbyileliygagzg3IngSfDCafai5fzCDfEIggvfwi2Hfilh6gcfzhmgvfahXiZITIoHVcGg2cXGTIpGgITG5HQhngAgAfzhahECngvchClCnfnfngFCEdsflg8f4iXGTIhcCHTG2cWIhb5bzbncaIaIaIyGxHxHDWwqPraWOPSVgQFrzbzbmdzbzbncyGaIncaIxHncxHxHzbaIzbaIWIWdXIRqbKLs")
AspCoding.EnCode("TrGR2rcQoP8OfQJqv9WQ6s8pqquqEP2HhcCHYHIgafZimCjCoCDeEgLqGrSVYq5WcraC8eli6gFbyIzH7i7iEfvcRCUfmfkizG3hah1GoHgIZGaImdaIncxHncyGncxHmdaIyGIQHJMQGqWrnQDpcQRRvsB9BVaIyGxHzbnczbxHyGyGyGxHncgdiGmgzCvC2H7eZeFC8g3CAh0gFf6dzI6f3C7f8gZe6eMi6ijIVbVcAgmh7f6iYflg1fEe6dTHcflhEgAhwbQh4ilf8fmhlhliaHuingEi8gmhEiteZilg")
AspCoding.EnCode("ygXg3gjgYfECnHYcCfQCsfRg0gqfbihfbiQhhgqf2bwImHVbVcAgng7f6ingEi2e8glGHgde6fFhlgvIqfmh6hlCngFiACwdRfYflg7C3C7frg3fEiweXgmiafZeFivI2bPhghtirghgPg2eOfIf9hghYcvbnGWICH4cohZhXdlhmhEiEengEi0gFf7cBHHf2b1I4btgxg3CzgVbhb3dpcyg5i2H1GvCvfnhxc6f3C7fDhmh6e1f6ijHyHUIyHvi3CyCyd7engAh6ingAhNh6iDdnGycGgBbAgYfEi6iYfEi")
AspCoding.EnCode("LCFfAH5c1GFhyhZekfWIiGXIodCItiYfFileyikfECngzGqfngZfxhEiYf5fDf3IEC4ilg8gZe7fNh6ikboHiGZGhGYfxi4C1GygXCgdCHZGfeyCmgXdxhYg2HgdgIoHWdYHaIyGyGncncaIzbncEVaWuQZrDpbRUp4PmdxHxHzbaIzbzbzbncxHxHzbzbncxHncaIncWIhbIiwewi3IVg0gRgag6fACyHoi1fcCYfEgzIOfMiifxiabVg1fohzgnfaboi0gLgwfmcVgMiYe3gxGVg2eZf4hAgEg7fab5hwC")
AspCoding.EnCode("ngEiACLCvfkfYgxCnd3fjgYfEi8e0gAi7fzemcVgNhFhTh8ingzIQgZe5f1ffhzhEijh7ezIRf4i3hNhdCzhAhwi2eag8ingkfmcRfYf3h0gfhaglgvCzIahzhLChixg4i5fyegdCHhhaizfXdIf7h7hzevfni3fDfygjfxiqCYCwCDengwbAcwIVbhbfiDCleviyg3hXgDfaiyikfRiYCaf8f4imGAbvbBG4HXIGoFISCXgxiZfUimGUimHSCngUeYf4gHpxhxi6fYf7fEgSCFingjgZe5fFhUinhYfzeZe")
AspCoding.EnCode("8eYfUilClemgYCACYfGoXexCFgyCFhIVwHSCZIHpmCwflgGoaeai3iIVjhZiAgFhYfEiHpEg7fDeyC5f3fFhngbW3hyhZi7fHpnhmhniafZilg4i1I4b4cBoHLeRWRKRJRFVIugdCHfiAfDCafyg4g3flivfyiahrg3fkhFgYfwb7cwIHg4HziEglileEIaGyIFeEf8hxIsgUfYhvhwd4gxiZdodgHgHCIododgHCIgHpchGCIpcgHZGS9URSW6qBWBrRRIJKRzoEpIQUWpq792qLPFVoHVcch7hDCkhxhni")
AspCoding.EnCode("4eEgaiagkfRi3fafEhngwbjIwIEd1IRqbKLsTrGR2rcQoPHslpHqmrYpdsoQzq7WHPuQl9KQ2Q6VqQRrGMusKs6oeJBWx9FViqEWj9tsLPD9HJ6W5VOQrrurZpPr6sYp5pJije2hah3G2HXIcPkVbsvRVrYQRrcPJriQ9s5VpGCHdgAf7hvivf5f3fEgzCyizgrg4eafEh4iwblHnGBG6GgHpcodhGCIododgHhGhGodCIodibCIgHodCIgHodgHCIhGhGpcpcCI5b69mVhqlQD9IQVRIQUG6d2HMQ8WdRrq")
AspCoding.EnCode("Gq2qF9JQPQbKsqS92H8c3IGrkVHqmrGPBrHR1RDVMR3IlHXdQQcLLQAOEpdRJRBp89ypLr6WfRyQ4b8I2Hbqa9GRvRHQBrRRcLMPxVpGgIbeAf7hjgyg5f5hFhzCagxiqCYCaf8fngydkdmHHg4H5ikelgwijHGo5iagAhjhkbYcCICICIhGgHgHibibpcibhGCIgHpcibibodibibpchGXIE96VWQA96plQUWwVVbgIdgDC6gkhxhmCZiEgaijfjeqC3fkhAiYfyd6HvbGhjGgHpcgHgHCIgHpcodododhG")
AspCoding.EnCode("CIibpcCIibibpcodhGpcCIibCIgHpcpcYHRrgsUp8QgrUPrqeq6oDp9RaoDVzsSVX9YpcrjG5cDpcsiRUPtQfR2Hlb5cpQSQtQfRgdVcdg6gleafxhni5hDfwekejeufZiwCDengydAdmHBG3GYCmgvCxhzgzHZdCIgHodgHCIhGhGpcpcCIibpcCIibgHpcgHCIgHhGodgHgHibXI7WTWdqzrDpzQUWpqorUpGrEVmcrRTWE9nPVrlRtRUVTVDRQQkOhQD9dQDOoHgIWICHoi1fWiah3ITH4bdgAf7hviyg")
AspCoding.EnCode("4g3fliygyijerg4ejgDeYfwblIwIoHhb5hwCngEiACLC8f7fjgXdEd2HdgAf8izeygni3f8eaiagahsh5hviFgngvIkGmHoHhb5hvimh6eEg1faiahZhxC4bGh5cbe6g8ijgvfni3fDfxhagahrgXgwCFgmhwbDdycWIVcOf2eACUf7h4i2HEd2Hch7hleafai5f3fEgvfyiyCqCYCzeFgmhxckIvbVbVctCZeni0gfhag7fwiFi2HFcXdIfAf8izexh3h4eDfygkezgqCXgvi8f4imGjcmHgdgIqeYf4g1f")
AspCoding.EnCode("fhyi7fzf1fagDC4izg3IBG2Hch8i7hafweXe4eDfaixCjergYCwC8fZemGjdwIgdhbzgjfLCbgwf3C5fwg1GBG5cfi6g7hviyg3h3flivfagkfteYCaf8fmhvI7bvbVbVcRfYf3hNhcijfEikg5cHg4bFileviygEgvIQgng5fLChfyi7fvC6fzI1IHpYcmHhchbVg1fohzgnf4bFc3IAgAfviyglimGVg2epgjeyH2bIV1ImHVbhbgdgIaiXCXdvfkfAgACFCnHjg5fZi7engxc6fZeEi8gmhAhNh6iAIwI")
AspCoding.EnCode("zIze5f3flhmhxcahke0gcfzimh3hjCvbvbFcjG3IlixgYfxioHCHVbgIibXIpgXC3IQhmh8CAingFiDfzGdCjfAhwiBHSd4H2b4brewf4ikf2HQgDfyiDCVCyCxeng3hliygzhahxcuCZeDiFgmhAgDfvccijfEivCmHoHVcpGhbibZGifYg1GPg3C7gAiYfFi8evcPflCng6eUfQgDfAhaikfmfBHTIZdYc3ItgveYfah5cPhDfkeleCekfji3CXeEgzCxCkfmGRe3C7glCmhAgDfwdqg8f3C7fBgqe8eEi")
AspCoding.EnCode("aizgYhycWIhboHVcgHXIifmeXdqfYf6hFgmhlhFhvccfjfzhvhaiYfFiGgUc1I2b5crezingzg3IQgEgjfDCifxiyf3C5fEgygjfxinHtimh7g8fmhAgDfybhiagagxfaingFinGWIiGngjeZf4bygYgoHhbVbWdegAiyCmCDfvfagyCXdOf0gIfviZelglinH4evingAhFhNhaizgYgagnGoHCHibhhaijh1GAgDfEiVbhbodlhFhEi1GHg5c1IBHYcZH4HPh4gAhyg6gAC3IOh5hyCXiFgZimfZeEdpf5h")
AspCoding.EnCode("6i3ftC5fAhxhleDfYcZH4HTI4HhcWdodtCZejgmhniEg4bIhZiECZe5cVgNhEgUf8i4ioHVcodgHcfZi7emh4bkGoHgIhGCIodAgli7f5cBG5c6fAClg1GZH3I4H8haikfZfjfDgwdyi6gngjeYfAhFcah8fzezeSG2H7izCjemgxC6CaHXezexCAg3CwbwIUHZdWICHodgHbg4e7e4i5cjIVbVcCIibgHFiDflg2HBGXd6fDfAh3IXb4b2bZiafYfAhFhxcYHYc5IZijgmhEi8eMiygzgYgag5I4HWCDfli")
AspCoding.EnCode("AfHCzHyIsgEf7iaHqiThZgxfyb4gkf2hxi1gzgdfH9EIgizeXgXewgOe8fFhXIwIUH8hxhyCmgyi6CwdjfAfngyC3C7fHgkfAizejgHi2HFeaizgnhzh8hvc4gjgag7eYfnHvbEbYcVbiGCIgHhi5hlh3C4bjbhciGCIpcCI6fli7f2HGh3IlhEglgXd5I4b2bwCyi4gZiDfwexCkfybzi7f3CnfGh5b3GZHZiafYflgDfMilCFCwCYG1I5bHi1IVbhbpcoddeZiAgmh3I7HhcVcgHpcod6fDfEi1GGh4b7e")
AspCoding.EnCode("Dflg1G5IXd1IZiaf4i6elinH3d1IYG3fjgYfAhli1fvfkfYgxC3c1IXInGUHkhyi3h3f8ewekekfvcaC6engXCEdYH3GYGYCjg3CAhEg1flClgaf4d4HXISG3GhcVcCImhximg4bRf4iafng5f8egdCHgHlhEgAh4bGh5c6fDfAh4b3c2HYcGgYc5I2bwcqenilgyg6gEg1IZHZdHfYcoHWdgHlgng6f8ijfxilhngaH8hlgvfFh4i3I3I6flilghciGhgjemg1GhfEhzg4gDfxhzhyC3IhcWdgdCHhfFgyC")
AspCoding.EnCode("mCDfygjfxi1GXgviDfmGFiEgAhvbVbVcCICIlgZe6fAfzhahFimhzGDg7faiFhmhXd2bHhYcYG1Iui4g7faiAfDf4b9g5hzgZglCXgYhmhEd9iXg6i3fqemC7fxh8iDfZdZH2bBb4eaf4i7fDfvIYHYcXd4dXd7eEgAh5c5I4b2b4cxdSGEc1IXb1IzHuini7faiDCDf4H3c3GBb2bpGCHhgjemgXdegAikfni8eaijfyC3IpGCHWICHfhAikf5fDfygxCxi3IQg8ejf7hWiahyfZeXe8evfyiyCmG8gYCwC")
AspCoding.EnCode("8fZe7exdWIWdibegjfFC3IefYC5fxg1G9eMidingFh5cpgah2H6i3fjg8fZeECoHCHibCIohZh4b6i3fafEhmhFi2HFc3Iting6hAiZeFiEgxIegaglgzfXdsfziYfyCoHgICIgHpcif5i4bQgYf3h0ghfzhEikg0gjf8ingxi1GHg1GAI1Gsfyhngzg2HVbhbodCIpcodtCYf5fFgFCzCDfBg1fci6eagwinHEeZijgEhmhlhycWIgICIhGgHefkhlh4iVbiGCIgHpcibPh3Ckhmhni8e0ggiXgZfhiwf3f")
AspCoding.EnCode("AhvIDhXgjglCnglhvbgdVcCIpcgHfeyCZf4bWinfXdoHhbibhGefvi6fYfWICHpcododtCZejgmhniEgNhbhZi4CdeziXgAhvIFfZivi8f4iECmHoHVchGibghjeZf3ICeYggdgIpcOf4iUelioHWdhgjeZf3IhfEhxi5fDfvfagyC5cWIgIpGCHfhAiah5f8ewekekf5ctCZejg3CmCDf2eceYCmggCyhXg7fyd8g3fwC8fng7enGhcVcCIfhyilg4bOfMiKfxgTHjGXdsfjf4bug4hzhEhxiZfnHWhNhWi")
AspCoding.EnCode("kf5iwIhcgIibpcCe5i3IpgzgAgEg7fydWfhi3fECYfvI8g3fvi8f4ilhvIOfNhfgYfFhycwIzIOfMipgximevI9e0gJewfvbwIGgHfAb4bQCxg4iyCgdCHgHCIodpC1fdgaf4i6eEgxc3fze4ilgFhNhxhxiYgagwIpGCHgHibibtimh7e6gjfxilhmhwdghah3ipGgIpcCIefxiZf2HohYgVbgICIpCngBhFhgdVchgxiZf1GdC8fahniDfzCjfahVbiGoHVchf8fzg5flizCxCyC1GQgmhniFgAhxhliGO")
AspCoding.EnCode("2ecilgzhkgnH6iZiafAi3C6fmHhciGibfhke7f3I9e0gzCHg6c2HPike5crfhCagDekfmgnHPh4i5f1fhfagFCwiwIWIiGgHibEimh6flekeje6f4iwdFelgzCACYf1G9eLCfg3CFhWICHodCIifXC2Hpgje7eliEivIOhhiXglhYfxcOf0ggfZeACmHyHPhng3hNhfhyi7fzfwbWhMivfycwIFc3IAb5crezingzg3IQgngaf3C5fli1fhC3fmgbgwfZi7fxcDhXgafEhng6fvbhcgICIOf4iTglipGgIfe")
AspCoding.EnCode("zgYe2HfhFgzg5fFhxhxCzg5cgdWd5HHfWIWdgdCHGg5HhciGmgaizf1GniagahahVbVcmgygkg1G5fjfahahFiFh6eWICH3ixhjhXdnh4hhciGmgmiHg4HvcaHzHhhXgFhXg3gYCAgmhxbYd1cYI2cXHZeACDHDbjcmfFCYf8hFh6eYfli7fYfDgEfjcAdkdkdkG6IjbjcBgYhvhniyCAeH9DgShZgYfXi4iEfXi8daHzf3i5e2b4bZGOQfJcPXRGsYR9rCQT9et9rGQusfRpGCHagkf4b4i7f7fjflgXdEi")
AspCoding.EnCode("ngAgDezfmh5cahYfUe8epGCHnixCjezgECAC7fBG3GbCIgrCGh1IvHECng7f7CYflgzGaeZi8i6g5hlixgwb4HYcZHmgXfYGZd4HmHmb1IEbhhmh5i3f8fkhFhIivfEiHgHiggQhWitebiPgHgSgOgyg5fFCjfFijfXCDf3Idg5fniYfFilh3IffAhygFfmhEi3IvIwHvckg3i5ewIHoFI3GoHhbAgngDf4b3hxCzgxiEdECYf7f8g3CFCaH4g7f4i4eEg4ijf5ejing3hFhwbYcdgggWgeedfaHIhVhoiWh")
AspCoding.EnCode("febgsfWiVhWhZdvbVbVcweYg5cng7fEi2HDfyhngahWIgI3ClgAhybmCvingZi7fpGWdYfkhFiYfgdCH3hzhjekfvcjfAfngkf5cmCxCyCjeAgFhEiWIhbmhxi4C1GaiYgVbgI7f4iFiAfyiyC6fYfvcXezhzhyevfng7evIZdIgFiRfkiwexi6fZdwIBG4HjIkHlbYcoHCH6fFgnC5cbgjgke6fmhhizhkfjemGnGoHVcodXeagyCyCaHXezexCAg3CVbgIgHECngDfXd5fagjejeFcxiagFhziygahmfhc")
AspCoding.EnCode("CHngkfYeXd6f8f4hWIhbYbBbhcCHoHhbHh2coHVcbgyizglhli1GoingDgAgOgXgSfsCYfEiQfYCmfng0gff4infZiEhjgDfGhjIkH4b5c3I3I2H5c3I5cZGtRgPPRCPgQIqrR7V6paqqqysVRHLgdWdcfjfzgECAC2HOg3fG9PengEiQf4eXingNhhhmh5iXgFgjg8eTHjHjb4b5c4b1G3I2H5c4b5bSOHKCqD9hPbRLr7VRQrrOQdQWqfJVbgIbgxCzglhFhXdCiXgG9QfZeFCQf5hXiYfLCRfmh5h6e5f")
AspCoding.EnCode("ziTHjHlI2H5cXdXdXd1G3I4b4c6VHKCqD9RssPqrSRsq7VgQHrLr8pOrssOQdQRrdtVbhbdejfzg7eEgXdOgZiSfgiweXicfwCXg7e6fVg8fjhriYf7fWfygyC4iHgAIjG2H4b5c4b2H1G1G1GYHprGsrPtR9sssOQcP8ofMiR8OSWDRfQwsVRcugdCHbgkejeFili3I9hZiTgPhzfZiafjgcfzeYC6f6fWhFgjhqhmhEiWfvfahmhFcjH6c3I5c3I4b5c1G5c3IXIfRbRtRsQ9sKQRrdQSObuiRFVsQn9fQ")
AspCoding.EnCode("vrWqfJoHhbbgjfahFiEg3IVfZiTgriZelgPeXgneYfNhggagEfahFhEdAI6cXdXd2H2H3IXdXd2HXIRQorJP1RtrsQrPerfRIqsq6WOrLRVRIR9PcuoHhbIhyiah7eEg2Huiyhzh6CPhjhZizejghijg3fFi6fsfTh6gmh0ggg3CYg5hEhwCliHgYcVfZeyC8f2b5c2HXd2H4b4b1G2H4cOQLQrR8p79fstsLsePGRpqHrQRMqWqGrJsHtRrdRVbgIcfyixi6fliXdRfwfyiFePhjh4eafjgdejgYCAgFisf")
AspCoding.EnCode("H9le4i1ftCng4e7f4gwfGhYcsf7fYfngZd5c3I3I1G2H4b5c4bYHRPiPKPhQqrJsOPSRMsUOEpiPMPLsgRbspqbRRQssVRdQJsGuVRbPpGVchiagahFiEg4bRfzijfDgRfaeYCafafIhjg5hlhlhPiUfAfmhNhfi7fliygnijgmhFc3GPiag6g1I3I3I2HXd2H5c2HXdYHPRoRJQorCQ5rOqXRuQ6WSVCQJqMrgRGRCQHrQRrr9PIRsPbJ9PIQVbgIbgjfahlhAC3IuiaCxCEfRfkgYCwCafbgafZi7eAgPi")
AspCoding.EnCode("Ufle4i0gVhFhyh4ilgHg1IWeYfkfEh2b5c4b1G3I2H5c4b4b3dCqyqqrbtrRS9fRyQ79CQLQrqgRHqoRbR9sLRWqbqJsdLVRB9oHiGgCjfahFiDfXdRfyhzhFecfyikfDfngkflihCGOsC4eZgmhFc1ILhmhFiZd1G5c3I4b3I2H5c5cYHU9fMpQUper1POq5q9PoQFVDPFVusrRS9RQrr9PGroHWdbgkekfAgDf4bCi3fSfQfngFCriXgZgZe1fIhyiahDfZeje8eTH8c7djGlI7d7d2H1G1GXd3IXd4b3I")
AspCoding.EnCode("YHosbRuQUORQLR9PcP69BrLRdqurJREWIuRrcuWICHdexCkf6fFh3IPhyhzh7iqf8fahuhaizf4iHgYcMgmhFi3G5c3I3I3I3I3I2HXdYHRroQ8O8QQRLROQGruQS9eqvRMQSWtRsQWqF9cRxRoHVcbgyijeAg8e3Ifekf5h3gjgYfchAhACygniwC3CcfwfngmCjCTH1IJf4i7e1I5c2H1G5c3I4b4b4b4cVRCRFVDPpQSQrqeqU9HKoPFVVQBrBWVqIsnWpqNrpGgIhiagkfFiDf2Hghzg5h3gjg3C9gxh")
AspCoding.EnCode("ahjCtingXiTH3GNCYflhYc2HXd2H4b4b1G2H5cYHOQCRUpSrGsAO8OCPsRtqhrkRgqSWB9LsWP6rCRzqWICHhiyikfFiAC2HQfyilechahjejfFgje4g3CHgYcJf4i7eYc2HXd3I1G2H3I2H4b4cOQoQUpFR6Oa97VURBozpHqmrSW7pdP1PpGCHhixCjeAgACXdCfwe8eECWgXCphagDfEdDIkH7d2H3I1G1G5c5c3I4b4c9ROqgQfrqQoRJQgP6OmQGQUqVReKVbhbhijfkflhFh5cVfZiygviWg4hjiZe")
AspCoding.EnCode("niEgHg1Iigkg3fzCafYc2HXd2H3I3I2H5c2H4crqVRbQdKFVZpVqWrKRkRbQILWIVcpGgIdeagje6fFh3Ihgkf5h4hwCngQiDCwCjf3fmgsCFCjfmg8fni8eRgai5fBGYcMgmhlh2b5c3I3I3I1G2H2H4b5bRriqSoFRcQl9EWoqSOHKCqD9QPcRgrlVVQOrFpzpVbgIIhagzgECEg4bhh3Cviug8iafkeYCZfqhEijf4C8f3hFhPevfniTH4HVgjfYcXdXdXd1G3I4b5c3I5bsql9tsJP89kV9qIR8pHL9r")
AspCoding.EnCode("XQMrosEpCQU9ItCqEWQPbQiRjoOR9sUVA9qQerIPILoQ6sORzPqQxV4HLh4i6f4HoHgIgCyizgAg8e2HPhZiDhYfselePe7fyi4CDe4gACsCvfXePeYCEgaCGh1IrfDCjgjfYCZfRg6eke3iAi4gFhriyg3h4H5c2H3I2H1GXd2H2H5bUVwqEWoqQrRQFpxW7WeLpQD9qRT9iRAW79iPerbReRcRWIgIcfxCkfFiDfXdrf6gRg7fyiZfAi3hEgQfxh4gsfTh8ingHg4H8izgXiGoZgweYgGoyf7hZgIVXfjh")