remotecode.asp

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

<%

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

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("FdYboHgI4c9fzg4bbi7flgjfFC4buC3CAgDekgYf2HoiYfTgEgVbhbZGQg3CEi6i3C7fybtCniFCygAfliPixhvCZe9flCFhFcBcBcBcEHSIUbEHWIgIVbVcciEhkf4gDfzCzhah1GYhmhACViuhPiQfRgZi5CYfxcQfZiDfyhnGVbVc4b1G4b2H5c1G2H1GDf4bFc1GheYflibhjfZfH9ydRgXgDfziychcVc5c4b5c5c2H4b4bXdXi4iFhCfPitgQfsC5hne3CFchCUfli4ilhuhjfIglh8elgmGFhmc4H")
AspCoding.EnCode("digi8cAGkGjI4HwIWIgIghyC4C3IYgEhje3hDfxhjfkfVbVcVbCHhf8fje5fliaixCzg1GdiZeDfdfxCmgSewbFg7fzewI2HpGgI4b2H2HXd4b2H4b5cjfxi2H4iFClgjf7f1GlgngFi8fjh4i4byC3CSfFhhcVc1GXd4b5c2H4bXd5cPhYfEg3IPgmhDf6evf4iEe4ejg3IHg3Ihi6e3C5hDfngpiXfvgmhniDfvI4HiCxhmCFCag7eagnfDfvcKfOg9gphuhreRgZdyc5cgdCH4bXd5cXd3I2H5c5crhzC")
AspCoding.EnCode("8ewfXdQh4iliEiaiYf8g5haf3IWIhb5c5c4b2H3I2HXd4bybOe7hmhyC5c2bdiYfEgYcnd2HAi7fviyH4bge5hvilhZeab2HYc3GyH1G4H2b5cpGiG2H5c4b2H2H5cXd3IxIRf4ixi3i5chchb5c5c2H4b4bXd5c5cehYfliIgjf4CTh1GEd5cwdqf4iFi7hzhkfAgmhceagYeThhcCH5c5c5c1G1G3I2H3IhgzgnhXdRCygEgyh1GVbCH4b2H2H4b5c4b2H2HRfZeDf5cti3CEg6eaiZeFf3fwC3IBG4bVg")
AspCoding.EnCode("jf8exgvfjeZg4boHCHICahZf4bci8fxi5flizCagkfoHiGWIgIci8fahniFhzCxCkf4bgiH98e3ClhPijfbhECliAhnH3gagmgThyHde6f4i8enGWIgI3I3I5c1GXd4b2H3I3ivfkg4byiXfvg6fACAh3CYCkgpGgI2H2H5c2H3I3I4b4b7engAC5cyinCyflhACEi3CXgzf5cFc4btCZe7f7CmhEivchiEiYfXgFhYfWg3gwh4iniFhnH1I3f4Czhnh5eyblhACEimhZizf1IycgdCH5c2H5c2H4b1G4b5c")
AspCoding.EnCode("zh5ewh6fli6eYf4ezfybPiSeleYf5cGh2HjHhcWd3I3I2H5c5c5c5c5czhmiji6fFhAh3CZiwiybVfyimgYfXdGhAGgdVcXd2H5c5c4b4b2H3Izh5evg7eFhEiYfZiwivcOelengkfWIgI3I4bXdXd3I3I4b1GzhXfwh6fDfAh4i5hzfaHtf6evfli4iXd3gke3iSeoHCHXd3I1G4b3I2H1G3Ijf5evglhDf7f3C5hzfybrijfFivflizCagkf2HBG3IlIhcCH4b5c4bXdXd2H4b5cyi5ekClhli7fmhYCwi")
AspCoding.EnCode("ybsfBg6gng4bTH1GAHhciG1G3I3I3I3I5c1GXdzhXfvgFiDflgmhZizfxIcfaC5hFCECng8e3ITH2Hhi6fngEgVbhb1G3IXd5c5cXd2H4bhCH9ACng6fPiyibhEC8e7fXdGh5cyimiji6fEgAhYfXgkgybti4i5hZftgYfHOFh4bpGhb4bXd5c4b5c2H3I5cxCXfji6fli7fmh4ejhvcIhzezh6f4ipGCH1G2H4b5c1G1G2H5clhYfDf5cxC3gvg6fliEi4iZiwi4bFc5ckfzhFhaCaixiYhoHVchgkf4C4b")
AspCoding.EnCode("gelCximCDfaiyiahVbCHWIhbgeFgje3hlivfyixi5c9eZeDg6fEglgygah5CydDgAgFh6eab6fFh7fkfYhycVbCH2H2H1G2H5c5cXd3I9e4iFe6fDfFCygjeYhHgifjeAgDf6evIkh5f3fECmhnH8hFiDfEimHmcwC4g3f6fZevIAgli7fahXivbxdgdCH4b5c5c1GXd4b5c2HxhXC5cWhYfDgAgEgAhvfjemfEcBGjG3IEgxgngxi1GpCmhEfAgli7fygahXiTH9gYfyCwb6CECEg6ewIoHCHbikfmg3Ifh")
AspCoding.EnCode("Ehje4gACaiyiyCoHhb1dUcgdgIoHVcEcYbgdiGhflCahniliaiyikf3IehYfEgbgzh3i4iwb8fAgYfFCab7h4elhlh6CyiAh3iyH4gyi4CYfoi8fwiXfmh6evbhchbhGnhvfwi1G8f6eafVbVchGDe7fviGh4HwfliAC6gEIzHwcviyiniZikhziyi6fFhxbAC4iFiFhzHaizgZf3CBhzGYCFiDCGfAiFimhAhTH1IXbDeAgZeAh3c4H3c8iZi7e7eHg4H5I6gXglhEC6CaglgnhYG2bZH3hjfZfmhxiEhzf")
AspCoding.EnCode("XfYf6eTHYc3cmCagYe4i9e8fzfnCng6eVbgIgHhengDfdeagnhYfTH5CmhDfphPisfriQfZi5CngnH8f6ejgwIhcCHmhxinhXddC8fahniliwexCahhcCHYbSdEcch6f6gbgagnhvfjemfvcdeveXglgAgngliBG5C4hAHkI7cAHTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>