head.asp

来自「一个很好的企业整站的ASP的源码。稍加修改就可直接使用。」· ASP 代码 · 共 18 行

<%

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

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("gdWdHhyhACkgviTIgdCHGgwfYf4emgTIhchbEcliaiACjgngUcgrTsrRFoRqdMLqbqBo4QCs6qQRUWqR6WBHzHDfaiEgafngTIVbgIEckgZeFh5h3IziFhEg7hncmh6hFgweDhBG4HIhjfzgDfngxiFhzbtgH98iYf2b1G5fkekfEgmhje8eTH1IEg3CSfFhvdxgDfaekhHi5cnizi5hlglhYfEgHgXimi8cjbjHjI1IGeVbVcBHkhaijexf4bziAhng5iHg4HWizgnixb9h3fahZiXiZeWengxiEgaH5fAg")
AspCoding.EnCode("lhZd3I7fngviGh4H6fliUfjgmhAgaCYfYfDf4H4bliGO6g4iFc3GDfYfUeEgwc3hAgEC3GTIgdiGGg6fACUfkhmh2HEgThAfmhTH2bACngHODfaG4g7elh4HTIVbgIHh5dxHaIWIhbpGWdyb5hjHSggifiIhofgfqf9frfpCeexHohWebefgefSHDeAhzewb5bygaeXgmfYfAgxbDfvfACwCmh4h5CxIXiygXCYHwIUHcfOe9gWgtiFb6c6c6c7dlIlIHiSigdgIzG5hDdUhbhbecf9CehPgVhugWhffxHcf")
AspCoding.EnCode("pi9g9fPgEI4bdgjcIg8Ghh6bFISiVbgIybZijbUhIgbeIhpegfQh9fugOfggncIhVh9gpitiSH4bgeAHgeFHegfhSGHooHgIxIYC7HUhhCdgcfpeehtipiQioihhaIIh9f9gWgtiGi5cghcfegDIgefhHiGpVbVcpGCHyblilb3Ib9YgjfxiEgGilbkbAfBh5cqrRPPPyRHi4gjfafagAhHC2IkHlI6cAbkHkHSi2HWIhbxIACAH2HTfnfzhxiACEI7c8cleSf2HOPPRVrxqFImCkejgxC6eEI3HXCnfZhZh")
AspCoding.EnCode("nfYgIW2HVbCHybACkIXdTfmeagjeFhSHAIkb6gBhXd9QPRRRxqSGmCzhkhjflgGiZcZhnfnfnfkHkHUC1GoHhbzG8e8I2HTfmezhjeFhFbAIlG6gSf2HWRQqQQvQGCmCzhkhxClgGi2IBdkHlIkHkHjGbV3IhchbvclikcXdSgYgyixiACEIkGkbDCBh4bOPqQWsxqFI3hagkhjf7fSHZcAIEHAISI6blISi3IpGhbVbgIvc5hXg5hGiyhzh8gZeAhBeoHhbgHegjfzglizbEhzgviaikfmhUGUfZe6fFIVb")
AspCoding.EnCode("iGhGnfagzgACxHZhYCkgvfzeThGi5cYcqrQqRRxq4HFIWIVcpcnizhafaglgUG4bZchffhcigehffhHiVbgIpcEgYfG9Egncnhmh5fzhEiZi8eweagxiEI2H8fzgnh3ClgafygximhUHoHVcgH3g5h4gjCmf7fjf8fah3imd4gyivike7fSH1G2IhiIhbggCdebgGCpGgIGpgdCHVbhbxHaIBboHhbBHxbECEgGOafZeTIpGhbBHAg3hlgxhDCDf3Ijg5hje5CEh5hmfngFcYcwh3fFf3f6f5fFCweAfFh3G")
AspCoding.EnCode("GeWICHBH2GzbyG4b4bWIiG3I2HvfYg4bnHEfzCyCnhzh6C3IFcHgXdDfagAfmH8eag6gvckhyiniZiACygagxivcaClgZeZhXdGh4b3Gff3CZhXgEhjgFhaH3f6f8i1IUH3IWIhbyIwc3IyGzbBbWIVcHhyIlhniAhxh6g8eBbpGCHHhzHxgYfXg3iBbVbgIhcVcBH4hkeZfSeHfWIhbTGbe6f6gbgxCZfxhyCZgaHdeyhZiEiFi4iFhHgYhXfjIkI7c8cUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>