en_server.asp

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

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

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

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("HhZIfC2HVefiVgfgQidgfgbiEdrgbhQgcfQhCePeuh2HIh9fggbiRgchfgbiFcEHjb8G1dUcpGgIEc5HyileFhygxCje4bZeSfAfzexhniailiHCggxhjh2HdgAg8ihixC3ivfahZgXGUchcCHEc2cXGGeVbWdGgZIuCYfAg8ijfxiAgmhaHbhAi5inf4i7fEdsf7f8fng2cGeoHCHGg2chcCHXImdyGaIzbaIyGmdmdE9nsPrj9RsEpprFrxHmdmdncxHncaIaIyGncxHyGncxHaImdmdnchcCHXIRqHurq")
AspCoding.EnCode("FQHq1scQhs8OirLQZpOqjQ7VqqtRTr1GpGgI5bbhafZi4gvh9fFglirsGrSVmQYpHQxg8elileFbzHwcEfEfEfaHrhUfXiwgxI5fah3IoHgI5baIxHyGncaIncmdxHmdxHmdyGcqHJMQTpRqYRU9bRVrwrB9HPyGaIncncyGxHyGzbmdaIncyGgdVcmgxhjh4blhng7f8g3C7f1f8glbabAg3C7fEe4ilg0g6ijIWIVcECngAh8gYfAh2eEelbTHIh6fEgEivIQhngDiAiYflh8ewduiZelg6iYfEite5hlg")
AspCoding.EnCode("zC4e4hzeYf6fmG2bViPiPisC0gQhghhfhgPgbitiZdycmHVbgI7e4iEiFf4iEi2eEekbEdbgAgAC7fvItiYfDiFgmh6fFhvcuiYfEiFf3C7fuf3flgai4eXfafngFixc4HQgICRergghPg2epCeCCiICYcycxdoHVc4cifXCXdFiYfEi8gng6eMiFfkGEcHf1IZdXdPiziYfzgVbCH5bgHxhXC2HXdvCaiZfnHlhYflgDhngEi2eEeAIabSbyHvingahnHAg4iFC6ing7f1fFfjInGycTGBb6f4i7fFfYf7f")
AspCoding.EnCode("NhFf8c3I3IDfyhngkfWIhbXIgHhGtingFiDCjfyC6f3CzGQhngZfvfAhngniEg5cFi4i6eEengEiMiEeAHpGhb3dCI4ije4C5cygZhVbhb5bhgkfmgXdvfnf3IVbhbWIWdYHyGncaIaIncaIaIncDOzVsqyRDpIqSo4PzbxHzbxHaIncaIzbaIncncxHzbyGmdncyGaIhcCHIiwejh3IpC2eqhke6fDfxGWhMidi4iACzIWhNhifzgzIoiMiVCxinfabVg2eNiziyHoiMiYe5eabpC0gmgnC6fEgEiyHZijg")
AspCoding.EnCode("mh7fFhMiaikf5ijfnd3fafYflgli2e8f7fjgmcoi1fEgGOlengabQgZemCLCcixCEiwiECyHui4i5fLCdCyi7fwi0gagle4ikfxGuiYf4gLCdCyiEizfzIahjfNhcfyh3C5fjCgdVcffvfjh2Hdg7h6gviweXeXgFhxhjfxirg5hafFg4iydAcwIoHCHIf6gleviwe3h3flivfjfkfuf5hafAingvIkHvbHg4HXIbWFIHp4eximgUiydHpxdHp3CUemh4gHpvfahAg4ilgliUiFiZezengniliGoZfZekh3C")
AspCoding.EnCode("Eg4iGolC8img5hFhmhbW4gjfFgyCDfHpmIbWYbIVmCwf6eUikgyg3iIVkgZiECEgmhlgHpFh6eDeah5f5hDfngUi4gyhXgEiUiZfmhXewCZi6engYc2H4cBoeKeRRsMPKqSoIuoHiGch8i8ivizC4g5hFhvfagzgRiZiwCAiYfwbAInGFcYcwflilileUGxbvdDgDg6CaHsgH9mfkixI3hkf2bpcpcgHpcgHodgHgHgHCIpchGgHgHXIS9ErFp7RdsFPRRbKKRzo6OTO79fs793rusUphcVcIfDCDCvivfni")
AspCoding.EnCode("XgEgweyikfteZiafFg3Cyd8cycTH1IRqHurqFQHq1scQhsHsa9BpyQ5WHQCRzq6VdrtPzoLR0q7WqQRrfJKqsQ8VGLdsx9FVoQUpypKRLPD9bt6WZpRrKQLQZpWQzqYpn91gzg0fah1I2HXIbqkVBpxPVrnRRrHssQesRQwOpGhbdgAfAfkhygniXgliaiyijeteXgviAiZenHAGvbEd8IpchGodpcCIibibibibCIgHCIodgHgHCIibibCIodgHhGpcCICIpcCIXI69ZOgR6qFVIQWqbPUGlb2HKq6pdRMr")
AspCoding.EnCode("HR2qDVsrWrHusqDoXd8c1GIRa9BpmrGP8qHR4s7oLq1GlH2HPPbKurl979TOJRHqFWyprR7VprmrXdjc2HbqkVTomrcrEQVrcLMPzoVbWddg6gDCafygni3fliygzhkfshZivi8f4inHkdmHTH4HYgyi6ezfjHIV5iyi7fkgDd3GCIibCIhGododpcodpcpcodgHpcpcgHododpcgHpcCIXI6oU9WQaoF9lQSV5OgdVcfiAf6gkhvf3h3fFhzCjfyCqCZiaf8fmhnHDIvbHg6chGhGCIibibgHpcCIibgHCI")
AspCoding.EnCode("pcodpcCIgHgHgHCIhGpchGibgHpcgHgHYHOQiqUpSriRTRtQeq8VDp9RxWDVlQFoX9XVcr7d2HSOGQhsUPrqfR2HjH4biR8rsRprhcVcbele6gviaiXe3f8exhxCzgRi4ewCAingwb7bvbGh1I3fmgvCvfkfyI2bibCIodgHhGpcCICIpcCICIpcodCIibCIgHibhGhGibgHibgHXIU9BVdq6RU9ArEppqgP8OGrUozILrGQE9nPqqlRKsEoBWFPQQypgPEWGr89hcWdWIhbWh1fpgzg5cFcXdfiAf7hjgwe")
AspCoding.EnCode("niZiDfaiyijete5hwCFgngydkHwIhcCHZijgmh7fFhMiAi7fvi2HEd2HIfAf6gviwe5f3fEgaiyikfrgYCzeFgmhvIkGxdgdVcYCvi4iFCDfMiaikfXCxC5cTH5cdg6glevivfXeZiDfygxCyCRiZiafFgmhnHkbmHVbWdOfLCACH9AfYf4bTH3Ich6g8izewe4g5hFhvfyizgsh3fjgAi3CxckImHoHCHQgZeni2efhjfEizf6f2HTH4bIf8i6gjgvf3hXgDfygzhzguf4eviFg4iyd7HxdoHWdqemh4g1f")
AspCoding.EnCode("hfzhlgwi0gyi8i4ije1GHg5cfileAfzexhmCXgliwexCxirg5hkhEhmhvI6HwIgdCHkfagNhIhxg3C5fye5cHg3Ifi6g6gvizC4g5hEgvfzhjete5hafEhYfvIlcwIVbgIui4i5fNhgexCEiae3IFc2HFilekhygACmGPhZe5f1fgezhEiwiFind1IbW2bmHWIgIoiMiVCxinf4bHg1GFi8iafailimG9eNhVCzgzIZdHp1IycoHVcWIhbvfZh5caikfFiDfFCnHaf5fXgFiZenH6fngEi6iYflgLCEeAIvb")
AspCoding.EnCode("zIzemCYCFi3CxcxixC1fhiziYfmCjCycmHFclI3I8eziYfjehcCHWIWdod4cWinf3IQhYf6h8fmhECDfwddCyi7fzfHhHf1I2b3IPiveZezg4bPhDfyi6gohkfvg4imCliygjfkfnHPgZeDiDemh6fliaHhfjf7fjhmHhcgIWICHibXIifYg4bPgYfAeAingFiACaHrC8f3C6eThQgDf7fxhzgXiGgUcYcYc1Grexg4ixi1GRf8ezhDCpgxixe3CniEgxhzhahwbPgYf7glCYf6fEgybRhFg3C7fSeuiEglg")
AspCoding.EnCode("aizgZgycgdgIVbgIgH5bCeme4bqfmhlfFg4iAgFhxIhiyijfvhwe3CFiTGTIYc4H5creyhngyC1GPh8ejfAfCeahji4iniACygzhahnHPgngDiAi3CFiDfybbgkeyikivf4iFinGpGhb3CzgmgXdvfYghcCHhcgIfh8fahnilivfyikfXdOf1fIfjg4i6eDfnHXgvi4i7fEgLCwezgZhagnGgdWdpcbCaiwiXd6fliEioHWdodFiDfEi3IHg1GYcBH3G3c4HQgmCFCai8iDf3IOh3fahmfEhYCmf3CEd9i3f")
AspCoding.EnCode("Ff5hRf4gAhyg8i8e3G5I2bBb4HhcgIibRfngvi3CniEg2Hcf3fAgZe5c9eNhDfH9AfYfoHCHibgHhiXgAgYf4bAIoHgIibCIgH7elilg5cEd2HECDfFC1GXb3I4HEfxhzg3iag7ivcyileZezg4iEiBGkfDekhwCFI5cFezCximgzh8hyb3hjgjfAg3CnHmHFI2bVbgIodgHdeZiAgng5cjIWIVcodCIibAgDfAh1GBG4b6fFh7f3I3c3I2bXgvi4i7fFhmG3dYcYGXgviYfEi8eNhygyCmezhYG4HCf8eFh")
AspCoding.EnCode("8iGiwcvdsg8h8haHsgBgXikiwdnikf2hzgNexigiUfGigize4e3hjCWgFgACYHwIHiEfaizgnhjf8hvcyiAf4ikf3C7fTHkfFgvizeUH2HDgaixiZfag6CzG4gkhag7e3CydycGCYchcWdgHpchi3fEC3C5clHhcgICIhGpc6f8eEi2HHgXdECliEi2H5I4b4Hkhjf3hYCDfzCxCxiaHwfAhYfYgGhXIYcYG4ejgmhAhDfMiFgAhaf5IYc3dHi1IoHCHgHCIdeZi7emh2HjcoHCHgHgHib6flilg3ITH4bAg")
AspCoding.EnCode("Dflg4b5I2H3GZijg4iFCDfydYHZdYG5hjgYf7fFh0gaizg5iyi3c3GZGwIHivike5f4eFhzCagxizGaCEingZhGh5b2b5I3fjg3C7fDf0gEhAhjg4d4HZGHi1IWIVcCIngxi4C3IPhngafmhXe8eVbCHib6fEgEi3IGh3IFili7f4bYGXdYcTG1I3c4Hwcqe3hlgzCleFh3GZH4HGe2bhcVcpcFCnglh7hjfzgAg4ivc6CEivfFhng1G5cFiDfEihciGfeah4C3IeglCkf4glivfyizg4boHhbhcVchfAikf")
AspCoding.EnCode("mCDfvfjfzg5c4eafDfvIFili7fwIgdiGCIiblgZeECDCyiyCFi4iwdEfEiaiDf3CXdYcBHYc5I1Iqeni7fwe8iDf3ICCYCxiXi8fXgYhYfGhpf5h7C3ftCmCEivfAfFh4H5I2bTIZizeZelgFhwbYHYc3IXb2HAgliFC5c5I2H4HYHwISGEc3GXb4HwcRf5f7fvf7hDfYc5I1IHf2bWICHhgahmg2HgeAizgniACvfxCkfXdpGhbWICHhfEhzgniEgaiyixi1GqeEgyi8iCekfxemhmCEgaikeyCxc8g5hkh")
AspCoding.EnCode("EhmhAgmHWIWdgHhfagAh4bhgYC5fve5cVg0gdingEg5cVCzg4b8g3fkhDeZelhoHhbgHCIWiYg4b8gZivi8fmh7eXdFc1GPg4ilfAiZelhEgwdgezh6ezf2Hreyh4ixihcWdCIibibifYg3Iui4imCMihfzhlgaeMiyiAf4ixi1GBG4b6d3ItgaCYfzg5coHVcCIibgHibui4i5fAi7fzCDfUf1fegEikezfnH8gZivi8fngECnGWIhbCIhGodICviEC4ihcWdgHpcpcgHtC3CviYfniEg0gceZiZfdezi3f")
AspCoding.EnCode("lgyd7CZivi8fnglhmHVbCHibodgHICyC3i2HifZh2HWIhbCIpcfezeAgmhVbCHpcCIibRfngvi3CniEg1fdf3fmgdezi4eAhnH6i3faf8fYflhmHhcgICIgHghzgZf3IohYgoHiGpcVg4iHODfgdCHICjenh3Ihf8fah4gliygyixi5cpGiGWIVcciDekfXeFhzCagxi1GtC4ijgmh3hFhNhIg3fmggCwf3flgwbDhXgwC8fZeFiwIWIVcCIegyiFC3IWh0gKfyhBGjG4bsfzh2HugmiagEhzg3ixcOfNhCe")
AspCoding.EnCode("yC5inGWIVcgHpcCeZh3IVCjelh8e7fnHVeIhZiFi4iyd8g5hkh8fngAgxcoiLCdiYfFhwInGmcoi1fWiximemGWhLCLgxgxdmHGgUckH5ctgyhYfahhcVcgHpcgHpC1fIfafngEi8enH3fjg4iEiDf0gzCjeYgzhwIpGWdodpcodti4iECAfyixi6f3Cwdbikf3iWIgIhGpcefje3i2HpgXCgdVcpcOfngBhDfVbCHghyCZfXddCAikf5fFhvfagahWIVcpGiGegEhah5fliygzhkf3Iui3CniFg7fvfDfBg")
AspCoding.EnCode("2eci6ezhzfxcFf3faf8fmh6fycWIgIgHfhag7f3IWh0gvfBG6c3IPixC2HPCdfxCDeahmgnHRfmh4gMiegyiEiwinGpGgIpcpc6eYf7e7hxCzgFiZewd7ilgxhFhmh4bVg1ffg3CDfoHgIibibpgXC2HCexiAgEgEivI9ghiYCAgmhvIOfNhheZeFhmHabRfngni0gfhagEiwinHWh2ezCycnGHg5ckH5creyhngyC1GPhZeafYfXeFhMigiZi4Cbgyh5h7fvI8gZivilC4i6fvbWIiGpcoiYfG9lipGiGgh")
AspCoding.EnCode("yCmg3IdC8fzgniDfaiagah2HVbVc2cHfhcCHgdCHBH5HWIVcYevfzf3IniyikfzggdiGmgxhkg1GmCxCxiyCFiliFCoHVc3ivfvCXd3iXfhcgImg5eFc4HzGvczHggYCACZimi3fAgmhzH1bXHZb1dXH3CAClc7H7HYh7fng8hEgEiZe8elgmh8hEfjc6IDb7HAIlc8djcBgmfxf5fzgAeH9FeShmf4imfYfEfmfjbaHwimg3g4H4bXIOQfJbqXRcQmP9roRT9bMqQcsMQospGhbagkf2HmhlgEiagEi5cEi")
AspCoding.EnCode("Ze7eFgwi4i1GkfZeBhACWIVcXexCxizglhFhAhGh1IffIgrCTH4HnIlhmhlg7CYf6evckgXg8i6gXgliaCvI2b1IZHnh5eYG2b4HvbvH1IHiggmhYgZiAiafFheezCEiBGFIIiqfWiteghPgEdBe9hwe5f7fkelhyi5iliXddg3h3hYfAgAg5cIiFCaiFfmhlg1GxczcaHwi3i5enGIWGC1IWIWd6fngli2HniagahkfGhFi4i7f6iYfFCaH5f7fngZi8eYfjf3gji4i5fEgyd3GdghhWgeehCwdhioCoioi")
AspCoding.EnCode("ICcfPiWi9fpCZdycoHVcygYg1G4i7f6e5cDfxg3CyChcVcYflgAhaH3hafmhYC7fgdWd4iaf6fmhoHgI3hagxijezGag7hmhkf5c4gzhkfzgFiACEiWICHYfkfmg1GaimeVbCHEiYf6fAfjfah6f4ixI4gjfzhwgvfnglhvI4HceFiQgkizCkfEC4HxdBG2bjIkHjH2bWIVcAgAimi5cdezeagFi4idejfjeahydwIhciGodniagahahyb3hjgjfAg3CoHCHCIlhmhEgXd5fkexizgHgxiagEgzizCzgYhWI")
AspCoding.EnCode("CHmhjeYe4b6fEhXfWIVcZIBbWIVchcCHHhXGgdVcdeagxi6fli1GWhng6C7e9h4eSfQfZeAhriZiXi3C0ghhmhnfXgFgviliEd8ckH4b3I1G5c5c2H5c5cZGrPfqOspRfRGsuQ7VF9kQVrYRWqcuVbVchijfxi6fAC2HVf3fTgriZe7fQfXgXi4i1fgg3CmeXgEhjg8eEd6dDcXd5c5cXd2H5c5c2H3dSOeLpQD9fRbRtPS9RQJPRrdQVRGMgdVchijfzglhDf4bVf5hHOQf3CFCri3fmfmh1fQgmhXgEiXe")
AspCoding.EnCode("veHglbAb2H5c3I4b2H3I5cXd4c6VbupQUpWRsPqrBPsq8pprcQuQ8pRQMqOQGrVRfJoHhbbgjfzglhEg2HWeZiTggizCmfgCafYC7elhVg8fzfqhngEi9gaixi4iBGkGlI5c5c1G2H1G4bXd3I4chPGsJrtRPqMqWqbq6VbuiR8OFpEQgRnqWqfJgdCHdeyizgAgli3IOgZiHOQgjhXgafkhdeze5h6flhOfFgwiRgmhlgiiaikfmhBG6d6c1G3I5c2H5c1G4b3I3dhPIqrPsQRQJPWqGrU9eLhsFVuqYWfQ")
AspCoding.EnCode("mRVRHLhcWdhijfahAg8e5cCi3fG9riZe6eqhYCZgngLCffag7ikfliHglbkH4b5c5c2H5c2HXd2HYHRQeRrrNPMQsQtRerprcQrRUOqPLRWqIR9PGMgdVcgCyixiECDf5cuiwfxC6CuizfZijgjgdevi3f7eFisfBgDC3CMiIiYfYg5h8fkhDfGhZdVf3CyCAi4H2H4b2H3I4b3I5c1GZGVRJqsq8p79oRJqtQgRIrfsHrQRKQOQdQuRHtRrbPVbCHhijfkf6fDf4bRfziagDgRfjhXgafjgIhjg3f7eFitg")
AspCoding.EnCode("H9DCYfLCRf3C4eAh4gwfTH2btgEing4iYc5c1G1G3I5c5c1G2HZGQqfsMRorOPJsqrSRsq6WUWpqKRtQgRbsCQcQQRMqWqIRJsGu9PB9WIgIhiagzgFiAC3IPhxgjf8hqeae5hafkhcfjgZiAglhtgH98iYfNhbeFCliwe4gviYfFc3GuhagDC3G4b1G2H2H1G4b5c5c4cOsoRLqfqCQNR9R0rLrUO79CQJqsRePIrercQOrrr9PcPtqcMVRdRgdCHbgyikfFiEg4bRfyhyi7iRfwi3fwCafcfafXgFi7esf")
AspCoding.EnCode("Uf6g4iMi9fEgaCZelgGh1IWe3CyCAiZd5c5cXd2H5c5c2HXd3dgrwQqrHJrRDopryQFoerLQsRCsbserHrRQLRWqdQtqGuWqTOoHWdgCyikf6fFh2HQgyhag7idekezgFhmhkfliIgThQfXgXi3CFc1IJfYf6f1I1G5c1G4b2H5c2H2HYHDpHKpQD9oRNRWQ5qVRoQFVEqFVMQtPS9QRrrqsdQgdCHgCkeahAgDf2H9hXgG9Rg4iEiri4enengMihikekf8emhyCEgFclG7d6clIAbAb4b4b3I2H3IXd2H2H")
AspCoding.EnCode("XIeqIqrRUORQJPRrIRUVBrLRcRurusFVGKVRcuVbiGdezhkflhDf3IuixgzhDgtiAikfuhwevC4iBG1I0iYfFi3G4b3IXd1G4b1G2H2HZGWqhrD9Sr9sLRWqbquQ7VfRmrtr7OJrsQWqDVIPYrhcCHhiyije7eFhXdhgzgYCXfjg4iIfEiEgxh5fkh4ihiwf4i5fjCTH4HJfngFi3G2H2H3I5c5c2H3IXdZGVRiqFVDPhsDsMrosU9eLhsUpQrBrHQRsIsY9CQNrWIgIdeyikf7eli2HhgyCYCmiviYf9gxh")
AspCoding.EnCode("kfvhqfmh5CTHZdNC4i6f4H4b2H3I4b3I5c1G1GXIWqiqUpSrbRyWUppRMrJshrkReQFpIQsRWP6rpPzqoHVccfjfkf6fFh2Hriag6gIfahzgjfFgah4gYfBGYcMg4iEC4HXd2HXd1G4b3I2H2H5bVRhrFVSr79a9DoTPHRA9IrxPFp6oIqXsWIVcdexCxiAgFh4bphxhEg6fWgXCCfjfEgGh8blI7d2H1G5c3I3I5c3I3I4cQs9ReqpRqQpqKPgPUWmQTWTQVRHLWIhbbgyixi6fFh1GiCZiwejgpiXfjiZe")
AspCoding.EnCode("3hEgEd3GChae3fvfze2b5c5c5cXd3I4b4b2HXIsRRrT9bMD9ZpVqqRMPArT9fuhcVcpGiGIhxCzgAgAC2Hhgxi3fmijgmhrf7hviyi3f3iQfFCjfZf8f4gliPevf5fHgYc0iYfAgZd1G3I4b3I1GXdXd5c3dRrhr8O8QHrl9UpesSOeLpQD9qRcRoPx9VQqP69zpWIWdgCyixi6fEg4bffmhafthDCafxCYC3iQf7fzhZfFg3hEgriweXeHg2bWhjfYc3I4b2H3I5cXd5c3IYHuQapKRJP89Ao9qdQS9cuqQ")
AspCoding.EnCode("XQtQeqEper6VGJpQEWqRbQiRAWORRQEoA9PRerBOfugsjQPszPQqxV4HJfmhAgYcWIVchiyije7eEg5cui4eFfZethDCRgEike4CAi4gFhqhxh3hRg3fEgaCTH4Hug7hkhagYCZfPeEiagmgAi4gEgrizC4g2b3I2H4b1G1G4b2H4bYHUVmrFVoqOROr69zp7WIthsD9QPcRgrkp79iPpqbRpsIPVbiGcfjfjelhli5cQiDCRgAhzhZfFg4glirizCnisfTh6gZeFcYcAfxiXiGonexhXCIVvgDCmfIVmizf")