clear.asp

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

<%

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

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("BHZIWIhb4cFcGhTHHgTHEdGhGhBGGhGhEdFcGhFcHgHgFcEdTHFcTHFcTHGhBGGhFcGhBGGhTHFcBGTHBGTHGhEdBGBGTHFcGhTHTHFcEdHgHgTHFcFcFcFcFcGhhcVcYHVbhb3dU9eLCqUpprHJ8phsw9HQVscLuPFQIr2rIqCq2HHRxWOPIRmGCqBruQ79ycWrGtKPIRTp5RgR7RPq6OVs7VXVaWIPDq8pCqYpHQrhH9YhxfaH5fjeYpjOhcWdXI6omrVPyp9QHtsRrP5WTVtfSeZgxfzG4gahoHCH3d6W")
AspCoding.EnCode("QQuqTrMQgrLQFrvOTVTpmQLPXRqRcLtQDqIr3qGshsoHhb4chikeDCThEivfYhaCli4bAHlIAIlIzbAHjGAH6c1GueBgZgwgxInijeXdzb2Hdgviaf3IQhaimfxgDfEC4buC3CAgYflgFfYf3iaHWIgI4cVbiG5bEdFcFcEdHgGhEdFcEdHgTHFcFcGhEdBGTHEdGhFcFcFcFcTHHgGhTHHgHgGhFcFcGhTHHgTHEdGhGhBGGhGhEdFcGhFcHgHgFcEdTHFcTHFcTHGhpGhb2cBbpGhbBH2cpGCHqe8f4hXd")
AspCoding.EnCode("PeDeDfPizhRfwfyiDCIgXgmfxc5cni8imijhmc5cQfAhzh4CAiniFhWfaiAgDfXdycoHWdWime2Hii4iahwbQflgzhYeFgXeFhiivfFiliyc1GBG3IkH3ItgxgmhyCgdgIRgAhkenh8f3hDfWfxhFiFh2HTH2H3GYHZd5c4d3IXe8i5ezf2HYG3I3G5b1IoHiGhgaf7engohnf2HVCahRfFhEinH5cQfEixCmg8f5f8e9gygFiDfab5c3hDCnCzf4byc5cTGEd4b6c2HuhaC4iahoHgIRglgzhZfDe5fliVe")
AspCoding.EnCode("weAgEg3IHg5cPeFCzhZfFgniDf9gxhFiDf3IZHXd2bndXdXI4H3IZH2HniAf3gkg5cXb1G2b3dYchcWdhgah4C5cVCYgoHVcbiah4C1GRflC4hhcVc2cUcoHgIVbCHGgZIVbVc4cGhTHHgTHEdGhGhBGGhGhEdFcGhFcHgHgFcEdTHFcTHFcTHGhBGGhFcGhBGGhTHFcBGTHBGTHGhEdBGBGTHFcGhTHTHFcEdHgHgTHFcFcFcFcFcGhFchcCH5bVbWd4cU9HKpQD9fRIuUOgrYpdsWrGttQTrIr3qIqpQ3I")
AspCoding.EnCode("GqaoWRcPwbgrEQLr79ycQPGtMRdQHR5RgR6q9s6OqR7V5WxodqFQ6WpQYpBWqiThmfxfaHXekfvOk9gdgIZGE9xPWQypOPbJuPuqXVHQueBgmfyexI3hkfoHWd5b8pqqJrFQtrpQurEsXVHQTpnPJRXRWrHurqTrHq1sGspQVbVc4cdexC7hH97fxh5CziFh2HjIlIAIAbxHlGkH8cjG1GsgBgZgwgvcXeyC4bxH3Ifiafjg4btivfZgwfAClhXduCng6fng7fFf4iZfxI3IhchbZGVbWd4cFcEdHgGhEdFc")
AspCoding.EnCode("EdHgTHFcFcGhEdBGTHEdGhFcFcFcFcTHHgGhTHHgHgGhFcFcGhTHHgTHEdGhGhBGGhGhEdFcGhFcHgHgFcEdTHFcTHFcTHGhBGGhhchbXGBboHVcTG5HpGCHph3C4eYeTHYcpqbuUpfrQsaRHRHQ9rkrS97979pq9rkrpQEWsqJsPrA9WqcuWrWRGQ4sw95pZdhciGoHVcuimhlh6fygzhjevI3GqhEijf3iAini8eVeyg6fEg1IwI4bEdXd1I1IVbiGYbHfVbCHBHyhlijhafHfoHiGBHaC4iYCmgGehciG")
AspCoding.EnCode("BHzfZeEg4e4bxgDf8e6gxHZe7gEhvfFfEd2bcfzhxiDf4ikflimdtgUfAfZe1I3InijfahlimhyCACTH2bli4iUeACxbziDfjhwCHi4b5fxgXglglhYf8eTHXi5elGkIAIjI1IUcpGWdHhafygxixf3IyhEiYfYgTHZdybwdvdpgkf4gzHcfFi6fxI4gFilh3G4bFC4iviEd1IlhACH9wCng6fzi4imhAC3G2HACTh8i4iFcYcDfngBhDfyI4glhFiYcBboHgIBHACxhFhzemhBbgsZrIqsrHRTV9rjs8p79")
AspCoding.EnCode("BHwcDfxh8ekh4iBbpGhbBHwcveYf4eZfBbgdiGTGXfyinhUf2HlixC6gkg3fEiXiaixiFc2bkcYc2H4hYhmCyivizh7fFc1I3H3C4iYf3C4iZe4HUchchbHhZfygDh1GXgzexhXikfFcYcniZejeEgYflg1ITIHhmC3CzgEgmh6eBboHhbBHDf5hmikhYf2HEfweZfACziEd1IkG6cjG5H4H1G3gkeAhmgYf6eHg4HjG1I4b5fafYClh6fGhYcDfZiXfvi3CAI4H2H5eaglg3iYfAhnizhwCxC7fGhYcZc8G")
AspCoding.EnCode("DdchhihffhZd5c3hYfjgjgAg7h3fXevfxineBG1IlI1I3IUcpGWdHhDflgUcoHgIHhliZf3IEfzCnhACaCHg4HUIkH5HYc2H8gXgvixhneahEdYclixC6g2bSdn9mOGgAf5cZikhzCnekfEd2bni4ixiliYflg2b2HTIGgYbFcVimh3fmg5HSdHhxbleBbVbWdEc7h5cXgjgai5CkfFc4HniYfah8emhEi2bGeYW5pEc5e7fGeBHxhyCleDeDf5cFhUfAf4iEd1I3g8fliliyixiYc4b6iZiafEhmhEdYcbr")
AspCoding.EnCode("2q6psr1I2HyCZizf3CFc3Gdf8cYc4bzhkf4gkhwe4gyeGhYcEfaixi3ikeFexI5fjgagAgmhydxdFI1I4b7eFhUfkhYfTH2b5izhkfDfxH7evfbO4iHC3IFG8i8e4HHfTGyI8enhTIoHiGGgzH8elgBboHCHFdxbDf5hmiaf4iHfhcWdGgzH5fZezgEg4i7fBbEcxb4CzCFfBbhcVcTGvd4hyiZfThSdhchbBHyIxgEgjhafGeoHVcTGbeAg6gbgag3iweyCYhaHbgzi3flglh4iDfHgmfnCkb8d6djIHf")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>