syshonor.asp

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

<%

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

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("BHYbVbCHXIGhBGHgBGGhFcHgFcBGEdHgBGHgTHHgHgHgGhEdTHHgHgGhBGEdHgGhTHTHGhFcGhTHTHTHBGTHFcBGTHHgBGEdTHTHTHEdHgBGGhGhTHBGHgTHBGHgVbCHYHgdWdXI7WeLiRD9fRfL8piRYpHQQPIJsRTrGR3qHrCqXdTpzpVqGrxciRTssq79wIRqdMJQHsGq5RgR7RPqEpQP8pw9zVIP8R7ViRXVcrsgGOYhvhxIniahXVzWhcgIXI7pnsOqkO9QbJuPtRYpHQqiThZgwgyb3hjeWIWdZGDo")
AspCoding.EnCode("QQsQDqusoPLQSRYpcrTpYqus3QPQdMrqTrIr2rHrCqWIhbYHbgag7hH9EixhmfxgDfXdkbAbkGAbzbDdkHkb6c4bsgH9mfxfvc4gxi3Izb1Gchvikh1GuCygXiwfDf7e2HQh4iAgZe7f6imhZfaHhcCHXIWICH4cBGBGBGTHGhFcFcHgGhGhEdBGTHEdHgFcGhTHEdEdHgEdEdTHTHFcTHGhGhTHHgGhBGHgBGGhFcHgFcBGEdHgBGHgTHHgHgHgGhEdTHHgHgGhBGEdWIhb5HHfVbVcHh5HoHCHYevfwi1G")
AspCoding.EnCode("6fEg6edCvfafYfpCXgaemhabVf4eTgQfZelgqh3fmf3CgdgInhaikg5cEgyiDfXgafQfDeEgzIhiFgAhEimhyCDfQf5hXi4izIQCzhliXgkhsC3f5CmhAgWIgInhvfae2HFi7gzepgzgYgagmclgECohahYgyiVbgInhaikg3IIfmCFhzCjfzgxGygoHCHfi3hEgygzhahBGEgFCweaenH7fmh8CDeYfAgDfxc4HchmCDfvfxCahYcycychchbWIhbvfYg3IAh4iDiEhYfAgDfyd2b7h4eYhmhZdmHHhUc2b")
AspCoding.EnCode("1I5cDfwf4izghcgI4b1G4b5c3hDeFClg4ikfDfPe3fYh4iHgXevfxiFhnH7f4ilfFgng6flimG3Gle3fYh4iYcwIvbVbWdZeafECnghchbgHmClClgFC3CkfDfri3fYhmhTHAIVbiGngjenh5cyg5ipGWdZIGe3IoHgIWIgIHh1doHgIXIzbyGmdaIzbxHxHzbnczbxHxHRfvejf7iiejfzgkeFCsfjfDfYCjgyGzbzbxHyGaIxHyGaIzbxHxHgdWdAgEhmi3IuixgyiEfogjfkfkelgtgyiEg5hviwbxdoH")
AspCoding.EnCode("CHib3iaikgXdlhDijguhxCDfYCkhWIgICInhvfae2HEiAgreagEgXgjghcgIodlh6hjgPizhEg5hviHg1I6f3Ckh3C5fEg1Gbgjf8fxiFhvImIvb4bmelgxCae1GCfjfahxC6e4HWICHpcRfmhAC2H7fECuhyiliZiviGh3IPhYflg8gmhEivcIh7fng3fACmhVh5ewhmhmCDfwbYcchggpiffdfvcPg4i4gzh6enhFimh8eZdwIhcCHgH6e6fuhyiEg4eafvczhAfYfxi2HAg7gafPike8e4eafabniyizg")
AspCoding.EnCode("ahab6dxGjHgdgIpcxhnfXdFCAgQCxCDf3fviaHmhzhnf3I5hjemg1GAhFitgyi8eYCjgzG3gjfYg3IEgyh3CkfWIgIibhGACagFh3fafqhAiFhTHkHoHiGgHpc6eYfAglexCkf6fYfwdDg6exhFhYf1G1ITp8osRuq2HkHXdWsBRuqfrQRv91IhcCHCIYfaf7engWIVcCIiblizhAC3fafqhAiliHgFClhPiagFhYCafydAbwIWIgIibgHReYfFi6gkezgAgngxIqilgzCFhmh3IYcGq6VrqJr3I1I2H4d4b")
AspCoding.EnCode("ACjfEg4ejgQf8fli4b5I3I2b4bPPBRKsCPqPZp4HVbWdhGYfzgZf5cvfZhgdCHgHFClhPiyiliZikhxI3hafagAgmhhcVcib6fngDfXdAhlhrezhFhYCafGhxizhEgzivfkfXiWIVcngahYe4bFiEh5egdgI2cHf2HpGCHVbVcGgXGoHVc5bxHxHncxHaIaIxHncyGyGyGxHPhziyiDgohjh5CrejfACXgvizbxHmdmdaImdmdxHxHncxHzbVbCHAgEh5e3IqeyhyiDgWiae5CtgkeEg3fjgvIwIVbWdgHmg")
AspCoding.EnCode("ygjh1GEC7gkhsfjfFhZikhoHCHgHYevfwi1G7fAgrexCDf3fafgdgIhGlh6hafreagDf4ejgGh4H6f3CwCng3hli3IhiagAikfEgnHwHnG3IYgEiagjh5cohvCmf4HVbVcpcQg3CFh5clglhQCjfAC5hjgHg3IPhYf6eFf4ilgzGbglgngXglingoC4hwhngniFhvI2bfiggWgffhCybuCYf4gkelgZf6f4iFh1IwIVbhbhGlgECrekeDf3fkhwdkeAfngkf5c6f6hwCsfjfAC5hvimcniyiahzgabjHzIAI")
AspCoding.EnCode("VbVcpcxhnf3I7fECuhzh8e5hkhwdYfzh5i4bXgxiZf2HEiAgPiagFh4ekhvc4hkeXC3IliwfYfjeoHhbpcCI8ejfli5hafQfAiDfHglIoHVchGhG6eYflh8iyizglhmhwdFe7fzCEg4i4b4HIsSOsRKsXdkH2HVrUQuqoqRQ5V2bpGgIhGmhviAg4ipGWdCIhGEgjfEgXgjgqhlCDfHglglhrexCEg5hafnHAbycVbCHgHgHReYfFilejfzg7e3CaHtf7fzCEgZe4b2bTp8osRsQ1G1I4bZH2HACxCEg5hvi")
AspCoding.EnCode("RgAiEg5cZH3I4H2HPPBRtRfrQRXWYcVbWdgHYfah3i5cygXCVbVcCIAhECsfxCFhXgjgxI3hafke6f4iWIiGCIAgngEg5clgECuhzhEgZikhHgahyiEgxgvfyCYhgdCHngjemg2H6fAi4hWIgIYbBb1GWIWdpGiGBH5HVbWdZGxHaIxHncxHzbmdxHxHmdzbncuiziyi8hogzhkfaglgohxi5izhxHaIxHmdzbzbyGzbzbmdxHzbhchbAgAiXf2HuixgyiDgphkeahyiAhCeyCYgyinHmHpGCHibaiYg1G5f")
AspCoding.EnCode("AiAh7fYfxiDf6gXgmf4iTGkG1GDfyh4ixiWIhbibodXe8fFClg4iahDfDCYCZg3CEdjHoHVcgHmhahZf3IxhmeWIiGibaiYg5cmGmCFg6elgYfzgEg6g5h5CYfaIAIvbvGiCXgBhQfYfAhri5hmfYfHf8ejfli4eaf6gDeAC2HDfwf3CzgpGhbibgHweYg2HmGEgzhDf3fwCsCFgFh5ckgyimg5cVfXgSfQfZelgRgZiZgmhycGh7d2HDfyh4ixiWIWdib5c3I4bodgHmCEhlglgngahDfle3fXingBG3IEg")
AspCoding.EnCode("agEgZijgsCEhFh3IJi4bOg5hG9Rgng7fsC5h5CYfWIiGCIgHYfvilhngWIhbibhG3IXd1GhG5f8fAhFCZekfEgAfZimfmhEd2HDfxCFhZiviriAiFh3I2h2HOgXgBhri4iAhQfXgmf3C4bmb1GlbVbWdgHib4iahmg5cvfnfhcgI5c3Imhjenh5cxhmegdgIpcvfnf1G5fEhEilgZekfliqh3fmf4iTHAI3IDfziZejepGCH4b5c5c3I4b4bXd1G6f8CjgWiahnfxCEd1IEC3CafYfniDf4bFhjf6g4b3G3I")
AspCoding.EnCode("YG4bCiXgG9Pe3ClgPeXgmfngCIWIhbodYfjgAgmhpGWdCIib6flfkhWiahnfjfTH3G6f4izeYf4g8eXd4HoHCHodngjenh4bvfmeWICHpGgIib6flfwCVCzgZhyiHgFi7gviifzgnfjf1G5I3IYc3Inb5cZhFCjfzf4bViyizgxCAh5cWgAh4CYfFC4bIgMg3Iohff1GZf4iAgXe1IWIgICIuingAC4bAhAgWiahYgzhFc3IQgYfFCDh3C7fxIdelgYf3flimhWg3gwhmhXeEgyd3Gbeff9fhhhCzGqfng5f")
AspCoding.EnCode("yi7fnhECYfDfZdvbhcVcpcEilhpgahnfagxIzh8i4iah2HAglfwCohahmezhabmCjfahxiabAImcjHoHVcWIVcCIxhme4bEilhCeyCYgyiaHXfkenf4bZizgYe2H5cAh6fifxinfagxIYfyime1G8ewfmhxihcgIibibuCZe6fDCagxilhYfwdRClgzCACYfnHYcBH4hAhHfGgkhweTIHPGqprBVPrRPdsPRrPpRRQ5VGgyIkhzCHf1IwIVbiGodngkh6fYfVbVcibgHvfnf1G5fAi6e7fngjeACQf3fmf3C")
AspCoding.EnCode("HgkG4bFhwfZezgoHiGCIibgH5fYCwCjg4buixgyiDghijfzgDfYfjeEgvIycWIhbpcib3Caf6fmhhcVcCIodibaiYg4byd5flCAhlgngzgFhQf4emf4iaIkGwImIOgXgG9Rg3CAhqhXgXimhGgFhyiEgXgafsCEhAC2HEgvengkfoHVcibCICIibAh7epgyCmekeaHzfzh7CZe2H3InHni8fAhFCYfkfACqhZiXi4inclbwInbVfXgTgqh4iEiqh3fZgYfgdhbibhGibib4Cvfjh5c4hagyixfzfZilgkiWI")
AspCoding.EnCode("hbhGibpcib5exCagkizf3f6exfGhEiAgCekf5izhaHXfyijfwgkg3fEiyepGiGgHibpcpc4g5hkhwC1GRfaCag7iIhjfyCACngyCACnHmHhcCH4b4b2H3I4b1Gngzelh4iWIVchGodCIhG4g8flglgngahACQfXgZgmhBG6dWIhbgHgHibpc3h3fafaf1GRfzikeEfbgkeyCDfYfkfACvInGVbhbgH1G3I2H1GngahZf2HzCXCWIhbpcCI4izg3i2HygnfoHiGCIngximg4baiZhgdCHoHhbpcEiAgVCah5i")
AspCoding.EnCode("agybmCafxClhngWIgIib6fZeDf5clg7epgzgYgagFczgxCFhyhygxiYhWIhb4izgmg2HECEhnCoHgIXGTI2HoHVcVbgIGgYbVbiGXImdyGyGxHxHzbmdyGxHaIxHncRfyhxCEfifvCYhWixi5iyizbaIzbxHaIaIzbncnczbxHaIoHWdlhEh5e4bPhaCjf8hWijhZgWikfnfyivIycWIhbhGxh5i4bXelClgEiYfkf8eAf5hXingTGjH5cFhwfYfxioHgICIgHniDe6e6eYfahli8iXgYhmhEdkGoHWdCI4i")
AspCoding.EnCode("ahZfXdzCYggdWdgHvf5i2Hwb3h8flgAhZezg8e7hZiZg4iyG6dwIvGOg3fTgRgngAhsC3fZgngBb8exCEg5hafAfEhli4bDfwfYfjeoHVchGgHygmeXdnHDfjfACXgzeqhEhDf1GkgjfYe3I9h3fSfsC3ClgqhZiZg4iwIFckH3IDfwfZezgWIVcCI4b5c4bodgH5fEhEiEingyCFh8iXgYh3CTHXdFhagEgXgkhQfDeDf5c1g1GOgXgTgRg4ilgsC5hYhnghchbCIib4ijgAgYfgdhbodgH3I1G3IgH5fAi")
AspCoding.EnCode("AhlgngahFhleXg5CZeBG2HDfzhAC4eafRg8fli2H2hXdVf3fHOqh4iEiriZiYhng4bvH3IAIVbVcpcibYfzgZfXdxhZhpGhb4bXdYfah3i4byg5ioHCHpcyg5i3I3hDeAhEimhjeACRgZimfYfBGjH4blixgZekfhchb2H2H5c2H3I3I2H5c7eAezeifah5iyiHg2blh3CzeYfmCEg5cFhjfDCXd1IXd4d2HVfZiSfqhmh7fRg5hnenghGVbVcCI4izeECngpGgIgHCIAg7gkhVCkfYgagGh3GECngkhYf5f")
AspCoding.EnCode("Fh5c2boHCHgHZekf3i1GvfYgpGWdoHCHgHEC7gzeohahnfkeHg6fAejgohkfnfxCXd5I4bYc3Izc3I5i7fagzf2HCekgZg5cWgAh3imhFC2HdfLh5cWiggXdnh4iAg3hZdoHWdibQgngEg4b7f7eifxiYgkeHg3IQgngEi8g3CAhybbgEimhXgFh4iWg3gyf3C3hACnH1Ibegg9fffgiybPgng3hzh6emgECZe8e4HmHVbWdhG7fAgifxinfzhwdjfAf3Cah5cFiDiviohzgZhjfzI4gzhxixiabjHzIjHgd")
AspCoding.EnCode("hbVbiGibxhXC2HAhFiohzg5ijfaHmiag5i3I5hjenh5c4b6eECpgxinfjfzGYfzh5i3I8ewf4iahoHCHpcgHPgng6f8ikeje7eYfybqiEiygFhmhyd3GBHnClgUcHhafzCSdBVIsosGQWQ9rHQQquqiQQRXWTGyIzexhUc1IycpGWdCIZejg6fngWIgIibodvfYg3I3hDeFClgmhkfDfqhZiYhYfTHjH1GDfziZekfWIiGodgHgH5fYCjgze4bPhwfkeDgcfkezgFhYfkfACydwIVbVcCIpcngvi6fngoHCH")
AspCoding.EnCode("hGCICIaiYg4bxc3hlC7f7fmhxiliRgYCYh4iaIlbxdwHiC5hTgRgngAhQf4emf4iGg8eagEgXgjgriFgAC4bFhxg4iahWIhbpcCICIgHFClhVCkfYgkexIzfjf6imh3I3Iwb3hDelgFCZejeDfQf5h5CZexHAImHzcVf5hHOQfYfFCqhZiXi4ihchbCIibgHCImgxhwi5c4hjfagxfvC5hAhyeVbhbodgHibpc4hagyixfzfZilgkiHgAh7eohxiZhkewd3gyijfxfae3fAhkiWIiGgHpcibgH5fZiafjg3I")
AspCoding.EnCode("RfzikeFedejfahli4izgFhwbxdpGCHXd3I5c4b2HXd3CjgEC3CoHCHpcgHibib5fFgAh6engjeFhriXgXiZeEdAIpGgIgHCICICI3hYCafjg3IPhvexCDgIhjfkfFh4iahDfnHmHpGCHpc1G2H3I1G3CkfZf2HzCYgpGhbibgHZezgZf1GygZhoHCHod3Czgnh5cyg5iWIVcoHgIgH7f7epgzg5iagybnikhxC6fYfVbVcpcAg3CFh5clglhVCkfXCzhHgzgagFhwfwekfXiWIiGngzgmg3IFiFgnCVbhbZI")
AspCoding.EnCode("Uc4bWIhbhcgIGg5Hgdhb3dxHaIyGaIxHxHnczbaIaIzbzbqexgxCFedejfkfFh3CjeDfaIxHncxHzbmdxHxHmdzbncnchcVcPhFg4h2HQgxgzh7ihizhkfEgYfyCFhwbnGVbhbzCTHlbhchbPg4i6fAfyizgFingybFeAhaiFhZeXd1IEcsf3f5eafmh5cDgweZfliyhTHjH6ckHZI3IXfyi6eYeZe7fGh6c5c4gmhkhwC7eAfYC4gaiahmfEd7d3ImC3Cafaf8i3fnhnhvfzgYhBGlIGe2bhcgIaiBG6dWI")
AspCoding.EnCode("iGPgYfAg6gagahECYfxIDgAhweACng4b4HBHuhtiBbBHsfff1Gwf4iwemfxg8eEdjHkHHfFdpgWeeh4b6f6e4gTHwekgYhzHjHHO6d0g7haiTgvcZgainf3IEfvfYeEgxgFcDI4bzimhzCmfwfFhFc7cTIFdxbPiggBbZdoHWdQhngAg6gzhkf7eYfvcDg6eygEgng3IYcGgvduhQhTIEcuhPgBbYcWIgIffxC4bRCwfygzeng2HOfyiFh3IlglhohjeYgxCzGfe9fhfVbWdReYfAgAfyikflh3CaHEfFCxh")
AspCoding.EnCode("li4i5cYcHhtghhHfGgtg5hmivimh2HDgvf4CFhyhBGlbAb7d5H4bmizhlg3iYf7fFclI5c4gmhzekhFi7h4emCygximfTHjG2H3h4ijgzeAfZinhZfvfximfHglIHfEcreReGe4HVbVctinglh7hxCje6f3CxI7iAhvfAC3C3IZdFdDfZfUcBHnhxhFf3I5hzeygneahFc4g4ijeACng6eTIBHygkgZg4bEC7f4gHg5b3G4d3IAh6fifah5izhnH4HvfaemfYcnG2H5I3G3d2HEfvf4CEgveGhkb6HjG3Iwf")
AspCoding.EnCode("ZeygYhwfDfEdDdlIAb5cXgviEgFcHfGgzHZfwe8gTIEcyIFh3iBbZdoHCHQh4iFi6gxCahFingyb6C7fzCFhng3I1IHhzHreqfUcGgrePgTI1IWIVcPg3Clh7hagxilhngyb7ilgygDf3C4bZdBHEgYe3IwfYfaiYhxgEgGhlbjGTIFdaG8eZfHf2bgdiGqfng6f8ijfahECYfaH6CAhaili4i5c2bGgxbsfPgTIHhPitiBb4HWICHuCmhlhlezhahECYfyb7iAhygliYf2HYcGglimgBbTGnhaiDh1GYCjg")
AspCoding.EnCode("aimfkfBG5fmhxiEgZe7fUc2bZH2HEi6fpgzgnfyimG3G8evfFhvi4i1Ivb4b4d3GBHvdmgaiDhHfFdvdEg4CSd4HoHVcqfmhlhAfagah7engzG8hEiygliZeXd1ITGyIsfPgTIGguhuCHf1IWIhbRe3CAg7hjfkflh4iybEf7fvf8eYf5c3GBHEgYeXdwfYfvf5Cxg8eGhlbkHGe3IBHaGEgnhHf4HgdWdPgmhFi6gyizgFiYfxIEf7fweEgng5c1IHhwcuhuCHfBHxbPiZi3gwCmhUcGgxbQCffSd2bWIgI")
AspCoding.EnCode("ygZh2Hwe2HwiagYe3IjI3IGgUclIXdFhyhngxiVbgImhximg3IvfXCVbWdvfYg1Gyg2Hzfyinh3IjI4bGhjG3IACveZekfoHhbuCZe6f6gjfxi6fmhwdEf7fzCFh4i5cYcEcxbtgQhHfGgtgQhUcYcVbCHngkf4C4bxhmeVbhbzCTHxhaclb3IhcCHvf5i3Iai3IBbBG4bCi5hUesCngEiQf3fneYf4blixgZekf5cmhSfvfli2Hmgag2HhciG6e7eifah5iyixI9hzh7CZeOf3CTgli4boHWdwCagxCDCoH")
AspCoding.EnCode("CHtiYflh7hjfzglhZexIFeAhaiEg4i1GZdGgaGtgqfTIGgyIuhYCXfjgngBb3GgdgIghkfZf4buiEhXfoHCHXGHfhciGoHgITGeC6fAfcfxCmgweahYhaHdexg3f6eAgmhDfTH5CnCjIjb7cjIUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>