en_clear.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("EcZIWIWdXIHgGhHgBGTHTHTHTHFcFcEdGhFcFcTHTHTHBGGhFcFcHgBGTHGhBGTHHgHgBGTHFcFcTHHgGhTHGhTHGhBGGhBGTHTHHgTHGhTHHgGhGhFcBGHgGhGhhcCHZGVbhbYH6VeLhsD9fRIu8ppQXVGPPQIJrqFQBp4RcQpQ2HGqzpqrGrvIpQ8qrREpwIRqIJMRcPBoXqirAPPq6ORqUOXVaWcRFQ8pCqXVdsrhH95CkizG4gzgw9k9pGgIYHDWnsOqj99QGuuPuq5WBWrhThZgxfxImCzgoHgI5b6W")
AspCoding.EnCode("RRKs8RLPgrJqSRw9BWGqyrus5qRqIJtQDqTo4RIqpQVbgIXIhizh7hBgEiaimfyhDf2HAHlIAI6cxHAHlIkblIXdsgThnewgxI5fxi5cnc5ceCkhkh4bqfxhZgziliEC5cqfmhAgZeEi6iYf3ivcpGCH5bgdVcXIEdHgHgEdGhFcGhFcTHFcEdFcTHBGGhEdHgTHTHHgFcBGHgTHHgFcFcHgHgEdHgHgGhHgBGTHTHTHTHFcFcEdGhFcFcTHTHTHBGGhFcFcHgBGTHGhpGCHZITIpGCHEc2coHgIPh8f4h2H")
AspCoding.EnCode("qhDeFhrejfRfxgjf7hdfXgYhwb5cXe6g4hjhmc2HPeAhzhZfFgniACiiyg6fDf2HwIpGCHpgZh2HWfngkfnHQfAhjf3iAi4gDfOhyg6fEgvb3IHg1GjG4bPivemhyCVbWdRgAhagZf8f3hEgCCxhFiAC5cBG3I1I4cYc1G5I2H3hDC4hwi2HZH1G2b5b2bVbhbhgafAg3Cpgnf3IohahQgAClgmG5cqhlgyinhEhniACOhxhAgDfab1G4g7hXfjh3IwI5cHhGh3I6c5csfyhYfkfoHgIRgEijfZfFg3hEgCC")
AspCoding.EnCode("yglh8e3IHg2HriEiyi3ilC3hFhOhvflhEg5c3cXdYcyH4bXI3G5c3c2Hni8i5ezf4b4d5c1I3d1IWIWdghxinh5cif5igdVcefjenhXdQg8fXfWIVcXGTIoHgIhcVcGgZIgdgIXIGhHgBGTHTHTHTHFcFcEdGhFcFcTHTHTHBGGhFcFcHgBGTHGhBGTHHgHgBGTHFcFcTHHgGhTHGhTHGhBGGhBGTHTHHgTHGhTHHgGhGhFcBGHgGhGhFcoHiG5bVbCHXIU9fMgrFVgQIu8piRZoHQqRbKtQFQGR5QcQpQ4b")
AspCoding.EnCode("TpA9qrIRnHCqDRuQSVvbqRIJKPcPGqNreP6q9sUWVs7V5WzVbQFQ6WiRvOBWqiGOXiyexI4gxiw9yoWICH5bFOwqPryp9QHtrquq5WBWrhBgmfwgwd4gkfWIhb5b7VWstREPtrCqKRFr5WBWbrxsKq5qqRHurqEPGR3qcQCqWIgI4cIhzh6gH9EivfYhwfDf2HjIlI7ckHxHjIAbjI7d3IrhSeZgwgaHnixi5cncXdchkhkh2HQhygXiziACFi2HQhng7e4iEiFf4i3izGoHhb3dhcgI3dHgHgEdGhFcGhFc")
AspCoding.EnCode("THFcEdFcTHBGGhEdHgTHTHHgFcBGHgTHHgFcFcHgHgEdHgHgGhHgBGTHTHTHTHFcFcEdGhFcFcTHTHTHBGGhFcFcHgBGTHGhBGoHgIZIGeoHVcEc5HWIhbCfmh3fnhBG2bbe7fDfyg5fkhYfAg4bFhzi4eEg4bThyi8f1G7hEhDf3IliaC4i3I6fwfjf6glevfzgYh2H5fXg7fDf2Hyh3f6i4i3IXfmhngkf3IAhngEgDe6eah4iYe4bvOYWZd3I5boRbuUpoq9R6sGqcrOskrDoSVSVer9r7PiRUpsqJsOq")
AspCoding.EnCode("A9OQcuQPVqTW2qVbhbWICHQg3CAg6fygzhahvIZdRg6eyinhFgniFhOhaiECFh2bwI2HGh1G1I2boHhbZITIhchbHhxgliwiafBboHCHBHxgngZiZfHfWIhbGgvCngFh4e3IxgDfli8inc4i8CEhxhDhTH2bbgyixiAC4ikfFhaIreH98iYfYc5cXejfahAC4izgACHg1IACmhG9FhwcwflivCviUH1G3haCXg7f6fngliBGZgXfjIDc7cjI1ISdWIgIHhjgwekfxf2HwfEi4iXCGhYcvcaHzHifje3hwchi")
AspCoding.EnCode("Ag7eaH3h7e6f1I3I6eYfviFc4HAgFhUfkhYflhvemhZeDf4H3IDfThAfngGh2bliZeTgFhxbni6f7e2bBboHgIEcACaiEgafYfHfbgzeYfXgAh2HYfkgAfDfUf4b6fziyi6gAfxhzgmf3I3hXglg8eTGxbliweFhwCmhSdWIhbGgzHwfmhXg4CBbhcWdEc5eagmgH95c8eagAfjhYCAhXivfkfBG2b8b2b4b4hZg5fagwCag7fHg2b1bng3CngZe4imh1IUcVbhbEc4CxhDh3I3fkhweZgahTH2b4gngxiFh")
AspCoding.EnCode("mhlgYcUcBH3hYfkfDfnglgUcoHCHGgFhXgnCjgmh1GDgygZfliziFcYc6dAbAbYb4H4b3gyiEi4C4i7fGh1IjGYc5c5fviZi7e6fGhZdliXgnCjgng6d2b5c4hyi7f3i3CEi5fkekhxClgTH4H2IlclGdgcfegciYc3I4g3Cjgjglh6g4e5fvfkfmfFcYc7d2b5cUcoHCHBH8eAhUchcgITGDfnh1GEfygmg8ewfFcYcFHlIYb4H4bFf5hzexhnekfTH1IDfzhAf1IBbYWn9TG6g4b5hvivfneahGh4H4g4i")
AspCoding.EnCode("yCling7f4H2HTITG5HHgphYf3fmg5HHfBHxbAfUchcgIBH7h3I3fjgxhZgzgBG3G3h4ijeFh3CAhZdTIYWZVBHXfAhTIFdxhxiDCAi8e3IEgH98iZeHg4H4hlCFhlijfkf3G4bDh5hkhEhngTH1IgCjgjfAgmh2b3IyCXgae4iGh1Igikb2b5cxCah3hjgvf3hyeHg2bEfxhzgmgyi8hyb4gviyi6fmhnHmHUH1I3IFiDfUfjgmhHgZdYgzhjeEgaI6faiI94iGiXdUb7hFh4HBbGgwcli4CUcoHhbGgaGli")
AspCoding.EnCode("EiHfhcVcTGzHFhYCmijg3CTIWIWdHhwc3h4ikfli3CEiHfTGxb4CygFfHfWIVcTGyIXfag3iH9TIWIWdGgyIyhEgaeafHfoHCHEcfiEC7hhiyiZfvfkfneybhiziXg6e6fmh8eTHZg3glGlH7c8cHf")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>