ment1.asp

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

<%

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

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("Gg2cWIgI4czbaIzbyGyGzbncyGDWnsOqxoWR79fRUqaIncaImdzbncmdncyGaIzbncncyGaIaImdyGVbVcYHPQGtrqDqHq3qIqiREWhqts5V9R7r6WqqtRBs4boHiG4cIgviZi3hkioCEhFhMRIR6OnPXVcrwfliEg7hGixbxb8h7i7iaHRCUfmfxfxInixi2HoHgI4caIyGaImdyGaIzbaImdmdmdncTOGKKqGqPQxr7WHrVrvsB9GQncaIxHyGncxHyGncxHaImdmdhcgI4CygjhXdlh3CAh6iYfFCLC6i")
AspCoding.EnCode("jHyHlh3ClgDhngEiMiEejIWIhbFi4ilgDh3ClgMiDhAIBGcf6fDf7fmGtiZe6hAi4i6fDfaHRfmhEi6ing6euf5h6evfXg4hzeYf7exc1IViPisfri1fuCfefhfeqfefPg1IycmHhchblh4i6e8g4iAhMiFflGGhIhAgFhEiydting6hEhmhlh8eaHQg3C7fFfngAhshXgFCvf4emijgngFivI1IuighPgshfeReNhoibe9hIC2bnGwIhcgI5bpg5i3IECmhEi7C4i6e0gDh7cEcGe1I1IXdreyh4ikfoHiG")
AspCoding.EnCode("5bibxhZh4b3Ijhxh4CvIAg4iAhDhngFCNhFfkGmcUImcvimhxiydlhmhlg8g3C6e0g6iAHycwIHhUclhmhAh6i4i7fLCFfAH2H3IliziYfkfWIVcXIhGCIuCZeAg7hagyCEC3CvcuCmhnhxh7f4i3hli5cEC4i7f6ing7f2e6iAHpGVcYHCI3CyC3i3IzCYgVbWd5bICah3i2HzCXC5coHCHVbWdXIzbaIncncyGaIaIzb89j9rRxqSObRD95qaIyGxHxHxHxHyGncyGzbncncxHxHxHxHzbnchcgIeevfjh")
AspCoding.EnCode("1GOf0gqhke6f8emcVgMidiYfliyHpC2eohjeyHOf0gpgxinfmcWhNhNivezIoiNh3iXfxGWhNhmg4hFiACEizI5hkhmhAh8e1fygyCnfjfzI5hkhngFCDf2eAilgjgmcVg0gliTh6gmhxGqemhni2efhxCAhaeAgmcQgmh4gMiegxCAhwiLCyilengahmcuiZe4g0gdCkeAhwiyHkfkeNhIhyhmh3hwgVbhbbCygkg5cch7h6gwCxh5f4eliygyixishZiwCEhmhvI7IxdpGgIfiAf8ijgxhni5hFhxhyixi")
AspCoding.EnCode("ufYCaf8fYfvI6cycTH4HXIUiFIGoXgyCYeIVwbIVxdSC3CG93C3hbWxhkfFimhEiliSCFiYfving5f8eUiZfZeviYfEg3CSCAi6g4CXgFh3CbWmCzhAikfACSCzcHp5HbWmCxgAhIVwiaiYeIVkg5hFilingAhSCEgEiEhzgXe3fDfYfHpXezi4eAhUi3iYf5faf3fAh4iYc3IZGTpeKgP9QKRKqSoIupGVcdg8i8iafai5fYC8exhkekfufXgjgAiYfxclbvbFc3GxgliFh8iSHaGxb8hDg8hvcRCH9Zgvh")
AspCoding.EnCode("yb3hah3GgHCIodgHgHCIibibCIodgHhGpcCIXIS9URUVarBWDRqqGtMPyW79bPUWfsUWNPJRD9WIhbdg8i6gwCxhniYCliweagahRiZizeFgngydlGvbFc4HPQGtrqDqHq3qIqiRbqjWbsvRXVcriqzq6VcssqapJP5r6V9rRreKtrKsDWfKTVlV8OpPFVj9LQtrFVGKS9XWWqMqurv9WQ6sYp5p0fzgJixi4H2HXIGrkVTovRWsZPVRbqtRes9swOhcWdch7h7hafai3hZilizCyikfRiXgafDe4inHAGyc")
AspCoding.EnCode("TH8IododpcCIodCIibodibodibpcgHododpcgHgHibodCIibCIpcpchGCIXISWY9ir7REWTOVRB9FbAI1GMQ6pIQtQBo3r7oLqWrcLuQ8p2HAH4bGra9GRxPHQ8qBo0QDVLq1GlH1GVrIJurl9EpB9MQbsUoaWtP8pgQvR3Ijc2HGrjWHqmrGPDRVrbKurappGhbch6g7hvizCniXgFhxhzhahte3fjglCYfnH8IvbGh1IXCjf6ewiAIIV5iaglgwikb1IibhGhGibpchGibodibhGCIpcCIibCIpcCIodib")
AspCoding.EnCode("pcod4c6o6VOqA9F9APSVwVgdiGch8iAfafwe3h5hFhxhzhzgsh5hwCFgngxc8bvbHg7dibgHhGpcCIpcpcibpcodibibCICIodhGCIpcgHpcCIibpcibibibpc4cOQgsUp8QpQTRMrpr7pDp9RA9DVAPSV5OZoTVAb3ISOcshs8rLseq4blb2HgrBqMrprgdVcIf8i6gafweni3f8eaijfzgqCYCviFg3CvI7bxdGhZd5h3izfzCyCwc4HgHibodCIibCIpcpchGCICIibpcpcCIibodCIpcibCIhGgHgHYH")
AspCoding.EnCode("DpHPT9lP7WAr79CQhQUpdQFWmcLrBV6omQqq6PsQUVBWFPQQxoorFVGr89oHVcoHWd9eNhCekf2HHg3IfiAf8ikhxhni4eEgaizhxiuf4ekhEhngwb6cxdhcgI5hkhmhAh8e1fFgFCaf2HHg4bch6gDCafweniXgEgaiagzgRi5hjgEhZemGlbycpGhbYCkhZelgli0gxhzg5iagXdGh5ceC8ilejgxhniZi8eygagyCte5hvi8fYfmGkbvbVbhbWh0gFhThDCng3IFc4bch6gDCkhvfXeZiEgaiyiahRiYC")
AspCoding.EnCode("khEhngvI8dnGWIVcRf4i4gNhcizhAhjhFi5cTHXdIfAfAfjgaini3fDfygyizgteXgwCDengwb8IxdgdWdui3C3hNhfhjfEijhMiyiDC4ikf5cHg2Hbe8iAfzeai5fXgACzCyizgqCXgkhlCmhyd8bycoHWdyCyi1fcfyh3C4gvh3IFc5cbe6g6gkhainiXgFhzCagxishXgze8fYfnHDHnGhciGPh4ini1fhfjf7fjh5cFc3I7eAfkhweDfvIPhZe5f2eciagEiwi6fmc4HSC3GvbpGCHOf0gpgxinf5cGh")
AspCoding.EnCode("4bFilejgaiFhxcOf2eohahzI2bUiZdycWIhbVbhbxhme2HygyC6fDflgwbkh4gYC6fZexcAgngEi8gngEiNh8glbnGxGkhni4elh3CwbjeagMibgyhngniwgxdvbFc7d5c8exgmhxihciGWIgIodZGoh5i2HqfZe6hEhmhlhFhxIfhzhFCkgGgUc2b2b3IQCyhYfje5cQgliyi7hWiyCwhmh4gEgzCkezgxcqf4i7gEh4ilhFhybciyi7fvCmHoHCHWIVcpcYHifYg5cPgZe7glCZeAgFhxIrClC3CEiGOPh")
AspCoding.EnCode("FhAhvfxiYhEcUcZdYc2HPixgYfje5cRf8eyiAfpgyCkC4i4gACygzhyCwbuCmhDi8f3CECliaHPfEh3ClgThQgliEiwezgZgvbhcVcWIhbodXIWiZh3IReYflf8fYf7elizGIhyiyixfvfYf6fHhUcYc1I1GsfyhZekf3IPh8ejfleWizgji4i5flivfxCjewbReYflfFgngFiDfvcIhzhyiyeyg4ilhycoHiGmhahmg4baiXChcgIVbhbfhEhje5fEgzCjfkf3IWhNhdgwCYf6elivIXgvinglgliNhygah")
AspCoding.EnCode("mekevbhciGibbCxhae3IFiEgAhWIVcCIECFhEiXdFc1G1IHhYc3c3GQg4gFCwe7hli2HWf4eahYhEh5hYhngGhChYC8gXgui3hAhygDCFh4HYGYcTIYchchbpctCmhkhng4gAC1GbgZi6f4i3IWhMiFhTh7h4ihcCHodgHcf3fAg4i5cjHoHgIpcCIhGAgAC6e3IGh3IECACFC5c4d4b2b8hvfxinhyi7iwdyiAf4izgYf6eFckfDeviafFIXd6Caizg4Cag8hwd3hwCzhFiYfydxdHi4HoHhbodCIIhXgFi")
AspCoding.EnCode("4i1GjIWIhbpcpcCIlhAClg5cGh3I7eDf7f2HZH1GYc4ekh4iEiDfnHYH4HXbZiving6eDfNhwekfYgzhYG4HieliEg8iGizHwctf6CFeybueUfmfwgxInikfJiah2hxiceBgGibhvi3fXevhVhFgFh4cxdHiDgxhahnhzhFeaHagDCYfkfngAhGhzglCafzeHi3IDgaizgmgyi8hxI3hzekelh4imGvbGC2bpGgIpcCIIhXgFingXdjbhcWdpchGCIlhliEi1GHg3IEC8eAh5cZH2H3Gkhzh3h5hFhygzhah")
AspCoding.EnCode("wdxglg4iZhGhXIZdXb3fze4ilgliMiEhEiwCXb2bXIFIZdpGgIpcgHhiXglh4i4bDbVbVcpcgHod6fDf7f3IFc5c6fDflg5c5I1G1IYCzengAhEgyd3dZd3cYCkhmhAhDfMixhxi5ixC3c4H4cwIUHzeyi5f4elivfagyCwdzilg3CYgGh3d2b4d5hviYfFCACMi8f7fkh4d1I5bFIYchciGCIngah3i5cQgmhwCngniFhWIiGgH6fDf7f1GFc1GlhliEi2HZH2H4HHhYc3c1IaGRf3h6evf6gFh3GZH3GUc")
AspCoding.EnCode("1IhcVcgHEiYfEClezhje6fYfxIDgEivflimh4b5c7eEgEiVbVcefjenh4begEhximCliygzhah4bVbiGoHgIdC8fkf4gFhxhagyC2H4eviEgvIFiEglgycVbgIibhG6emhFilezhyClhZexI7ilgxhEg4i3IZdHhYc4dYcqe4gAhai8i8e3I9gYCjeYhAi3fmfZeGhCh5hDh5hQg3hAhzC6gEgYcXb2bTIYCkhYf6elivI4cYc4b3cXdlhFhlg3I4d1G1I4cmHHiGg2b3c2bxbPhniEivfDCDf4HZH1IUcYc")
AspCoding.EnCode("oHCHhgximg1GeglCje4gFhygxCyCXdhcWdVbhbfh8fxi3hliaixCxi2HuiEgjfleWikfxe4i5fEgzCxCxivI7CXgkhlCmhECvbhcCHoddCyi7f2HghYC4gyh3IoiMihengEg4bWixi3IDhYCjgAimhAgpGCHgHgHifme5cEe5hviAiYf6f2HTH4bti4i7gDeYflh8eaHegzh6ezf1GPixg4ixioHVcgHodhGohme2HRfng4gMihfyiAhjhMike6g4iah5cTH1Glb4btgyh4iyC5cWIhbibibibhGRfngmC8f")
AspCoding.EnCode("7fygFhTh0gdC7fkewivI8gZijgFg4ilhwIVbiGhGibpcfekhECmhpGgIpcCIibCIuingwCmhniACMiceXgnhhizi4elgvI7C4ekhAiYf6fnGVbhbibibibhgahnhXdpgYg5cVbhbCIodghaf7e4iWIVcpcibpctCmhkhng4gAC2eIgZiZfhixg5hEiwbDh5hviAiYfECmHoHCHCIpcbikfZf3IWiYgpGgIod9engBhEggdWdICxi4C4bfhEhkfniFhaiyiyC5coHVcWICHgeAikfXelivfagyCXduingwCng")
AspCoding.EnCode("3hACNhhC5h3icfaCYCEinHFf5hwCFgmhAgychciGCIegzhEi5cVgNh0CxgFcAb3Irejf2HrfXfkeAijenhxcoi1fifkfnfvbhcVcCIhGifZh1Gifzglh8e7fmGiibgZiFiYfxcFfYCzeEhZe6fnHVg0gdiYflivbvbmc9e0gWiah5inH9eNhMhxgvbycFdUclI4buhyhmhjeoHgIodgHgHVgNhchjg3C7f8excXgjg4ilgEgMixhzgZhkenGVbVchGibodQhZeAg8iagahAg4ixIICah3igdVchGCIghxi3i")
AspCoding.EnCode("1GpgYggdiGiboiYfSf8eVbhbghahnh3IfhEhyC4gEgaizhahWIWdVbCHgeAizgnilixhyiyC4bPhng4glC6eygliUfMiegAhyijhwbDhZivi8f3C6fmHoHgIpccijf7f3Ioi0gweHg7d1Gtgzh3IPChCxCAiyCnhwbPhYfniNhciyiFCwimHhcgIgHhGEiYf7e8ijfzgEC3CvcDgFCygFh3C4bpCNhdiYfACgdVcgHgHohXC3IohzgFili6evI9gIhZiFingwbpC0gdimhEgnGyHRfYf5f2ecikeAhwixcOf")
AspCoding.EnCode("1fvfmHvbFc5clI1GsfyhZekf3IPhZeafZeniEgMigi3f3icfaC4eAhmGFf3fjgFg4i6fycVbhbpc9engG9FhhcCHfeahnh3IfhAiyCniEgxhzhah4bpGCHZISdoHCHWIhbHhZIgdCHYeaikg3IniagzgxiVbgInhweae4bnikeahyClh8elghcgInhygwi3I4C4hhcWd3i5eHg2bvcvcaGggXgAC4e4hZi6fYfaG1bZbZbYbZbngFh7bkd8IZgEimh8hEgFCmhDf6e4iDg7ijc7bjckdlb7bkI8IGOnewgni")
AspCoding.EnCode("kfDiBg8hI9YhmhYh4i7imf8daHzfZf3gYc5cYHOQfJGrXRdPYROsiPcRdKPRcsusoshcWdzhah4bYfEiAhyiEiXdEiYfFiFgzfZe5ckfZeG9DfWIWdmCyizgyCAgFhFCGhZdhhgiPfEdZdac6fYfAh7CngAhxIwiZile6gXgFhzixc1I2b4dmgmiXb1I3GmHvH4HUHee4ime5hAiviDfffvf7fGhHiIiPgCeufghReTHSg9hwe5f6eyiAgyi5iDf5cIfmCXemh7e6f2HgglgaiFf4iAh4bxcvGxIwinhmimH")
AspCoding.EnCode("HoEb2bWIhbFi3Cli3I3hzhahahBG6fngFCFfYflgyb3hlg3C3f8e4iag3gjing4gliwb1IcheeOehhgizGIhoCWh9ehghitgohWgoi1IxdVbVczC5i1GngAhEi5c8exgngyCpGhb4i7f7fzG3hkhmh5hAhWIhbmhwCAgnghchb3hagyCahaHke8ingxi5c3hyiyCahlhEglggdiGngxiZf5cygZhhchbAhmhFi8ijfyC6fYfaH4gyiyixfvfngFivI3GIgECqewgxhzgECZdxdFcZdkbAblb4HhchbFiAinC")
AspCoding.EnCode("5ccfviag6fZehijfjexinHwIgdWdpc4gxCzgahwd3hwCzhFiYfgdWdpc6fYfFhXd4gzhzgxiFcjeagEgyhaixiZgVbWdngxinh3I7e8fXfoHCHXGUcpGhbhcVcBH5HoHCH5bFcFcHgBGTHGhBGTHHgGhBGTHBGFcHgFcFcTHFcTHEdBGGhBGTHTHHgHgFcTHFcGhGhFcBGHgFcGhFcTHBGGhGhHgGhFcEdFcHgGhGhGhGhBGTHHgEdoHCHXIVbhbXISObuoPD9fRHJS9iRXVcrRqIJrqEPTo3qHroP4bIsxW")
AspCoding.EnCode("OPIRxciR8qrR79wIVsbKsrHsbr3PgR6qOr79QP7VXVkOIPDqS9pQYpGPrhThYhvhyb4gah5WjOWIgI4cDWwq9RkOVqGuuPJrXVcrqiThXijCyb3hzgWIWdZG7VVrsQTrJRCqurUq5WBWbryrMQNsPQHutQ8RIr2rcQpQWIVcXIdeagDCSelgxhZgaCACXd8c7dlbAbzbAH6ckb6c5cRCH9mfkixI5fje5cxH1GfiafjgXduCaiZgaCEglhXdQh3Clh4i7f7C3C3iaHoHhb3dWIhbXIFcFcBGHgHgGhFcFcHg")