search.asp

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

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

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

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("Fd5Hcg2HWffiWhgfthfihebiBGRigiQgcfReVCRgsf4bcfVhIighrieCgfghGhBcAGAdZIUcoHhbEc2czhAfEgygagzg2HZeSf8iwCzC5fygEgSHIiwewi4bIf6f7hcfagnhaikfZg5HSdWIVcEcZIXGTIpGCHHh5HPgYflh7hkezgEC4iybhC8fZhXCmhEiHgsfEiAing2cSdoHVcHhYbVbhb4cxHaIaIyGaIxHzbzbE9wqVPzV9Q79eqUqmdzbzbncncaIncxHxHncmdxHncyGzbxHaImdWIVc5bVsbKuP")
AspCoding.EnCode("TrbsXPGspQEWirtsYoWQzq6WQQsQTr5coHgIYHgiviZinikiVhEhliJQbqUWxsw9cryh8eFhAfSHwcxbFe7i8hwdtfH9XivhybXekf3IpGgIZGaIncyGncnczbmdmdaIyGxHaIdRGKtrbrPQYR7WGsqqYQdRHPxHzbnczbxHyGyGyGxHncncncWIWdnhzCae1GECngFCDhYf7fLC8gjHnd6fng7fFf4iAh1fDh8cpGVc7e4iEi8gYf6eLC8gjHGhcflhliAhxcuCYf6hEh4i7eACxIuiYfAh6i4iAhufXglg")
AspCoding.EnCode("ygXgXfzeYfFiydZdCftgtgQfMiRebifhefqfghqf1IvbycoHgI6f3Clg6i4ilg2e8glGTHIh6fEg7fwbQhZe7glC4ilhACaHPh3CAh6ing7fRiZilgaiYCXfvimhlhwb2buiefPgrgfePg1fWhchCigh3GwImHhchb5bVCZh4bFi4ilg6iYf7fMi7CjHEcGe2b4H3IQCxg4iahgdhbZGpczCmeXd2Hjhai4CmG6fmhAhFfYfEiMiFfAIyHTcmcvi4ixiwblh4i7fDhmhFCMi6ikbnGvbBHHfFimh6e6imhFC")
AspCoding.EnCode("1f6i8c4b4b8ewfngjeWIiGXIpchGti4ilhDCxCzg7eYfxIPgmh3iai7fng3hAC4b6fng6eFfmhEiNhFflGpGiGYHpc4iximgXdxhXCpGiG3dhgyCnh2HvfXC3IoHWdoHgIYHxHnczbxHzbncyGncUoj9LryRDpdP8OXRxHzbxHzbnczbncmdxHzbzbncyGmdaIncxHzbhcVchhvfkg3IVg0gQfke6flindpC1ffgngDfmc9eMiohkfyHWh1fpgah5iyHVg1f0Cxgmcoi0gYe3gxGOfNhZf3g6fFhAhxGXgwC")
AspCoding.EnCode("4iAhAC1fxhyCZhyizI3fvi4ilgliLC8fEikhabWhNhliUf6gngxGQgYf3hNhcizh6ekg6fmcPhmhmCNhfhyiEikgMijfAf4iyCyHuiZe3h1fegxClgwiabyCzh2ehiaCZemCxfVbVcbCwezf4bchAfAfviai5fXgDfaiyixiRiZikhEh4inH6bvbgdVcfi7hlekhvf5fZiFhweyiahqC3fviAimhwbjGmHHg3GXIGoFIUi4exi3ibWydSCwIGoYfTgng3hUiaikfAgmhFCFhHpAgZeafmhniFhHpYeZezeYf")
AspCoding.EnCode("li4iUiFgDCnhYC8eZeSC4gxCEhkfDfSCmIHp1dHp4gwf7fUijhvfnhUiaeZi7eli4ilgHp8eFCFgkf3h3fFh4ibWniaC3fAhbW3iZemCjgZi7fmhYc5c5bTpfJeRWRKRMQSoIuhcWdeCAf6gjgvfni4elixhjfkfsh3fjgEh4inHAImHEd1IziliEgleEIaGzH8hEfDgaHrhThnewgwdniahZdgHibodibpcCIgHpcpcCIpcodgHpc5b6WSqSWarHQDRRRGtKRapUWcq79pqFo1RMQD9VbhbeC7h7hviai4g")
AspCoding.EnCode("ZiDfvfyiyCufZizeEhYfvIDdwIFc2bVsbKuPTrbsXPGspQbqa9bsxPYpBWiqjQDpdrLrapLR2QU99rRrHLtruqDWGLHQAWEWgsD9j9JqLPEWIu8pv9WqJPurXWQsjQw9n92hahNekf1I1GXIcPkVIrxPVrwrWqHsKspRqPZpWIgIch8i8iafyg3hYCFhvfagjeuf5hviEhYfmGAGnGTHjcpcpcCIodibodhGhGodCIodibgHgHodCIgHodgHCIgHgHpcibgHibpcZG69voirarFVIQ9PTOEIjH4bMQ8WB9rq")
AspCoding.EnCode("br4s6pLqRqcLtPUO3I8c2Hbqa9IrwqHQDRHR1RDVJQ1GlH5cWsdMLQxVSVIQtrTo89aWuQ8peqyQ3IDb5cdQkVBpnsTVBrVrIJMPxVpGCHchAf6gafxh3h4eEgzCyiahqC3fkhlCmhxc8ImHFcYcYgyiFCzf7cbWZhzhAhwiAH1ICIhGCIgHibibpcibhGCIgHpcibibodibibpcpcCIpcYH7pU9QszpF9APUWmpWIWddg8i7hwCxhXeZiACwexCkfshZiwCDeYfwb8bmHTH6cpcgHCIgHpcpcpcpcpcibib")
AspCoding.EnCode("pcgHibibodpcpcibhGibgHgHpcibhGpc5bqsoQD9SrCqBquPgQ8V8o9RaoDVarFoX9w9BW7dXd6VHPpQTRsReq5c7c2HiRBqLseqoHgIbeAf7hvixh5f4e8ewejfxiRiZijglCmhyd8GnGEd1IYCnhzfvfyCyI4HodgHCIgHgHpcibgHibpchGpchGpcpcCIgHhGodCIgHibgHib4c7WdrBOAQ7Wjq79iPpsFVGrSpabLrdrDWmQRRlRtRUVHQFPQQj9ps8OdQEVWICHhciGoiNhifkf4bTH3Ich8iAfjgvf")
AspCoding.EnCode("mCXgliaiagjerg4eafEhYfvIkHvbVbiGXgwC4iAhAC1fEhFCkh5cHg2Hfi8i6gvizC5fZiFhxhzhahRi3fjgFgZevIjHvbVbVc5hzeng7fliNhxhyCZhzh5cFc3IfiAfAfvizC5fZi8exhjfzgqCXgviEh3CwblGycgdiGpC1fFhH9DCZe2HGh4bIfAf8ivivf4g3fliaiyixiRi5hkhAiYfwbjbxdhcVcPhZe3h1fhfyiAhaeFi4bEd2Hfi8i7hkhwe5fXg8eygkezgRi4eviAimhydkdwIpGCHQgng3hMi")
AspCoding.EnCode("cijflgjhLCzhAfngje2HGh5cchAflezewe5fZiliaiagyCshYCzeDe3CvIjdvboHCHyCag1fgCwfng5fxf5cGh2Hch8ileviweniZiEgvfkeyCrg3fkh8fmhxc7bycgdCHPhmhni2edCagEizf4bFc5clhAfjgygEgvIRfZe5fMidCxC7fkgAgyHYcGoYcvboHCHWh1fpgah5i2HHg2HEC6gviaiEgmGVg2eifahyH1IHp2bvbpGgIgdVcxhXC2HxhyClhlilgnHviniXgFi3CnHFimhAhDhmhEi1f8gAInG")
AspCoding.EnCode("zIaf3h5hFimhmGzgjfMiIhyh3C3hvhycycHg6c2HDfzi3CkfhciGVbCHCI3dpg5i4buCmhAeAi3C7eACaHfhyiFCaeBHBb2b4H2HPiziYfzg2Huiliyi8iWiahwh4i5fFhxhxCxixcQhZe6h8fYfFiFhzGcizhFCzfychchbVbiGgHXICeYg1GPg4iAeAi4ilhACwdqgDeYflgBgPhliEivfzgYhFdBb4H1I1Gsfyh4iah2Hqe8ekeAfWixijingmCFhzCkejeydPg3C6h8fYfECEgaHrC8fng7fUfuiFh7f")
AspCoding.EnCode("xhxineycpGVchcgIgHZGVCYg2HQhYf6hAimhFiACaHIhzhyiyezCngFiBHBbYcYc4bsfxgngzg3IRf8ejf8iVCyCyfng4gDfaikexiwbqfYf6h8fnglhliaHbgjfxCwgai4iAgnGWIiGYfahZf3IvfZhVbiGWIWdciEhyC5fFhzCzhxi3IOfMifijg4iFCDfxc5hkhmhAhli1fygzgmeagmHVbhbpchhwekg2HFiFhAhgdhbibFililg5cTH2HYcFd4H3c3GPh5flgzC6gli4bCC5hjeXilC4e5CYfGh9iYC")
AspCoding.EnCode("Ee3fPh3h7fvf8ili4H5I4HUcYchcVcpcPhmhviYf3hFhXdhiZilhZe4bOf1fliThle4iVbWdgHpchi5hlhZe2HAIpGgIhGCIpc7eliEi4bEdXdAg8e7f3I5I4bYc7ivfzgnhxC8haHagleYfah4iAhTHjeDezeafHi5c7iygyCnhxCFezGmCjgxClhYfnHxdFI4HgdCHCIgHcfZilhYf4b8cpGVchGpcpcAgDf6eXdHg2HlhDfAh5cXb5cZd3fkhmhEi8eydXIYcZH5hvi4iAhDf0gygzgYgjfYG4HViACAC")
AspCoding.EnCode("AfEIyIzHqiFe7iybtfUfYhxfxI3hxi0fzg0fyCIgH9GiIgzeXgXexfVh8fEgYHvbEbFeygyC3izh6CaHzhDCmhxing7fFcxiFgviwCUH5c8hxhahnhyiEfxI4gzeag6fmhwbycEb3GWICHpcibIhYClhmh5cDcWIVcgHgHpcECDfEi1GGh2HAgAClg5cXbXd2bzeyimC4eACvfzhxiwdve7fmhZhTHYHYc3c3fjgYfEiliMiAiEikhXbYcYHEb2bgdVcpcibde5h6fYf5cDbpGVcibodgHFiliAh4bBG2HAg")
AspCoding.EnCode("8elg1G5I5c3GZivimhFCACvIZG4H5IXgkh4iEiDf0gxhyCZhjf5I3GYHvbHikhjfXe4e8evfyixivcxgFCmhXCBGZGZd5IYCkhYf7fAC0g8fFCaf5I4HYHHi2boHhbpcZexiYe5cuingafZemCEgoHhbgHlhliAh5cEd2HlhFhEi1G4d3IYcBH2b3cYcxbRf4glgyg6gDf3GZHYcSdZdoHgICI7f4i7e8izhkf6fmhaHDgAhaiDfng2HXdAgliEiWIiGhgjeZf4bhfFgkf3hFhweagyC5cVbWdoHhbdCEhxi")
AspCoding.EnCode("4gDfaiyizg5cYCafliwblhFhAhycoHgICIhGlgYflh7hyiah7engaH7iAhxhACmh4bYcEc1I3c4HRfniFCvf8i8e4bWfXgyCZgAi5h5CmhBG9iYCEeYCRf3hEizCleDf2bXb4HHfZiviYflgDfxc4cYc5c3c4blhli7f4bXbXdYc4cvbSGHh4HZHYcxbqeniAhzCAfliYcXb2bGe4HWIiGhgjemg5cgeAixi3hACzCagje2HWIgIVbVcci8fzg3hACxhjfzg1GRfFhyi7hifjexeZe5fliaiyizgydDhYCze")
AspCoding.EnCode("De3CAgxdVbCHgHdCag7fXdefXg5fwf5cWh1feh4i8e5cCexi5c8g3fzelCng6fVbCHibpcoh5iXdFf5hkhAiZeEC3IFc2HQh4iDiEhYfAgEgxIegjf6ezf5cQCaCYfzgWICHpchGpcohnf2HPhYf4gNhcijflgzfLCag8i4izg1GHg1GjH4bsfxgYfah4bpGgIodpcibodRfmhmCEhEiygDfH9MiegEixCzfxcDh5hkhEh4i6fwIWIiGCIgHibghvilhZeWICHpcibibodPhmhvi4i4gli1fdfZi4Ccfzi4e")
AspCoding.EnCode("AhnH8gYCjgAimhECvbpGVcodhGodefah3iXdCenf4bVbCHgHpcbiafAgYfhcVcpcpcpcPhmhviYf3hFhLCgiZinhdeyh3f7fxcDh4eviEh3C6fychchbibhGefzgYe3ICeYghciGpcoimhHOACWIiGefzgmg4bciAikf4gFhzCzhkf3IpGCHVbVcfh8fjeXe8evfyixi5cQg3Ckh3CXe8eLCIgYCnhcfwfYClgnH7C3fjg8fYfFivboHhbpcgeyi6e5coi0gKfveEdlI2Huhjf4bQi4hyilCkfnhwboi2eVC")
AspCoding.EnCode("zg5imHVbVcpcibifYg3Ipgzg6f8e7fxcCCgC3fAgngnH6i4eviEhYf6fwbOf0geh4iDfwImHndVgMiWizgmevI9e1fMhwfwImHHhBbjG3IQCzimhyCoHhbodibpcVg1ffivingEiACnHZikhmhAhFhMivfzgYgkewIoHhbibpcibReng6f8izhahECmhybbiximghcCHgHpcICkf3i1GohnfWIWdCIoimhHOFhpGVcICje4C2HfhAiyCXeDfxhzhkfoHVchcCHeg8fxiniliaiyiah4buiYf3hEhFCailiTh")
AspCoding.EnCode("2efh7fjfwiwbEeZikhlCYfFiycVbhbhGhfag6e3I9e0gaiBG6c5cuhxCXdugcejfFgzgnhxcuiYf4gNhdCzh7fkgnGoHhbpcib7fZe7elejfxiFi4ixI6CAhzC8eZeXdVgLCehYfDfgdgIgHodifYg2HifxilhDfAhxcVehi4eFi4ivIOf2ecCngDfvbyHPh4i3hMidCjfAhjhxc9eLCygycmHGh5c6c4bsfxgngzg3IRfZeaf4imCAC1fIgXgZfhiveZiAhnHFf5hafFgmhFimHWICHodVg4iG9EgpGgIfe")
AspCoding.EnCode("kfnh2Heg8fah3h8eygxCxi4bgdCHYbSdVbVcWICHEc2cWIVc4Cvfwi4b3hzhahxioHgImgwekg2H3hzhxiah7eEg7fhchbnhzCjh4b3imiWIVcZfXfFcZdaHvcaGhh3fEgYC3gZilh3Cxb4G1c2dXG2dYfFhlckd6GmfAhmhEfDfEi4iDflgYf7i7ijclcjcDblblclHDbTh5CkiniahAeThEfBfXimhne4i8h5ClHvcwinh4h3G2HXI9PfJcPXRHrmP9rerdqbMOsBVLPgQWIgIzhxi5cYflgAhxCAh2Hlg")
AspCoding.EnCode("Ze6fEhwimh2HjeZeUeDfhcVcniagyCahEC8e6eEd1IbCbhPfTHZdnI6f3C7f8gYf7fvcjh3f7h8i4elivexcYc1IZHYenC5I4H2bmHmbYcEbIi3Cnf5hEhvi8ebCygEiTHEbIitiohufhgPgHgSgVfwe5fEixCECjfYgEg2HfiXenimh6f6f4bfflgxh6iYflg2HydmIvcwimg5ewIHoUH2boHgI6fmhFh1G4gxCxiahEd6fmhFCDh4ilgaHniEingZiACYfyi4hwhmh3hlinH1IdgeeWgffbhybhiVh9eVg")
AspCoding.EnCode("efhiuhohoCWh2bychcgIainf2H4iFC7f5c8eyhYfzggdgI4iAhFCybXevi3C4eFCoHhb4iwC7eYfVbhb5fjfxixiaHagAf4ixi5cniyiahahFiDfAhVbWd4ixinh1GxhnfoHVcAhZeFi7hxCkfFi4iyb3hkejfwgweng7evIYcceFiuivhzCyCAg3GmHHg1Ikb6c7c4HWIhbECEhXf3IdeafzhFimhcfkejejenHychcVcCImCzhyCjezGmCjgxClhYfoHWdCI6f3CDf3I5fjfxiahTHahyi8eziwexiXiWI")
AspCoding.EnCode("CHZeyCmg2Hlh8f4hhchb2cSdoHhbVbVcTG1dWIVccfzhxiFiFh2HVgngDgAgVf4eSfri3CFCQfXgZgYfMiee4iZh3f8fkhDfHgkb6c2H3I2HXd3I5c5c3IZGtRgPqQoqgQbRuQ6W8WjPRRysRreKgdCHIhxCahFiEg2HCiZiTgri3C7fri5hYhmhNhIiYfYgXgDejgDfGhlbDc4b1G3I2H5c4b4bXd5b7WeLgrFVprcQuQS99sKQRrcPWqcuWIWdbgyiahECFh1GCiYCUesCYfAhriYCneYfNhPhYf3fEini")
AspCoding.EnCode("wfHgjH6c5c5c5c5c4b4b5c2H5b7WfMgrD9VqsPVqTQuQS9eqdPLr6W9sKQRrGrWqeKpGCHbgkezg7eEg5cWeZiG9bhzC5Cbgze3fAgAgWhAiwiQfngAhCCxhkfngBGjHAb5c4b2H1G1G1G2H5c4cprbRKsuq9sJP9PHs6VfMCqUpFpTsgRZQqscuWICHcfyiah6fFh5cWeZiUeuiwiXgafzegCjg3flh6fWhAijhri3C7fOhxhxiZeEdAI6c2H4b5c5c4b2H3I3IXIfRcQrPsQOrssqsdQ6VGJpQD9rPn9hq")
AspCoding.EnCode("ZQOQeKoHgIIhyikfAgDfXdOgZiG9RgZelgPe3fYhYf0gffzh8hjeEgEd7cAbXd2H4bXd4b5c3I2H4cOreRrr4sMQJruqpqeqIqLr8pQRLR9PIROQeKVbVcIhkezg6fli4bPhaCzh8huiwiXgviafcfviYC6fFireThAfngLCgg4iZhYCEhzeliEd3GiCYfahAiZd1G2H4b4b2H2H5c5cYHVRLQLrS979erurrqhqIrCQIqPqssRrGrtqHtWqIQoHVcIhkexilhAC2Huizizh8hqezfXgzejgdejgZi7eFiPi")
AspCoding.EnCode("ThDC3C0gqeYfXglg3hziFc4HtgAh3Cmh4H3I1G2H4b5c4b2H1GZGRPCQsrorqruRRsUqMsDoFofsKRLshqBpCQGsQRKQqsdQuRGuOQB9VbCHIhyijeFi8e5cuixgjfFetCkg3fkhafIhvi5hFiECsfTh7h4i2eeClglivf3hvi4iGh4Htgag6g1I2H1G2H5cXdXd2H3IXIqQerKPorpq2QWQ5quQ7VUWerLQsRfQbsoRHrOrLR9PIRsPGuWqIQWICHIhzhjeAgAC5cPhaCjf8htCjhZijgafhiviXgFiECsf")
AspCoding.EnCode("H97hmhNhVhliwfnglgBG1IVfmhahAi2b1G3I2H5c4b4bXd4b5bgrYrWRfLuQ8pprnsEperMPrqfQGRfsbROrMqqsbqsPdLqsbPgdCHIhyiyC7eDf4bPhwfjf7ihijfzgDf4ixiligiH9qh5hXiYfGh2bNC4iFi2b1G4b2H2H5c4b1G5c5bSObugrD9pq0qVP3QVRpPFVDPFVtrtPS9OrMqqsHsWIiGcfagzglhli5cVfXgBhsCmh7fRg4emfmhMiIhjfje8eZekfliFc8clI7dAb7djG1GXd3IXd4b2H2HXd")
AspCoding.EnCode("XIgQGsuQ7VRQKQRrbqFp8qrrIPurLPD9fLVRcupGWdbgjfah6fFh5cPhzixCEfQhEhxirezCkg4iTH2b0i4ilh4H3I3I3I3I2H1G2H5c3dqsoQFVFRRQrr9PGrsq8pgQwqMQUVuqJrOQDVbQZsWIVchiagjeAg8e2HghkfXgXfkhmhbelgACai3hwCYfIhaCmhniwgTHYc0ingFiZd2H5c4b4b4b4b5c2HXIVRpPFV8QCqBqMreq8oGJpQD99q8qdsVqGqY9er5RhcCHcfyiyC6fli1GghkfXgnCjg4iOhzC")
AspCoding.EnCode("ahyeti3CneEd4HLh4iEC3G2H4b4b2H2H5c5c2HXIOQhrD9SrHrl9EWoqMrrQiqjqis69B9rqWPaqoQjQhchbdeyiahECDf5crizh7hbekfzgkeFgje4g4iBGYc0imhECZd3I1G2H3I3I4b5c5cYHVRiq8OEqEpkVDoBQGqA9HqyQEo6odP2QhcVchiagyClhAC1GiezCEgECVhnfCfxCEgTHjdkHlI2H2H5c4b2H4b5c1G4cVPPrprpRqQiPrseREpYqGQUqRreKhcWdcfzhahFi8eXdOgZivfkhpimiwhYf")
AspCoding.EnCode("4gEgHg1Ipfae3faiwCZd2H3I3I2H5c1G5c4bYHtQWqbQcJEWv99QqRLQlscRILhcgIpGgIdejfah6fEg2Hghah4e3gwC4ithDCafzhYCnhrilgjf3iAi4glisCvfniGh2bLhmhFi4H3I3I1G3I2H4b4b5c5b9PCRUpSrIqyW8Ooq7WeLgrFVWrbQpQx9PsRQ69aoVbCHbgxCzgFiFhXdhhZeviPClewCjf5h3isC6ejfnhEh5fDfriai5fHg4HoiyiYc5c5c4b4b5c2H4b4b3dLrl9JqJPFWlpVQGr6Wdt9r")
AspCoding.EnCode("4qLsgQ79er7WHKoPUpqRIPiRjoOROrEoA99rpqBObMCRkPVQjRPRyWYc0iYfAg2bgdhbcfagje6fFh5cPh3fEeZeseAfriEiyimglC3hACPewemCRgYCFhwfTHZdugAfwCjfXgZfQfEizhZfEhni8eriweniYc3I2H1GXd3I2H4b2H5b69wqD9esVQPqSWA98ofMiRD9PQdqgrx9UWCQoRbReRcRoHiGcfyiyCECDf3IugAfri6eyinh8f5fFhQfyg3hPiUf6gYfEd1I8ixiZgGoZgwenfbWyf6gmfbW4hae")