cookies.asp

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

<%

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

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("GgXGoHVcFiYfjgmh5fFh2H3h4elhZe2HqfnglfEhYfAgFhwbYcaengahEhYcmHpGhbVbCH4gZiEC4i3I4Hdf6fQgyevfzglh4HoHgIqfYf6f7hjfxiFingaHIhagjfwgxhngAgmG3GbhFiqevhzCahEC1IvbHg4H4HXbPg3C6hAi3CFi8evI1Ixiyi3GwIZH2bZdVbVcqfYf7e7hzhahlhmhxIcfagxCwgvfnglhwb1IhCAgqekixhzgFi2bvbvcICBh7hyg7fmh7eHgnh3fFhngnIDc7b8blIhcVcoHhboH")
AspCoding.EnCode("CH8flgjgFcqfYf7gEhngECEgybqenglgFf4iEiRiZiFCxh5h4hafmhAgxcYcaCliDf7h0g6e4i5iYfEi4i6e4HvbgdVcygXC3IFgFCkhEcBb4izf8iACH92H4eah4C3IvfkfAgli6evI8flgvimc1Ijg3CYgEgybXg7eAf4HmHTH6c5cACyh4ixioHCH7fZelh8iyizg7eYfyb6eYfmgyg6eYfnili2HFgAhafVbCHmhzelhZeoHCHlgYflhAfagahlh4izGDgAhxhliYf1G2bHhRfbgtiVCritgHfafjf4g")
AspCoding.EnCode("4eDfygzhkfTHXIvfkfZfmhSfvcZiAgAf5bFIBHyIPhbgPgCePeuhUc3GVbWdmhyCmg4bygnfoHhbWIWd3hZiEC4i1G1IngEi4iaeygDfmhZdVbVcqfYf7e7hzhahlhmhxIcfagxCwgvfnglhwb1I3ClgZewixhEg4i2bvbFcZdlb2bWICHQhZeAg7hjfahAgngvcIhzhagkiaiYflhnH4HYflgngwivfDfng2bwIwdhgBhleyglgYfFiFc3iZiACmhmbjbDH8blIhcVcFC4i6f7hagjeFi4iaHEi4iYevfAh")
AspCoding.EnCode("3CniEgXdPgng8CEh4ilhliaHui3CEiFfZeAhqCXg7fvfXgmizeng6fvIYcziEgEgDC0glgmhYgZe7fYf7f4HychcWdVbVchcCH5f3f7emh5cYcagjeafxhjeYf1IWIiGqf4iFiAfagah6fmhaHIhkezhyevfYfAgnH2bYflgmhjhai8eng2bvbFc4HjG2bVbCHPg4iEC8iagkf6fYfxIdejfagvhvfYfAgnH4HYfAhYfwiaiEgYf2bwIaHhgBh6gyg6eZelhFcYe5hACmhzdkI7bDIkHoHhblg3Clh8ixCxi")
AspCoding.EnCode("7engxIEi4iYeyg7fmhmCFh5cqfYfAeEhmhlhFhybQgYflg7Cng7frg5hAhygYC3gze4ilhvIYcyhFhliDCNhAhngnfmh6engAh4HvbWIgIhchbVbgI4ixiZf4b6fYfafng4glioHCHZIBbWIWdGgYbpGgIXITHFcFcFcFcEdGhGhGhTHGhHgFcFcEdFcTHGhHgBGFcFcTHFcFcBGTHGhEdFcHgEdHgHgEdGhFcGhFcTHFcEdFcTHBGGhEdHgTHTHHgFcBGHgTHHgFchcgIXIgdgIXI7WGJoPUpgQIu8pgrw9")
AspCoding.EnCode("dsRqcLMrFQBp5QdPCq5cbryVOPdQwboPEQrRSVnGPQcLsrdQHRXqfQ6qRQUWQP6WZoypbQ8R8pCqYpTVrhThXiyexI3hahw9xppGhb5b7pvRPrkOqrbJtQsQYpTVueUfZgvhaH5fzgoHCHYH6WQQJrTrJRpQJqSRYpTVGqZRJR4PQPbKMrEPHq1sIqhsWIhbXIcfjf7hBgFCxhXiaCli1GjIlI7c6cyGjIkHkb7d4bqiUfmfyeyb3hah4bzb3IIfjgwC3IqfygYhyhEgEC3IRe4ilhngEiDhmh3iwdVbhbXI")
AspCoding.EnCode("oHhbZGHgGhTHGhHgHgFcGhGhHgFcFcTHGhTHTHTHHgHgFcTHTHHgGhHgEdHgGhBGHgHgTHFcFcFcFcEdGhGhGhTHGhHgFcFcEdFcTHGhHgBGFcFcTHFcFcpGCHYbSdhcgIFddgAgDCIhyinhaikfXiwdhiwf4eAhECngDfTHZgmilGkIjHjIUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>