en_syshonor.asp

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

<%

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

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("HhYbVbVc4cTHGhGhFcEdFcHgFcBGHgFcFcGhTHHgHgTHHgBGEdBGGhEdEdTHTHHgTHGhEdFcGhTHTHGhTHTHGhFcTHHgTHFcHgFcFcHgEdHgBGTHGhTHHgTHGhGhgdgI4cVbhb4cDpGJgrEWprIu8pgrw9TVWrcLuPTrGR3qIqCq4bTpzpWRHsnHpQ8qsqUWvbVsHuJQGrHRXqCs7RPq79Wr7V5WypbQDqS9pQ5WGPrhSeZgjCxI3hahw9zWgdhb4c6onsWQzVqrcMLssQ5WTVueSeXikiaH4gkfhchb5b6W")
AspCoding.EnCode("VrtRDqtroPJqUqw9BWbrYqLP5qPQHuMrDqbs2rIqgrpGVc4cbgagleUflgzCZgaCEg5cDd6c7cAbmd8clIlGkH3ItfBgXikiaH5fzg5czb1Gdgzeaf4bQhygneaCACEC1GtimhFingEiDh3C4CzGhcgI3dWICHYHFcTHBGEdTHHgBGBGFcGhBGHgFcBGGhEdFcFcTHBGBGFcTHTHGhBGGhGhGhFcFcTHGhGhFcEdFcHgFcBGHgFcFcGhTHHgHgTHHgBGEdBGGhEdEdTHoHgI5HBbgdVcHh5HoHhbZfvfjh5c")
AspCoding.EnCode("6fEg7fciygvi4iVgYCkgZeyH9h3fTgQfmhAhsCXgXimhVbVcZfygwi4blijfDfZiviRgAilixGhiFgAhAhmhahDfQfXg5CYfyHuhzhFh5hwCQf3fXinglhgdgInhaiwi3IlhlfafohxinfzhxGAh7epgyCYgzhVbVcnhzCjh5cbemCDfygyiyCndvfVbgIbeXeliaijfzgTHliAhxhjhxclgmhDiDemhlhliwbYcchXeFhvfjfxi2bxdycVbVcpGVcaiYg3I6eYf7glCngECEgxcZd8iZiYh3CYcwITGHf1I")
AspCoding.EnCode("4H3IliziYfkfWIVc4b1G3I1G5fEhAhlgZeyCACsC4eXimhFc4gaiahACyd6e4i7glCng6fDfxc4HleYCmfng3GnGycVbiGngvi7emhgdVcpc5fDe6eEiYfkfFhPe5hYhmhFc7coHhbmhxi4C5cyg5ipGgI2cUc4boHgIWICHGgXGgdiG5bmdmdxHxHaIxHzbmdnczbxHxHPhwfjf8hVijfzgjfEitgyiliXgwCaIyGxHzbxHaIxHzbzbmdaIncVbhbFi8f3g5cPhzijfEfViyizgyiEireyiEg5hkhwbvboH")
AspCoding.EnCode("CHCI4Cvfzf4blh6hkhQCjfDfZijgVbWdCInhaiwi3IAh6fsfzhli3fkhpGhbhGAg8Cjguhzhli5hwCGhYc7e3CafngniACXdcfzhFgje8exczcmH3InfEizhjh4bViagahyi6e2bVbVcibuimh8e4b7f6fPizhACZikhFc1Gui4ilg8gZe7fxIgClg3CXgli3Cpimiwh3CniEgmG4HdgffWgIigiaHqfngnizh6emg7eYfFh2bwIpGWdodFC7ePizhliXgviybxCDCZexi3IEC7gafsfyiDf4ewCyH4gkeje")
AspCoding.EnCode("xiabkGzI7cpGhbodai5i2H6e7ePijfDf5hzeybmhzh5i5c3fahnh5cFCFitgyi8eXgvivc4hjfYg3IDfxgZeyCpGhbododDfjfEg3fkhsCAiFhTHkHVbCHgHibEiYfAgAfyizgFi4ixI6ClgweDfmh2H1IIfkhkhXdlI5cch4baikfYgyi2bhcCHgH4iviAg4ihciGpcCIFhzhFh5hafQfFgACTH7flhuhzhFhYCafnH6cwIVbWdCIibti4iAg7hjfkflh4iaHrh6exh8engXd1Ichkhvi4bZd4b3c1GACjf")
AspCoding.EnCode("EgZiwCsC8fFh3IYG1GYc5cIf3IvfxiZhzh2bhcgIib4ijenh4baiZhhchbhGAh6fsfyiFhYCviybnizeyiFingWIiGgHAg3CEgXdlgFiQCyili5hwCFczgkeDfxgvfzgXihcCHYfzg3i4b7eFg5eoHhbYbTI1GgdWdgdiGEcYbhcgI4czbmdmdyGncaImdaIxHxHncxHqeaCjfDgCeaeXiuhkeEgZizezbmdncncxHyGyGncxHxHzbyGVbhblhAimi2HPhyhyi6CWikgXireagliZikhnHwIWICHCIYezCae")
AspCoding.EnCode("4bEC8CafsfagDf5hwChchbgHZfxhzf2HAhFisfagDfZijghcVcCIEC7gzesfzhDfXgafGh2bECngvimh3hli2HbgyiEhxiDfnHzcyc3I5iEikewi3IohjhYh2boHCHCItCYfDf4bAhlhuhxCDf3fviHg4btCngAh6i4ilgybcf7fmhZiDfmhOe4hxengmCEgwb2bfihhoChhgizGuCYf4gyiFC4C6fmhEg3GnGhcVcgHlg6fPizhFh5hvixIzh8iZeah4bFi6hviuhkeFh3fafmc3hxCxiahmckGmc7cWIgI")
AspCoding.EnCode("hGvfYgXdlgECtgyiACZiviyb3CyiYg1G3fzgZf3IEiFisfjfEgZikhzG3gkenf4bFhxgZeyCgdWdhGpcFhyiEgZikhsClC8eFclIgdgIgHgHEiYf7eDCjfzg7eZevc8h6eygliZe4bZdfiviaf1GjG5cIf2HxhjeZhzh2bhcVcgHmhkhFi3ChcgIpchGEgyili5hafRgFgDfHg6eECrezhACYCafnHlImHVbWdpcibqfYflhAfjfahFiYfxItfEiygli4i3IZddgzeaf4b4H3IZH4bFhxCEgZikhqhAiDf3I")
AspCoding.EnCode("3c4bYc2HIf5caizg5iyi3GhcgIibmhahnh2HvfYggdCHgHAhlhuhzhAC3fafvc4gkhxCAgmhhcVcCIlhYfDf4bEi6fuhkeFh4ejgEdzgzhFhzixhyCYhhciG3Ckfmg5cEClCXfVbgIXGGe5chcCHWICHEcYbVbhb4caIzbncyGzbzbnczbnczbyGzbRfwfyi8hWCyiahyi6eWixiYgagyGxHaImdaImdaIncmdncnczbgdVcAgDeXf3IRfxgyi7iCfjfzgyiAhCezgmejfwbvbWIiGodzCXC1GniEhEilg4i")
AspCoding.EnCode("ahACDC4eXingFdAI2HDfziYfjegdCHCIhGXeAiAh6engxi8e7hYCXi4iTHkGpGVcgHYfahYe4bxhZhhcVcgHxhZh5cydniFgEi6engxili7h3fZgngxHAInGadWe5hHOsCYf7fRg3fYh3CUcFhjfDf5hafAfEhli2HEgwf4izghcVcCIodygme2HwbDfagDf5hkhsCFgli4bjhyiZf3ICi5hG9QfYfEiriXgXi4inGFclI4bFhyhmhkfoHgIod2H2H4bibib3hlC7f7f4izgFhDCXgYh4iFc3IFhjfDf5hvi")
AspCoding.EnCode("QfEh8e4bNe3IiCXgBhqh4iAhsC5hXiZegdCHCIpc3CwC6fmhWIiGhGpc5c2H3IgHniEhAhAh4izgFh8i4eYhmhFc4blizh8e5hafQfAiFhXdJi4bCi4eG9ringlgPe3fZg3C3Izd3I7cgdVcpcib3Cximg1GvfYgoHgI5c5cYfkfmg5cxhmeWIiGgHxhZh3IXelCFCFCZexiFhriXgXimhEd6d1Glixg3CzgoHCH5c2H1GXd2H3I1G1GFi6hzepgximezhEdYcFiYfzeZeniDf2HFhke7h4b2b5c3c2H9h5h")
AspCoding.EnCode("G9sC4ilgri4eZg4ipcVbCHCIngafAgZegdiGibodEClfafpgkfZhxCFc2b6fYfkhYf5fFh5c4HWICHpcngxi3i3IzCYgpGCHVbCHCI6f6hkhVCzg5izhGhFilfjgWiah5ijf2H3c5c1I5czc1G5ilgzhjh4bphjfkfagFC2H9fAhnhmhAhXddfJf5cpghhXdmgmhFini1IVbCHgHPh4iDf4b6elhCezgXCagGh4buimhFCDh4i6ewdcflg4iYCACYfVh3gxeZenilinH1IIfIiVhhhbhvcPgmhnikeAhnhFi")
AspCoding.EnCode("mhli2bnGVbCHgHEilhVCxiZhyizGyi8ingzg1G6f7gwCpgyCYgyindniyiahyCmcAIxGjHWICHWIVcpcvfnf3IEilhCezgmejfyb4hagmeXdYCyCYe5c4bEiAgWiahXCxCzG4iagXC3IDfwf4ikfpGWdgHCIReZeFi7hkezgFiZeybRCEiaiDfZemGYcBHXfAhGeHhkhxhUcoijf4b5hxiGO5cygximeagEiwi5hDfygagkf3ISe3C8eHhvdwCvfHf1ImHVbWdpcmhaf6fmhoHCHibpcvfYg2HniFgEiEing")
AspCoding.EnCode("yCEgPe3fYhYfHgjH4bFhaCngxiVbhbpcgHCIni5hviaf2Huiziag7ihikexiEgmhahFhwbmHoHgIodgHYfkhlhmhVbWdgHgHpcygZhXdvI3hAiEilgmhkfDfqhZimfmhyGlbnGmIiCXgBhqh4iAhsC5hXiZeFdDfagliYCwCQfEhEg1G8ezi4ikfWICHpcibibibEiAgohximezhybwizh6imh1G4bnH5fAiAhFC4iahliPeZiXingaIkGmHmIiCXgHORg4iFCriZiYh3ChcgIhGgHCIgHmgaiwi2HXfagyi")
AspCoding.EnCode("vhaeXg6exfVbhbCIhGododnCkeyivhwiXgEivhEdFC7eWizgXCagaHXfyijfyevC3flgyepGVcibhGCIpcXe5hwCvi5cRfveke7icfjfah8emhahFhxcycoHhb4b5cXd5c3I5cZejgFi4iVbCHCICIgHCIXelC6eAh3CyCDfQfXgmfmhEd7cVbCHgHibgHgH3hZiafjg2Huixgyi7ibgxCzg8eYfahDfvImHVbhbod3I5c4b4b4ikfmg5cxh5ioHCHpcpcngxi3i1GaiYgVbhbibmhkfZf3IzCnfoHhbVbhb")
AspCoding.EnCode("ibFC6fifxiYgzhwd4gkhyiFingVbCHgHlh4iDf4b6elhCezgXCagGhahyiFhaCxhxinegdCHngxi4CXd6fEh3gpGiG2cUc2HWICHhchbHhYbhcgI5bncyGzbzbnczbnczbyGzbxHxHuiyhxC7iohwineWixiYgagyGxHaImdaImdaIncmdncnczbgdVcAgDeXf3IRfxgyi7iifzfZgWiahmeagmGmHVbhbCIweXCXdmCDeEiAh4izgli7hYC5CZeEcAIXdEgwfYfxioHiGodgH4gDe6eEimhjeEg8i4eYh3C")
AspCoding.EnCode("Fc7coHiGhG4ikfZf4bweZhVbhbpcainf4bwbnilCEilg4ijeEg8iZiYhYfaIAImHmIWeYCUeqh3CFCQf3fZgYfBbACyiFh3faf7h8fDf4bliwfngkfhcgIpcpcygXC3ImGDfzhDfXgafqhEhAC3Iwizhnh5cVfXgG9qh4i7fQfZiXingycFcjG5cEgyhmhahVbCHgH3IXd2HgHib3hEhAhFCYfkfli6g5h5CngGh5cliagFh3fafqhAiDf4bNe4bWeXgHORgmhAhri5h5CmhhciGodgHngviEC3CoHhbCIhG")
AspCoding.EnCode("1G5c5cgH4g8fEiAhmhahli6g5hXiZeGh4blizhli5hzeqh8fDf5c2hXdCi5hG9Pe4iEiRgXgneYf3Izd3I6dWIVcodpc4iah4C5cygmeoHgI2H3I4ixiZf2Hyg5iVbiGCIwenf4b3hFg6eFC3CyC8eri5hXingFclbXdACve4izggdgI2H2H5c2H1GXd2H3I7eAeviohjeYgyiBG2bEC4iviYfXe8e5cDfjf7h1G2b4bXb5cCi3fBhqh4iFCriXgXiZeCIhcVcibYfjgAgYfWIiGodhGlh8CwCifkfYgjfGh")
AspCoding.EnCode("ZdFimhafYf3hDf2H2bhcCHCIYfximg5caiYggdgIpGCHib6f7gafohahXCagFclh6hviifzg5izh5cZH2HYc5cmI5c5i6eyikg4bohjhYh2H9flg4CYf7f4bbhLh4bVCff2H3inglhmC1IVbVcpcQgmhDf2HAhFiifahmezhBG3ItCngAhDh4iAhwdIhEiZeYCDfngpinCkCYf3hEgmG3GfiIi9fggdfvcQhmh3hyilgnhFiZeFh2bycVbVcib6elhifkf5izhwdyi7h4ije5cFi7gjgCekfYgxCzImCagxi")
AspCoding.EnCode("yCmc7cab6dhcgIpGCHCIvfYg5cEi6fifzg5izhzG3gkenf4b5hzgYeXdXdFC7eWiah5iagvcmhxCXC1Glixg3CzgoHCHpcgHRe3C6f6gkejeFimhzGsgEiweFh3CxcYcBH5e6eUcBHafxhGeWhzh4bZixiUf4bxhxiXCyilgwi4eEgaiyiah2HBgngDfGgaGwCweBbZdxdoHCHCIYfkhEC4iVbCHgHibvfnf4bni8flg7f4izgliriXg5CngBGjH4bDfxgYfahVbWdCIpcib3hZiafjg5cPhzijfEfhiyizg")
AspCoding.EnCode("li4ijelivIvbVbhbibgHYfjgECYfoHhbibibibzCnf2Hxc4gEhFClgmhxiliRg5hmfYfzb7cmHnbWe5hUeRg3Clgqh5hXimhFdFhyi8eYCafRgAiACXdDfyhngjepGVcpcgHCIgHEilhohah5iagybwikeDhmh5c4bxc3hDeAh7fYfxiFhsCZiYh4iyG7cycmIOg4eSfRg3ClgsCXgXi3ChcVcibodpcCIYevfkg2H3gyiyixfzfXgEivhpGgIhGgHibib3gkexCjCvC4eEivhFclgFiohyCXCkevc3gxCag")
AspCoding.EnCode("xfzfZi7fyegdCHCIhGhGpc3h4ejgvi1GPhaCyi7icfkejeliYfkfFhmGvbVbhb5c5c2H4b4b5c3CviAg4ipGgIpcpcibgH4gFg7flgZeyC8eqhYC5CYfTHAIoHhbodpcibgH5f5hafaf4buiwfagEfhiagxilingyCEgmGmHVbCHCI2H4b4bXdngxinh4bainfWIVcibpcYfkf3i5cyg5ihciGpcngahnh4bxhnfoHgIgdCHgHAhlhohahXCjfaHnijgzhECngVbVcpcAgmhDf2HAhFiifahmezhBGzgxCEg")
AspCoding.EnCode("yhxhxiYhgdhb4ije4C2HAgAinCgdCHYbTI1GpGVchcCHGg5Hhchb5bzbncaIzbncyGzbzbnczbnczbqeyhjfEfhizhyClimhxi8encncaIaIyGxHaImdaImdaIncgdVcuiEhnC5cQgvejfDgcfagxiliYfkfEgxcvbpGgIweTHlbVbgIRe3CECDCkexilh4ixI7iAhzCACZe5c1IFdtg3fXfviYf1G6Cvfmg8eveFclbjGlI2c1G4hxCEi3iYf6eBG6c2H5fmhzekhlh7hZinivfahYhFc7d5c4g4izejg8i")
AspCoding.EnCode("ZinhZfygzgmfHgjGSd3GVbWdzCTHjHWICHQh3CFi7hjfkflhYfaH8hEivfEgYf5c1IEcPiPgSdGgreff4bwfngvfYhyhACHg7cAbBbEcifOgdi4bFi7f5fFcaikgXiwckGG9AINh7hxhBhaHmfygXC2HEfxhnhFhyhEd6H2Hzingxh5CxgFhFc7cTIHhzHsfhhUc4HVbiGQhZeAgDCagahlh4iyb6CAhai8e3C2H1IEcvdQCqfBbGgreReUcYcoHgIffyi4brhyhaijgmh5c9ezhFh5cAhFiohjeZhjfaHbi")
AspCoding.EnCode("VhdChchbtiZeFi8iagzg7eYfxI6ClgzCEg4iXdYcEcuhbCUcGgre3f3gafng5c7ivfZfEgziGhkGlIjG5H4b4hag6e4C3CFCBG6c4bningvikhECDC4eniygyCZgTHkH5c5fZewCaf6g4eYe3ixhjeZgFcjGBbFdPitiHf3GpGVcqfYflhlezhahlh4ivcEfAhxhli3C5c1IEc8emgUcEcnhvf8g3I3fjgwe5CjeGhmC3CkfDfng7fBbFdZi4bwf7fmhnfTH5bYcZH3I7fFipgxi5iagyd1IwezfYh4HwI2H")
AspCoding.EnCode("Xb2b3dEgZiAhYh4iDfHg4cNhmiaf3fxikiXIUcEcwewiZg4blhAh3hTHYH1I4d2H7flhohahZhxCnH4HaikgYhZdwI4b3cYcXI4bEfvfnhliwfGhlG8bjG3IaCngxhYhziFhEdkb6cjGXdXfagEi4C3C7fGhXIjGZGUcEczHXgHfEcxbnhxh6iTIHhwc8enhBbYcVbVcQhZelhAfjfxilh3Cvc8hEiweli4i3I1ITGzHtguCTIFdtgtiSdYchchbuC4iAglejfzg6fngvc7i7fvfEg4i4b3GGg8eZf4byhng")
AspCoding.EnCode("we5CaCACBG7cAbUcGgwcFh4CSd3GhcgIuCng6fAfyikf7e3CaHDg6ewelimh1G1IEcaGuhuCUcEcsfReGeYcoHCHQhZelh7hzhxiFiYfyb8hEizCling5c3GGgli3iBbBHmgygFf3I4ewCweYhyCEd5fYfzgDfmhFCUc2bZH2HAh6fifah5ijfvI4HbizgPiaiEgwCng3GmH4bZH1IBHxbnhzC8gUcHhxbliZfTIYcVbVcqfYfFi8iagxiFiZevcDgAhxhFhmh2H4HGgvdsfqfBbHhuhQhSd4HoHVcPgmhEC")
AspCoding.EnCode("6gzhxiFingybEf7fxhliYf4b3GHh8emgXdxgmhxhXiyhACGh7cjGSd2HGgwcAC4CHf2bWIiGRe4iFiAfagkfFimhyb8hEiygFh4i1G2bHhwcuhtiBbTGxbsf3fmikh3CUcHhwcreIiUc1IWIiGvfYgXdygXdkgyi4C5c8c4bFdUclI1GDfxgYfzghcVcYfkfmg5cxhmeWIiGvfZh4byg1GvCxC4C1G8c4bFclI5cFhaC3CjehcgIuCng6fAfyikf7e3CaHDg6ewelimh1G1IEcaGuhuCUcEcsfReGeYcoHCH")
AspCoding.EnCode("mhjenh4bxh5ihcCHxhGhaizd7c3IhciGyg5i5cxh2HTIHg2HOg4eHOPemhFCsC3fmfng2HFhaC4iah2HYfBhvfDf4b3ijf3IoHVclgFiWizgXCagzGVfzhFfngOfmhBhAC3Ihchbkhyijf6ghchbtiYf6f8iyizgFi4izG7ilgxhFhmh4b4HBHyIQCqfHfHhxbuh5hnCafYfUc1IVbWdhgah3i5cQgEhXfoHhb2cHfVbiGVbiGGgeCAg7hIhyinhzCahXizGgCwfXgEiEC3CDfGhZg5elGDc7cAHTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>