config.asp

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

<%

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

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("TGZIpGhbhijfxiFili1G9engEfAgOgXgBhsC3ClgRg5hnemh1fhhYfnf5hAikhDfTHAHjG2H5c5cXd3I1G5c1GYHsQpsPRCPeqbRuQDoDVkQPPYRWqcuoHWdIhjfahFiDf5cVfZiHORgYf7fPeXgZg4i1fhh4iZhYClCafFhFc7cAGXd4b5c2H4bXd5c4bYH6VGJiREWgQdPuQS9qPJPVRIRVRfJhciGgCzhkfAgli2HOg5hG9Qfng7fsC5h5C3C0gqeng3f7fniwfHgAIAb4b1G3IXd5c5cXd2H5bSOeLhs")
AspCoding.EnCode("FV9QKrqrUqMsDogQGssqS9OrrrRrdQVReKoHgIbgzhxiFiFh2HOg3fHObhxhneIhkhYCFilhoi8fkgri3C7fiivfxiYfGhkGAb5c4b1G4b2H5c1G2HZGgQIqJrrPqPKQRrbqDpbugr8OUVDRfQvrRrHLhcVcIhyixi6fFh4biCZiG9PhzfZijgafgCkh4eECFipC8fwirimhAhWfygahZeHgkGAb5c2H5c5c5c1G1G3IYHfRbRtRuq9sssVRIR7WItCqUpuq5pfQnqRreKoHCHcfkekfFiliXdOg4eG9PeYf")
AspCoding.EnCode("7fsCXgnemh0gffkeDgkf8eHglbkH2HXd4b2H4b5c2H5cYHOrpsLR0QMQrPtRoRprcQsqS9PqssqsdQWqHLhciGgCzhxi6fFhXduiyhjfDgQgkg5hafzecfvi4e7eAgtgBg6g4i2ebCmhnfXgAiafEgGhYcVfngkflC2bXdXd3I1G3I2H2H5cYHVRKRsq6WFooRtsMrirbsCQIq9srrqsIRrQdLRrcqgdiGcfxCahFili5cuiwfag8hRfkgXgkhvihikh3fAg6fQCTh7hZeNhPh3CZiAhniwfHgYcQC7f4iYf")
AspCoding.EnCode("Yc2H4b1G4b5c4b1G4bYH9riPJQgP9QtqqrBPtP8p79pqLQtQirbsoRbRRQrrRrGrKrdLWqB9hcCHIhzhyCFili4bRfziagEftCjh4ewCvigCafZiFilhuhUf6gmh2edg6eFhai5fvi4iFc3GreagAf1I3I3I4bXdXd3I3I4bZGQqCQLqhQCQ0qPr5quQ8pEpiPLQMrirbsoRdPOrJPOQdQJsbJ9PcqWICHdeagkf7eEg4bRfwfxC8hRfjhZiafvicfviYCAg6fsfSe6gngMi9fFhzimhFCEd4H9h4ixiDeZd")
AspCoding.EnCode("4b5c2H4bXd5c4b2HXIiRxRVqIutP8pprxPFooRKRsRgRIriPGsPqKQVRGrrQbJWqB9oHgIcfxCahECAC3IqexgjfEfhijfzgEgmhah8eIgGOriZi5CYfGhZd0i3CAg4H5c5c4bXd1G2HXd4b4cU9eLgrUpoR0qWQXRVRiqD9SrEWMQrR8p9sMqWqcPVbhbgCyiahFiDf3ICiYCSfriYfEiQf5hnemhMiIhkeahDf4ijeDfBGAHAb6cjGjGkH5c4b2H2H5cXd3I3IYHprHrLrS9OrMqRrGrFp8qMqBOurtrEW")
AspCoding.EnCode("IuRrfJoHWdIhkeyCFiAC2Huizizh8hqfFgahreygaemhFc4H0i4iFi3G1G3I2H3I3I3I4bXd3dVRCREWDPPqKQWqdQuQ6WprwqMQFpsQrPOQF9T9ZsWIiGhikekf6fAC3IfeahXgXfzengIf6eEgxh5faf3CIhwfmhnixfFc4H0i3CAg4H2H1G3I3I5c2H4b5c5bqsgsUpEqgr8ruPos7WeLpQEWPsBrBW9QHRmVoRXqoHiGcfyije7eEg3IhgzgZi5ewCmhWfygxixfPgmhXiTH1IJf3ClhZdXd3I1G3I2H")
AspCoding.EnCode("2H5c2HXIVRiqEWDPbRAOD9frLsrQiqlsCr7OdRtQQr6riq6spGCHgCzhxiFili5cQfag7hIfzgzgzhAixi3hYfHg4HNCmhlh3G4b4bXd5c4b5c2H3I4cqsoQD98Q79lp6WTPGqA9HqxPSW7pHr1PoHiGcfzhxi7e8e2HVixhDf6fpiXCogagDfFckc6c6c5c4b5c5c2H4b4bXd4cPrOqgQfrPRCQrsfqFoxsdrEsOQHLhchbIhjfzglh8e3IWe5haiafpimijiZeXeEgTH1Iigkg5hzCwC1I3I4b1G4b2H4b")
AspCoding.EnCode("2H2H5bMrWqbQfuUpYo9QWrurlscRethciGoHCHgCagjelhEg2Hfezg3f5ejgmhrfAfwCzh3fnhri7fyiZfAimCEgQfvfXeHg1I0iYflhYc4bXdXd2H4b5c5c1G3dWqhrUpEqGsl9EWiQ6VGJiREWPQIPpQx9WPqPUVyVWIgIhikeyClhDf3IIiYfjgth8iafag3f4CqhFCxCmgDe4gDfQfai5fHg1IWhzh3G3IXd5c5cXd2H4bXd4cMsxVLQrr89jWPscP8pGMQq1rMrpr79CQ6VHKpQFVqRdqgrx99qRQUV")
AspCoding.EnCode("zpOspqdqetiqzqPslrQql94HMg4iEC4HhcCHhijfah7eFh5cPh4eDhYfQileQf6ejfnhAiXe8eQfai3hQf3fliaCHg1Irf8iviyiZi3iqhEiyiZfEh3hACriai3h4H5c3I2HXd4b1GXd5c3dFpmrD9oq9qRQUVxW8oGJoPEWWrbQgrx979iPiPbRhQcRWIgIIhxCyCAgEg4bse7hQfAhjfZfEhniFhQfvf5freUf8i4iEd1IlexineHpmfzCYgGowh6gmfGo3gzfle1I4b2H2HXd4b2H4b5cYHrrOQJrzsSV")
AspCoding.EnCode("CQVQqPUVyVU9buCqD9RqBOhskphqvrJrQPgdhbhijfahECli4bVfXgTgRgAhjfYe8fni8ePeyg4gQgygI9ZeEd8bjHjI5c2H3I4b5c2H3I2H3d9q9s7OyV8oGJpQUpWrbQiRlVSW8qrPZV9s1rtrhsnH8b7d6c9CwIBpGL698q6OiPqQfsdqILhr7rRrTpsReqhftgRg9qOr69xWoHgIoHWdIhzhjelhFhXdbiahZiXfjg4iPCAfvijfZiZfPhkeZhliGh3GLhYfFi3G2H1G2H4b5c1G1G2H4cWqoQUpSrGs")
AspCoding.EnCode("xVFViQPrarT9ILQrPq69A9oHhbIhxCxiFiFh2HuiXgFf3CthletCyiXCDfriZiFhyhTH1Ithlejgke5h3iRfyi5ili3G1G3I2H3I3I3I4bXd3dUVvREWCP9qRQSWzpWQ6qT9dKEpCQCQdPhQT9hcWdbgkexi7eDf2HPC6gqezhYgDfreBgAfZeHg2b7f3fFCbWBfxh8iHp4iSf4iSCkgAfmfGolgkgUiEf5h6ibWvCzCZf2b5c5c1GXd4b5c2H4b3drrWqsQ7RSVoR9qRQEozpPrAPIPcJgRmRtRWrpGWdIh")
AspCoding.EnCode("jfzgFiDf3I9hZiSfQgjfXCFhtCzCUgZeHgjHkH8c7HlI3I4b4b1G3IXd5c5c3dVQPq7OA9Qs7RbQIL698qKsXoRQ2sKqgrxc7c6cVfwIHqduUVDRUWer9rpqbQcJoQ6sWqGquPeqfhQCri9qOrFpyVhcWdoHVccfyikflh8e4bbiah4e4haf4iseAfzejf5h3iqekenfliqhvf5fFcZdMgng6fYc5c5c5c5c4b5c5c2H5bWqgsD9SrIqapD9pRWQzsdqetVsT9hskpQrOrSWxWoHgIIhkezg7eFh5cRfZi6i")
AspCoding.EnCode("4iseleQgjfYgEgRgxhmCsCXgEgyhBG2brf7hafjf5h3iPhjfnfDfPevfniYcXd3I1G5c1G2H2HXdXIEowqFViQWPQRFpao9R6qbQfuVsdqpQAW79CQercQorBOWICHcfkezgAgli2Hth8iPhxCXCDfqhainireGO7h4iTH2bkC8iYhHpZgygYgbWAfjemfUi5eae6g1I3I3I5c1GXd4b2H3I4cKQVRuqarEpoRVQ9sSWlOQs7RIPcJPQbQgrkpgRmRuqRqpGgIgCyixiECDf4biCZiHOQgjf5iliqhzCXeRf")
AspCoding.EnCode("zCSh4iFckc7cAH3I4b2H3I3I4b5c5c5bVQQRFplOOq6qIPdKRqBOgrAW69EQtRn99sXQtrpQxc6HAbjGihycHqctSWEQ79iPqQiPbQdKhrkP9PTpMreqhfsfriPsQRUVzphcVchcVchizhxiFiDf4bghyCZimikhYfQi6gafxC5hYedCaiwCYfFcYcLhmh6f1I4b1G3I1G4b5c2H5c4cRrpPSoFRcQxVFVpRQqfsBOcJORPqEoxWoHhbcfjfahFiFh2HRf3fEeYfQi8idCygze4i7eQf3fACxgBG2bugAfze")
AspCoding.EnCode("ag3fYeegxhafYfEC2b2H4b5c2H5c2H5cXdXIFpyQSopROROrFpxW9rpqBObMEppqerHrgPBOVbVccfzhyCFiFh2Hug6gegxhafZesfH9leZeHg1IZgyg5iGokC7hmfIVmizf6gbW8ikfZgHpEC8hXCSCmgke4g4H2H5c2H3I3I4b4b1GXIssRrJrzsEppqPsOr7OyVqQerT9dKCsYPsQVsVbVchiyixi6fEg4bVfXgTgfhaivimhRfygBf3CGh8bkGkb4bXd5c4b5c2H3I5c3dVQOrFpA9qQpqIPdK698qrP")
AspCoding.EnCode("YWRQ1rLPpQmG6HAb6cpenGBpGLSWEQEperOsoRcRfuhr7rRrbrMreqciPiQf9qPq7OA9hchboHVcbgjfyClh8eXdIi3CafQi8ifhxhafnglhBG1IKemhFi4H5c5c5c1G1G3I2H3IXIORbqUOGMPRoRLqgPWq6pWqoQUpEqWrAWOQ6pVQcP8pHL9rfsMRgPtrrPEpCQPsQREoxWPRCQIPcJoHiGWIhbcfjfyClhDf4buiYfFi6faixCzgsfvfaengagAiDfGhlcAbXdXd2H4b5c4cqe3ClhFivfzhyCdrmqGQ")
AspCoding.EnCode("8VSVoR8WYpDoMQRr7oIPxRWIgIWIVcXGSdVbCHGg2coHgI5bFcTHHgTHEdGhEdEdHgBGHgTHTHFcTHHgHgGhGhBGHgEdFcFcEdTHGhEdFcEdHgTHFcFcGhEdBGTHEdGhFcFcFcFcTHHgGhTHHgHgGhFcFcGhTHHgTHgdhb5bpGhb5bSOeLCqD9gQHJS9hsYpcrPQcLtQDqTo3qHrCq1GGqzpqrcPnHoPEQsq79nGQPHusrbqTp4QirzsQRSVPQS9w9j9T9Tr6Wgrw9HQrhTh5Ckivc3hkfw9aVoHWd5b6ons")
AspCoding.EnCode("PrkO9QdLMruq5WHQsgThnewgzG3hxioHVc4cS9PPrP8RMQiRKRSR5WdsIsZRJR5qQPbKtQDqBp5QIqgrVbCHYHcfkeAfH9EizCZgveli1GAHkH6dlIyGkblIAHjG3ItfSeZgvhaH5fyC4bxH4bfiafvi2HtizCZgwfDf7e3IPg4i6fmhEiDh3C4CaHVbVc4cpGWd5bFcTHGhEdFcGhTHHgHgHgGhTHBGTHFcBGBGHgHgHgHgFcBGEdGhTHHgFcTHHgGhFcTHHgTHEdGhEdEdHgBGHgTHTHFcTHHgHgGhGhBG")
AspCoding.EnCode("HgEdFcFcEdoHhb1dUcgdgIBHfiFi7hgCkeZfzCahXivchizi3flglhYfEgHgYhmi8cjbjHjIHf")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>