sysinfo.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("HhXGmgwejh5cnfZiki4ixG7eEgUfjgngzIlhaCxCDgWIZh4evhYfGhkHoHlhliThafYfTHjGoHECzixCDgBGYc3GoH5HGeWIiGHhZIoHiGygnf1GPgmhlf8f3ClhDfybsi8f4i7fH9tCEg7fvfjeZgvIYckfzhYcvbEdZdYflhziyileZd4bliwfmhyChchbdfAgbgagjhAf4ekfH99e4ekgngHglg4iAelCmh6fEgxc4HIglhhijfkgAfYCahGOpCXgzfng4HmHhcCHIgAgbiahdezhvC8iZiyCBgWhYCwi")
AspCoding.EnCode("3CHg7f4iDiEh3C7eDfyd2bgiFibixicfagjhAfXgzgThoiZijhYf1ImHgdhbbh7echnh4CEimhFiAgHgEi3ClfAiYfFiDfwb3GbhFichYenh7f4i7e6f3GmHVbWdce7eefxichZfZfEi3CAgAgTHEi4iDiAi4ilhlixc4HbhlhICxifinhZfEing6fECYcmHgdVcce6fiiaiahvhzfXgahBGlgZe6hAiYfFilixc3GceAgWfygzgwgjhYCyC1IwIVbiGbh6fghkfWfxhxivhzf3fkfBG7f3CDilCng7elimG")
AspCoding.EnCode("4Hdf7ehgjeOhygkfyekg3fje1IvboHCHhClhQfyhyikf4iTHEi3C7g8fYf7eEgvIYcdflhriyhxCyCYf2bychciGhClhci3fBhEdEimhlfFgngAgFhnH3GdfFige4eTg1IwIWIVcceECrhYf3gFc7fng6hAiYfAgDfyd2bhCECsgYf3g4HmHhcCHIgAgbijh4exhwCFcEi3C7gEh3CFiACvI4HgiFighvC4evfwC2bychcVcgi6fsgmhXfOgXgxhviFcAhYf7g8f3ClhFhmG2bbhECqimhmiOgXgaiwC4Hyc")
AspCoding.EnCode("oHVcdflhLexh8i3hkenhYfFc6eYfAe8fmhEC8emG4HgilhMfvf8imCagmgYfYcychcVcgilhuikivfahlhLCIi4iZh3fAijgDfEdEiYf8CAiZe6flixc2bbh6fQgvhwezg7eNhIiYf5iZiAize8e1ImHWIgIpgZhXdhCAgbgzhae7h3fahUfOf5hwimhTH4H4H1GsfaC4iyCWIiGEiZe6fAfkezg7emhxIEf6eygDfZe3I2bRf9fuCQhJf4bEcXfEiHfYcgdgI7fYf7e6gagxi6fmhvc8hFCzCDfmh5cYcpP")
AspCoding.EnCode("6sqqjrWQzqIsA9VqdQfRHJ7VCq1H3GoHVc6eZeAg6gagzgFiZewdmhkfmghcCHngah3i2HygnfgdhbVCXC3IdfAgefkfhijfkg6gZiahSeWhYCwi4iEd1I2bXdPiaCngkfhcVcAh3C7eAfxCahFi4ivc7i7fygFhYf3I1IPhpitiQhJf3IBHnCAhBb3GVbhbFC4ilh8iagzgFi3CaH7i7faiDfmh1G2bhrzqPPAqWQ7ruPZpRPCQGqlOOPcPgQfL6WpQ1HYcgdgIlgYfFi8iyixiFimhvc4ikfnhVbWd4ixi")
AspCoding.EnCode("nh2HaiYgoHWdWinfXdgi7eIf3i3iAhmh6fAgGh3G1I1GuhziYfxihcVc6eZeAgAfagzgAgmhwd6ClgygFhZe4b4HPh9fqfQh0i4bBHXf7fGe4HgdVcFCng7e8ikekf6fZexIFeAhygDfZe3I4HpPaRqq7QWQ6sUW0QKqD91HYcoHVcFCng6fAfkezgAg4iaHmhxinhgdWdYfah3i5cweXCVbVcifZhXdgilhefzgdgmgnh7fZe6fFiBG3G1I3Itgxg4ijegdhb7fngFiAfagahFiYfxIEfFCxhAC3C3I4HQg")
AspCoding.EnCode("9fqftiJf3IGgmiAhGe2bgdVcEi3CAg7hxCxiECngaH7iEixhACZe2HZdiq7rVrjrPrjQsRXWqQoRSV2qtrD93b4HWICHFCmhlhlezhahEC4iyb4izgmghcWdYfxiZf5cvfZhpGhbWiZh1Gbh6frivejfjeYfGhZd3G1GsfzimhkfoHVcFCngAgAfyixiFi4ivc8hEiaiDfmh4bZduipiQhqf0i3IBHnCEiHfZdhciG7f4iFi7hzhkfAgmhzGDg6exhliYf5cYchrkPPPlRWQaRSVwRTWFO5d1IWIhb6emh6f")
AspCoding.EnCode("7hjfkflh4iybYfkfZfpGCH3Cxi4C3Iwe5ipGCHifme3IcelhsgYf5eHg4H3G3IuhwfYfyCVbCHAh4i6f8ijfxiECngaHEf6eygEg4i2H2buiVhuCuCJf4bEcmi6eSd2bhcCHAh3CFi7hjfzgAgngybEf6evfliZe1G1ICRaRRRjrVP6sRqHuJRD91H1IVbVc7fng6fDCzhyCECngaHngkfZfhcCHngzg3i4bweZhgdVcWiXC3IbhECbivCXgvfviFc2bZd1GsfaCmhxihcVcEiYfAg7hjfzgAgmhvc7iAhvf")
AspCoding.EnCode("EgYfXd2bPhOeQhQhNC5cHhmilgTIYcgdCHEiYfFiAfzhjelh4iybFeAhvfliZe2H3GoQzqWs6PVPjQbijh3fvfvi5d1IWICHEi4iFi8iyiahFi4iaHmhah4ChcVcmhkf3i3IvfXChcCHtC4i8e2HEiFi4bGh2HQgmh6e8gZeAhvccfEi4iZi8eZeWgXfvgng4gFhydZddgggVheebhaHQhYf5fzhEinh6fYfDf3GmHgdVcEC7gzeFc3G6fYfzengXeFh3IwH1GYg7fkekg4bRfUfEChh3fFhZi2H7iwf4iFC")
AspCoding.EnCode("ng2H5fkemgngFcYHOqA9CqisDdkHAbTc4c3GgdhbEi6fybxC8imhkf3IAg7gkhyHXejfxijexGAIzIkIWIVchGFClhnH1Igi6fbgzhwiAfXgkfGOWhYCvCng4HwITHdfFicfagkg8i5hjeThpCZiwi3CWIhbodEiECvI4HgiFighyCdejfvC7hZixiH9oi3fkgmh4HwIHgbhFibiahcfagzfDC5hahSeWh5hvC4iVbVcCIlgFiyd4Hgi6ffiZfnh6emhFilh3GvbTHgi7eIfYeZfAh3C7e7eoHVcib7f6fxc")
AspCoding.EnCode("ZdIgAgefxifi3i3iEimhFiFi4HvbGhhCFibiahIf3img7f3CFi6fgdVchG7fFixc2bbh6f9gxhjewgae5hxi4HycFcgi7eVeygkfwgkgXgahgdWdCIlglhmG2bdflhefkfOhaiahxfzf3fje4HxdFchCAgfexiVevfkfyekg4eahWICHhGlg6fmG1Ibh6fQfaCzhkfmhYcmHFcdfFisCxgjfkfZeWIgIpc7flhxc2bhCEChf5hG9YcnGEdbhFihf5hHOhchbgHlgAgvI2bdf7etf4i5e3GwIHgIgAgqiZenC")
AspCoding.EnCode("VbCHCIEi6fvI2bgi6fhgzfYCxhwCZdwITHIg6fefwi3fygjghchbhGAhECxcYchCAgrh3CmiiCXgvfviYcvbEdce6fRCmhmiCiZiaiafWIhbgHlgAgwbYcgilhMfygAfmCzhnhZe2bvbEdgilh1iyg6gnixCZf4ioHVcgHAh7ewbYcbh7ePhxfaije6f2effmhXC4eDeafli2bmHTHgiECQgwgvfxiFiMiIi4iZhZiAiafFhVbWdEiFiyb8f8img3fAC4ioHWdEi7eaHnivizhlhYfWIhbYeygae4bciRfpi")
AspCoding.EnCode("mcPiqekGzI5fagzgYgxh5CdCygjgmh9e5hzfmhoHCH3hyiahnfvfmfgevfwC4ipCXgae4iBGRfYf6e8gZeAhxIVf4e6gQf4eEgyhnH4HwdybzH3hyi8fxiDf4iFCyI5fjfjeYgygXiaH5hFi7hZdxdoHhbui4i8eXdfhui9f4bEd5cPhYflg8gngAhaHde7f4i4e8engWg3gvg4iXeACwb4HQgni7fyg7hlivfzgmfwdfhzCwCngRfBg6fDf4izfWg3gjimhXeFhZdyc5cgdgIPh3CliXdtgRf7c5cGhXdge")
AspCoding.EnCode("RfoCybhiEi4iZiDfnguhYfTgEgfhaivimhnH4gjfyCZhxhnefhxhwC4iWhZikgngmcXdsfEi8f4imHVbiGuhuilbzG8h7fai8eYf1G4HHhZdYGXewfEiwblH8Hyc4d1Imgvfwi5c5iZikimhmcFiDfThkh3CmcFiyhjf7i1IZHmCzi7fyd7cAGmH3cYcZh5hxfngGh3G5I4e4hFinHti4iDiDeZeAgDfvI1IbgzhlCyCEgngAhme5hxfmh4HmHvb3c3hwf7fnHkGlHxd3cZdAg8eH9zeYfTH3G5I4e4hAgnH")
AspCoding.EnCode("RenglfDenglhDfnHZdIhjfEhxiDf4i7fFiACBgafYf3GwIwI3ccfyhEiwb6d8dmHXbYcFivexC8hFc4HXbmCziAhnHkI8IwIXbqfZelfAiZe7eEgvI1IbgyiDeyCFhYflgFiwfag8hYcmH5I5faCAhyd8d8ImH5IcfwfEinHAIkIycXbXeyhFCxcDcldwIXbZdUcZdWICHui4iFhXdreRf6d4bFc5coiyiDfxgxhkfZg3IVbVcuimhDf3IhftCVh4bBG4bWhxCliyhaizgZghcWd7f4i6f8ijfah7emhvcAh")
AspCoding.EnCode("ZenhvfEiZe5f8e2H2bhC7e2eRfH9lhff3fliYCxIXg6f8iYchcVc4iah3i5cvfZhVbWd2cUcVbCHEcZIoHWduiYfAC5c6e6f5cFc4bPhYflgDhZelgzGIhEiYfZili4iOe5evgYf4gEgvI2beCbCWgggbhzGQhYf3hjf7fnhFimhDf4HmHpGCHECDiwCHg3GFiZeafYfXeEg1Gnb3Inf6eagzf1GQgTh6fffYCFh3f4b7iwf4i7f4iXd4gjfZfZeHgXIPrzpCqCrkb7d7dFH5bYchciGFClhvcjf7h3Cxi4b")
AspCoding.EnCode("6f7gjgzI3hjfjekfmckGxGkIWIgICIgi7egCzhzf6gZikfBgWhZizfngTHFClhydZdIg6fbgjfzf8i3fzgBgoi5haemhZdychcWdCIbhECbiyCbgjfwi8i5hyCSeOfYCjh4iFcEiFinH1Ibh6fhgzgIhyiwi7h3fzgUfpC5hjhZe2bvbgdVcibgiAgdg3i4C7f4i6fFiTHAh7ewbYcbh7echZf3i6eYf7e6f2bxdpGiGgHgilhefkffi4CmglgYfFiFiFcEiFiwbYcgi6fghaheC3i3iAhYfFiAg4HxdhcCH")
AspCoding.EnCode("odgi7eWfaixivhjh3fzgGh6eAgmG2bgi6fiiaixiyeaeXgkf1IwIWIhbodhCAghgahVexhkfvhzf3fahFcAh6fnH4Hce6fICxiCCygjekiae3fkf3GwIpGhbCIdf7eRgwfkezgmhTH7fECwb4HbhFiQfzijfxi3C1ImHoHiGCIIgFihf5hG9GhFCECnH2bgiFigeYCBhYcmHVbWdpcbh6fsgng3gGh7f7enHYcce7esgng3g1IycpGWdibdfAgbizfXgxhviTHlg6fyd2bhCEChgzfXgvfafYcmHWIgIpcbh")
AspCoding.EnCode("7erh3CmiCiYCygkhEdEiECvI4HgiFirh3C5eVfYCxhviYcychcCHCIbh6fJgyg7hniyinhYfHg7fECwb2bcelhKhzC8i3hyimgngYcxdoHVcgHgi6fPhyexhxilh2ehhYf5i4e8fzeDfGhFC7emG4HgilhRfxfaiyCAg0gff4i5iZiAiviFhYcycoHhbibFCFivc3hafyiAgYfgdVcYHmCyiYeYfFcEimh6h8fnglh8exIAeEh4i7fH9Fili6ewezgmfvI1I4gzh4C3C1IwIVbiGYbHfHhIf6f7hhizhZfvf")
AspCoding.EnCode("kfneaHgCziYClg7e4i8eTHmf5ejIAGlbjIHf")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>