en_ment1.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("EcZIWIWdXIaIzbaIyGxHxHxHxHE9mrVPaWqr79gQTQxHxHzbncncaIyGxHzbyGxHaIaIyGxHncncaIWIVcYHRqHurqEPHqXPcQpQFVfQJqZp9Rzq6WVrrP8R4bVbVcYHcekh5h4gwgpilCliMRdQEpmQXVGPwfEgFhAfSHyIzHDgEf8haHqiH9Zgxfyb4gkf3IVbgIXIyGyGzbncyGzbmdzbyGaIzbaIdRIuKqHRVsZqU9GsVrZPdRBVncncyGaIxHzbyGzbncxHxHyGVbhbnhxhjh3I6fngFC8gYfAhNhDh")
AspCoding.EnCode("AIndlhYfEi6ingEiMiDh8cgdhblhng7fDhZelgNhFflbHgbgFiFhAhwbti4ilfEhYf6fDfxIQg4i7fFfngAhrg4elgxh4e3gjgYfFiydZdViQCuhqhNhqfghfhbitiICti4HvbwIoHVcFiYfEi6iYflgMi7C8cHggCAgEgFCwbuCmhDi8f4iECliaHRfmhFC8gYf7frgZi6eyg3f3gvi4iAgvIZdQghgQhrgfeqf1fOfIfCibi3GvbychcCHYHifnf4bFi4ilgEeYfAh2eFfAIGgGe4HYc5ctgxg4ikfVbCH")
AspCoding.EnCode("5bhGxhme2H2HkgvfnhnHAgmhAh6iZelgNhDh7cyHEGabkhngzgxcEC4ilgFfYf7f0gEeAHwIvbBHHfAgYflgFfmh7fMi6ijI2H4bEgwfngahWIgIZGhGibtiZelhDCzhjeAgmhxIPgYfnhygFCmhniAC5c7englg6i4i6e0gFfkbpGhb4cgHYfjenh4bxhZhVbgIYHhgyCmg2HxhZh4bWIWdVbCH4cncaIncnczbncmdzbFWzVuQxq8obREW3QzbaIaInczbzbzbncncxHzbxHxHxHaIaIncxHoHgIhhygae")
AspCoding.EnCode("3IWh2eRgag6flindpCMicCmhFhabOfNhohximcpCMiifahYgyHoiMiKfzimcOf0g3inCmcVgLCmg3gECFhFCabZiaf4iFCli1fvfahXCagyH3fjg4i6eEg1fFgEivizIVgLCEgBg7hngxGRfYf5f1fciyi6ejhFimcRfYf5f1ffhyiEikg2ejf7hZekfzIQgZe5fMiciaglgwiyHahjfNhdeyhZe5fxfWICHhhvfkg4bch8ilejgxh3hZiDfwezhahrgXgvilC4ivI8HmHoHgIbeAf6gkhvf5fXgDfygjfah")
AspCoding.EnCode("ufZiviFgYfwblImHHg2bXIIVSGGo5hxiYebWydbWnGIVmhTgng5fbWygyClh4iFCliGoAgngvi4iXeEgHpnhZekh4iDfYfGoEh7hnh5hFhngHp4gxCFgkfFhbWnbIV1dbW5fziEiIVwiainhUivC5hlhEgYfAhGoEgAh8fah4gXglimhbW3hziZi7fbWZfYf5fjgXgEiYf4H3I5bHRdteRVqMPJRFVIuhcWdeC8iDCkhxh3h3fFhxhyixiqCZiafEhngnH7cycTHYcziDfEg8iHCwcyI6CDgDgwdrhGOYhki")
AspCoding.EnCode("aHniyCYcgHgHibodCIgHgHCIpchGCIgHCIpc4c7VUR7O7RTV8qRRGtLQapEpIQ79erFo2qtrD9oHCHIfAf7hviai4g4eDfxhkekfrgXgze8f4ixcjIwIFc4HRqHurqEPHqXPcQpQIRlpHqyQXVBWiq7r8oBVsqyWrr2Q8oQqWqfJJRJrFOGLTVkpUpoQFVxoLQJREWIu8p5VOQLRLQXWWQ7rw9ZV0fah1gkf1I4bXIIRAoTowqVrZPWqHsuqCPQRXWWIgIIf7h6gwCxhniYCliweagzgRiZizeFgYfwbAGvb")
AspCoding.EnCode("Fc7HgHhGibibibibibCIgHCIodCIgHibibibCIodibgHpcpcCIpcpcibpc3dSWnWgRlQEWbPVRcqSHlb3IJRF9cqrqGq3rF9JQRqHuuQ8p3IjI5cdQlpGRwqTVFPHR2q7oMR3IlH5cWsdMurAOUWcqKqBpFWaWLrS9osmr2HDb3IdQa9IryQcrBrQQIJurAOhcgIeC6g6gwCxhmC5hlivfyiyCRi3fafEh3CvI7HmHHgYcmeag7fkg7cUiYgagFCkgjI2bCIhGgHgHgHgHpcpchGibpcpcgHgHgHgHibpcpc")
AspCoding.EnCode("CIhGYHDW8oWQyVDVAPEpX9hcgIdg8iAfkhvf3h4eFhwejfkfrg3fkh8fngwb8bycBGlIibibpcgHhGibibCICIpcodpcCIgHgHgHCIhGgHCIibgHgHCIgHCIgH5bOQhrD9FRpQBqsRgQ8V7W9RyV7oAPUWX9ZoBW7d4b8oBVCqTRsRgQ4bAIXdCq8rLsprpGgIdg8i8izeyg5f5h8exhyikfuf4ekhEhmhwb7bwITH1IYCmgzfxhahxb1IodibgHpcpcCIpcpcibpcodibibCIgHibhGCIibgHibCICIpc5b")
AspCoding.EnCode("7WTWT9zrDpjqEpCQhQFVIR89yHuQBVDWZRPPlRuqEoTVDRQQj9ps8OGrDOVbhbVbCHWhNhWixiXdFc2Hch6gAfviai5fZilivfagxiqCZijglCngvI7dvbgdhbZiaf4iFCli1f8fAhwC3ITH2Hdg8ilejgvf4gZiliygagyCrgXgkhFgZenHjHmHoHVcZizemhEili1fvfkfnfzh5cFc3IbeAf7hzevf4gXg8evfyixirgXgvi8fmhnHkbnGVbiGOf1fEgUf7hYf3IGh4bfile6gkhxhni3f8exhzhzgrgZi")
AspCoding.EnCode("wCAingnHlHmHWIiGRfng3h1fhfag7fkg6f4bTH5cfi6gAfkhyg5fXgFhygagjete5hviDemhydDbnGWIhbQgng5fNhegxCAhwiLCyilengzg5cFc1GdgAf7hzexhni3fDfwezhahsh5hkhFgYfvIjdwIoHhbahzh0ggCyhYfniki3IFc5cch8iDCkhxh4g3fFhweagahuf5hjgFg4iwb7bvbhcVcRfmh5f1fhfaglgwi2HTH3Ilh6gzeygFhmGQgng5fMidCxCEivClhab2bHp2bvbhcVcpCMiifahYg2HFc")
AspCoding.EnCode("5c6f8ivivfEgxcpCMipgyCzI1ISC2bxdVbVcoHVczC5i2HvfahECEg7fnHjgni4eAgYfvIFi4ilg8g3Clg0gDhAInGyHaf5f3fFi4imGahyiMicfwfYf5fvhycycHgjG2HFhveYfzgWIiGoHVcpcXIpg5i2HQhYf6hDemh7eDfaHegjfAhzfGgBb2bYc1Gtgyhmhxi2HqeFhzh6gpgxikC4i4gDfvfjfzgmGqfng6h8fYfAgDfxIhfzh7fwiycWICHVbgIgHXIohYg3IReZe6hAiZelhACybQeFgmhlgBgRf")
AspCoding.EnCode("FhlgzCahXiFdUc3G1I3IPiziZezg2HPh8ezh8iifkfxemh3hFhxhzhzgnHPg3C7g8fmhlhFhxIrCEhYfEiH9QgliEixhxi5CvbVbgIoHhbhGXIohnf4bPgngDiEhmhlhlivccfzhjfxfvfngAgEcHf4H1I4btgvengah1GQgEgjf8iVCyCji3C3hFhxhjfahwbti4i8CAiYflhEgaHhiyijfkiaiYfAgycgdVcngyCmg3IzCZhgdhbhcCHcilCxi5fDfxhxCzg2HOf0gfizeng7fEgxcZijgngFCEg0gxhzg")
AspCoding.EnCode("mejfmHoHCHpcIiwejh5cFiDf7foHCHibFililg1GTH4b3GBH1I5I3GRfniEiyg6gli2HOh3fahneEh4emfYfHgpf5hFfXgPh3hEiwe6gFh2b3c4HGe2bVbgICIui3Cving5fDf2Hbg4e6fng4bOf1fEgUf6gYfVbCHpcpcbg3flhng2HAIVbgICIhGhGlhli6e4bEd4b7eEgAh3I5I2H2bDgzCah3ixC7izGag6g4ixiZelgTHahDekhviUH2HFexhahnhzh8hxI5fjgxCAgYfwbvbEb1IgdhbgHpchiXgFi")
AspCoding.EnCode("4i4b8cgdhbibCIgHlh8elg4bTH4bAgEgEi4bXb4bYcZiafmh7fDfnHXI1I3c3fafngAhEg2eygahmeag5I4HViACAC8iHCxbxbrhEf8hybqiH95CkiaH3hzg0fxiJikfgiH9SHIgviYCniwgoCFgEg3dvbGC8haikf3ixC7iaHjf7h3CzgYf7fHgxiDejgafFI5c7iygzg4CagDgyb4gzejf6fYfnHycHi3GVbVcpcgHcf3f6fmh5cDcWIiGgHibhG6fEglg1GTH5cFiEglg5cZH4b4Hkhke3h4eDfvfagkf")
AspCoding.EnCode("ybwflgmhZhFcZG1IXb5hviYf6eFhNhFglgvi4dYcXIUH4HoHgIhGgHbg5h6fYf3I7HWICHibgHpcFiEg7f4bHg2HAgFhlg3IYG1G2bZizemhFCFhmGXI2b5IXgafmhlgACNhaiyC5ike5I1I4cycSGjgjf3h4eFhaijfkfzGyhAhmhZhGhXI4H5IYCjgYfAhFhNhFgFCkhZHYc4cFIYchchbpc3Cahnh3IRfmhzeng3hDfVbgICIFiFhAh4bFc5c6fFh7f2HZH3I1IEc4HZH1IxbQgXelgxhleEg1IZHYcSd")
AspCoding.EnCode("ZdhcWdibAhmh6f7hzhxiFi3CvcEfAhygDf4i5c2HFili7fWIVcICximgXdegFgyC3hACxhyikf5cgdVcoHCHfhlCzg5fDfygyije3I3fjglixcAgEgFCwIWIhbCIhG7fYf6fAfyixi7emhvc7i7fvfDfYf4bYcEc1IYG4HPhXe7fyg6g8e2HiiZizgZgAi3fYhYfGhoe5hEe3fRf4g7fxhAfEg2bXbYcGeXgkhmhEiDfmG5b2b3I5I5cEClilg2HZH2H1IZGmHFIHh4HZH1IzHQg5fAhvf8ili1IZH2bTI4H")
AspCoding.EnCode("WIhbhgzgYe1GfhAije3hACxhkezg4bWIgIoHhbeglCahniACaikezg3Iuilike6gifahxemhniDfvfkeahwbDh5hkhFgYfAgxdWICHibfhzhlgXdgh3fnizi3IoiMieh4iAC4bohzg2HDh4ejgEhYflhWIgIpcibohZh5c6i3fkh8fYf6f3IHg5cqfYf7gEhng7eEgybgeaglgzf5cQCaC4iyCVbhbibgHiboh5i5ctC4i5fNhegjfEiwi1fyi8iYfzg5cEd5cAIXdtgxg3CahXdVbVcgHpcodpcRfYf3hlC")
AspCoding.EnCode("lgvfDfBgMigelgjfkgxc6iXgjglCngAgvbWIiGgHgHgHefviFiZeVbVcpcgHgHgHRfmhvi4i4g8e1fbh4eZfbgxg4e7fxc6iXgjgAiYflhmHVbiGibhGgHefzgZf4bifYg4bVbVchGCIghkhFiYfpGhbibCICIui3Cving5fDf1fIg4eZfbgyh3f7fvIFfXgafEhYfFiycWICHibCIefzgnh3IpgmepGhbpc9emhHOFhpGgIghzgmg2HfhFgyC3hlizCyije3IWIVchciGeg8fahXeFhaijfkf1GPhmhkhmh")
AspCoding.EnCode("3hEg1fIgYCmgcfyh5hAhvI7C5hafAi4iAgychchbpcdCzhAh3IOfNhJexgGhkH4btgag5cth4hzhAixiZfwbOf1fifzgYgycoHCHCIibpgme3IohjeAgEg7fxcCCgCZiECmhwbDh3fkhEh4iFiydoi1fehngDfycycyHoiMiifzg5iydoi0g0CxgwIxdHhSdAb5csfzi3CxioHCHibodCIOf1fdgviZelgDfvIZivinglgAC0gygahYgkemHoHCHgHpcpcRemhFi8ijfkf6fYfybbiximgpGCHibhGefzgmg")
AspCoding.EnCode("1Gif5ihcgICIoiYfBhDfVbiGghjeZf2Heg8fah5fEgxhzhxipGgIVbhbci8fje3hFhygagxiXduing5f8f7fyg8eUf0gfh7fjfkgnH8g3fkh8f4iFiwIoHhbCIhfagAh3IVg2eweGh6c1GuhxC4bseIgzhFgzgZfwbQg3C3hMidCyi6ekgwIhcVchGCI7fmh7e7hyikf6fZeyb8hAhxhFhng2HVgLCfgYfFhVbhbCIodohnf5cWizgFiliAhxcCCIh5hAgYfwb9e0gehYfFhwIzIuimh3hNhciyi7fjhnHOf")
AspCoding.EnCode("1fygwIycTH2HlI4btgvengah1GQgngaf4imCACMihC5hnhIhwf5hAhxc6iYCvi8fmhAgmHhcVcgHoi4iSfEghcWdbizg4C3IeglCahmCFhaijfxiXdhcCH5HBbgdgIoHCHGg2cpGgIZfygwi5c4gagyCzgWIhbmgwezf2H5fjfxixi7eFhEihcCHZfvfzf4b3imiWIiGZf4hBG4HxIxIaGffZiliXg3gZi6fmhzH1b5GZbXGXHYfEgDHDb7HZgAhmh7i8elgmhFhEiYfFe8hDb6I8Ijc6dlckI7HUfmfwgXe")
AspCoding.EnCode("kf7gThEfBfZgYfZgYf8hmfDcvckgZf4h1I2HXIWqfJIR4PdPZq9riPdqbMQqHPJReqWIgIjfah3I3CAhEixCEi1GlgngFiAiaeng2HahZeBhlioHCHXezhahahlhFhlgTH1IbCIgPfGh2bmbAg3CAhFf4iEixIwiZi7h8iYCFhyhvI4H2bYGmg4hZH2b1IwIac2bEbhh4i5i3fEhafDfffyglgFcUHffPgohrgfePgGhBeOgyg5fEixCECyiXCFh4bch5f3hmhFiFiXdIi7fxh8gYfEi5cnHzcvczfmgmixd")
AspCoding.EnCode("SiFIZdWIgIECmhAC4bnijfxiyCFc6fYfAh7Cng7faH4gEiZeXgDfngyimivgngmCEgvI2bdgee9fffdfaHhipi9eWhbihisfif9fOf2bychcgIwenf4bZe7flg3I8ewf4ixiWIgI4i7fAhaH3hzemh4e7foHgIYfkh6fngVbhbnikezgahybyiAfZeah4b4gagxiyCFiEg7foHCHngjeZf3IxhnfoHgI7fng6f7hjfxiFingaH3hagjfwgxhngAgmG3GbhFiqevhzCah7e1IvbHg1IAHAbAIZdVbVcECAi5e")
AspCoding.EnCode("3Ibgviyi7engcfzhjeahxcmHoHiGib3hzhahahxI5fjgxCAgYfVbhbibAg3CFh2HniyizgxiFcahyiACyhxhzgmfVbiGngahZf4bAgFgmiVbhbYbUchcCHVbCHBH5HWIgI4cTHTHHgGhHgBGHgGhBGHgHgTHFcEdEdFcEdGhGhGhTHGhGhFcFcEdFcTHGhHgTHFcFcTHFcFcTHHgFcEdFcHgEdHgHgEdGhEdGhFcTHFcEdFcTHTHGhgdgIYHoHgI4c8oGJpQFVprfL7ViRvOTVqRbKsREPBp5QcQpQ5cbrao")
AspCoding.EnCode("VqGrxcpQEQuQEpvbWrcLMRcPTpXqePlQQRSVQP8pw9j9cR8RS9pQ5WHQrhSeYhyeaH5fzgYpzWoHgI5bDWmrVPzVVqIKMrsQZoBWrhBgZgkiwdnizgoHCHYH7VPPsQ8RKqpQLQSRYpTVTpYqMQ0rWrIJtQDqGR5QbRCqWIgIZGdezh8iSeAhzCYhveEg4bjIlIjHAbaIDdAb8c7d5cueBgZgkivcXezg2Hzb1Gchviaf2HRexhYhyhFhlh3IqfngECng7fDhmhnhxIgdhbYHhcVcXIFcFcGhFcEdGhGhHgTH")