en_foot.asp

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

<%

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

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("BHZIpGgI3dHgFcHgFcBGEdTHEdHgBGTHHgHgGhFcTHTHHgHgEdFcHgHgBGTHGhFcGhTHBGBGBGTHFcEdBGHgEdEdTHBGBGEdHgEdGhGhTHEdHgTHEdTHHgTHTHFchcgI5bhcgI4c6VeLpQFVgQbtUOiRYpBWqRbKrqDqIr5QcQCq4bbrzpRsIRxciR8qLrFoycqRIJMRIRHR4QePlQOrEpVs8pWIgIYHS9QQJrDqJRpQJqSRYpBWWrIJsRFQbs4RHrpQWIiGXIdejf7hBglgvfYhyh8e3I8cjG6dkHxHkb7d")
AspCoding.EnCode("DdkH3ItfH9newgvc5fje5czb4bchkhvi3IPgygnewfDflh4btimh7eng7f6imhnhwd4bVbVcZGHgFcHgTHFcTHTHFcHgGhHgHgEdHgFcGhEdFcHgFcTHBGEdTHGhFcTHEdTHGhGhTHTHFcTHTHHgTHFcEdBGEdBGGhGhFcHgGhGhEdEdBGFcHgGhGhoHVc2cHfhcWdBHzHPieeBbHhaGsfPgGeGgvdtgfiIgiifeSdoHWdGgaGffpgrgBbhcCHoHgIGg1dhcgIXIBGTHGhFcGhTHBGBGBGTHFcEdBGHgEdEd")
AspCoding.EnCode("THBGBGEdHgEdGhGhTHEdHgTHEdTHHgTHTHFcFcHgGhFcHgFcHgFcTHHgTHBGEdHgTHGhHgGhGhGhFcTHTHVbhb4coHWdXIU9GJCqD9hPfL7ViRXVTVqRHuuPFQIr5QGspQ3IHRzpqrdQxcCqDRuQUWwIPQbKsrIRHR4QCs7ROrEpqRDoXVxobQDq7ViRYpBWrhSeZgkizGmCkfYpzWgdWdYH8VyQPrxoWRdLtQrPw9BWrhThYhkixI4gzgpGCHYH6WqqJrDqLPiRLQFr5WBWIsYqKq0rQPIJMr8RBp2rcQpQ")
AspCoding.EnCode("hcgI5bbgagDCBgEixh5CziEg5cAHjG6dkHzb8ckHDdkH4brhUfmfkiaH5fzg2HncXdbewCze4bQhaiZgyhFhECXdRe4iAgmhAhFf4i3iaHhcWdYHoHVcZGGhGhBGTHHgBGHgEdHgFcHgFcBGEdTHEdHgBGTHHgHgGhFcTHTHHgHgEdFcHgHgBGTHGhFcGhTHBGBGBGTHFcEdBGHgEdEdTHBGBGEdHgEdGhGhTHgdgI5HSdoHgIBH5HhcVcQgEhmi3IgiAgcijfagDfbe4Cmg7fmhAglhlbwbycoHCHYbBbhc")
AspCoding.EnCode("CHFdggWirg4bZizeaiZgzgHg1I4gYfjeDf4i7fZdHfWIgIBHPiIfgiOhhg2H3hngafkhriXgmgZfzCzgXiTHlI1G4gZeafkhQg6g3f3hxhjeZgFcjGXd5faf5hECECTHXIhfyikeEgfiZfYeEimhlhlh5bUcWIgICITGsfqfBb4bhchbhGCIBHPihh4b7CchkhainezgFcEgjf8iHfoHVcCIibCIGgQCdggiOhIC5c4g4iafzetCAf5hnivfyCmfGhAb2H5f4iafafRg3f3i4CweyCneGhAb5cDgxhnhACaC")
AspCoding.EnCode("BGYcAIAbAb5HYc5cXfyiFCZfYfEiBGAbBbpGCHCIhGCIodGgPiPgUcpGWdgHodCIhGgHGgtghh5c5fafXgAgECFcXIegkejfFhfinhZf6eZe7e6fMiQCYeAI3dSdoHiGhGodCIodibibBHQCdgdfCCef3I5fYfviviQg7hZi4gaizgXiTHlI2HXe3CjgafqhXgnhnhxhximfTHAb4bniafYCAgFiHg5bcikeyiEgdgmgmglgYf7e6fgiYHSdoHgICIgHpcgHpcibCIBHuhPgHf4bhcgICIgHodCIpcgHCIhG")
AspCoding.EnCode("Ggreff4bxgngvfYhyh8eHg8c7GXd6fDfThwC3CTH1IAfZiYemgaikfnencFhzh7hFblc6gTg1IGeBHffohsh5c5hzeygmfxiGh3h3CahFh4i6eTIfimgZfEiYf6fFiXVBWGgZIEdIgFighyCfimg3i7fZeEC6fYbUc2HXdsfmhkhYpHQEc5HTHIg6friaCkeyCZeYbBb5c3IghjhYCzCzeGiGg5h4bwfEi4infFcZdzf3faizeFhzhUGBHZIBGIgEChgwiXgaize1dHfZdTITG5HHgIglhbizf3fygjg1dUc")
AspCoding.EnCode("GgyI4eHfHhwchhifteGeTGzHPibCGeWIWdodgHhGhGodCIodHhxbsfuCTIoHWdgHCIgHgHpcpcGgxbPidggi9gbiHfWICHhGodCIgHibGgxbuhhhUcoHCHibibpcgHFdyIPiPgBbhciGpcCICICIGgtgqfGeBHPiffXd5fjgXg6fFiTH4cfhagjfFhdgZfnhEingAg6fLCtg3iAHXIGeGgCeVfeh3IAg7f3hGhZGxIvcaGzCzfmfxb6dHOjH0gAfaiUexIXivfme4c4b8hxhnhlixgHgkI1GwfYfxhYhziFh")
AspCoding.EnCode("BGAIHfEcxbuhbCBbHhwcrePgUcWICHpcgHgHpcGguhPgTIFdtgIi4bmCviXgFi6fBG3dhfzhyiDfeCZfnhAhYf6fFi1fsfmglH4cSdTGVCWeeh4bFilg3hGh3dwdzGwcygjhYhzH7cG9jHMiDCvfSfvcnexhZhZG2HDgwemgACxgFckI5cve3Cvf5Cxg8eTHAITIHhwcsfffTIGgvdPiPgTIpGCHibpcibBHaGrebedfiiICGeWIWdodgHTGaGQCggSdVbhbgHFdyIsfuCHfWICHBHwcPidgbhiihgUcWIVc")
AspCoding.EnCode("BHyIffCeqCTIoHhbGgYbVbhbbikfZf4bPhAiXfgdgIuiFg4h5cceFiegagagEgdgZfYe7f4i6fECAHvIwIoHVc5HUcVbgIBHhhpguf4bZijgygmfyCHgYc5fngjeEgZe7f2bTIWICHHhxbeepgRiGegdCHBHYbgdWdefzgZf5cqeFgmioHiG2cBbVbhbVbVcGgQgbgReifQfuh4biich9efgrffiehghEd2bChZiEeXgui4g7faiAfDfYcTIfhagagAC9gyiYhxChiAIxcmHTGvdRfIhtiifsCsfBbVbCHoH")
AspCoding.EnCode("VcBH5Hygnf5cEC8eFCqevhxhxiAg4bHhEdXdkG6clI4b5hkf3i5c6fliFCRfxfaijelh4bGeTH3IkG3IACxg4izg2cGegdCHFdZIde3fjgjg4bgi6fhfagagACfimgmg6eYflhFilbnHnGXGGeoHVcFdqebguCVCQfre1GCCdgpCehthIfcChgTHZdpfXgFf3fuinilgxh8iEgYcTIbikfegjfkeACOgYfahFgwbvbHhwcRfcfQhohrisfSdWIVcWIhbEcXG4ijgAgngygYg2H7eDfEiRfjCvfzgAg2HEcTH")
AspCoding.EnCode("5clbDIkH4bXgkfnh5cAgEg7ftCwgaikfAg1GTIBG2HlblIAI2HFhyhZezg2cGegdCHBHPhgCuCifRgsf5cVedgoigfsefiehghGh2b9iXg8gXgqe5f7fxh7hli2bGehgkfcizhzhAC9hmhxiDevIycGgzHuicfqfWiRguhTIWIWdGg2cIhYCvijg5cdf7edCjfzhliIf4CZfAhmh6f6f7cnHmHZIHfhcWdpGWdTGYbmhviAgmhxhXCXd7elilgPhvhvfxiFi2HEcEd2HAH6cjG4b5hjeZf3I7eEgFCQgkiyg")
AspCoding.EnCode("xi7eXdHfEd3IkG6HAI3IFhziYfkfZITIgdVcGgZIde3fkhvi4bdf7egekejflieCYemgFC3C6f7ekGydwI1dBbVbCHFdQgcfuCifRgsf2HiifiVgehQidgdihgFc4Hig3fEeYCQg5fAhyg7hFh2bUcefkffhzhyiDfiCngxiFgwbycTGwcQgbgPgpgRgsfGeoHVcBH1dYfzgmg2Hainf2cBbWICHVbgIBHhhWirg3I3fwCygXikfHg3G4gZekfFhnglg4HBbVbiGGgPibehCWfef4bmC3CafjgQfZiYemgai")
AspCoding.EnCode("kfneFcAb4b3hmhvijgQg6g4e5fvfahYhFcAb1G4gafZilhlhEd5bfhyikeEghiagAfH97fvfXixgFhXITIgdgIpcHhQCtiTIEcsfeeXd5fkhZi6fECTH5b4hjfDflijfzf0gsf3iWCRe3dGeHhohCifg4blhFCmCBG4cxIybxbvfwiXizH7cHOjH1f8iweBhybnevfYgZG3I6Cyg3iEgziBG8d2HaCngwemfxgEgGh7cHfBHyItgbCUcGgyIreqfBbhchbBHXGpGiGRfliGOzengLCgCjfleSeXdHgXdAhmh")
AspCoding.EnCode("AfwCXg5f3CnHlgYfAfviZi4gmhxclg4i6gvi3f4gYfmGtCEgUfkhngNhIhzh8iUfyH2bZbgi6fICzghiagjh8i4exiBgVgXgkgng4HxGdfFiefyCcfagkgAfZikfH9WhXgzfmhwIyH2b1cIgAgtf3C3gYcyHIg7esgZeXfvbzI1IXHghBhZe4gAi8ezCjfkfuhzCvCYf1IyH5iweTgxcnH8eaijhmhAhwbycaIQgEg4e7fsfxhjh4ivbvGAIkH6cAbvbxdVbhbtiZeAg8iagkfFiYfaHqilgxhEgngXdQgli")
AspCoding.EnCode("ThwC4i0ghijfleGOoHhb2cHfgdCHibHhsfqfUcBHsfgg2Hzi3Cwe5CveFhGhlcTIHhohiCcC1GFilg3hGhYHvcvczHaivCmfzH7cUelbNhlevfTgzGZgzCYg4c3I7iwe4CDfaCHgAG2HxgngxhXiwfDfHgAISdEcyItgeeHfHhwcuhqfGepGiGBHwcQCbeIgCCICHfpGiGFdyIbCohshHfgdgIBH1doHgI5f3fvivi3IIhviagFinghijfzgkfmGxdWICHYbTIVbhbHhwcXfjfnhThUcoHWdGgwcogghfiee")
AspCoding.EnCode("UcGgoghgdgggHf1GoHVcBHiCeftgdg2HVisfPiqhaIefRhugifshFc1IRgqfeCfgCiIf1I1GbgOeOfuhhgVgsfGh2b9eWgncdeeCcfCfghZdSd2HGg1HncyG3IB9IuLPbryqjWhqhqgrSRBVTVEoyQuQ6Weqmr4byGaIHfhchbHhvdphghfieeTI5cWICHEczHwflikgkhTIWIWdGgfilhDChiag3ivfje5CaHIhzi3fFC6fmhFhTHmfmiAHlHAIAHUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>