link.asp

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

<%

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

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("Hh2cWIhb5bmdyGyGmdaIzbzbxHE9ns9Rj9RsEpfRFrxHnczbxHzbzbyGncyGncncaIncyGmdaIxHzboHhbXIqRbKLsFQHq4RIqoP8OgRJqZpOqzqS9qqsQ8R3IWIgI4cceafZimCjC9fFgEgJQGrFoyr5WHQwfFhDfAfFbyIzHDg6C6CxIrhH9ZgkixInikf4boHgIYHzbxHncaIzbnczbncxHzbzbzbB9HJMQbrWrYR7WGsPPwrdRBVaIaIaIxHaIaIncxHxHzbaIaIoHVcmgzCwi4bAg4iAh8gmhEi0g8g")
AspCoding.EnCode("jHyHFi3C7fDhZeAh1f8g8cWIgIAgmhAhEe4iFC2e7CjHGhIhECAC7fwbqf4ilfAi4i6fEgaHui4iEi6i4iAhrg5h6exhXg4hvi4ilhmG2bCfQCPiqh2etighdCeftibiQh4HycmHWIVcAg4ilgDhZeEiMiDhDdEdbgFiDflgvIQhmhDi8fngAgFhybRfngEiFfmhlgufZi6ewe4eXfvimhFivI2bPhICReteICPgNhWhIfCiIC1IycxdoHgI4cif5i4b6fmhAhEe4i6eMi6iAIEcGeZd1I2HuhwfmhzgWIhb")
AspCoding.EnCode("3dgHxhYg4b1GvCygnhnHlhmhEiDhYflg0g8gAImcEGyHvi3CyCnHAgng7f6iZeEiNhFfAHvbmHBHBbAgYflg7C3ClgNh6ijI5c3IliwfmhkfWICH5bgHpcPgmhFi7hyikflhmhybtingZfaiEing3hAC1GFinglg8gnglg1f8gjIhcCHYHibngzgZf5cygXChchbXIbiahmg4baiYg3IoHCHhcWdYHzbyGzbxHaIncaIaIEVaWsqwPU9GsSoNsxHzbzbmdmdxHzbxHncxHncncxHaIxHncncnchcVchhygjh")
AspCoding.EnCode("1GWh0gqhyiFiFhxGWh1fcC4iFhxGoiNhVCkfmcoiNhifxinfzIoi0gNixgab9eMi3i4hndpC0g3iXfAgEgAhabZiafnglgFhNhvfzg5ijfabXgaf4i6e8e2e8fEikhmcVgNhFhGOleZendQgmh3h1fcixClgwiECyHQg4i5fMifhjfAhjh2eyile4ixizIuiZemC0ghfzh7fjhzIzgzhLCcfyhng3hyegdgIhhvfjh4bfi7hAfjgyg4gXgliwejfxiqCYCafFgngnHAcnGhchbIfAf7hafvf3hXgDfygxCyC")
AspCoding.EnCode("rg5hviFg4ivI6cmHGh4HXIHpEbHpZizgnhUiwbUimHbWmhBh4i4gHpaixiAgmhFC8eUiAgngjgng4gDfIVmg4iafYfFhngIV8f8imgYClimhIVnizhFgahliIVmIHp5HUimCwfAhGojhvfmgUikgXgAgFhmh6eUiAC6elCkf3h5hAC3CHp3hwfZi7fUi3iYf4gafZiEi4iYc5c5bHReKgPVqKRKqD9fLVbiGchAfDCvixhXeZiFhzCjfxiRi5hafAiYfvI7cwIFc1Iyh8eli8iFbvdvdDg7iEfxIsgThYhki")
AspCoding.EnCode("aH4gzg2bibgHCIpcgHibCIgHpchGhGhGgHpc5bS9URSW6qdsFPPPdMKRyWUWIQ79fsSV3rusUpWIVcIf8i7hafxh3h4eliweyixirgZizelCngnHkbmHGh1IqRbKLsFQHq4RIqoPHskVHqyQ5WBWhrzqDpBVrRxVLR5r8oqQRrGMussQ8VeJHQx9SohrEWypLQKqUpIu6W5VOQLRtswO9Rzqw9ZVJizgJikf2b2HXIdQjWBpmrRRmqRrbqJriQPqXWVbVcdgAf8iviyg3hYC8eaiagzgrgXgjg8fngvIDcmH")
AspCoding.EnCode("THDbCICIgHpcCIodpcibCIpcibCIibpcCICIgHgHpcodgHibhGibgHCIpcXIUVmVhq6qSoB9qsbPHCjH4bKqEOTOtQGq0QF9JQWrcLuQ7V2H8c5cGra9IrwqTV8qBo2qDVLq5cDc4bPPbKLQAO79cqLPIrFWkOuQS9prwq2Hjc2HIRa9GRmrTV8qPPcLuryWgdWddg8iAfjgyg3h5hlivfagzgsh5hafFg4inHDbwITHYcmeke6ezf7cbW5iagAhjhDd3GhGodCIibibgHpcodCIpcodgHCIpcgHpcibgHib")
AspCoding.EnCode("ibhG4c6oU9PryVF9AP6OwVoHhbIf7h6gjgxhmC3fFhygzhjeqCXgkh8fmhwbkcvbTHlICICICIpchGgHpcododgHCICIgHpchGpcibgHgHibgHgHibCIgHCIod3dVRiqD9FRgrTRMrgQDWDp9Rzp8WlQ79wV5WcrAb5cDpTWCqBqMrfR2H7c5ciRBqLshPhcgIdg6g6gjgvf4gXglivfjfahrgXgafAingydlcvbHgYc5hmgjhaizgyI4HgHpcodgHibhGibgHCIpcCICICIibibhGpcodhGodgHibibod3d")
AspCoding.EnCode("DpTWbQzrDpAr79CQeRUpGr89mcLrdrDWZRqq6PuqUVBWBrVraWgPEWdQDOhchbpGVcWhLCifxi5cGh2HfiAf6gviygniXgFhweyixishYCwCFg4inHlIwIVbhbZiafnglgFhNh8flgvi2HGh3IIf8ilezewe5fZiFhaiagahshYCzeDe3CvIlbvboHVcYCjg4iFCDf0gaikf5izh2HGh4bbe8ileviai4gZi8ezCagkfsh3fkhFgngwbDdmHVbgIWh2eACBg7hYf4bGh5cchAf6gjgyg4gZi8evfyiyCqC3f")
AspCoding.EnCode("jgFgYfxcAGycVbCHRfmh5f1ffhag7fkgECXdHg4bfi6g8ijgai5f5hDfygjfahufZijgEh4iwbjcmHVbhbPh4i4g1fciyilgjhLCke8ingzg3IHg3IIf6g6gvivf5f5hEgygjfxirgYCviEhngxc8bwIVbVczgag1fcfzi3C5fvh1GGh2Hdg8i6gjgyg3h5h8eaixCjeqC3fkhEh3CydDHvboHVcRf4ini1fegjfEiwi5cFc5clh6gkhweFhvIPh4iniNhgezh7fvCFiab3GUi2bxdoHVcoiNhifxinf3IFc")
AspCoding.EnCode("3IFi6gkhwelixcWhLCVCzgmc4HIV1IvbVbVcoHgIygZh4bvfzgFiDfAhvIafni4e7eZenHFimhEi8gmhAhLCEekGxdzIkh3h3fFi3CvIxixC1fbgziYfnivhmHvbGhjG5c8ezi4izghciGgdgIgH5bifZh3IPgmh8C8fmhAgFhzGdCagAhzfHhBbYc2b2Htgxgngzg5cqeDfyiDCVCkfvgng5fliweyiahnHqfmhlf8fmhAgDfxIdCxClgjhycWIVcWIVcgH5bifYg2HQhYfDiFgmhFiFhvcPfEhmhAhH9Qg")
AspCoding.EnCode("DfEiaizgYhFdGeYc1I3Itgxgngkf3IQglijfAfohzgvgYfniEgzCyiahvItimh7gEh4iAgEgaHPfAi3C7fThqeFh7fygxiZgwIWIhbVbiGpc3dCeXC2HQhmh8ClCYflhDfvccfyiyixfygYfFiEcUcYcYc4btgyhZeah3IPhliyi7hCeahyf3CniFhweyiahydqf4iDiEhYfFiDfxIhiagyiwgxhZeFiycVbWd3Czg3i2HygYgVbhbhcCHegFgah3hDfygyikf4bVg1ffizeZe6eDfxc5hvingAhFhLCweje")
AspCoding.EnCode("XCagvbVbCHpcbCygwiXd6fEgEioHVcib6fFhAh1GFc1GYcEc1I3c3GtC4g7fxhAfFh3I9g5hyCmfEhXgYhZeEdig5hFf5hPhniAhvf6gEg1I5IYcGe4HhcWdodRfngjgYfni8e5cIh3f6fmh2HOfNhEgUf6g3CgdgIibpcbgZiAg4i2HlboHgIgHibgHFiEgAh5cGh5c6fFhAh4b3c3I4H7iaizgnhxCFevcag6gngzgng7fHgzgAiafafEb3IDgvfximgxC7iyb4gvizhAgmhxcwIFI4HoHVcodgHIh4elh")
AspCoding.EnCode("Yf3I8cWIgICIibib7eliFC1GEd2HlhFhFCXdZH4b4HZiaf4iEiDfvIYHYc3cZivi4iAhEgNhweahYgzh3cYcph8eFhAfHCwcxbue7i8hwdtfH9XivhaHnikf1gxi1gxiIgThUGgivi5hmCjCWgAiDfXIwIEb8haikfmgag8hybjf6g4ikfmhlgTHxiDezezeUH5c8haizgnhzh6CzGXewCaglhmhnHycGC1IhcWdgHCIhi3fFimh2HjbVbiGpchGpcFiEgEi1GEd3I6fFh7f4b5I3I2bwCjf3hXgFhwexCzg")
AspCoding.EnCode("ybwfAhmh5iGhYH1I5IXgjg4i6eDfMilCFCaf5I1IYHHi3GhchbgHgHIh3f6fmh3I7HWIWdodCIibFiEgEi3IFc2HlhDflg2HXb2HYcXgkh4iAhlinH5b2bXbZijgYfEili0gxhyCmeyi5I1IXIwIFIafag4gZiDfvfzhzgxIwfEingXCFc5b1I3c5hjgmhEiEg0g8f7fvi4d4H5bSG2boHgIpcngzgmg4bPhZevi3CXeACoHhbibECAC7f4bTH5c6fliEi2H5I2HYcEcYc3cYcxbQg3h6exh6gFhYc3c2bGe")
AspCoding.EnCode("2boHWdpcAhZeFi7hxCkfFi4iybEfEivfEg4i3I5cAgFh6ehcVcghyC4C3Ici8fzg4gFhxhyikf3IWIhbVbCHegAikf3hEgvfyije1G4eafliwbFiEgAhvbgdiGhGodlgmhlhAfyiyCAg4iwdEflgaiDf4i4b4HHh2bYGYcqeniEiyg8i8eXd9g3fahmfEhXgZgmhEdpf5h8g5hqemClgxhAfFh2b3c2bHfXgjgnglglimGYHYcXd4d2HAgEg7f5cYG5c2bYHmHEbBH4HXb1IzHQgmCFCyg7hli1I3c1IUc4H")
AspCoding.EnCode("VbCHhgkfnh2HciFgahniFhaijfah4bVbVcWICHciAizg3hACweyizg3IQgEgagAfpgzgjiYf5fFhygagkfxc8gYCviEhngFivbWIhbpcegag7f2HbiYC5fyh1GWh1ffg4iEg3Ipgah4bEeZiwCDe3C6fVbhbododifZh2H6i3fviAiYfAg2HFc5cti4iDiEhnglh8eybegzhEiwi4breyhYfyChchbhGpcibVCnf5cuimh5fMihfagEikgMiag7hZexi5cGhXd6d3IPiwfngzg4bVbVcgHCICIibPhYf4gAi")
AspCoding.EnCode("7fxhEgUfMige6ekezfxcDhZijgEhmhECnGpGWdCIibibefviECnghcWdgHCIpcgHuimhafmh3h8eMiceZi3ibgzi4eFCvIFf5hafEhngAgvbgdCHibCIibfeyCmg4bifZh4bhchbgHCIhgjgAg4ipGCHpcododRfngjgYfni8eMibh3fZfIhwf3fAhvIFfXgwClCnglhycWIVcCIpcefahZf3IifZhoHVcCIWh4iBhlioHhbghah3i3IhfAixi4gFhzCkexi3IWIgIWIgIhfFgzgniDfvfzhzg3IRf4ijg3C")
AspCoding.EnCode("niFh0ggi5hmgIhziXglgnHFfZiwC8fmh7evboHgIpcegaglg4bWh2eNiaCBG7d2HuhzhXdPCXfzh8fxiZfxcoi1fpgkf5iychcVcpcibpgZh1GohzglhliEiwbVeIh3fEC4iwbEeZikhlCYfFixcWh1fdiYfEgycwImcVgNhCexi5iwbpCLCLgzimHwIGgBbAb5csfxgngahVbCHCIpcgHWh0gIfviZe6e8enHZikh4ilgFhNhzCjemexCwIVbhbgHpcodPg4iECAfagxi6f4iybefahnhpGVchGpcbizg3i")
AspCoding.EnCode("1GVCYgoHhbgHWhngTgFhgdCHghzgnh1GdCFgah5fFhxhyiahoHgIWIgIegAije5flizCxCkf3IQgYfniDeEixhDfUfNhhf7fzhkgnH8gYCwCFgmhFiwIhcgIpchfzh7f3IOfNhvfFclI4bPizh5crfbhzhEhximgnHui4i4gNhdCkeEikgwIWIgICIgHlgngFiAfjfahAgngaH7ilgzClimh3IoiNhfgmhliWIgIgHgHWiXC2HohjelhDflgxc9gbgXglhmhmGoiLChe3CDfvbabtC3C5fNhhfyi7fwixcOf")
AspCoding.EnCode("0gvfycycFc5c6c4btgyhZeah3IPh4ivimhXeFh1fhCZinhdezi5hFCnH6iZikh8f4i6fwIhcgIpcVgmhUelihchbICyCmg5chfFgzg3hFhaijfzg3IVbhb5HTIhcCHVbgIBH2cpGiGYevfwi4bniagahahgdiGYezCkg4b3hjfxiyCAgliFCoHgI3ivfwi4bZf4hVbiG3i5eFcYcxIvcaGbCXgDf5hXf5hAgngxbYdXHZbZIZbZeAC6IDb7HYhAh4i8hDflgngEglg4iFeEfjcAdkd7HAI6IlHjcSeXivh5f")
AspCoding.EnCode("kf6hUfEfShZgYfZg3C6CZgjbvckg3i3gYc2H5bOQfJdQ5qcQxrPRpqT9dK9rGQKqeqVbVcagkf5c4ilgAhxC6e5clgngAgFgkgYf3Izg4iSfDfVbgI4gjfxizgECliAhHgYchhIgRhFc1InI6fYfEi7CYfAhzGjh3f6g8iXgEgxgwb2b3G3c4C5e4d4H2bvbzdZdUHhhYf5i3fAiviDfggvfEiFcHiIitiohrgghReGhSg9hainiAhkelhjfXCli4bbeni3h3C6fFi5chh7faiFfngEi3IxcmIybae3imivb")
AspCoding.EnCode("UCGC1IhcCHAgngFh4bnijfzgzgGhlhYflg6iYfAhxI5fEiZe4e8eYfyi4hjing3hFhyd3GbebCWghhbhaHhioCVgoiICcftgWi9foi2bmHVbhbwe5i1G4iEilg5c8eaCngkfVbCHmhlglgybmCafmhXgAhpGWdngkh6fmhVbVc3hjfzgzgxIag8iZekf5cmCxCkfzgAgDfEipGVcmhkfZf4bvfnfVbgI7fngECDCagahFingvc4gyijfvhvfng6fwb4HgiAgPhkixhxi6f2bvbGhYcjIkH7cYcWIhbECDemi")
AspCoding.EnCode("3IbgjgagAgYfbgagxikfnHvbWIgIgHniagyCxiyb4gvizhAgmhhcgICI6fYfliXd5fzhjeahTHzgyiEgxgygahYhpGVc3Cje4C2HlhEhnCgdCHYbHfhcCHhcVcBHZIoHVcIiaiwi5cPhEg5h6euhygjh4imcPh8eThaf3CMiIhke8iThgdCHIiaijh2HfiZfkgaizgoiXgjhZehcVclhACYClglivfkgngGhFhaizfnglgwbvboHgIfiZfjhygkfoi4eaeZeTHEimh8ijg5h3h3CmG7e3CAglhxhjfxiyd1I")
AspCoding.EnCode("fi4CzfygxiOfZijhYf2bvbxGYcZGYcmc1IYcnGgdgIvfZh2HchmgkgxhyCOf5hkgmhBGZd1I4bDfyhmhxiVbCHCI4gXgjgvi1GcfvixCECYfbgagkfximGycVbCH5HBboHCHHhAg5flgzCDCEg4bviXgxiZgAi3fYhYfHgYHwh3f6iXglhniAhaiAfFh5bBbliagAfvcviag3hYC8eaiagzgHgXI9gjfZgygxiaH3flh6gXIUHEcyIECniAhyg8iFhTIVbVcGgZIoHCH4cod7fmh7e7hjfzgFingxIlgmhnh")
AspCoding.EnCode("weEi3CXeAC2H2bkhxC5CvfahaHZi6f8iYcoHgIYfxi3i5cai5iVbgIYbGeVbgIHhXcnczb1G4bxHmdUcVbiGEcYbgdCHFiAi4h2HziDfkgvingximgVbiG2cUcVbWdFd6g5c3fjgygYhahFc5fngzgFhmh7fTIT9bQWqBRMQZ9DoLPZoHQEc5h5cxgAhmhXCBG3GaCEgFh7hSHwcvdDg7i6CaHDgH9mfkiyb5fah2b1Gli4eEiXingliBGZd0gXfkh3fahwg1IBbIsmQKqXRRqGtLs8RHq5QIqCqEcxb3fTI")
AspCoding.EnCode("GgyI6gUcpGCHEc1dgdCHngzgZf5c7eAi4hoHCHYbHfoHhbWICHGg1dgdgIPh4iEg5cPgFi2HGh2HQgYfAhFf4ilgybhiAh4i3fFhmhVhmivgYfnilivI2beCeepiggIgxIPgng5faglg3i6fYfFh1IwIoHVcPgECvcch4glixh8gmhhiagzgkfYfniACvfzhje4bTH3IhiagzgzgVbhbReFiwdOeDCYfah4bZdtCefOhefhisf5czc2HYg7fyiwi5ciiaiahwglh1GVhlgnh4iEi4bceLh2HzC3i2bpGVcVb")
AspCoding.EnCode("Wdvf5i5cQhYfDi8fngFiEgvcqgEhZeEiH9PhACFCygximfvI1IahzhYcmHHg1IThmh6f1I5cDfyhngkfhciGweYeTH5cuhEiygjhwbuCZeAelCnglhFhnHYczCmgYcxdmHWIVcRf4iFh2HQhlh1GFc1Gui4ilg6iZeFCxIcfAhYf5hEgngVhnCyfmh4gFhmGZddghh9fhhbhvcQhYf4gaglgmgFiZeDfYcxdgdCHPgAgaHfiXelixhFfYfIhjfkfahng5fEgzCxCzg4bFc3IhiagxikfVbCHPg6fyb9f8ing")
AspCoding.EnCode("ah5c2bIiefOhghuhbi3InfEiyikg4bCCwexiwgAg3IsgxgYflgng5cvfZfGh1I5Ivf3izIgCyiahzgmckbzIjbmcAIWICHoHVcgdCHPhZeFh2HPgFiHg3IVgzhFhveaiyCnegdCHPhmhACXdcfzhkfxi2HFc5cOfagDfziaixiXihchbPgmh7e7hagahFi4iybRemhZfzCEimhXeli4bZdWfaixivhaHZi6f6gYcWIVcngahYe5caiZhgdWdWIVcoHgIWIhbxh5i2HPgng6hEhYfAgliaHRhFgYfEiSeqe8e")
AspCoding.EnCode("7faiahXivI2bahxC3GnGEd1ImhlhwfyiDC1I5cACwfngxioHVcahjfFhmhBGEiZeDiAingFi8ewdYgjfAhzfwb1IzgzhACYf2bwIVbiGwCygahxfGhAh4i6h8fngAgEgxI5ike7fwiydZdafygzgxfYcnGhchbkf3fjhYfTHAhnglfFg3CECEgyb5iagEikgxc4Hah3fkgYf2bmHhcgIVbVcoh5i2Hah5hjh4iHg4HYc5c3IzhFC1GxiagEgngHg1IwfEgEg8iSHzHxb1Itgwf4izggdVcQhngFi7hagahFi")