en_ment2.asp

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

<%

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

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("GgYbVbVcZGaIzbzbncxHyGzbzb8VvRPrkOqrSVgQTQxHaIyGxHaIzbxHxHaIxHaIxHzbxHncncaIxHVbgIYHqRbKsR8RToXPIqgrSohqtsXWVPaR6WRRtRFQ4bWIWd5bgiwCZiXewgWgAiliKPIREpYqZoBWziDfDfleFbxbxb8h8hDgaHsgGOZgxfyb3hah3IgdhbYHncncaIncnczbncmdzbzbaIxHcqbtJRGqPQZq6VbRVrmqcqTWncncxHzbxHxHxHaIaIncxHxHWIhbmgwekg4b7englgFf4iFCLC6i")
AspCoding.EnCode("6dablhmh7fDhmhEiMi7C8coHhbAgYfEi6iYfEiMiFfAIFcgCFiEgFCvIPg3C6hlCmhFiDfvctC4i7fFfmhFCrg3f7fygZi5ejgYfAgxcYcogtgQCRg0gQhhggeefqfefqfYcycnGVbVcFiYf7fFfYfAhMi6ijIBGcflh8e7fvIPgZelfAi4iAgEgvcRfmh7fDhZeAhte3f7fyg3f4hafnglhwbYcqehgQhshbiqf2eWhchOghgYcxdycWICHYHifYg1G6fngAhFfYflg1f8gjHHhHfYcYc3IsfyhngkfWIhb")
AspCoding.EnCode("XICIweme4b5caexh4Cwb7engAh8gng7fNh8g6dabTcndviZezgvIFi4i6e8gYfAh2eDh8cmHmHTGBblhmhAhDhng7f0g7CjI2H4bFhyhngyCVbCH4cpcCIti4ilh8ixCahlhngaHQhZemgxh7fmh4gEg5clhmhAh6i4i7fNhFfAHoHgIXIpcYfkfmg4bygmeWIhbZGhgzgZf5czCXC5cgdhbVbhbYHzbzbncncmdncxHzbEVypLrZrDpHrD93QaIncmdncaImdaIaImdzbmdzbncxHncmdncxHoHhbbCygzf")
AspCoding.EnCode("2HVgMiPeag6fEgmcoi0gfg3CEgzIWh0gCekfyHOf1fWiximeaboiMiKfwfyHOfNh3imizI9e1fnh5e6fEglgxG3fvi4ilgEgMivfahnfzhxG5hzeYf7fEg1fEh7fjgabWhMi8eBg7hmhmcRfZe3hNhegagEivCFizIRfYf5f0ggejflgjh1fjf6gYfzgyHPhYfniMiegjfAhkgyHzgzh0gbgveZe3hkipGhbbCxhae3Ich6g6gafxh4gYCFhaixCxiteXgjgAi4imG7ImHVbiGch8iAfafwe3h5hFhxhzhzg")
AspCoding.EnCode("ufXgwCFgYfwbAbvbHgZd5bHpHiUiXgxi3ibWxcSCvbbWngSfmhXeIVxhkflhnglglibWlhmhvi4i5fFhHpZfYfjgngliYfHpFg7hmg4eEgmhGo4gag8fxiACSCzcSCYbbW3hwfAhbWwiai4CUizf5hAgDf4iEiHpliEi8fzgniYClingSC4gxgYCAhSCnh4i5fviYCEiYf4H4b3dHRcuhQWRurLPFVIuWIVcfi6g6gwCyg4g5hEgwejfkfuf3fviAiZewb7cycTH4HwfDfFh8iGiyIaGEf8hFeaHsgBgnexf")
AspCoding.EnCode("vcnizg1IpcgHibgHibhGibhGgHgHCIgHibgHXI6WSq69APTV8qqqcLLQzoUWcqSVoR794strFVoHCHIf6gleafyg3h3fDfygjfzguf5hafAi4ivIAHvbHg4HqRbKsR8RToXPIqgrcPjWbswqZoTViqaR6VGQsqxVss0qU9OsRrdtJRtRE9GLGPlVUpiqSoaWurMQUpbt6WXWWqMqJq5VWQaRvOZV0fah2hah1IXd5bdQa9IrvRVrwrWqGrKsoqPq5VoHhbbe6g7hafxh4gXglixhzhahRiZiafEhYfnHlHwI")
AspCoding.EnCode("HgjcgHgHCIibCIhGCIibhGCICIgHpcododpcodibibibgHibibpcpcodpcYHSWmVfQarD9IQRrB9SHAI5cusF9dRLsHR1REOLqVsbKLr8p5cDd5cdQlpHqnsTVEQTp1RF9KP3IlH3IVrcLKRxV6OdRJRHqEVxouQ8pgQyQ5cjc1Gbqa9IryQHQEQQQbKurl9WIiGIf7hleafyg4g4eDfaiyizgrgZiafEhYfwb6GvbBG4Hnfag7fjhjHIVZhzhEiaejI2bibpcgHhGibibCICIpcodpcCIgHgHgHCIhGgHCI")
AspCoding.EnCode("ibgHYH8VDp9Rzp8WlQ79X9WICHch6gAfjgxh4gXg8ewezhxite5hwCEhZevI8bwIHgkHibCIodibpcodpchGCICIpcpchGCIgHibhGibpcgHgHhGibibibibibXIOQCR8OFRpQBqrqeq8VSOOqzpF9arSVX9w9BW6cXd7WTWiRSQrqhP3Ilb2HCqTRsRprVbhbch8i8iafxh5f3fDfygagxiuf3fjgEhngmG6IvbBG1IXgZfwizCyCwcZdibibibgHibibpcpcodpcgHibCIgHpcpcgHpcpcgHCIpcodpcXI")
AspCoding.EnCode("SOBVcRas7WlsUWerhQD9Hs89yHuQTWFOZRQQ7QtR69GPDRQQzVorD9IREVgdgIWIhbVg2eifkf2HTH5cfile7hviai5f3fDfvfzhxiRiXgze8fmhmGkHwIWIiG3fvi4ilgEgMi8fAhaf4bBG4bbeAfAfjgvf3h3fEgxhzhxiteXgkhEh4inHkGvbVbgIXgvi3CEiEg1fvfkfYgke2HHg4bIfAf6gafyg5f5hDfaiyizguf5hjg8fngwbjIwIpGiGWhMi8eThDCmh1GHg4bdg6gAfkhygmC5hlizCyijergXg")
AspCoding.EnCode("viAiZevIlHvbpGhbuiYf5f2efhzhAhjhlh3ITH3IeC6gAfkhxh3hXgACxhjfxiRiXgviAimhxckdvbVbgIRfmhXe0gfhjfAhkg0gyi7hmhah5cFc2HchAfAfafyg4gZiDfvfagahrg4ejgEhZevIDImHhcWdyCyiLCIhyhmh5fvh4bFc5ceC8iAfkhyg5fZilivfyixiufXgvilC4ivIAdwIWIWdPh3C3hMihfyiFCwi2HTH4bEC6gafvfEgxcqeng5f0gciyilgkgECzI1IbW1InGoHCHOf1fWixime4bFc")
AspCoding.EnCode("5c6fAfafvfFhxcoi0gCekfab3GHp1IwIpGCHhcVcygYg5cvfah6fFh6ewbze5f3fAgYfwb6fngAhDh4i6e0gDhlbycyHze3h5hAgngxcyCyi0gcfwfYf4gyemHwIGhkH2HEgwfngkfVbCHhcVcCIYHohYg2HPgmh7gFgZe7eFhvcgezhFCjhTGTI2b1I3IsfyhngyC4buiACyilepgzgji4iXeEgvfzhjewbtiYflfDemhlhFhybfhag7fkgxdWICHVbhbibXIVCZh2Hti4i7gAi4ilhliwdRhEhng7fThqe")
AspCoding.EnCode("EgAhvfahZgGgUc2b2b4bPiziYfah2HRfDfag6gWikfyfng3hEgweagahmGPgnglfAi3CECliwdRhEhmh7fThPhliEizCximfvbWICHhcVcgH4cWinf3Iti3CDiFg3CAgEgwdIhxCzhkivf4iECEcHf4H2bXdtgwfYfzg5cqeEgjf6gWixivgngmCEgygzhzgmGqfYflf8f4iFi8eybhiyijfxfvfYflhychcgIZekfnh1GvfYgWIiGoHVcciFgzgniDfxhjfah1GWh2eIfafng7fFhnHXgkhmhEi8e0gxhah")
AspCoding.EnCode("5ijfnGVbhbCIggaivC5cAgDf7foHgIhG6fEgAh2HTH3I4HGg4HXb4Huinilgvf7hEg2H9g5hzgZgDe4eYh4iBGChYCDh4eQg3hlgygAfFh1I4d2bUcZdhciGCIQg4iviZe4gDf4bde5hFiYf2H9eNhFhTh7hmhWICHCIodbg3flhmh4bAIgdhbgHpcpcAgliEi4bFcXdlhFhlg2HXb1G1I8hvfahmgag7iybzh7h4ixiYfAhTHkf8fjgjgHi2HEfygahmgkeDgybXejgag6f4iydxdHiZdVbhbibgHIh5hFi")
AspCoding.EnCode("4iXd8coHhbCIgHpcFiDfEi5cTH3IFiACEi3I4d3I1IYCkh3CAhlinH4cZd3c3fafmhFCEg1fvfzg5ike5I4Hoglili6gEIvdyIsg8hDgzGtfUfmfxfvcnije2hxiJikfdfUfSHbhviZi4gye9fEh8eYHwIFIFevfxi3iagDgvcjf7hYfahZeAhBGkf8fjgafEb2HDgxhah3ikeDgyb3hvijf7emhwbwIFIYcgdVcCIgHcf3fAgZe2HkIVbCHgHCIgHAgDfAh2HFc5cAgDfAh3IZH3I2bjgagXe4eFhaikeah")
AspCoding.EnCode("wdyh6engZhHgXI4HXbXgwCmhEiACMiDelgjg3cYcZGFI4HVbiGibpccf3f7emh4bDbVbhbCIgHCIECEg7f4bGh4bAgACAh2H3c5c1IZivimhEiACwb5b1IZH5hzengAhDfNhygzg5izhXb2b4cycUHkhjf5f3fEgygyikfaHxgAhngmeHg5b3G5IXgaf4iFCACMilCAhkhXb4H5bEbYchcWdpcYfahmg2Hui4iaf4iniDfWIVcodFiEgFC3IHgXdlhACAh5cZH5cZdEc4HZH2bvdQg5f7fyg8i8e1IZH1IUc")
AspCoding.EnCode("YcWIgIodlgnglh6gkekf6fYfaH7iEiweFh4i5c2H6fDf7fVbVcbizgYe2HfhDekf4gEgwejfxi5cWIgIhcCHfh8fahXeFhwejfkf3I3fkhDfvIlhFhEinGWIhbibpc7fZelh7hagzgFi3CvcDg7fvfDfng1G4HGg2bZH4HQg5flgvf7hDf5ciiXgkfYhFg3fZgmhHgig4eEe5huiXeAhzC7h8e1IXb1ITI3fkhngFCFhxc3dYc1G5I3IFili6e3IZH4b3G5bycUHBH3GXb2bxbPh3hlgvf6gAC1IZH2bBb2b")
AspCoding.EnCode("WIWdghkf3i5cegAixi3hlizCzhah3IoHhbpGgIfh8fah4gEgaizhah4builijf7hifkfyfng4glivfjfzgwb8g4ejgEhZeAgwIoHVcoddCyiFC4bgh5h5fyh4boiMicC4iDf4bpgkf5c6i3fviAiYfAghcWdpcCIVCYg3I7C5hwCEh4i6f5cEd5cqfYf6hlCng6fDfxIcikelgzf3IPizingzggdgICIibCICenf2HRfYfniMigezhEiwi1fjfAfYfah5cFc3IkG2HuhveYfzg3IpGCHpcpcCICIuiYf3h8f")
AspCoding.EnCode("AhweFhSe1fhflgjfjhnH8g5hkhAiZeAgvbVbVcgHhGibghjgAg4igdVcCIgHgHgHQgZeafng3hDf1fIg3fmgcfyh3fEixc8g3fkhFgYfAgvbWIgIhGhGibbijenhXdohme3IVbgICIgHghjgECmhhcWdpchGCIQg4iviZe4gDfNhce5h3icfwf4eAhwbDh5hkhFgYfAgxdWICHibibghzg4C4bif5ihcgIpcoimhG9ACVbhbhgkfnh1GegEhkf3hEgygyiah4bVbVchcCHfh8fkf5fEgygyikf2HQgmhjgZe")
AspCoding.EnCode("4gFh2eIgXgZfhiaCYCEiydDh5hkh8fmhlhychcWdpchfzhlg2HoiMiKfziFckH3IPixC5cugnCagFgyCnhydWhMiifxiXCycoHCHibodpgnf2Hpgxi7eEg7fvIiihiXgAg3CvI8g5hjgDeYf6fnHOfMidiZeFhycycyHOf1fifah5ixcVg2eKfyhnGmHGgTIjG2HPizingzghcCHibgHib9eNhbeafYflgDfwb3fjgmhAhli2eygahZhyimHpGhbibCICIti3CFi6gjfkf6fngzGefzgnhoHCHCIgHhgkfnh")
AspCoding.EnCode("2HWi5iWICHibVgYfTgFhWIgIfejenh5cgeEhyC3h8eygzhzgWICHVbgIdCEhximCliweagzg5cuiZe4g8fAhweFhH91fhf6ezhjhwbDh5hjg8fngECwIoHhbibfhagFC4bOfMiaiHg6c5cuhyiXdthbhag8fahYevIPhYf3h0gegyiAhjhvbhcVcgHib7fYf6f6gagxi6fYfxI8hlgweEgmh1GVg0ggf4iACgdVcodibohZh2HohahFiliFCxcWfIhXg6f4ixcOfMidiYfEgycnduingmC0gegxCAhvCwboi")
AspCoding.EnCode("1faixdycTH2HAbXdtgwfYfzg5cqengafngnili0gIgYCmgbgyhXg6enHFf3fafAi4i7evbhcVcgHOfYfSfFhhcVchgjeZf4bge8fzg4g8evfyixi3IWIVc5HBboHhbpGhbTG5HoHgIZfxhzf3I3hzhxijeWIhbnhaizf1G3hzhzgzgFiACEiWICHZfvfkg1GZf3gVbCHZf3gTH1IaHybzHIiZiEg3f4hXg6fngxb2IYI5GXGZb4i8e7bkdDbnelgmhDgEg7fmhEgFCmh7i6Cjc8G8I8I7clcAG8IUfYhye3h")
AspCoding.EnCode("xilfUfFeShYhmhYhmhDgmfkIwdkgZf4h2b4bXIqseKdQ0rHrYR9rerdqILOsTWKqfRoHhbkezg4bYfAhlgagEi4bAhmhFiAizfmh2HkfYfTgEghcCH5fagahzg7eEgAhBG1IggdfsiEdZdacECmhAhDhYfAhybwiZiDC8i3fFhxgnHYcYcZH3imiZH1IYcxdac1IGCggngXC5hlCkhliffaiFCFcUHffQhVCrgefqfHgb9Weyg5flgyiFiagYgAC3Idg3h4gZe6f6f2HffEiaiEemhEi5cnHwHaHzfnhmiyc")
AspCoding.EnCode("bVSG4HVbiG6fngEg1G5fyixizgHgFiYfAhFfmh6eybXe7fYfXgDfmhjf3gwhmhni8evI2bchIi9feebhybbgWgoipCbibgsfif9fVg3GmHWIhbvfnf3IYflg7f4bDfzi4izgoHhbng7flgyb4gjgZe4eAhhciGmhwClhZeWIhb4gagkfahxIxC7h4iyC5cXeagzgxiFi8elgoHhbZeah3i2HvfmeVbhbAhmhlh6gjfzgECngaH3hzhzhwgzCmh6fxcYcIgFiuivhaiyClh2bwITH2blGlIlb4HVbgIAgAi4h")
AspCoding.EnCode("4bIhviyi6fmhcfjfkfzgvIycoHCHCI3hagjezgybXejgag6f4igdWdpcECmhFh4b5fzhahxiFcyCyiDfyhygkfXihcCH4ixiZf3IFilCmiWIWdZITIgdhbgdhbEc5HhcWd4cTHTHGhEdHgTHTHHgFcBGHgTHHgFcFcHgHgEdHgHgGhHgBGTHTHTHTHFcFcBGGhFcFcTHTHTHTHGhFcFcHgBGTHGhBGTHHgHgBGTHFcFcHgHgFcTHGhoHhbZGVbiGYHDpGJpQEWgQHJ6WCqw9GPqRbKrqTrBpXPIqCq3IHRA9")
AspCoding.EnCode("RsGrvIpQEQuQSVnGPQIJLqdQTp5RfQ7RRQUWPQS9w9zVbQDq7VpQXVBWsgBgneyeybnije5WjOVbiGXIDWvR9RypVqbJLsuqw9dsqiSeZgwgvcnijeWICH5bDoqqJrFQMQoPJqUq5WBWGqZRMQXRVsIJtQDqHq3qbRhsVbCH4chiag8iH9Ahai5CyhFh3IAHAbkGlIzbAHAbjIlI5crhThYhkivc5fah2HxH2Hdgjgvi2HqfygYhxg8eAg4bRengAgYfEi7C3C3iwdVbhb5boHhb5bFcFcEdFcTHGhHgTHFc")
AspCoding.EnCode("FcTHFcFcTHHgFcEdFcHgEdHgHgEdGhEdGhFcTHFcEdFcTHTHGhEdHgTHTHHgFcBGHgTHHgFcFcHgHgEdHgHgGhHgBGTHTHoHCH2cUcpGhbEc2coHCHifZfGhui4iAg7evfzhjenH1IFg7eYfEixiXgkg4i4HvboHhbPeAhkeZf8f4gDfOhvfAgFh4bFc1GQgmhlhFivfkeahwb1IRgEixC3iFg5fDfWfyg7eDf1IvboHCHRg7fagZfEh5fliFi3ITH4bQgAfjgxhEgvIReZe6hAiZelhACwb3G4g7h3gkg4H")