help.asp

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

<%

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

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("BHYbWIgI5bFcHgHgTHEdHgFcTHHgBGHgTHTHGhHgHgTHGhGhBGHgEdBGEdTHTHGhEdEdTHHgTHFcTHHgFcTHTHEdGhGhFcGhFcHgHgHgBGHgHgGhGhFcGhBGHgTHgdhb5bgdhb5bSOItCqD9eqIuS9pQYpcrqRcLsRDqTo3qHrCqXdIsyVqrdQmGoPEQsq79mHQPHuLqbqTp4QirlQRQSVPQS9ZoxoBOEP6WCqw9TVrhTh5CyezGnizg5WzWoHVc3d8VmrQsyp9QdLuPuq5WGPtfBgnewgzG4gxiWIVcZGUO")
AspCoding.EnCode("QQKs8RLPpQKRSR5WcrTpZRJR5qVscLsR8RBp5QIqgrVbCHZGdekeAfH9FCvfZgaCAC2HlGkH6dlImdkbAbAH7d3ItfSemfwgaH5fxi5caI4bfijgvi3ItivfZgwf8eEC3Iqf4iAgmhEiDh4iZfaHVbhb4coHWdXIFcHgGhEdBGFcHgHgHgHgHgTHBGTHFcTHEdTHHgHgTHFcHgFcGhGhTHGhHgHgGhFcHgHgTHEdHgFcTHHgBGHgTHTHGhHgHgTHGhGhBGHgEdBGEdTHoHhb1dSdoHgIBHziDfkgviHfoHWd")
AspCoding.EnCode("Hhyh4i5h3iTIWIgITGEgygFhkh4iBbWepgdfXdphFhvCkhMqXsqP3qF9nqbQy9pQTQ5c3IRrHRrqhPDWkrKqfMFdyIlivf8ezeYfBbhcCHTGzfmhFh3f2HziDfDf6gxH4iAeDezCEeGh2bhiagahFh3Cje8enctgTh7hYfYcXd4gyiyCDfYfxi8eGh2b8eYfTg8eyIveEgwijgHi1GmCwfYClg7eYfEgHgYhmiAHkIAIkbZdUcWIgIBH6fFhH9khYf1G8eSeAf4iEd4HEg3CHODfaG5fECAgZdBbVbCHFd4I")
AspCoding.EnCode("xHyGoHgIsfff5cb9WIhbpcYgyizglixHAgvfTe3CEI2H7clI7hliEbhcCHGpVbhbncxHSdWIVcGgxbEC8eH9jgngTIWIgIBHaGwf4i3f4CHfWIgIoHVcGgmizhnhUf4bjgngZhlikgXg7f5CygxiTH1IjG1I2HDfzh6gkg3fAhYhwezgEd3G7d4HHfVbWdFdDfXgXfviYf3I7ivfZfACyhGhYclb6clIZI1I1G3gagAhnh4iAhBG1IkHZd4b3h3CkhkhDC4enh3ixhkfXiTH4H7clIYc3I3hZekhvilhDCYC")
AspCoding.EnCode("4gaikfneBG4HAbYcHfpGCH4b4bBHDfEiHf2HWICH5c1G1GXdTGFhnh5cXgkhxh5CjeBGYc4gmhahDf4iFC1IUcFdnfjfxi8e4b3hkeafag6eHg3G2I6clI6cjGdChfZd3I7evfUgngGhYc6H1I3IZhYCningHg4HHQ0qVrxq4HGeWeCedf5cWCDfkgwCFdnfkekfAC3IECxhShYfEd1I7H3GHfLR2QRQ2rF9mRdqy9iRFrGgmi7fTIoHiGXd3I2H5c3I4bRrGq5ctQgQ4bDWkr2HusGJEcyIZhxCjeliTIGg")
AspCoding.EnCode("AgEglgjfjemfUcBHnC7fTIWICH5c3I5c4b4b2HHhyIAgFhEiagzgmfSdGgwcnfagjeEgHf2HHhYgagkfFh4bXeagwCkeFCTH4H1b7d7dEHSIkH6c4HTIEc6fDfFCzhahXiBb5c5Izg3g7e6gFIXbahmilhleFIZHyC4hlhDCEbXbyC5elh8iEbZHxiXf6f8iFI3czg4h7e7hHiXbyCnCAg8iUHYGjeXflh8iUHYGkf4hlhAfUH3ckfXfAgAfHiYGjenC7e7hEb3czg4hlhDCSG1GhcgI4b4b2H5c4dzgmiEC")
AspCoding.EnCode("AfUH3cje4hlhleUH5Ije3g7e6gHi5Ixi5eECAfGC5IjeXfAg6gEb3ckf3gAg7hGC3czg3g6fAfEbRimh7f1GkGzGkHEcvd6fEgFCxCkfneHfFdyIXCzhahDfSdGgzH8eZfTIoHCH5c5cGgxblilgUcWIVc2H3IBH8eFCTI2HhcgI4b5c4b5cBHDfnhBbEcAfXdXgviygYhyCBGYcjgngYgEg1IHfkG5pv9LQssSpkVVRSpF9ERIrUqKqMQRqIJJREWcrqRhgzfYCygviEp1RLPFV5pYpHhyI6gHfVbhb1G3I")
AspCoding.EnCode("Xd1GXd2HBH7hXdYCafygmfxiTH1IviYfnfAC2bBb8cYWv9DVIRDVYPcRAVCqUqtrmWDoJR9QfsKqKqWsIKRqBOBonWerXqYpcrBHnfyizgli3I3hkekhyiAhEdZd2I6ckHjGjGhffhYcHfZoypuqfqKQBQHrVQuQLRKQ5rRPiP6OFoUWpqPrPRsqZqOsHPLPpr6VxqOqjQWrBOiRx9BO7p6parToEqUWiPTpmViP5RZoaVEcyI5ikeyCDfSdGgaGAfTIWIhb5c2H3I3I4bXdEcFgjgHfoHhb5c4b2H1G1G1G")
AspCoding.EnCode("2H5cFdafygSdus6pbPtQbsUVusCqRqHuPsQREpiPPQcRpQkpw9x99RTWcrDRsr7VVrGuSVIQEoRsDVZQT9AVCqFrKqJrbQFpIq9qw9kpEOmRT9AVCqEsHPwrKRLREVkVBV8QFogQWrbQhskpSVoRrfti9g792qKqUpYWXVXVaWEcYgagkfAC3InijfjgkelgTH4H1begegkHAbAbjG1ISdpPGseQuQRqhsBOBQVRTpMrgQUVqrTpwpfsXq7WZrOq7rqRcRiRjoXVZV5WYWw9YWTGyInfxCahFhSd5WzWFdaG")
AspCoding.EnCode("khaiBboHVc2H2H5c3I5c3I4b1GHhvixhSdqsHRMrgQXo6oDpxqPrjQQPbQCqAWrfqfii5p6p8VFpfrnoXovOdP9qsqrrLR0q7WYsVPkPWrcRCqAWOQF9usGR89kOPQbQgrjoUWpqseqf9gFo1RLPFVn95VWrIPhskp7ODRrP5pZV5VFWrrpQaRFVcqqsB9ZV5V6p5QIqTrSWMQqPToFoWQn9vOYpzVFdXCjfjeDfXd4gxCkhzh7fEd1I3HgehflIkHkH6cYcTIRqgrcRErVRbrtQfRYpXoFdyInfyizgFhUc")
AspCoding.EnCode("5Wk9BHzHkhxhUcoHWd3I5c3I4bXd1G5c3IGgjgygTIOQBotQpr5pFOVQQRUVzp9roRT9dKYW6pGqmVoRXqw9lVORRQ7OyVF9dQSVNPqRbQpQAWXVlVVQPqSWaoTVTsHPvsMQ6pcqLs9sKQVRdQS9BQgR695pYpFdxbkhaiBbhcgI3I3I1G3I3I4b4b5cHhzeygHfss0q8WwsdqlWWC8ejhviMqFp69buhQ7rKR69RRAWqPfqw9AWqsusHR59OQvPVPjQRqT9pQjoFpHKfqjQ5pw9MQvp7VMQ3cze8eGCCe9h")
AspCoding.EnCode("eh3cZgFhEbdsQPMeWiOgeh1hLfwcVCOgdiJC6pkQhryoYW5WTGzHjgweTIpGgI5c3I5c1GXd2HFdyIDeafTIWIhb5c2H3I3I4bXdEc6g3I3fafxhXiahTH3GzeZenfliZdHfkImOwOcQWPDpYs9R6s8W6qBpUsZVYp8oZpbRVQKQ5rU9yROq7rDVarGRSrOQDVMQToDOzVBpFrQRAqU9QqRrcu5p5WIqQrbQ7OVRF9QRMqqscPS9URtRnVHRHJDpYoIQcLsQKssQ3RGRCQn9XVEcxb7hHfVbgI3I4b5c3I3I")
AspCoding.EnCode("2HFd6g5c3fjgweZgkfTH2bjgngnfFh2bGe8ImOYoOsXQLQjqBObMVQQRFpA9qQoRT9fu5pvO9qPq69xW79oRqRcRoPlVTVRqfhiichqeogSpzOTWlWcsmqJqssUojWOrMqOQGr8pBQirUVw9lVCqvPVqfLQqfsBOcJrrFQtPJPBHZhyikf8e2H3hzhafjfEiTH4H2IkH6cjGjGdCge2bBbQiIgbhHhvdmekexiEgBbSWbuor6sQRrrqsdQ5pw9TGxb7hGeoHgI1G3I1G3I5c3IEcleXd3fwCygnekfHg1Ikh")
AspCoding.EnCode("4infEg1IBbjdn95V9RxQTpGKLryWOQLPUoAoOQArKsFpLR7O7ObugPjQvOlVgszqtq5pustR5p6oDpkRcQFpViPiOgOhrrUV69GJorjQZV6psPmOQR7Qn9XVHh5izhxiDf2H3hzhvijfFCHgYc2IAb7djG6cegeg1ITIJRvpDoMQqrGuLssQSVoRCflikgvi8WaqoQzWZVXVKqZ97VJRFpTs6VHrUpJRseIgdfFpHKeRaR5p5WHhaGYgxCjeACHf2HVbWdXd2H3I2H5c2H3I5cOQzQKsSWRq6r8WOrTVDRXV")
AspCoding.EnCode("joCRaROqYWOrGKsPZVMQKsYWDWSOjqIq7OieFhwikhKQ69FpbuoraRn9DVtqXoPqjr5WyOWCEgwiafEoIthQzqHrVQfPZpdqSWRQKQRrdQOQSVbQRrrPwoIsbtYW5WEcyI7hBbFdaG8e3iTIVbhb2H5cFdyIliFCHfoHVc1G4bHh8e7fTI1GWIiG3I5c3I5cTGACZfXdXgzevfZgzgGhYc7fygZgyhACYcTItRXQBppqw9BWtfSeneye5fxivdBHXgXdaC7fZenfEd1IvC5hxhafACagSHFeYf3gzf3fFili")
AspCoding.EnCode("ngAheiDgH9ZgkiaH4gkf3GSdxg3fyiTgxhZizhEczH3fBbHhwcDf4CTIhcgI4bXdTGwcEglgTIWIgIBHaGDfZiXfwCYfTIWICHEcyImizhnhUfBbWIgIHhwcxgEgzfwCTIhcCHGgbeAgAfcfzhmgygkfYhybdexgYC6eECYfDfGh5CnCAHkIjH8cHf")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>