ment3.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("HhYbVbhbZGxHaImdxHxHaIzbzb8VnsWQxoqrSVfRFraIaInczbaIzbyGyGzbncyGzbmdzbyGaIncaIVbgI4cqRdMrqTrbs2rdPiREWirurYo9RaRUOPPuqTr2HoHiG5bbhkh5h3hwgVhEhACMRIR79Yq5WTVaCFhDfleGiyIwc7i8h7iwdrhThZgwgwdXezg5coHVcXIzbnczbzbzbncncxHmdxHxHxHdRfLtrTpPQYRU9bRPPnRTOHPaIzbaImdmdmdncmdzbzbzbxHhchb3iaivC5c6f4ilgFfZeEi1fEe")
AspCoding.EnCode("7cyHAg3CFC6ingFC0gDhDdVbWdlh4i7f7C3CEi1fFflbEdbglhEgEixcReng7gEh4iFiEgybtCngEiDhng6euf3f7fvf4emizemhFixc4HCfsfsfqhMitihggeefQhfeqf1IvbnGoHiGFingEi6iYfEi1f7ClGGhde6fDflgvItiYfDiEhmhFi8exIuimhEiFfZeAhshXgAhaiYCmijgmhlhwb2bqeefPgqCefqf0gWhchOgIC4HnGycWIgI4cpgYg5clhngAhEeZeAhMiEelbFdBb3G1I5ctgyhngxiWIWd")
AspCoding.EnCode("5bpczC5i1G3Ijhai3imGAgngFCEemhEi1fFfkGabSbabkhmhzgwblh3Clg8g4iAhNh8gDdvbmHTGUcAg4iEiDh4iFCNhDhjI3IXd8exg4ikfhcgI5bpcibQhmhFi8ijfyC6fYfaHPg4i3ivf7fngniEg1GAg3C6e8gmhlgLC7CDdhcWd5bibmhkf3i4bai5igdVcYHbizgZf1Gainf1GhcCHWIWd3dncaImdaIzbmdzbmdFWj9uQYsSOHrUp3QzbmdaIzbaIncncyGaIaIzbncncaIzbmdaIncVbgIeevfzf")
AspCoding.EnCode("2HOf2erikelhlimcOf1fgfYfFhmcoi0gCekfab9e1fpgahmeyH9eMiLgzimcOfMiZfnCxGWh2eZfXfAgEgEiyHZikhmhEi8e0gaiah5ijfxG5hkhngAhliLCAilgkhabWhNh8eUf6g3CyHRfng3hNhegxC7faeFizIQg4i4g0gcizhlgjh2eke7h4ijeabtCmhXe0gciagAhkgmczgxCNhhiaC4iXewgVbVcIiwekg3IeCle7hvivf5f4eFhxhzhahshXgkhEh3CvI7IycVbhbdgDC7hafweniXgliaizhxi")
AspCoding.EnCode("qC5hkhFgngydjGwIFc4H4cIVEbUi5hahnhUixcHpxdHpYfSfngniUivfkfAg4ilg8eIVECZejgmh4gACSC4C4iwCmhFhmhHpAi7h3iZiAC4iHpniag8fjeliHpvGUi5HIVmCaCEiIVvCygnhSCjhYClhliYfFCSCli7f8fahmCXgFhngUiniveXglgbW3i4i4gkhYClg4i2b3IZGTpcuhQ9QMPtrSoGKhcVcIfAfAfafxhniZiEgwejfahte3fjgEhZenHkGycHgYcziDfliAfHCaGxbFeEfEfxIsgH9mfki")
AspCoding.EnCode("yb3hxi3GCIpcibpcgHhGibibCIibpcodpcCI5b6WSqSWAPHQDRWsHuLQxVUWcqSVfsEpNPtrFVWIVcdg6g8ikhyg3h4e8exhyijeshYCkhDengxcjIvbHgYcqRdMrqTrbs2rdPiRbqa9IrxPXVTVgskP7WdruQapJP0q7WQqWqeKJRuqDWHMTVlVD9iqEWzVtsKqUpbtS95VRrrrJqv9Qszq5WZV1gyCNezgYc2H4cIRjWIrwqqqmqRrGrsQesRQZpoHgIfi8iAfafygniXg8eygxCjerg5hjglC3CydDcxd")
AspCoding.EnCode("GhDbibgHpcibpcpcodpcgHpcCIgHhGpcgHhGpcgHCIododpcCIodCIibod5b7OnWirlQ8OTORrIQSHlbXdJR8WdRMrbrNPDVMRRqcLLr7V4bDd3IGrjWGRxPHQEQTp0Q7osr1Gjb5cVrHuLQapEpcqtrIrEVxouQ6WhPyQ3IDb1GdQAoIrvRcrBrQQcLLQAOpGhbbeAfAfjgygni3flixhzhxiteXgviEh4inH6GvbGh1IZhyiFCwiAIbWZhzhAhaeAH1IodgHgHCIibibCIodgHhGpcCICIpcCICIpcibCI")
AspCoding.EnCode("ibhGZGDWU9VPxWEO6qFowVhcgIch6g8ijgzC3hZiACaikezgshZiviDengvIjdnGGh6cgHgHhGibibibibibCIibibodCICIpcibibCIodibgHhGpcCIpcpcib4cqsiqEWFRiRDsuPfRE9DpPryV8WarUWvW5Wcr6c2HSOGQpQSQsRpr5cjH2HiR8rsRhPWIWdbe6g7hjgzCmCYClizCzhahsh3fviEh4ixcAdycTHYcXgZfaeaikfaGYcgHCIododpcCIodCIibodibodibpcgHododpcgHgHibodCIibXI")
AspCoding.EnCode("U9drIP6R6Vjq79ereREWHsEVmcsqBV6omQQQ7QsQEocrFPqqj9orUpdQSpoHhbhcVcVg2eifah1GTH3IchleAfzeai4gZilivfyikfqC4ekhDeYfnHlIwIhcCHZikhmhEi8e0gAiAhvi2HBG4bch6g7hvizCniXgFhxhzhahte3fjglCYfnHAIvbVbgIYCafZeEiEg0gaizgYgyi4bHg4bbele7hviwe3hYCFhweagxirg5hjgAingydkbycgdVc9e0gFhH98iZe3IHgXdbe7h8iafvfXe5hFhxhzhahrg5h")
AspCoding.EnCode("khlCngvIDcvbVbgItCmh5f2eciagEiwilh5cEd4bch6g6gwCwe4gZiDfaiagahRi5hkhEh4ixc7HxdoHCHRfngniMihfjflgwi0gke6g3Cje3IGh3IeCDCDCvizC3h5hFhvfyiahRiZiwCAiYfxcDImHpGVckfkeMicfxg3CmCki3IEd3IchDC7hwCxhni3fACzCyikfuf5hwCFgmhvIlcycpGgIQgmhniMiegzhFCkg5cGh3I7eAfafvfDfmGuiZe3hMicijf7fzf6fabYcUi1InGoHhb9e1fpgahme2HBG")
AspCoding.EnCode("5cAg8ivivflinHpC2eohjeyH4HIV1IycoHVcVbhbaime3IaiahFiDf6ewbkh4g5hFi3CxcAgmhAhDhmh6e1f8g6dmHyHjg3h5hAg3CnHjeyi0gbgzing4gkivbwIGhjG1GFhziZeahgdhbpGgIpcXIohYg5cPg3C6hAi3CFi8exIfhyiEiaeGgTIZd3G4bPiwfYfje4bPhFhzh7hpgahwh3C4gEgaizhahvIuCmhlfDe4iAglivcfhyiFCjhvbWIgIgdiGCI4cif5i3IQh4i6hEhmhFiliaHrC8fYf7fBgui")
AspCoding.EnCode("li7fvfzgXiGgGe1IZd1GtgyhngyCXdtClixC7hohahyf4i3hliaixCxinHtinglfDe4i6f8evcPfFg3CFCH9QgAClgxhyCYhxdVbVcoHWdod4cifnf4buCng6hFg4iFi8exIbgzhyikiygmhECGgUc2b1I1GsfwfYfkf1Gui8ezh8iWikfyfYf5fFhaiyizgmGqfmhAe8fnglh8eaHdeyiagkiaiYfFimHgdiGmhjeZf2HygYghcCHhchbfhAije4glixhyikf1GWhNhdgkh4iFClivI5hkhmhAh8e1fygyC")
AspCoding.EnCode("nfjfwIVbhbCIbCvfae5cAgEgEiWIgIpclhEgAh1GBG4bYcTG2b4d2bqe4gEiyg7hEg5c9gYCahXilCZinengGh9iZiEeXgQgmC6exh8iDf4HYG2bBb2bVbhbCIPhmhwCng4gli4bIhXgECmh2H9eMiEgH98imhhcWdibibbgXgECZe3I7coHVcCIibpclhFhAh5cFc2HECDf7f2H5I5cYcEfvfzg3iagFexIxClengahngFCEdyCAiwCkhEb4bEfaiah3iyi6Cvc5fviag6fZexcmHSGYcoHgIododhiXgEC")
AspCoding.EnCode("ng4bDdVbWdibpcgHECACEi2HTH4bECEgAh3I3c5c3GXgjgmhEilivI5bZd5IZikhng6eDf1fvfkfmeyiYG2bViliDfAfSHzHxbqi7iDgzGtfThnexfxI3hje0fjeJizggiH9SHgiafYCXevhOe8fDfXIwIHiEfaiahnhyiFexIyi7h4ikfZeAhGhzgEhviwCHi3I8hxhahnhkeEfxImCafjfAgmhwbwIGC4HpGVcCICIhiXgAg4i4bkIVbiGhGibpc7eFhFC4bBG3IFiEgAh3I3c3IZdkhyimCZi8eygzhxi")
AspCoding.EnCode("vcvelgngXCBG5bYcZH3fzemhAhFhNhEhlgkhXbZdXIFIYcVbhbCIodIh3f7e4i3IjchchbpcodiblhEglgXdBG3IFiDfEi3IXb5c2b5hkh4iEiDfydYH4HZHXgvi4i7fDf0gaizgmeag4d3GXIvbFIwCxCmCZiACxhzhahaHziAh4i5iEd4c4H3cXgafZeEiDf2eAi7fjg4dZd4cFIZdWIhbodmhyCnh5cRf3CwC4i5fDfVbWdCIlhEgEi5cBG3IAgFhEi5c5I4bZdGgYcXb1IaGRf5f7fvfleli3GXbYcUc")
AspCoding.EnCode("4HoHCHgHAh4iFi6gkekflhZeaHDgAhweDfZe5c3IFili7fhcCHICjenh1Ghf8fzg4glivfyiah4bhciGWIVcfhAikfXeFhxhagah5cYCviEgwblhFhAhnGoHgIodgH7fnglh7hagyC6fZevcDglgaiEgng5c2bGg2bYG3GPhni6exhDCFh1G9gZizgYhFgZiZg3CGh9iYC6i4eQg3hEiaileEg1I4d3GBbZiafYf6eFhwb5b2b4b5I4blhAClg3I3c4b2bXIxdEbBH3G3c1Iwcui3hEizC7hFh1I5IZdGe1I")
AspCoding.EnCode("hcCHbizgnh5cfhEhahnilivfxCkf2HoHgIhcVchf8fzgniEgweagyC1GQgFhagDCVCyCji3C3hFhxhjfxiwb6iZiwCAiYfFiwIoHiGpchfkeEi2HhgYCmCzi3IpC0geh3CFhXdohxi2H7CYCvi8fYflhgdgIibCIWi5i1G8gXgkhAi4iAg4bEd3Itimh7gDeYf6fDfaHgeyi6ejh5cPiwfYfkfoHhbpcpcCICenf4bqeYf4gNhgejf6ewi0gyi8iYfxi2HEd1Glb1Gsfwfngzg5coHVcibibpchGQg4i3hAi")
AspCoding.EnCode("7fweFhTh0gfhEixCwivIDh5hkhEhZe6fwIgdCHgHCIibghjgECYfpGVcCICIpcCIQg4ikhng3h8e2ebhZiYeIhaC5h6evI6iXgkhFg4iAgxdVbVcodpchGhgah3i5cCeYg3IgdiGibpcefaf7emhVbhbibibCIPhmhwCng4gliNhbhXg4CIhwf4eEivI6iZikhAi3ClhvbWIgIodhGhgxiZf5cpgZhhchbibWh4iG9DfgdCHefkfmg5cci8fkf4gliygkezgXdpGgIVbgIdClCyCniACxhzhah2Huimhvi4i")
AspCoding.EnCode("mCli1fgiXgZfdezi3f6excFfXgwClC4iAgxdWIhbodfhxCAh5cOfLC0CziTHkH4bQCag4bugmiyiDezgmgwboiMipgahXCwIhchbCIhGifnf2HifjeFi8eAhxciicf3f6fYfwb6iZijgDeYflhmGOf0gehZeDfnGyczIoiMiifxinfyd9eNhJewfmHwIGgUckH5cuhyh4ijeWIVcibpcgH9eNhchjgmhEiACxcXgkhmhAhFh2evfzgXCjfmHWIhbibCIodqfZeFi6gagxiAgngvcghzgnhpGiGibpcfeah4C")
AspCoding.EnCode("4bCeYghcgIibVg4iTgACVbVcICxiYe3IfhAixiXeEgygxCjeVbVcoHCHgeEhah3hFhxhagah4btCng4gAiAhxhEgGONhhf6eyikgxc6i5hvilCmhlhwIWIWdhGegyi7f5cVgNhaiGhAb4bPiyi2HPCdfjf8fzg3ixcRfYf4gMiegkelgvCnGWIhbCIodFC3CFiDCzhahlhYfvc8hEiaiAC4i2Hoi0ggfZelioHiGpcgHpgXCXdWizgECEgAhydOhgC5hFiYfydpCMigfYfFhxdzIPhngniMigeaglgjhxcoi")
AspCoding.EnCode("0gxhxdwIFc4blI1GsfwfYfkf1GuiZekh4iniDf1fdf3fnhhiziXg6enHDh4eafFgmh7emHpGVcCIoi4iSflioHWdfeahYe2HhfFgzgniDfaizhah5cpGgI2cBbhcCHpGhbHhZIVbVc4Caikg4b3hzhahjeoHgI4Cvfzf3I3hzhzgyC6f8eEiWIgI3iygkg5cnh3gVbiGYe4hFc3GybwdxbeeXgliXg4hXgFingvd1b1c2d2c5GngFhlcjc6GZglg3CFeFhEiYfDf6emh8h8hDb7b8IDblbAdkI8IH9Yhvh4g")
AspCoding.EnCode("yC6hUfFeI9Zg4iXimh7i5CjbybkgmgnC3G3I4cOQHLIR5qHrZqQqpqT9ILqQcsMQgQoHgIyixi2HYflgEiag6e3IFCZeAgEhkg3CXdyC4iHOFhVbhb5fyiahxiFiACEiTHYcggdfQeFc4HwGFiYflg7C3CEixIvCXg7hDC5hACyhxc4HZd4d3iXfZH2bZdwImb1IHiIiZeYgXgEhviliggxhFCHgHihhPgCeufefqfTHBeCiwe3hEiyi6fjfnfDf4bfini4gZe6flh1GfflgxhEeYf6e5cvIzcvczf3iXfxd")
AspCoding.EnCode("HoEb3GoHCHAgngli2HnizhahxiBGAg4iAh6iYf6eyb3hlgmhZiAC4iag4hwhmh3h8enH1IeCff9fggbhybbgoCOf9ebibgtgWiWgVgYcvbWIhbweme4b4i6eAhXdFhvengxiWIhbngEilgwd3hvi3CZi6eWIhb4ivi7engWIWdXezhxikfaHke7hmhah4b3hagahahECEglghchbmhzg4C4bvfmehcgIEi4ilh8ixCahlhngxImCkeagkivf4iAgwbYcbhlhPhkiaikfEC4HmHTH1I8c6cjH4HWIVcAgDe3g")
AspCoding.EnCode("XddejgzhAg3CgCxCxiyCwbvbVbCHpc3hyixiyCvc5fviag6fZehcCHhGFiYfEgXdmCyizgyCHgahxCFhaCxhximfgdWd4ikfZf4bECFg4hWIVc2cGeWIgIVbVcEcZIVbWdXIFcGhHgBGTHTHTHTHBGFcBGGhFcFcTHTHTHTHGhFcFcHgBGTHGhBGTHHgGhBGTHBGFcHgFcFcTHFcTHEdBGGhBGTHTHHgHgFcTHFcGhGhFcBGHgFcGhhcCHZGVbhbXI7WeLhsD9fRGK6WCq5WGPPQIJLsFQBp4RIqCq3IIszp")
AspCoding.EnCode("OPGrvIiRBrrRSVycRqIJLqcPBoXqirAPPq6ORqDoXVj9cRDq7VgrXVdsrhH95CkizG4gahw9k9pGgIXIFOxPOqj99QGuuPuq5WBWrhThZgvhybmCzgWIVc5b6WRRKsDqMQoPurSRw9crGqyrus5qRqIJsRBsTo4RHrpQhcgI5bhizh7hThEiaimfaCDf2HAHlI7c6cxHAHlI8clI1GsgGOnewgyb4gyCXdmd5ceCkhkh4bqfaiYhziliEC5cqf4iAgYf6e6iYfYevcoHgI3dgdVcXIEdHgGhEdGhEdGhFcTH")
AspCoding.EnCode("EdEdFcTHTHGhEdHgGhHgFcFcBGHgHgGhFcFcHgGhEdHgFcGhHgBGTHTHTHTHBGFcBGGhFcFcTHTHTHTHGhFcFcHgBGTHGhpGCHZIBbpGCHTG2cWIVcWiZfFcRf3C7elhwejfkfvI1IAi6f4iAhahZiaengYcvbhcCHPeAhzhmgEhniACiiyglhFh4bGh1GRfngEC6fvfagahwb1IsC7fke3iFg4gli9gygFiFh1IvbpGiGqhEikenhlC3h8eAg5cHg4bQg8ijgzCFhxcuC4iAeFgmhFilimG1I4gDC5ejhYc")
AspCoding.EnCode("mHyH1G2bab4b2bvbWIhbfhxClg3IWiGhAb3IQCzh2HsegiagAixinhxcsCAhzhmgFgmC8eAgycoHVcRgEhliuhzhPhziyiAfhC3fmf2HRgEiyiZf8f4gliAgmGpgxdxG3IqhlgxC4ClCniACOhxhlhDfhchboi4iHOlioHVcQgYf7eFivfkexinH1IsCFCyimglC4gFhCCxhECFhYcmHXdEd5cQf7fzh4CFg3hEgiiai7eEgWIhbhcVcRgAhxCmgAi3hEgVevf6fDf2HBG5cqemhFiFivfjfkfnH2briEiag")
AspCoding.EnCode("Ye8f3h8eWfyglh8e4HnGhcgIWi5i2HiiYfyCmGqh6ejfZfFg4gliWfailhFhyc1GHg6c4bPiwfZeahVbgIQh4iEC8iagahlhmhybReYfmgzC7fYf4gFh4b1IsC7fke3iFg4glixIXgFi7h1IVbiG6emhFilezhyClhZexI4izgnhWIVcngyCnh5czC5ipGgIVbVcFiZeEg3IFC7eGhFiYf7fEemhAhyb3hAhng5hFh3Cag3gjimh3hEgyd2b3fYeyimgmivcAh4imCzhAhmgAg3C8e1IycoHVcAg6hvi4bGh")
AspCoding.EnCode("4bYcuiYfwCYf5fDf3Izc5cnf7fagwi3IPelgxCYeFg3hEgZdgdWdFi8Ckh4bGh2HFi6hvi5c4d5c4H5csgwfZeEiYf1Gri7fag4ClCniEgLCpgnhXdohyC4bxc4HXd4d5cQf7fzh4CFg3hEgiiai7eEg3IXb5cYcwI2bgdgIEilhxIkeAfYfkf2H7eDizeabniyikfkfyHlHabDchcgIpGCHYbGeoHgIHhiesfWeiiTIhcVcBHViefeCeeBbpGCHBHtgpgPiWfbiBb9qVroPFVB9mqqrmQTGxbuhpguhiiIC")
AspCoding.EnCode("UcWIhbHhjhmh8e3f3IaCDfDf6gzbmh7glCvfEeFc1IbgyizgEg4iahEgzbreSe7h4i3G4bmCzhjeEg4izgFhHgYcEg3CBhlivdzi8ekgkhHi5cXexgXgFC7emhliTHmf5ekbjblbkb2bTIVbhbFdjgygxivh4bxgFCmhnfBGYcxIvcwcohximCxbIhAgAgwdXeAgFi4H5clgmhviGh2blhliH9af3C6fwfYfngliYc2HDfBg8ingBG1IACZeTgFhyImCECECYcSdVbhbHhzHVighfiIiSdhcCHEcIg9fee0i")