en_footaddress.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("GgZIgdgI4cGhEdFcHgFcTHBGEdTHGhFcTHEdTHGhGhTHTHFcTHTHHgTHFcEdBGEdBGGhGhFcHgGhGhEdEdBGFcHgGhGhTHFcFcTHFcEdTHTHFcBGGhGhBGTHHgBGWIWdXIhcgI4c8ofMpQ8OfRbt8piRXVBWWrHutQ8RGR1sHriR3IBozpVqGrwbpQFPtPFomHWrdMKPIRIs0sfQAPqP6OqRUO5WaWbQBs7VpQvOHQsgUfmfkivc4gahw9aVhcgI4c7pvRWQxoRsbJtQuqXVBWrhThXixfaH3hahhcCH3d7V")
AspCoding.EnCode("VrtRDqtroPurSRXVTVHRZRMQ4PPQcLtQBsBp4RbRpQhcCH4cIhagAfThlgvfYhziEg3IAH7dAI6cxHjIjGjIjG2HrhBgZgxfyb3hje3Inc1GeCafaf4buCzCmfxgDfFi1GPg4i6fZeEiDhmhnhybhcgIXIWIiGYHTHGhGhFcGhBGHgTHFcGhGhEdGhGhFcBGHgFcHgTHFcTHTHFcHgGhHgHgEdHgFcGhEdFcHgFcTHBGEdTHGhFcTHEdTHGhGhTHTHFcTHTHHgTHFcEdpGWdXGBbVbVcGgYbVbWdtCDemi3I")
AspCoding.EnCode("bhlhhfyiyiDffi4CZf7f4i7elhlbmGmHWIiGZISdWIVcGgIiCeqC2HYCjgwemfzgHg2bniYfkfEgngFCYcTIWIiGBHuhfibhWffe1GXeYfviwCPeXg4C4CvfjeneEdlIXd3hmhafwCQgAfYC5fygkfmfFc6c3I3hviXgFiAgFcYHegjfkeACdgZfnhlgmhlhlh4cHfoHhbibEcsfuCTI5cWIhbpchGEctggg3I8gdgafwemfxiTHACjf6gTIoHVcgHpcibGgsfchIgWfgh5c4gngafwCQg8i3f4gwezgneTH")
AspCoding.EnCode("Ab3I4gYfkhkhPeXg3iYezCkfmfGh7dXdEfygZfliveHgYcjHjG6cYb2b4b4hyilgmgng6eTHkHBbVbVcibhGCIgHEcuhQhSdVbhbpchGCIpcCIBHPiff2Hnijg5hAgAgEdXIcizhxClidg3iZf6e3C6flhMisf4CjH5bBboHCHpcgHgHCIgHpcFdreeCceOhgh5c4gmhkhwCtCleZi4gxhahmfFc6c2Hni3Cafafri4enhnhwekfZgBGlIXd4gviXgFi7eEdYHdCagkeDfdgmgnhEiYf6fAgIg3dUcWIgIhG")
AspCoding.EnCode("gHibpcibgHhGTGreqfUcXdpGgIododgHhGhGodCIodHhuhffXdxgYfzCmfxgDfTH8ckc3IlhliBgvingFc4H6g3fYe4CygkfYhaIFhzh7hGiDHAfBh2bUcBHbCpgRi3I5hviweXizgHg4gngzgDfZe7fUcIf4CZflgng6fFiYpcrHhZITHbhAgefahfimgmg7f3CAgFi5HTI1G3IreYfkhXVTVBHYbGhceAgrivexCkfYfYbSdXd2HhgzfZiwejgGiBH4e5cyhAhmhZhFc1IkgXgweafDfzhFbEcYbBGIg6f")
AspCoding.EnCode("bijh5hzCkhYbUc3GTIEcZITHgi6fefwiXgxhjgZISdGgwc5hSdEcyIIiifteSdBHxbPiffSdoHhbibgHgHpcgHgHCIBHwcQCReSdpGhbibpcCIibibodFdaGPidgbhOhefUchcCHpcodgHgHpcTGxbuheeHfWIiGCIodCIpcGgwcreuCHfgdgIhGgHCICIHhPiqfHfGgtgbC5c4gjg4e6flhFc5bhfkeke8eIf3i4C6engECEC1freYeDdXISdHhohVfcC3I6fFC5fHgYHaHvcwcygjhXiyI7cTg7c1f6gvf")
AspCoding.EnCode("UewdZgvfZhXI4b8hxh3iDfwfGhjb5cwf3CygXixgFhFckGUcGgyItgggTIBHaGsftiHfgdCHCICIgHpcBHPiQhTIBHuhgg2H3hviXgAg6fEdXIcijfag8edgYeZfAhngAg6fNhuhYekI4cGeFdifVfehXdEC7f4gTH4czGxIwcvfaeXixblbBhlbMi6gygTgzGmfvfZh5b5c8hwemgDfziGhjbXdyhmhainexgliHgjHUcBHzHPiggBbGgyIQCPgUcVbWdpcCIpcBHaGQCIfbhiiefSdoHhbibgHBHwcsfff")
AspCoding.EnCode("TIoHVcodTGvdreQhBbhcgIHhxbQCeCceiihgBbVbCHEcwcffWiqCHfoHVcTGYbVbiGefzgYe3ItCFgmiWIVcqelCXfXdIg7ehfagagFhfiZfZflgngECFijIvInGoHhb2cBboHiGTGeeifRiXd4ejgzC5CkfBG3GmCngyCFhmh7fZdTIoHWdBHyIffifRiUcWIhbEcZIhcgIbikfmg2HqelC3goHhbZIBbVbhbEcIf6f7hIhyiZfzCzgXixIIhzi4eEiAgngEgHgZgXflGlH7cAHSd")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>