footaddress.asp

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

<%

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

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("GgYbgdiGYHFcBGBGHgHgHgHgFcBGEdGhTHHgFcTHHgGhGhTHHgEdEdGhGhEdHgFcHgEdTHFcTHHgHgFcHgFcGhFcFcFcEdHgGhFcFcEdHgTHFcFcGhGhBGTHEdGhWIgIXIVbCHXI7WeLiRFVeqHJ6WiRw9TVVsdMrq8RIr3qbRCq5cGqxWWRIRxchsEQLrEpycPQbKsrbqGq5Rir6qRQ79QP8pZoypdqDqDooPYpcrsgGOmfkiwd4gzgYpk9hcVc4cE9wq9RaW9QIKsRJrw9crrhUfXiwgzGmCxioHWd4cDo")
AspCoding.EnCode("QQJrTrKqiRurSR5WcrHRyrKq5qPQcLMrTrToXPbRgrWIgIXIIhzhDCBglgxhXiyhDf4b8ckHlbAbaIDdkHAHjG2HRCH95Cwgvcnije2HxH1Gdgvikh3IuCweZgaC8eAg4buCYfECmh7fDhmhZfvcoHVc3dWIWdYHBGHgHgFcTHGhGhHgGhEdTHGhHgGhBGEdGhGhTHGhGhFcGhTHHgHgHgGhEdBGTHFcBGBGHgHgHgHgFcBGEdGhTHHgFcTHHgGhGhTHHgEdEdGhGhEdWIVcZISdoHVcBHZIWIVcQgAi4h5c")
AspCoding.EnCode("giFidCagzhlifi4Cmg7f4iFilhlbmGmHgdhbZITIWIhbBHggohRi3IXgkhygYhzgFc1ImC3CahEg4iAh1IBbhchbHhtgdggiCCef5c5f4iafkhri5hnhmgaiahmfFcjG2HXeYfkhkhqele3fniygyCmfFc7d3I4gafZiFiFiFc4cfhagzhDfchmg3iEi4ilh6f4cTIpGWdpcBHQCtiGe2HhcVcibCIEctghh5c8gfikhxhmfxiFclikeleTIhcgICICIibHhQCdgIgOhbi4b5fmhviafPh7hXgmCvfkfneTH")
AspCoding.EnCode("7d5cmCngviviPe3fZfYeygxiYhHg7d1GDgzCYeEgyhEd4H6dAbkHYb2b2HmijfEi4CngFCTHjGTIWIVcgHibibCIHhQCqfBbWIhbhGodibibgHHhuhIi4b5fjgXgAglhEdZGhfyike8edgmgmglg4i7eECNhsfmg7cYHTIVbhbgHCIododibibFdtgfiIgCCef5c5fngjgviQg8i5hniaixi5CHgAb5cni3CjgafriZinhnhwekf5CGhlI3I4gkh3fAglhFcXIegzhagFhdg3imgFC3ClhAggi5bTIVbVcib")
AspCoding.EnCode("ibCICIpcodgHEcsftiHf4bhchbibCIpcibgHpchGgHTGsfhh4bveZevfXixgACTH8cjd3IAgDfH9vi4iFcYc7hXgnhZfxhzgXinclizhAfGi6IleHOYcHfFdIiCeuf5cZikhygXizgGhningxiFhmh7fUc793rLPSoXVcrGgZIHgbhlheCmgmgAh4ilh6fYbUc2H4bUWwRcs7pYpGPBH1dFchCAgrizikekfYfXGTI5c4bhgvC4eygwCUGGg5hXdwfFCmhnfGh2bzfZivfviACagHCBHXGHgIgFiefjh5hyg")
AspCoding.EnCode("kh1dHf2bTIHhXGEdbhlhefjh5haikh5HTIGgyI5hSdTGzHIiCeteTIGgyItgIiGegdhbgHCIpcgHCIibibBHyIQCuCBbVbWdCIpcCIodgHpcBHyItgfiIgiighUchcVcodCIibpcpcFdyIsfIiUcVbhbhGgHodibGgyItgQhHfWIhbpcCICIibGguhPgUcGgQCbC4b4gvi5hAglhFc5bfhagaglieCZf3i7f4i6flhMiuhnhjI4cBbBHWiWegf1G6fAh3hBGZGaHvcyIzCzfXivdAITgjHMi8iaiG9vcYhyg")
AspCoding.EnCode("ZhYH4bDgai3iliyhTHDc3Ive3CaimfaCliBGjHUcEcxbtgIiTIHhwctgtiBbVbCHpcpcpchGTGtgtiTIGgtghh4bmCjgXglhFiGhYHfhyijfFhchmg4C7fYf7e6fLCPi4CkI4cUcTGifVfhe3IFiAh4gEdZGxIwdaGygjh5CzH6dBhjHNh7hvfG9aHXizCYg3d2HFeygmgliwfGhjb3Iyh3CvfYhxgFhBG6dBbHhzHuhhhUcHhzHtgPgTIVbWdhGgHpcTGaGtgdgIg9gbiGegdhbgHCIEczHtghhBboHgIod")
AspCoding.EnCode("FdxbuhuCTIhcgIFdzHPiIfIg9gbiTIhchbEcwcIiVCrgBbhcVcFdZIoHVcbiahnh1GRflC4hWIgIQgEhXf3IbhFiegagzhEgchmg3ilg3CEClhjIxcvbWIhb2cBbVbgIGgIiVCuf5c3fvivfYhxiGh2b4g4iahDf4i6e4HGeoHhbHhaGeeifRiTIgdCHEc1dWIgIefxi3i5cuiAi4hWIhb5HBbWIVcEcfilhAfhiagYezCximfwdhive3fEiFimhEgFcZg4h8ckI7ckbBb")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>