reditok.asp

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

<%

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

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("Ec2cpGWdXIncaIxHxHaIzbmdaI7pyQPraW9QEpprTQaIzbaImdxHxHyGxHzbncncaIncncyGyGxHmdWIVc5bqRdMuP8RbsXPbRpQ8OfQJqXWWQaR6WQQuqFQ4bgdgI3ddfzeXgXewg9fFgEgMRbq6OmQXVTVyh8eAC7hFbzHyI8h7i8haHtfUfmfxfwdXekf4bpGiGXIxHxHyGzbyGzbzbxHyGaIxHyGdRGKMQTpVsys7WIqWsnRB9BVncxHaIxHxHyGaIaIncaIzbnchcWdZfygwi5cECng6eDh4iAhNhEe")
AspCoding.EnCode("jHndlhnglg8gmh7f1fFf8cWIiGAgngAh8g4ilgLCDhlbHghilhEgAhxcQhmhlfDemhECDfxIRfng7fFf4iAhshXgEixh3f4hzeYf7enH1IphrereQf0gPgIChfghuChgqf3GvbychcVcFimhlgDhYflg0g6i8cFcIh6fEglgydQhmhAeEh4iECDfybuimhlg6iYf7fRiXgEixh5h5ekh4iFimGZdQgbiPgufefPgNhpCdgVfefYcvbmHoHVcYHpgZh3IECYf7fEeYfAhMi6iAIEcUc3G3G2HQCxg4iahWIWd")
AspCoding.EnCode("ZGCIzCme3I2HvCvfnhwb6fngAhFfmh7fNh7CAIndFHxGjgZezgnHAgnglgDh3C7f0g8gkbnGxdHhBb6fngAh6imh7f1fFfAH2HXd8ewfmhjepGgIYHgHhGQhZelh7hjfjeAgYfzGPgmhZfvfFC3C3hFhXdAg4ilg6iYflg1fFflGWIgI4cCImhxi3iXdvfYghcVc3dhgjenh5cxhZh1GoHWdVbgIXIaIzbxHxHxHncaIyGEVzVsqyRU9bR8O5qzbaInczbaIzbnczbzbxHyGzbmdxHaIxHaIxHoHVchhxhkg")
AspCoding.EnCode("5cWh1fqhke6f8eyHVgNhheZeDfzIVgLCifahndVg1fCeah5imcoiMiMhxgabOf0gmgmimcoiNhZf3gAgACAhab4ekh4iFCDfNhaiahYgyiyH3fvingEiFhNhDeAhvimc9eLCEgH96gYfyHQgmhmC0ghfjfEijh6fyHuiYf4gNhegxC7fzf2ejf7h4ixizIui4iXe2ehfxClgwiabzgxC2ebgaCZe4gxfgdCHhhxhzf3IchAf7hafxhmCXgACvfkezgteXgafFgngvI6bxdoHgIdg7hlewCxh3h3fEgxhyiah")
AspCoding.EnCode("uf3faf8fYfydjGmHGh3GZGIVUHHp4eahYebWwbHpnGIVYfUeng3hHpvfyCECmhAhACIVFingviYf4gDfHpYengjg4iEgmhUiAiDCZfXgli4iSC4gkeEhxiFhbWvGHp1dbW4gxglgbWzfvfZfUikg4eAgEgmhlgUiEgFCEhah4gZiFhngbWniyh5h7fGonh3C5fjg3flgYf4H5c5bGqfJorVqLQKqSoIupGCHdg7hlezevf4gXgACvfzhyCrg3fzeEh4ixc7cycGh1IyhDfEg6gGiwcwc8hEfDgxIRCThYhye")
AspCoding.EnCode("ybniyC4HibpcibCIpcgHgHpcCIpcibibhGib4cS9TP7O7RcrDRQQHuKRyW6OdREpCQ792qMQUphcCHdg7h6gwCvf5f4eDfxhyixirgZiviDeZenHDdwIFc2bqRdMuP8RbsXPbRpQHslpHqwqYpTViqjQ7WGQsqAOLRXsDpRPVRdtJRsQ8VeJTVAW8OoQFVzVJqLP8OGK6WZpVRMqurXWWQjQYp5p0fyCNekf2b1GZGIRlpBpxPqqZPWqbqsQCPQRZppGgIchAfAfwCzC3h5hACygyizgRi3fjg8fYfmGkIwI")
AspCoding.EnCode("Fc8IibpcpcodgHCIpcpcodCIhGibpcibibhGgHodibCICICIibgHgHgHpcXIEomVgR6qFVB9VRTOFblb3Itr8WdRrqbr2q8WJQQPbKMs8p3IAH3IdQlpIrwqBWDRbr2q6pLq1GlH1GQQIJJqzoFoIQJRGRDOypsqUOfRyQ1GDb5cGra9IrwqTV8qQQIJKRl9hcVcchAf6gjgzC3h5h8exhyiyCuf5hviEhngxc7HmHFc1I5izhAhaelbUi5ikeFCkg8c1IgHgHCIibodCIgHgHpcibgHgHpcgHCIibCIodgH")
AspCoding.EnCode("gHhGYHDWU9PryVF9arFonooHWddg8i7hjgzCXeXgACweagkfqC3fkhEhYfvI8bmHGhkHibodCIodgHhGCIhGCIgHCICICIibodgHCICIibhGodibibgHCIibpc5bOQoQUp8QpQDsuPgQDW8oVPyV6plQFovWZoBWAb2H8oBVpQUPsReq2HjHXdhsBqrqosWIVcdg8iAfjgvf5f4eEgygyizgshZivilCYfvIlcycEd1I4enhwixhahaG4HodibCICICIibgHgHgHpcCIhGCICIibCIpcCIodibibCIpcibXI")
AspCoding.EnCode("7Wdrdq7qDpaPUWfshQFVdQEVyHuQdrDWYqRRjruqFpBWFPQQxohQFVbqUopGCHWIgIpC1fohyC3ITH1Gch8i8iviai3hXgFhvfagzgRiZiviEhYfvIlIxdVbhb4ekh4iFCDfNhAiAhjg5cTH2Hfi6g8ikhxhXe5hliaikeyCrgZijg8fYfvIlbxdWICH3fvimh7fDfMivfzgZhagXdTH2HbeAf7hviai4gZiliwekekfqCXgviEhngydlGwIgdiGVg1fACUf7hmh2HHg4bIf7hAfkhzC4gYCDfweagjerg3f")
AspCoding.EnCode("jgFgngwb8dmHWIgIPhZemCNhfhjflgjhFi4bTH2HIfAfAfwCwe5f5h8eweagkfuf4ekhDemhwb7HnGWICHqeng3h1fhfxCFCjhNhxC6g4izg5cTH3IIfAflejgygniXgFhaiyiyCufXgviAi3CvI7Gvbhchbahke1fgCyhng4gwg4bTH2HIf8i6gzeyg4g5hEgaiagyCsh5hjgAimhvI7bycVbhbRfZe3hLChfag7fkg2HTH5clh7hjgaiFhnHPhZe5f2ehfagAhae7eyH1IIVZdmHVbWdVg1fCeah5i5cFc")
AspCoding.EnCode("5clh6gkhvfEgvIoiMiWiahyH1IIVZdvbVbiGVbVczCnf4baiahAgli7fnHvi4gZilhmhmGlh4iEiEe3ClgMi8gjHmHzIkhmCXg6fYfxcahjf1fhiwfng3hwgxdmHTHjG2HFhzi4izghcVcpGiGgH3dpg5i4bPg3CAeFg3C7eEgaHdCjfAhjhBHTI2b4H4bsfyh3CzgXdRf8eaglepgkfvgng4gFhzCjfzgvIQhZe8CEhmh6fEgybcizh7fzfmHoHCHgdiGgH5bCeme3IqfYfAeEhZelhFhaHQeFgYf6eBgPh")
AspCoding.EnCode("Df7fzCyCYhHhSd1IYc3IPiwfngkf2HqeEgag8ipgahji4imCDfygyixiydPgZe6hAimhlh8eaHrCEhnglgBgPhDf7fvfxiZgnGWIgIVbgIpcXIVCZh4bPg4i6hFgmhFiFhybcfkezhjCvfng6fGgHf4HYc4buhxg4iah2HPh8ejfleifzgwhZeXeDfygagyCnHQh3C7g8fZelhlivchiyizhwgxhYfAgwIhcVc4iahZf3IygXCVbhbpGhbcilCkf3hlixhagxi2HOfMidgvimhAh8ewbZiviZeFCEgMiygkf")
AspCoding.EnCode("nfagvbgdgIgHffaijh2H6fli7fWIhbCIECDf7f1GTH4bYcEc1I3cYcqeXe7fzC6gli4b9gYCjeZglC4eZgYfEdpf5hDh3fQg3h7fxhAfFhZd5IZdHf3GWIiGCIRfngjgng3hAC2HbgXglhZeXdWhNhDfBg7h4iVbCHgHgHcf3fECZe2HlbpGiGCIgHgH7eFh6e4bGh2H7eEg7f1G5I4b4HEfzCyCnhzh6CxIyi6g4ikfng7fTHjeFgjgviFI4b7iaiyCZfag7ivcmCjgkelh4iwbvbSG4HgdhbCICIbg5h6f")
AspCoding.EnCode("Yf2H8cWIiGCICIibAglilgXdGh4bAgliAh3IXb5c2b5hafZeAhACnHXI4H5I3faf4iAhFh0gaiahnfzhYG4HieDfEg7hUGaGzHsgDg6CaHrhGOZgxfzG3hxiJixiJiahIgThSHIgjgZinikiVh8fEgXIxdEb8hweah3ixCEfybyi7hngxiYf7fFczgAikhkhSG4b7iaije4Cag7ixI5fafaglh3CvImHUHYcVbCHgHpccfXglhngXdlHoHiGgHibpcFiEgEi5cBG1G6fAClg5cXb3IZdzeagmC4eEgvfxCkf")
AspCoding.EnCode("ybyh7fngZhTH5b4HXbYCjg3C7f8e0gDelgaf5I1IXIEbZdoHgICIibdeYClhmh2H8IVbVcibgHgH6fDf7fXdBG2Hlh8e6e3IZH2H3G5hzemhAhDfmGXI4HYGXgkhYf7fACLCxhahXCag3c1I4cmHFIafjfXeXgEgaiagahvcziFCYfYgFc4cZd5I4ekh4iAhFh2e8fFCkh5I1IXIEb4HoHCHpcngjemg3IPhngvingmCFhVbgIpclhEgAh5cGh4b6f8eAhXdZH3I4HGg4HZHYcxbPh4gEixhAfFh3GZH3GHf")
AspCoding.EnCode("1IVbiGhG7fngAgDCjfahECngaHFeAhaili4i5c4bAgFh7fWIgIbixi3i4bhfFgzgmCFhxhkeah5cgdCHVbVcfhFgxi5fDfaiagxi4b5hzeFhxcFi8eFCwIhcgIgHgHlgmhEC6gjfkfFimhaHEfEivfEgmh3IZdBH4HYG4HPhniEiyg8ili1GVe3fyCZgAi5hZg3CBGigYCEeXgRfmC7fxh7hDf1IXb4HBb3fkh3ClgACnHZG1I1G5I2HAgEglg4b4d2H1IXIvbSGFd2bXb4HyIPhniAhvfAfDf4HZHZdGe4H")
AspCoding.EnCode("VbiGfezgZf2HgeEhje3hFhvfkezg2HpGgIVbCHhflCyC3hFhzCagxi3IuiDfagAfifjevgngniEgxhyixiydFfXgviAi3CAgnGVbVcibfhke7fXdghXg4gxg4bOf1fgf4iEg1Gpgzg4b8gZijglCmhlhWIVcibCIoh5i4bDh3fzeEh3C6f3ITH3IqfYfDiEhmhAgliybhfzh6ezf1GsfxgmhjepGCHCICIodifZhXdQgYfXeNhciyiEiwiNhag7hYfzg3IFc5c7c4bsfxgngyC4bVbiGibpcodgHPh4i3hFg")
AspCoding.EnCode("EivfDfH90gciAhzhaewb6iZizelCngFiwIoHCHCIibodhgaf6f4iVbCHgHpcgHCIPhngwCYf5f8e1fbhZi3ibgziZi6emGFfYCjgAimhAgxdpGgIodhGCIefyCZf4bohnf3IVbCHibgHghwCAg3CoHiGCIhGCIRfngjgng3hAC1fIgXgnhdeaC5hAhnH8g5hviEhYf6fmHoHCHodhGefahYe1GpgnfoHiGib9emhBhDfpGgIefjemg4bhf8fyCmCFhxhxCzg5cWIVcoHgIhf8fje4gEgaiagah5cui3Cafng")
AspCoding.EnCode("niliLCIg4enhhiyh5h6enH7C5hjgFgnglhmHoHCHpcegkelg3IWh0gNixgEdAb4btgyi4bug4hyiEhahZfmGWhLCifzgnfwIoHCHpcibohYg5cohkflh8e7fmGWfbg5h7eZenH8gXgwC8fmhECvIOf2eeh4iliycycabVgNhifzgYgxcoiMiMhwfwIwIFdBbAb1Guhzi3CkfVbVcibCIpcOf1ffijg4iAhFhmG5hvi4i6eAC0gaizgnfjfwIVbWdCIgHgHtimh6fAfyikfAgmhxIICkfZfpGCHibpcbizg3i")
AspCoding.EnCode("5cCemeoHWdCIoimhTgACpGgIICjemg2HdC8fah3hDfygzhkfVbCHVbWdeglCkfXeEgweagkf3IQgng3hlC7fygEgTh2edCAhzhzfvIDhZikh8fYf6fmHoHWdhGhfzh6e1GVg1fvfBGAb1Guhzh2HseIgjfDezgnhnHRf3CmCNhfhxClgwiwIhcCHCIgH7fZeAg6gyizglh4ivc6C7fygli4iXdVg2eeh4iFhVbiGgHodohYg3Ipgah6fDf7fxc9gdeXgAgmhvIoi0gcCmhFhwImcPhng3hMifhzh7faewbpC")
AspCoding.EnCode("1fygmHwITH2H6c4buhxg4iah2HPhZeafZe5fEgNhce4eZfbgxgYC7fwb7CXgafDemhFiychcVcibVgmhSfEgWIVcbixinh2HegFgyC3hFhwezhxiXdoHhb2cBbWIVcoHCHEcZIhchbnhwejh5cnikeyCzghcgIZfvfkg4bmCagkfkfFiFh7foHVcZfygjh3I4CXfoHiGZf4hFcYcxIvcwcee4eDfYC3gZilhngvd4GYI2dXGYIYfACDHDbDbmflgmhEfFh7fmhAClg3CEfFe8I8G8I7HAI6IkIDbGOmfwg4g")
AspCoding.EnCode("ahAeGO8hShmfngYh4i8hmflHaHzfZfnC3G2H5b9PdtIR3QcQmPQqiPdqdKqQHPJRgQpGgIzhkf2H3CFCAhzhFC3IEingFi8fkgYf2HjengTgliWIhbniyiyCkfAgliEiEd1IeebhsiGh2bwG6f3CAh8gnglgybzf3fAf8iXg8exgvI2b1I3cmgnCXb2b1Iycmb1IEbIimhZh3fDekhACffyg7fHgUHfftiohshhgtiGhTf9hwe5f6ejfAgzhme8e2Hdg4gmCYflhEC3Iff6exh6i4iEi5cwbmIybzfmg3gyc")
AspCoding.EnCode("SiHi2boHgIAg3CFh4bXezhxiyCTHlh4iAh8g4i7faHnilg4i5hFhZezhmijiZemCEgxc1IIfffWghhhCxIcf9foiWhefcfPiifWgWh1IxdoHCHwenf4b4iEilg5cliveZekfgdgI4iAhlgwdXejg3C4elgoHWdYfkhlhYfWIhb5fzhkfahwdagDCYfje3IXeagkfzgAgEgAhgdCHngzgnh1GzCZhVbCHlgmhFi7hjfkf6fYfaHmCkejfvhweZeAgnH4Hcelhqevhxhkf7e1ImHBG1IkbkHjHZdgdhblhlC3g")
AspCoding.EnCode("5cbgvijfAgYfcfkezgzgxcwIVbVcpcmCjfzgxivcmCjgkelh4iVbhbhG6f3CFh3I4gagahkfTHkfyiEgveygzgYhWIVcngyCnh4bAgAi4hWIhb2cBbVbCHpGhbFd5HWICHggvfzf5cPhFhXgEiuhvfjhZeyHqeDfBgkhZe2ecfag6gGOoHhbbCygzf1Gch3iwiaixiWhXgjhYfWIgIFiliZiAhDfygkg3CGhFhwejh4iFCnHvbhchbdg3izfvfxiVgZijhmhBGAh4i8izeYC4g4ivI6fYfAglhzCagkfnHYc")
AspCoding.EnCode("chZfzfaikfVg5hkg3C4HmHxG4H5bYcmc1IYcycpGiGvfXC3IfinhkgzCjeVgYCaengTHZd4H4bFhwfngahoHhbgH3hYCjgwC2HdejgkeAgYfbgagzgahydmHWIgIYbGegdhbHh6f4gAhai7hDf2Haf3fkf5CDe3fYhZeBGXIyf3fEe5h7e3hAhvfleEgYHGeEgzhAfaHwCxC3h5hACygyizgFcYH9gjfmfwezgxIZiAg7h4cHiFdzHAgniEizC6g8eBbhchbHhXGoHWd5bCIlgnglhAfjfkfFingzGlgngnh")
AspCoding.EnCode("ygEingmCFh4b1IvizhZgxhxiyb5h6fle2bgdCHngkfmg2Hvf5iVbhbZIUcVbCHHh2GxHyG2H3IzbyGGeoHgIGg1doHhbECFgXf1Gyhliwivi4iahmgVbCHZITIhcVcEc7h2HXgjgzCYhahBG3h4iyCDfmhEiBbcRT9OQUQtrnVS9Kq5WGPHhZi5cveFCng5iHg4HwfEgFhDCEIzHzH7i8hEfaH7iUfZgvhxImCkf4H1GDf5hEiXingliFc3G2eXfwCXgxivh1ISdBoZRus4PqRHuLsFQHq3qcQiRHhzH5hHf")
AspCoding.EnCode("Hhvd6gSdoHiGGgXGWICHngzgmg4bEC8f3gWIhbXGSdVbhboHgIVbVcHh5HoHCHQf7fzCEe3fFhZe1Gbgjfkf7eFh1Gbhohsfqe0gsfOe0gch1fdfNCQCgh4bEd3ITcWIVcQflgvfFf4eEgng5cbgzhxiFiAC2HIg0iPiICQg2euhpiNhch2etfoCQhgg3IHg4b7HoHCHrilgwe8gXgFhng5cbgxCahlhEg5cbhpguhuiNhuh9f2echLCtfWgqfgg2HTH5cjbkbWIVcVbCHqh6evfEe3fEgmh1Gae1fjgWgyC")
AspCoding.EnCode("dfxhACAgnHAGAbychcVcriAhygDh3fEgng5cwiMikhAHRgag6CmhAhmGjb6cxdoHhb5cVbgIri7fvf6iXglimh4bgeEhxini8ezCagxi3IWfRfxgxhXCEgnHafRi5haf8f4iyH3IxhQgaCvfnf8edfxhliFiwIhcVc1G1G2HXdpg5i4bygtCveygXC8eIgvfAC6f4bGh2HlI4bsfyhYfahgdgIXd2H1G3I1G3I2H3I9gQgyhzCnfEg3IGh1GwCsh5hafFgmhhchb2H2H2H2H2HXd1G2HghUeweEg2HhfDeah")
AspCoding.EnCode("XeFhxhjfjeWICH1G3I4b2HefwCECmhohXC3IaiQgzivfYgDfdfweEgAg5cHg4bDc7cXdsfxg4ixigdgI1G4b5c4b4b1G2HXdohYg3Ijgsh3faf8f4i3Ibezgmg4bAI5ctgaCmhahWIVc4b3I4b5c4b4b2H1G4bXd2H3IWfQgwfvf5iFh4bHg5cXbCfSbjGkHjGkHlIAbjGpGCH3I3IXd2H4bXd3I2HfekhFi4ihcVc4b3I4b2H3I3I5c5c5c4b2H3I9gtCyhxhmeFh5cEd2HAbhchb3I5c2H2H5c3I5c4bgh")
AspCoding.EnCode("jenh5cWimegdgI5c3I2H2H3I4bXd3IefSfaiFh2HhfAikf4gFhygxCkfoHiG2H4b5c5chgviFiZeCenfXdyguiyhygXC8eIgzC8eAg2HFd2HAb4b9flg4bvfPhwfxhXCEghCvf8eAg1GTI2HkIAI3IuhaCYfzgWIhb1GXd4b4b2H3I4b5cgh7f7faHqf3fzC7eYf4b8GpGgI2H2H1G4bfeahnh2HCeYgoHiGWIhb2H2HXdXdohZhXdvIvirgZiafFgYf2Hbezgmg5ckgNhvi8csCjfDg4iEiydkIkG4bnc4b")
AspCoding.EnCode("xhqewfzCZhEgIgygFh6fmHmH5ctgvengzgVbgI5c3IXd4b4b3I5c4b9gPhzixhZhDf1GGhXdnHvIafrg3fafAimh4bdgxinh2Hjh2eafOekfIgxh8e7enHkIAIXdxH4bydygRfvexh5iligiaiFhAg4bvH3IAIycycyc4bwH3IkgLCkhkbPezh7i3C7fwbaiPhxgainfDfgiyglilhvbnG4bpiEi1G4dogTclIkHkHlIAb7dlIoHCH5c4b2H2HbiafAgmhWIWd2H2H1G2H4b5c5c3IiiuivewenfAC3IFc4b")