downsmallclass_del.asp

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

<%

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

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("GgAgDfBgviZe3IDfBg8i4iHg1I8engTgFhyIXe6f6f4HTIhcVcTG3bncncoHCHaHXf5hniki0g7ejfEh8ewfygmgXe2Hb9gidgbgOigfQh9fth9ehhyGifVfdggfghSHEhAhkhxcZGygjh5hXiYfaGFhxhEgjg4inCXixImfvfnfXInGUHbgVhWf9fPgSHlIkHAbkH6c6cFIGpVbgIaHEg5h3gjgZe2elhyiDeFhaCxhYe4g4bSgIgIfIhCgcCQhpiPCoieeaIbgpiiiOeQhSH5cbeDbgiDHffDGEbIWVbhb")
AspCoding.EnCode("ybEgvfEgXdSgnfzhahFhaIECxhBf4iGi3I7cjc7hG9GCVbhbbVoHhbaHEgAh1flhagFgACyhxhnhni5cTfbhIfcfoffgPgpirfOfggzbbgOe9gVhReEI3IefhidCjdcidCEbIWhcCHzbzbUcgdWdEczHlhEgUfvi4iHfhcVcBHmgai7C5cXgwCygZgyCGhZd3h4ikfli3CEi4HHfVbWd3I3IBH6gUcYGzgXfAg8iHiGgyIleTIWIhb3I1GBHDf3f3gvi4i1G8hai3iDfwfTH4H7bAcBc1I1GXfzh6eZfnglg")
AspCoding.EnCode("BG4H6cYc3IXgvivfYhkfGh3G3hZekfDfng7f2b2H3hmhkhvileXgnhnhaikfneGh2bjI1I5cmC4ijgaf6fAfXgXevfzgYhTH4HAI4H3I5fkh3fFiFiHg4HFhXgXfjgmh0gAgkeDeFhziwenhmC2bGeWIhb3I3I2H4bGgACAhUcgdVc1G3I3I5c5c1GHhDf3i1Gyh4ivfmfveFhGh2bkb8b1I2H4gxCjg6f7h5hahHgZdkb4H5cnijgZiFilhFcZd4h5h4gxfNh6fagEhDfyhygmgmC2bBbHh3iaiFf4b3faf")
AspCoding.EnCode("vfZgzgFc4H5fngahEgZelg2bGeGgAgAfZiyCXdFiACThkh4iTH2bZhyiyCACncEfmhygmfziliSH5cmijfjg3iZdUc7VWstR8RtsXWSOmqqrEpprEsEczH6f7hYCzgTIBHyI3iwe8gHfGgwclimgTIpGgI3I4b3I1GBHzHDflgUchciG4b5c5c2HBHDf7f4bniviXg7e6fGh3GDflg0g7ejfAilixgyg3i5f2bHfVbiG4b1G2H2H3I2HHhnfzhAhjh5caengFhyhyiZfBG2b7hagAgliZd5cXg5fDfvfagje")
AspCoding.EnCode("TH1IchZfzfygkf0gff5hDfZigiXg5fvhFgAfxI5hAg6gHe4e3hliwezhyCGhceXg3hwgFgAf2bTIgdhb5cXd5c1G3I3I5c5cTGFhZf5cFexh3iDfwfBG2b8bkbSb2bTIBHmgzC8g2H5hkhxhZgyCGh4Hvi4iYgliYcBbhcWd4b4b3I2H4b2H3I4b2H4bGg6gXd3hkh5hFiFiTH2bDfvfDf1ITIEc6fAfXgah3IXejg5h7eAgHg4HFiACGOvi3C7b2bUcGQFWrqy9tswOU9YQYWEVPQcLMrFQIr2rcQiRgrTs")
AspCoding.EnCode("LrSVVsIJMRHsGq0shqarRQ79VsS9SpZQrqjsuRLRWQyVgrfP8VyQORVrLrSVMRdtVRdRDWvRteAHkHjHlIn9D9hPIqVrurjHkHkHkHMql9hcgITGXfAhGeoHgI3I1G2H5c5c3I3I5c2H4b2H4bfPyWqPEpPfqgYpBWBHlh7h5hxi1G4gkh5hFi6fBG2blhEgBgvi3C7cAI4HHflHUIAGkH6IkbEHlHGg3f3IDf5h7fXi4iEgTH4hjg3fzgvh3Ixg6eZeZhFc8emhyC3hZezgFhEIyIzHjhngEClhZi5C4iaG")
AspCoding.EnCode("BIFgaixiBGjbFHDcjG7b8cEHlHYGPhxhFhmhGhqRHusRBsGR5QIqCqIqqR8OdKqQl9erZRD9ILQqSr4d9hmhzg8fGhUfnglhHfHhygkg5C4b4hzhEi3iYfAhTH4HkH1I3IFi7f5fHgohkg4eZgmh7eyI7glfyiyCwCaiyCmhybXivfZh4bZiwCACFc4HRqIJtQTrIr5QHrgrcQqRD9bM9rxVfsZRFVbMQqUs2bUcBHwcYCUc7HjH6bjdUI6I7HSI8cTGyI6f6gZixiTIGggeWgVguh3Ime3f5fYfHgRi4i6e")
AspCoding.EnCode("nhZixi3fHfBH3f4bliZilgneYfFhBGXfjgXgjexf5czilgng5iTHFhYfahXemhjeDfSHyIzHjhYflhlh5hXiZeyITbEhaikfBGDblb7IDITcAdjcSIAHZHRfyg8eYfHgRqHutQ8RBp4RcQCqcQWrD9cJqQyWoRmQFVdKPRFRYGWemhxiDeGhGOmh7eTIHhygkgmf4b3gxCAh3i3CEiBG1IlIYc5c7eAh5fFcCejhZimfYf7exb6h6hzhahjgvfzg3CxImfxhZh4bXgwCFhTHYcWrIJMrTrHq2rGsCqIqqRUp")
AspCoding.EnCode("dKqQxVpqmQEWcJPRUs2bBbHhwcZiHfHhzHhf9fVgtgUcBH6f6g5hzg1G4gkh4eAgAgTHYcECACH9wCmhlb7c4HBb7bkcldDdjcFH6blIFHEcwc6f8iZikfTIEcdCpiVgQC3IYgYC3h3CGhRiYfEi4CZikf3fBbFdegWgOftg5cmeXg5fngFcRinglgYeXgzg5hTITG3f2HDfXgEiXiZeFhFcmiaf3fkfxf4bziEingmeTHFhZekf4gngjeDfGiwcyIkg4i6flh3fYhZexbHe8fvfzgTH7b6H6bkbDbTcDGlI")
AspCoding.EnCode("SbXbuivf8emhGhqRIJMrBsIr4RcQpQcQqRSofuPRyWCQmQFVfuPR8QXbVf4ixiFgTHThng6fTIHhygkgne1G4hyi6enh3CAhBG1IAb1I3I6fAh4gEdohwiYCXiZeAgyIDiDikeahafaijemhvcmfvfme4b5hkhFhGh1IPQIJLs8RBp3qIqCqbRVsEWfu9rl9oRyrD9dK9rUs2bBbGgzH5hHfGgxbhfVhVgtgSdHh4hAhUchcCH4b2H2H2H3I3I5c2H2H3I4b3I1G3IHhaGegWgOfPiSdFdFiDC5hah5c5fkh")
AspCoding.EnCode("5hFiECEdYc6fFhBgaf4i7cjHYcUcEpwRdrFOw9TV7djIlImdjbkd8b6cDHkcTd6cyHlHDbldlIlI7HlI6cxGAIlHDI8cAcUISI6G7I8ISbGg5e7fHfoHgI5c5c1G4b5c5c2H2H2H2H4b5c5c3IuPOQPqvPYpTVDgZeXfwiFiEgngEibf8hUfYhyeybXekfBH3g7fBboHhb4b4b5c1G3I4b4b5c2H1G4b4b3I3IKrNsRrIRYpHQBHXg1GwflgmhnfTH1IwfEgDf7hSHwcwcDgEf8hxIEfBgYhwgxIXejexbDi")
AspCoding.EnCode("Se8hbOSbaG1IBbxgEgDf7hEIvdxb7i6C7izGDgBgXikizG3hkfwcAeTh7iBfFHTGxb5hBbHhxbAgAfXgyCTIBHxblh7hXgyCBb2HEcZi3IziEimh5iEd2byhEgDf7hSHyIxblfThDgUgDdlbyb8hH9Xixfyb5fkfzH1ITIziDfDf6gFbyIaG7gThFeUgjIjHvc6CGOXijCyb3hxiBHxb5hUcFdnCEi2HxbTIoHVc5c2H5c5c2H3I5cXd5c3IXd3IGgEC7hYCah5c5fviYCFi6fTH2bECEgBgafnglc3GTIBH")
AspCoding.EnCode("Ag8iZizg3IXejgXglhAgBG4H6fDfBgvi4ikGlbYcUcTpNQUpIQ5WcrEcXg1GwfAhZenfHg1IveDfli8iEIyIwcEf8hEfybFeThnexfaH4gkfxb4HBbyhFhlileEIxbxb7iEfFeyb8hBgZgkiwdnizgBHzH3fTITGzHAg7h3fkfTIBHyI6f7h3fxiUcGgzH7hTIoHgI4b3I3I1G1G4b5c1G4bXdHhaGmgxh8gTIBHxbEg4CBbhcWd5c1G3I3I5c5c1G4bBHliYe4b7ivfZf8eyhGh2blbDblI4HTIFdmgvfDh")
AspCoding.EnCode("4b5hjgzCYhkfFcYc4g4ixiFh4iFC2bBbGg3f4bwflgmhnfGh1IxgACFh7hlhGiwczH7h3fUflHxI4gzivfkfXg4hXgjewgybXeagkgaHniyCvdriYCThFhyiGfDhNhwizC4CFcFHkb7IEHYcUcBHaiwimf3IFiFCniHgZdpgkgYCYh3ClhwcAfZiGOwiYfkfFhEC3gBg1flI7czGZgvfYgYc5cDgygYeEgxgGh1IkGAH8H4H3Izi4iweYhziliTH4HDHAH2b5cmiag6eZfmh6eTH1IlI3GHfEcwcXgTIEczH")
AspCoding.EnCode("nhvfDhGeHhaGDfZfTIoHhb2H4b4b4b5c1GGgxbZhyi7faeBbVbgI3I5cXd5cGgzHDf7fTIpGCH3I4bBHzHEg3f3gafmhHfhcVc3I2HHh6gHf5Iah3gAgleSGHhwcleBbgdhbTGyInhyg8gHfVbgIFdchFiDChikemgygxiXizGIhwfZi6elh4iDfTHne4hkbjblbkbTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>