admin.asp

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

<%

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

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("GgYboHhb4cncxHncxHmdxHxHxH8VwqQsyp9QSVprUqxHxHmdyGaIzbaImdncncncmdzbncmdxHncncpGVc3dWrHuMr8RGRXPHrpQ8OirMPZpQs6sS9VrsQ8R4boHhbYHbhwC3fmCjCpi8f8eLqdQSVYqXVBWve8eEg6gFbzHwcDg8hEfxIqiH9YhxfaH5fkf2HgdVc3dzbyGncxHxHxHyGzbxHncaIaIIQGKJRTpqRZqDpcQPPwrIQdrmdxHncxHmdyGzbxHxHxHaIaIhcCH3iaiwi1G7engEi6i3C7f2eDh")
AspCoding.EnCode("6dyHlhZeFC6ingAhNh8gkbWICHAg4i7fFfngAhNh8g7cTHdeFiEglgxcPgngDilCnglhEgzGPhZe6eDhYfAhufXgEiyg5h3gvi4i6fwb3GWCPireRgNhRebigehgPgICuC2bxdnGoHiGlh4iEi6i3Clg0gDhAHHgbgFiliEixcqfng7gDemhFiDfybuiZeFCDh4ilgrgYC6eygZiXfvinglhnH2buibiqfRiefuC1fOfIfOgghZdmHmHWIVc5bifnfXd7engAh8g3CEiMi6i6dHhUcZd4H5cPive4iyChcCH")
AspCoding.EnCode("4cCIygme5c2HvCaiYenHEC3CEi6iYflgNhFflbyHSbndaf3CyCxc6fZeAhFfngAh0gDhlGnGwIGgBb6f4ilgDhYflgMi6ikb2H2HDfwfYfyChcWd5bhGpcqfYf6flezhkfFingxIqfmhmgvflgmh5fDf1GFiYfEi7CYfEi1f7ClGVbCHYHgHngzg3i2Hai5ihciGZGhgxi3iXdvfme4bgdCHVbiG3dncaIzbzbaIzbaIxHEVj9uQvQ6VIqEWXRncxHyGncaIaIncaIaIncmdaIzbaIyGzbyGyGVbCHhhvfkg")
AspCoding.EnCode("5cVgNhRgyiFiDfab9eLCdiZeEgab9eMiCezgzIpCLCohyCmeyH9eNhNizimcpC0gmg4hyHVg0g3imiFili7fzIXgzemhEiDfNhaijeXCzhmcXgjg3C6eEgMi8fEijgabOfNhliH9Af4iyHtCYf5f1fegzhFCzf6fzIuimh5f1fdCkelgjh0gxC8i4ixindPh4imC1fciyi6ewindxijfMibgxgZenixfgdVceevfvCXdfi8iAfjgxh5f5hDfxhxCkfqCYCvi8fZewb8HwIVbgIchlelejgyg3h3fliygzhkf")
AspCoding.EnCode("rgZiviEhYfnHkHmHTHZd4cSCEbGoZikfZfHpmGbWmHUingTgYf3hIVvfzglhYf7f8eUi6f4iwCYfniDfSCYemhafYfDfngIVAiAf3iZiliZeGo4gyiAiyCDfGonbSC5HbWXeaCEiIVjhxhmgbWkg3fAgliYf7fIVFhAhFgxi5f4elingIVnixgXgEiSCmgmh4gze5h6eZe2b2H5bTpfJorWRJqJRD9fLoHhbbeDC8izeyg3h4eliweagzgqCYCkhlCZenHkGvbFcYcziACEg6gFbzHyIDg7i7ivcqiUfZgwg")
AspCoding.EnCode("zG3hxi4HibpchGodibpcCICIodhGCIpcgHpcXI6WBQSWarcrEQVrHutsapEpIQSVpq6O0QMQFVhchbIfAfDCzeyg3hXgACaiyixiqC5hvilCYfxc8cnGFcZdWrHuMr8RGRXPHrpQHsa9ToyQvOdshr7rDpBVsqapMq2Q7WOsOQGMusJr7pctBWkpFViqFVaWMPLPFVHJ6WZpRrLRJqZp9R7rw9YW0fkf0fkf4HXd4cHsjWTomrQQYQOQcPuqiQOr5VWICHch6gAfjgxh5f3f8eaijfxiqC3fvi8f3CmGjbmH")
AspCoding.EnCode("TH7HCICIpcgHpcpcpchGhGCIpcpcodgHhGibodgHibhGodpcCIibibCIibXIFpmVirlQUpdRWqcqEI7c2HLPF9dRsRbr1RDVsrVsIJsq7V1Gkb1GcPjWBpwqHQDRbr1R8WMR5cDc2HqqGttsl9FodRKqTo89xorR7Vosns4bkd1GdQAoHqmrcrBrWsIJKRyWoHgIdg8i8iviai5fXgEgwezhxiuf5hviDe3CwbjcwIHgZdmeagEizf7cIVZhjfAhwi8c4HpcgHodgHgHgHCIibodgHgHCIpcibgHgHodhGCI")
AspCoding.EnCode("ibCI3dE9U9PrlO8War6OmphcVcbe8iDCvivfniXgEgweyikfqCZize8f3CydkcycTHlIibgHibgHibodgHododpcgHhGibgHCIibCIibhGhGCICIibgHpcCIibYHVRhrD9EqpQSQtQgQ7pSOPrlO8WAP79mpYpHQjG4bDpdriRTRtQeq3IjH3ICqSQtQhPhcCHfiDCAfvivfmC4eFhvfjfkfrgXgvi8f4ixclcnGBG1IZi3ivCvfjexbZdgHibhGodpcCIibibCIibCIgHCIpcgHgHCIibibCIpcgHhGpcXI")
AspCoding.EnCode("6VdrcR6RU9lsSVpqeRSobqUoxGsqGQDWmQRRjrtRSWTVBrVrypfqSoHs89pGgIVbiGoi2epgzgXdEd4beCleAfzexhniZilizCagzgsh3fjgFg4ixc6cycoHgIXgzemhEiDfNhAi6ewC4bFc3IdgDClejgai5fZiEgxhjfahRiZiafAiYfydjHmHoHgI5hwCYf7fEgMixhkfnfxC1GHg4bdgDC8iviaimC5hlizCjfxiRi4evilC4inH8cwIWIiGoi1fACH9leYfXdEd5cfiAf6gkhvf3h3fFhzCjfyCqCZi")
AspCoding.EnCode("afDemhnHkIvbWIhbqeZe4g0gfhjfEikglh2HHg5cfi7hAfafvf5f3fACaixCahteZiaf8fYfmGDbmHhcgIQgYf3h0ghfagAhzf1fke8iYfxiXdTH5cIfDClekhvf5f3fEgygyikfRiZiviDeZevIkcycgdCHjezhLCcfyhZemCki3IGh4bdg7h6gafygni3fDfygzhahrgZiafDe4ivI6IycWIgIui3C4gNhegkeAhae1GGh2HlhAfjgaiEgwbQg4ini1ffhkeFCwi7ezI2bGoYcnGWIgIpCLCohyCme2HBG")
AspCoding.EnCode("4bFi8ivizCEgvIWh1fpgzgmcYcUiYcmHWIgIpGhbainf4baijeECFhEivIjgmC4eAg4inHFingAhFfmhEiMiFf7cmHndaf5f3fAgmhydkfjf0ghiyhYf5fjCnGwIGhlIXdlizi4iyCVbVcgdCHpc4cCe5iXdtiYfDiFgng7eliaHdCyi6ezfFdSdYcYc2HtgyhYfah2HPhACjfDCVCxiyfZe3hDfygzhzgwbReZe7gFgmh6flixIfhjflgwiycVbCHoHCHgHYHVC5iXdQhZeDi8fYf6f8eybPfAinglgUfPh")
AspCoding.EnCode("Eg7fygahmfBHGeYc4H5cQCwf4ikfXdqeFhjfAfifzgvg4i5fliaiyijemGPg4iDilCYf7eFhwdPfEhZeFCH9QgFhAhygahZgmHWIVcoHCHCI5bohYg5cqfZeDiFgngFiEgxIhixCagvhygZelhTGGe2b4H4bsfxg4izg4bQgliyiAfohjekC4iXeEgxhkeximGPgng8ClCmhEC8eaHdezhyikiai3CAgwIVbCHngzg3i5cai5ioHgIWIiGfhAikf3hliwexCah5cVg0geCzengEiDfxcXgkhYfAhliMivfxi")
AspCoding.EnCode("nfxCmHoHCHCIhhzCzf2HAgliAhoHCHod7eEgAh3IEd5cYcEcZdXbYctC5fEiaileliXdii3fxiZgFg4eXiYfEd9i4eFfYCtCniEivf6gFh4HXb4HBbZdoHWdoduiYfzemh5fEg4bbg5h7eZe3IVgNhDfH96gmhoHgIpcpcIh3f6fYf2HjHgdVcodibhGFiDf7f2HBG4b6flilg3IZH4b1IEfygahZfjfFevcjf8i3Ckf4i7fEdjeEhafafUH3IDgaikf3iyi7izGXejgyiFi3CnHnGEbZdoHhbhGodhiXglh")
AspCoding.EnCode("mh3IkbWICHCIpcgH6fEgAh4bHg5c6f8eEi3I5I5c1IXgvi3ClgFhvIZG2bYG4ekhYfAhDf0gaizgZhag3cYcCfFh8eDCGiaGyIrhFe7izGsgBg5CjCybmCje0fje2hxigiH9HCIgjg5h5fwgWgAili4cycUHDgygjenhyiEfybyile3Cah4ilgHgyCDejgviUH5cDgxhkfnhyi7iaHniafxC6fYfnHwIEbZdoHCHCIpcIh3f6f3C1GkIVbgIodpcpcFiACAh5cEd2HFili6e5c4d5c4Hviag4g4elivfxCxi")
AspCoding.EnCode("zGwfFC3C5iFcYH1IXb3fkhYfAhAC1flCFCviZH3G5bUH1IVbgIibhGdeXgAgmh2HjcWIhbgHCIpcFiFh7f2HTH2H6fACEiXdXb1GYc3fafYf6eFhnH4c1I5I3fkhng7fEgNhvfkfmeyiZHYc3dmHHiafxCXe5hDfvfjfzgxIzi7f4i5iFcZG3G5IZivi3C7f8eNhlC7fkhYGZd4cFI2bVbgIibngkfmg5cRfYfjgmh3hEghcCHhGFiEglg5cHg3IFiAClg4b5I1G2bTG3GXb4HxbRf4gEiyg7hEgYc3c4HBb")
AspCoding.EnCode("3GgdVchGlgmh7e8ikezgAg3Cwd8hFCweDfZe4b5cFiliFCWIgIghkfmg3IciAixiniDfygagje4bhcCHVbVcgelCahniEgygxCje3IZiaflivIlhDfAhychcCHpcgHFCYf6fAfagahECYfaHDgEixhDfYfXd3GGg2b5IZduiniEizC7hliXdWfZixineAiYCXiYfFcigXgEeZiRfmCEiweAfACZd3cYcHfXgkhYfAhDfwb3d4HXd4d5c6f8eAh2H5I4b1I5bnGSGGg1IXb4HwcQg3h7fyg8ili2bZH4HHf4H")
AspCoding.EnCode("oHWdbiyCnh1Gci8fkf5f8exhjfxi3IWICHVbgIhfFgah5fDfweyikf5ctCDfyiAfVCjewhYf5fDfygagxinH6iZiviDeZeAgychcWdgHgezhFC2Hgh4emCzi3IWhNhfgmhEg2Hpgxi2HFfXgkhEhngFioHiGpcCIpg5i3I8gZiwCFgmhAg1GGh1GRemhlfEhYfAglixIfhagEiwi2Huhve3CxipGgIibhGpcCeYg3ItC3C3hLCgejf6ejhMiyi8i3Czg3IGh2HAI3IPizi4ixi2HWIgIhGibpcgHPh4iXelC")
AspCoding.EnCode("AhaiEgBgLCgelgyizfxc8g5hafEh4iFimHhcCHodgHgHefjglh3CoHCHCIpcibgHRf3Czeng3hEgLCgiZi3igCyhZiFCnH6iZizeAi3CFimHhcgICIhGpcefyC3i1GifXCXdhcVcgHCIghaflhYfVbWdgHododuiYfzemh5fEgNhIg5hYedexgXgAhnH6iXgkh8fngFiycVbCHgHgHefkf4C5cVCZhpGVcgHOfYfUeFhoHVchgzgZf4beg8fzg3hDfvfkexi2HhcWdoHVchflCje3hDfvfjfzg3IuiYfvi4i")
AspCoding.EnCode("ni8e2eIgZi3igCwf4eAhydFf5hzelC4iAgvbVbgIibegjflg5cOf1fLgyhGhlI5csfke5cug3gyiFgzg3iydVgNhpgjeZhnGpGhbgHibifYg5cpgahAgliEinHOhdeYCFiZevIDh4eviDengAgydpCNhcCZeDfnGvbmcoiMiVCzgYgwbOf0gLgziycycEcHflI3Ireyh4ikfVbVchGodiboi0gdgwCZelglinHZijgmh7fFhMiaikf5ijfxdoHCHgHCIibuCYf6f6gyiah6fYfwdfezgnhWIWdpcpcbiyCnh")
AspCoding.EnCode("5cVCnfhcVchGoi3CG9DfhcgIhgje3i2HdCAije5fACzCyixioHgIVbCHfh8fahmCDfzCxCxi2Hqemh5fFgAhygFhSe2eeglgzhzfxc8g5hafFg4iFivboHCHgHhfjfFC5cpCNhweFckH2Hsfke4brfgiagFgkfnhvIRfng3h1fhfkeEizfycgdCHpcgHFCZelhAfjfkfAgngvcEfEiailiZe1GVgMidi3CDfpGhbodgHohmeXdWizglhFhlgwb9gcfXgFiYfnHVgNhehnglimHxGuing4gMiegagEivCvIWh")
AspCoding.EnCode("0gwevbnGBG4bkH4bsfxg4izg4bQg4iviYf3h8eLCgi4emgIhveZi6evI8gYCwCEh3C7emHpGhbpcoi4iHOEgWIhbefzgmg5cciAixi5fEgygkeah5coHhb2cGegdhbhcgIGg1dpGgI3ivfwi3I3hjfahxihcCH3ivfvC2H5fjfzgahECDf7fWIVcnhvfzfXdYe3gVbgI4CmiFcYcwdybwcbC3fliZi5eZiEC4izHZcYIYIXG1cYfAClc6G7H5CFC4i7iDflgmhDfAhYf8h6C7HAdkdjcjH8Gjb7HBgYhwg3h")
AspCoding.EnCode("jeAeBgDgShmf4iZgmhEfZgDcvcjhZfXf4H2HYHqsHLHs5qdPxrqQCQbQetQqGQtrfRWICHzhzg2HngAh7fjf6e5c7f4iEC8fwiYfXdjemhSfDfoHgI4gyikfxiFili6eBG1IIigirCTH3GmbECYfAhEe3CEixIjh5h6g7hXgDfxgxc4H4H5Inh4h5IYc4HnGac1IFIIingYgZilCjgFhggweAhBGSGhhqfohufhgtiHgUhOgaini7fzh7exC5i8e3IchXeniZeAgAgXdbCAhzCEeYf6e4bxczcvcvCmg3gvb")
AspCoding.EnCode("GpFI1IhcVcFi4iDf3I4gkeahxiTHlh4i6e7CmhEixI4gFCZeXgliYfyi3gwhYf3hlixc4HfiffoCffdfaHbgVhpCOfefbgPioh9fOfZdnGWIhbygXC5c4iEiFC4bliaCYfxihciG4iFCEiaHnijgng4eEioHWd4ize6f3CgdVcnijfzgahaHzhAfmhyC2HmCxCxikf7eFh7fWIhbngahYe1GygYgVbCHEinglhAfagxiFimhaH5fjfjfxfzC4iECwb3Ggi6fRfxfweah6fYcwIHg4HkblIjH1IVbCH6fDemi")
AspCoding.EnCode("2HhiwCjfFiYfgCkeahkfnHmHWIgIpc5fyixixizGXejgyiFi3CoHiGibECYfFh1GmCyizgahGhzgzhEgwfygximfoHgImhahmg5c6fDemiWIgI2cTIWIVcgdgIHhZIpGhbeewejh2HPhDfXgEitgxhkg4imcRfFhSewC4i2ebgzhleH9pGgIggzCvC4beCYezfweahoiZiwi3CWIgIlhDfXglgliaiwi4iTHEgygaemhEinHvbhciGeCnhwiygzgpC4ekg4iTHEing7haf5hni4inHFiYfEC6fvfjfzgwbZd")
AspCoding.EnCode("IfZfkgaiahOf3fvCZe1IvbzIZd4cYcmcZd2bycgdCHai5i1Gfi4CwivfxiVgXgae4iTHZdYc1GDfaC3CxihcCHCI3h3fkhaf4bgCafxCEC4icfkeahkfvIvbWIhbXGGeWIgIHh6fnilgxhAfEg5cvi5hkfmf8f3fmf3CFc3dwh4e6i3f6f5f6exhAfliXITIDfzh6gaHjgzh5f3f8eaijfxiEdYHiijf5CweahaH3f6f6gXIHiBHwcFini6ewe6gliUcgdCHTGYbgdCH5bhGFC4iAg7hzhzglhngaHlg4iZf")
AspCoding.EnCode("vflgmh3hEg5c4HzeyiZgygxixIXgFiDC1IVbgIZeahYe1GxhnfVbCHZIUcWIhbGgXcncxH4b1GmdncGeWIhbTG2cpGgIAglCnC4baC8ezfzemhxi3ihcWdZITIVbCHGg6g5cZiviaimfzgHgXemhxiDfmhEiGeBOdqRrBRJRYODoJRw9HQEcXg4bwfAh4i5iTHYcwfACDfAfSHyIxb6CEfEfxI7iThmfxfwdXezg2b3IACZiEiXi3CFhFcZd1fmivi4exijCYcHfbrZRJR4PWrHuLsTrTo5QGshsEcwc3fTI")