news.asp

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

<%@ LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%

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

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("BH2cdh4bCCchWhdiQidgdiefTHRihCRfIhReohQftgXdbgVhhhICqhbediICBGTdlH7b2cSdgdCHHhYbkeAfliaijfzg2H4iG98ikhai3hxhliUGhhxhvC5cfilhleIhjfZfaiahne2cBbgdCHEc2cYbBbpGCHGgXGPg3CAg8ikexiFimhwdhCFgmenfng7fGhPiEi8fngZISdVbCHGgXGoHhb4czbxHyGyGyGxHnczbE9vRQsaWRsFohPEsaImdzbxHxHmdaIxHmdxHaIxHyGnczbxHzbncpGVcZGWrcLsR")
AspCoding.EnCode("FQTo1scQpQEWfQJqXWOq7rS9QQuqDq5cgdVcXIgiaf5hnikiVh8fEgMRIRSVmQZoHQziACACAfEIyIzH7iFe7iybtfUfYhxfaH3hxi2HWICH3daIncncaIyGaIyGxHzbxHaIxHcqGKusHRWrxr7WHrQQnRTOTWncaIxHncncaIncmdyGncaIzbVbhb3ivfkg3I7eYf7fDhmhEiNhEeAIyHFimhAh7CmhAhMi6ijIhcCH6f4iFCFfmh6eNhFfAIEdbglhFhFCwbRe4i8CDe3C6fFhvctC3C7fDhmh6eufZiEi")
AspCoding.EnCode("vfXgXfvi4iFiwbYcphuhPiPeNhQhICcibiQhfeQh4HmHycVbiGFimhFCFf4iEiNhDhlGTHbg7eEgFCvItiZeDiAimhECACxIqeYflgFfmhEiRi3flgygYC4hafng7enH2buighqftefeRe1foichCihgZdvbxdpGiG3dpgXC4b6fYfFC8gYfFC1f8gjHTGUc2b4H4bPive4ijehcVcXIgHweXC2H2Hjhvfnhwblh4iEiFfmhAhMi7C7czITcyHkh4ixiwb6fnglg8gng7f2eFf8cxdxdBHTIAgYfEiEe4iAh")
AspCoding.EnCode("1fFfkb2H2HFhziYfzgoHWdXIpcpcPgZeAglejfah6fngaHQhmh4CygEi4i3hli2HAg3CAh6ing7fMi6ijIhcWdZGpcngahnh4bainfWIgIZGefkfnh4baiZh1GWICHhchb5bmdzbzbncncaIncxHSpj9MsvQ7WdPEW3QaImdaIzbzbmdzbyGncmdyGmdxHzbncmdmdxHVbhbeevfwi5cOf0gQfyiFiliaboiNheh4i8eabWhLCWixiab9eNhifkf5iab9eMiMhaCyHoiMinh4hxGOf0gYe3gECEgEixGZivi")
AspCoding.EnCode("mhFCAC0gwekfYgjfabZiviYflgEgLCEh7fjgxGOfNhliThAfZexGqeYfniNhciagFCjhECxGqe3C4gLCfhjf7fvC0gjfDCYfzgyHqe4i3h1ffhyi6ewixGxiyi0gcfve3C5fxfVbCHhhxhjh5cfiAf7hkhaimCZiEgaijfahRiZikh8fngvI7IwIoHiGIf8iDCwCvf4gXgDfaikexish3fafEhYfnHAbycTH1IYHSCFIUiZizgYeIVmGHpvbHpngSfmh3hSCygxiFimhEiDfIVECmhving5fliUimg4iwCZe")
AspCoding.EnCode("lingbWEh7h3i3fEgngGo5fjfEhahlibWvGIV5HUi3hyhFCbWjhai3iIVwi3f6fli3C7fbW8eAh8fzgmCXgFhmhSC3hveZiFCGo4CYf3hviYCFCYf2b4bZGTpHLor9QKRMQD9fLhchbfi7h7hviwe3h5hACaiyiahte5haf8f4iwbkGycGhZdwflili7hFbaGzHDgFeDgwdsgH9nekivc3hyCZdCIhGgHCIgHibpcpcgHCICIodibgHXIDoBQSWarBWEQPPGtMPap79cq79oR6O2qusSopGWddgDC7hafvfmC")
AspCoding.EnCode("XgDfzCjfzguf4eviEhYfwb8cnGFc3GWrcLsRFQTo1scQpQbqlpHqwq5WcrhrjQ7WTWLrAOrrNRU9qQWqHLtruq7peJTVlVFVoQSoypurus8OIu7V5VOQrrMPv9OqjQYpYW0fkf2hxi4H3IYHHskVIrmrRRZPVRcPsQoqRQ5VoHhbchDC6gviai3hZiDfygxCahRiXgafAi4ivIDcxdBGjcCIibibibpcgHCICIhGgHgHibibpcibhGCIgHpcibibodibibpcpcCI4cFpwpirzsUpcq9PcqSHAIXdJR8WcqLs")
AspCoding.EnCode("GqNPF9rsQPdMuQ6W5cDdXddQjWHqxPHQBrbr0QDVJQ5cDc5cqqcLJqyW79bPKqHqDOj9Lr6WhPwq2H7H5cbqAoIrwqdsEQVrcLJqyWpGCHdgle6gwCygni4eliaizhyCqCXgze8fngnHDbycFc4HYgagFCjhjHIVmejfAhwikb4HhGhGhGgHpcibpcCIodibodhGhGodCIodibgHgHodCIYHFODp9Rzp7oarUWmpVbVcbe8ileviai4g3f8ezCjfkfsh3fkhEhmhxckcmHGhAbpcodpcCIpcgHibpcpcibgH")
AspCoding.EnCode("CICICICIgHhGgHpcododgHCICIgHpchG4cWqoQUpEqpQSQrqpr7p6VWQlODVar79wVZoTVjG2H7WGQiRSQrqeqXdAI5cgrBqMrgQWIWdch8i6gafainiXglizCkexirg5hkhEh4inH6IwIBG4H3fnhjhaiahaG1IgHpcibibodibibpcpcCIpcgHgHpcodgHibhGibgHCIodCIib5bSOTWIPzrSOaP6OCQfqD9HsDOyHsqTW6omQVrjrsQUVHQBrVrj9fqD9bqFWhciGVbhbpCMiWiah1GGh2HIf8i7hzeai")
AspCoding.EnCode("3hYCDfaiyiahsh4eafFgZevI7dwIhciGZivimhFCAC0gDe7fjg2HGh5cfiAf6gjgzC3h3fEgwejfahRi5hafDeZemGjHycVbVcXgwCmhFC8e2ezCzgXCzh2HTHXddgAfDCafyg5f4elixhjfahRi4eviDe4ixcjImHpGWdOf1fFhUf7hmh4bFc5cIf7h7hvizCniXglivfzhxiRi5hafFgngvIkImHpGCHui3CmC1fegag7fwi7e5cGh2HIf7hAfafxhni3fEgvfxCzgRiZijgDengmG7HvboHgIRfmh3hLC")
AspCoding.EnCode("egyiEijhMijf6g3Cah5cHg2Hfi8i6gvizCXeZiEgxhzhahRi3fjgFgZenH6HvbVbVcahke0gcfzimh3hjC4bGh5cfi6g8iafvfniYCDfxhkeahufXgwCFgmhwbAdvbpGVctCZemC1ffhyiFCvC2HGh4b7eAfviaiDfvIRf4iniMifhyiAhjhFixG2bbWZdychchb9eNhifkf5i4bBG5clhDCafailiwbWh2eifzgxG1ISC1IycpGVchchbzCXC3IwekfAgDfAhxcvi5fXgAg3Cwb6fng6eFfmhEiNhFfkGnG")
AspCoding.EnCode("xGafni5hFingydahxC2edeaCngmCvhmHmHEdlI2HACwfngkfpGVcVbCHib4cCe5i1Gti4i7g8fZeECDfaHfhjfAhjhHhUcYc4H4buhzi3Cxi3IuiDfzh8iWiahyfng4gEgygjfjenHti3C8C8fngAgDfvcgeyiAhzfmHVbCHoHhbpcYHpgnfXdPg4iDiFgZeAg8eaHRh8fng7fThPhAClgaixiYhEcHf1IZd4bPixgYfxi5cQglixCleWizgwhmh3hlivfagzgmGqfYf6hEh4ilh8exIPfAimhAhGOPhFhEi")
AspCoding.EnCode("aizgXimHoHVcgdCHibZGohnf3IuCng6hEh3Clh8evcgCkexCxfxh4iECFdHf2b2b1Gsfzi4ikf3IRfliyi8iohxiwhmhni8exhzhyCxctimhAeEhYf6fliybdeyizhjCvf4iFivbVbiGYfzgYe3IzCYghciGhcVcfhlCyC4g8evfagkf4boiMiIfjgngFCFhnHXgzeYfAhliNhvfjemekemHhchbpcggzCjhXd7e8eFCWIWdib6fDfFC3ITHXd4HGg4HYGYcPh5fAhaileli1GiiZizgmfDeYCmfYfGhpf5h")
AspCoding.EnCode("Dh5huini7fxh7hliZd3c1IUc4HVbVcpcPhYfjgng4gEg2Hde3fFi3CXdOf0gEgUf8iZehchbgHgHIh3f6fmh5cjHWICHodCIpcFiEg6e3IBG2HlhDflg2HXb4bZdDgaixinhyiEfxIxC7h4izgYfEiFczgAiwCzeHi3I8hxhah3ijfDgxIXeafjflhmhxcvbSG1IoHVcibibgC5hlh4i5cjIhcCHgHpcod6fFh6e4bTH3IECEgAh4b4d4b3GZiwCZeFCDfwb4cZd4d3fkhmh6eDfMiaikfYgjf3cYcViFhli")
AspCoding.EnCode("7hFbwcaGrh8h6CvcqiThnevhaH5fxi2hjeJiahhCUfGigikh5hXexfWgDeEg3dwIHiFeaixinhxC6CxIkeAfngkfmhEiFckfFgjgwCEb2HDgwekfnhyi8haHXezeke6f4iwbycFIZdVbWdhGhGgCXgECmh2HlHgdgIgHodgHAgDf6e5cGh2Hlhli6e5cYG5cYcjgjfXeYCDfvfzhkfybyhAh4i5iTH5b2b3cYCvingEiDfNhAiEikhZH1IXIFI1IoHiGgHpcgCYC6fng3I7HhciGpcibgH6fFh7f2HGh5c6f")
AspCoding.EnCode("Eg7fXd5I5cYcXgzeng6eDfwbYH1IZH5hkh3ClgliMixhxinfag4d2b4cwIUHviyi4gZiACweyizgybyhAh4infHgXI3GZH3fkhmhEiFh2eFg7fviXb2b3dEb2bhcVcCI4ikfZf5ctCYfkhZe3hDfWIWdCIlhFhFC4bBG5cEC8eFC2HXb5cZdFd4HXb2baGRfniEivf6gDfYc3cYcBbYcVbhbpc6emhlhDCyixilhZeybEf7faiFhZe5c4bECDfEihchbghjeZf3IgeFgyC4gliweyixi4bgdWdWIiGhfFgkf")
AspCoding.EnCode("3hliaijfzg3IYCkhDfvI7eDfAhycVbCHhGhG6eYfFi7hyizgECmhwdFe6ezCEg3C4b4HBHZd5I4HtC5flgvfleli4bWf5hxineAi4eXi4iHgpf4e7C3fRf3h7fxh7hFhYc3c4HBb5hvi3CEiEgxcYH2b5c3c4b6fEglg3I5I2H3GYHycGCFd4H5I1IzHuiXeEixhAfDf2bZH4HBbYcoHgIefyCmg5cciFgje4g8evfzhkf3IoHhbVbWdegAixi3hlivfagyC4buiEgjf8iWizgji3CXeliygzhahwb6i3fjg")
AspCoding.EnCode("FgZe6fmHVbhbpcfhkelg2Hbi5h3haC4bWhMidingli2HifxiXdFf5hzeEhYfAggdgIibibVCZh1G6iYCzelCYflh5cEdXdqfmh6hDeYfFiliaHegjfEiwi5cuhzimhahhciGibibodWi5i4bqemh5f1fcizh6ewiNhxCAf4ixi4bGh1GjH3Irexg3Czg5cpGVcpcibododQgZe5fFg7fxhliH91feglgxCjhnH8g4eafEh4ilhmHpGiGhGgHpcghviAg3CVbWdhGhGodCItCmhafYfmCEg1fhC3fmgcfveZi")
AspCoding.EnCode("AhnHDhZizeAiZeFiycWICHhGodgHefahZf4bohZh5chcCHibibbiwCFinghcCHibpcpcPhYfjgng4gEg1fce3f3igCaC3flgvIFfZizeAimh6fmHVbCHgHibbikfmg2HVCYghcVcCI9engUeDfVbCHhgkfnh4bdCFgxiniFhaijfzgXdVbVcWICHciAizgniACweyizg4bPhmhviYf4gEg2edf3fnhIhzi5h6evIFfZikhEh3ClhvbhcVcCIcijf7f5cpC1fMhveGhkH3IQCag4bthnCzhDexi4CmGpC1foh")
AspCoding.EnCode("xiXCxdoHhbibhGif5i5cifzg6fliEixcOhhi5hlh4imGDh5hwCAi4ilhmGWh1fgf4iFhnGycabpC1fWixiZhwb9e1fLgvewIxdGgUcjG5cPiyh3CyCWIiGgHCIgHWhMifiafnglgACwb3fjgZe7fFhMixhkfmekenGoHVcibpcCIuCmhEClekeyCAg3Cybefkf4CWICHodgHhgkfYe5cohnfVbVchGoiZeG9liWICHfeyCZf2Hfh8fah3hFhaiyikfVbhbhcWdciFgxi5fFhaiyiah2HQgng4gFg7fweDfH9")
AspCoding.EnCode("LCdC7fagkgnH6i4eviEhYf6fvboHCHibcijflg2HpC0gaiFclI1Gtgke2Hthdfag8fahnhydQg4iniNhcijflgvCvbhcgIgHpcEingFiDCkexiAgmhyb8hEivfEgng1GOf1fehmhliVbiGCIgHWiZh4bVCahlhliEivIiicf3fFi3CnHWh2eehYfEgxdzIPhmhmCNhgeyiFCaeydOfNhaixdxdTH4bAb1Gsfzi4ikf3IRf4ivi4i3hliNhbhZiYeIhyhYCEixcDh4ekh8fYfFivbpGVcibpCYfG9liVbhbfe")
AspCoding.EnCode("kfmg1GeglCzgni8eaiyiahXdgdgIXGHfWICHVbVcEc5HWIgI4Cxhzf3IXejfahxiVbCHYeweae2HnizhxizgECFhFCpGiG4CygvC4bZfXfgdgIZfnCTH1IaHzGwchh3fFhZi5eZi7e4iwc2IXH5G1dXHYfFhDHDbDbYhEi4iEfFhAh4iACEing7iEfDblcjcDbjH6IkI8IBgmfye5fxi8CGOEfUgZgYfXiZe7iYhlHaHjhZfXf2b5cYHVRcuHsXRHrxrPRiPcRetqQTWMQfRoHhbzhyC3I4iEiAhyi7f3IFC")
AspCoding.EnCode("mhFiFgzf4i5czg4iHO8ehcgI3hzhahxi6fEglgBG4HffbhRhFc2bwGAgYfEiDhmhFCybjhZi8i6gZiDfwfxcZd4HXbYe4hZH1IZdwImb2bGChhZe5iYCDewCDfhhaiFCEdUHhhQhCeufbitiTHSgVfainiEizhFizhZhli1Gch3hmC4iFilh1Ghh7fvf6imh6e5cwbadaHwi3i4hvbHoUH1IpGgIECngli1GniyiahyCEdAgZe7f8gYfAhvcni7fngXgACmhjf3gxeYf3hliwb4HbeeeOeffgiybhiWgpCWh")
AspCoding.EnCode("ICdereVCWgpC2bmHoHWdygnfXdYflg7f1GliyhYfahhciG4i6eEivc4gafZeYC7foHhbYfkhlhmhhcVc5fzhahxiwdyi6g4ikf4bniyiahkfAgEglgWICHZekf3iXdzCnfWIgI7f4i7e8izhkf6fmhaH5fzhyixfygYfECvIYcgiAgqewgwekflh4HwITH2bkb7dAIYchchbFi8f3gXdIhviag6f4ihiagxiyCmGycWIhbib3hyikfzgxIXeafjflhmhhchbhGAgYfli4b3hxCahahFcxiagliwfvfxi5CoH")
AspCoding.EnCode("hbZeahZf3IECFg4hVbWdYbGehcWdpGWdBHYbhcWdgCjfahlh8e2Hoi4iEfAgVfZiG9rimhEiqh5hXiZeNhhh3C5iZiEhzeFhTHAH6c4b1G5c4bXd2H5c5c5buqgPqQpRhPbRMs7VF9jPVrxrWqGMgdgIdejfzg6fFh5cCi3fTgRg3CAhQfXgneYfNhIimhnf4eDezeDfFclbDc3IXd4bXd1G1GXd3I3d7WbupQ8OfRcQMs8pQRKQ9PGrWqcuVbVcdeyijeFili3IVf4eHOQfYfAhQf5hYhmhMiuiYf5hAhni")
AspCoding.EnCode("aCFcAI6c2H4b5c5c4b2H3I3IXI6VbuoPUpqrJsRsTQrR7VgQHrtPS9PqKQOQbqOQcuVbVccfagkfECEg5cCiXgUeIgwemfIhafXg6flhWhlCkgri4iAhiivfzg3CGh7clI2H5c5c3I5cXd1G5cXIeqIquqJrRQLRVRcPDpbuCqEW698qePmROQHLVbhbgCzhahFili3ICi3fSfuivC3fkhzeIhafXgECAgWhEhvCqhZeEiCCweyCYfGh7c7dXd2H4b4b1G2H5c5cYHfRcQJrJrOrMqRrbq7WeLoPEWuqmOir")
AspCoding.EnCode("vrWqdtVbCHcfyiah7eli4biC3fG9rimhAhPe3fZgZe0gbCag7ijeliFclb7dXd3I1G2H3I2H4b5c4cRQeRLR4sKqsQtRiPgQIqLr6WRQJP9PcPOQHLVbVcbgxCahEC8e1GtCxgxC8hRfzfYCjgafgCafXg6f7ePiThAfmhMiee4imeZiAijgDfBGZdVfYfah8f2b4b4b5c5c2H4b4b5c3dRrKRLr8pUWerurrqfQGRoRbRQRKQ9PdQKrcMqsIQWIgIcfyijeFiFh2HRfyhjfEfPhwi3fjgafgCjgZiFiAgre")
AspCoding.EnCode("BgleYfNhRfng3fAh3haCHgYcPiAh4iYf1IXd4b5c3I2H5c5c3I4cOsiPsreRVqtqVqFruQ7VSViPLQtQhqHqerIqqPLROQGrtqIKqscqVbVchiagxi6fDf5ctCwfzhFePhzfXgwCjgIhkhYClh7ePiGOle3C1fchEiACzC5fkhmhBG4HPiyiAf1I2H5c5c5c4b5c4b4b4cRPpqLqpser5rOq4Psq8pEperJquPirHqfscQOrrrWqbqsPGuVRbPWIWdbgyijeFili4btCaCagFeRfkg3fkhvihiafXgAgECuh")
AspCoding.EnCode("Uf6gZe1fVhliyhYf6eBG3GVf4iahAi1IXd4bXd1G1GXd3IXd5bpQwQRsHJuQUOgQvREpiPurrqfQHqerdPOrJPRrGruRGu9PTOoHCHIhjfahlhFh5cuiwfzh8hhixCxiEg4ikfFhgiH9qh3fZgngHg1IJfZe6fYcXdXd2H3I3I2H5c1G4c7WbupQEWCQ2QOq0rOQCRUpUsFVtrLr7VqPLR9PdQVbCHbgjfahlhAC3ICiZiBhriYflgsC5hXing1fhiyizgli3CjeliHgkbAbAb6ckHlI3I1G2H2H4b4b5c4b")
AspCoding.EnCode("ZGfRcQLr6WPqssWqbq69BrLRT9LQMQD9eMOQeKpGhbcfagyCAgFh4btCyhke7iuCDeyCsfxhwi3CEd4HLhmh7e4H5c5c2H3I2H5c5c5c5bRriqEWSrqPMqWqHsLrS9eqxPKqFpsQJrWq7oT9yqgdCHhiyiahlh8e2HhgjeXgnCjg4ibeEilixhmCwCngdewfng5fvhFcYcJfngAgZd4b2H3I1G2H4b5c4bYH9PpPSo8QgrBqMrfRSOHKhsSoWPTsTVRsGqwpCQ0sWICHgCjfzg6f8e5cghkf5hmize4iVeai")
AspCoding.EnCode("xiwgqfZe5CTH4HLhYflh2b4b5c5c2H4b4b5cXd4cVRhrUpEqHrl9EWiQsRuRCRkReQEoIQMrPs7soQaRWICHhikexilhDf2HqhjfAfchxikfag8fyC4g4iFc1IKeng7e4H4b2H3I2H4b4bXd3I4cRriqD98QSVzO6WErHRzpIrmrUVE9Gs1PhcgIIhzhahFiDf3IogweDf6fVhZhVizh8eHg6H6cAb4bXd4b4b5c5c3I5cYHWQProsiQQqiPLqhQSVxsBVUqWqGMVbiGhixCjeECDf4bCiYCzCafVh4hxeYf")
AspCoding.EnCode("niliTH1IpfwiZiaikhYc4b4b5c1G4b4bXd5c4crq9PdqfuUpv9VqQPurjqBOfuhcVcVbhbdejfzg7eEgXdhgxi4emivimhPCDCjgke3fmgQfAhyi3i8f4gEgsCxh5fHg3GJfmhFi2b2H1G1G1G2H5c4b5cXIqsiq8ODPdPAOFVes7WbupQ8OqRbQhskpORRQEoA9VbCHIhyijeFi8e5cIingafseDCafjf5hZfqhAhzh3iAi5fFhqhaimCFc1Ioijf2b5c5c4b2H3I3I3I3IYHtPapurssDOlpORIR8pHLRP")
AspCoding.EnCode("1rrqgQEppqDpbuCqD9PQcRpQyOOROr69yVRPoRIPfuiqjQORaQQqyWZdMg4iFi2bhcCHbgxCahFiEg2HuiZi8g4iPClerilgzhnhEhniDfRgygXeQf3fFhyhFc2bse6gafyi5hnhsCAhzh3iAi4gliQfvfniZd2H4b1G4b2H3IXd3I5bSWnsEWCPQr9sEolODpHKgr8OVsbQCqAWFoCQerHrhQcRoHVchiyiahFiFh4bQileqhAhxC3iAi3h8eqhvf5fPiThle4iGhZdAfxiXibWYhwenfIVxe6g5CIVmiae")