ment2.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("Ec5HhcgIYHyGncxHyGncxHaImdFOmr9RkOWRUWosUqmdzbncxHmdmdncxHxHzbmdaIzbaIncncyGaIWIhb4cWrIJrqBsGR2rIqiRSofQLQZpWQkPS9PPuqTr5coHCHYHdfkhZiniwgOe8fFhKPdQSVYqZoHQveliEg8iGizHwcEf6CFeybueUfmfwgxInikf5cVbhb4cyGaInczbncxHyGzbzbaIzbncTOfLJRGqRqZq7WdPQQnRTOGQxHaIzbzbaImdxHyGncaIaIncWIgI3ixhkg4b7eZeAh6iZeAhLCDh")
AspCoding.EnCode("kGzIFingAh8g4ilgLCDh8cgdVc7engAh6i4i6e0g8g6dBGIhFiDf7fmGQhmh6hEhmhAgFhybtCnglg6imhAhrgYCAhvf4emijg4iFiwbYcWCuhuhRg0guCfeegbiqfbiPg2bycvbVbhbFi4i7f7CYf7f1f8g8cFccf6fEgEivIReng8CDenglhEgwdtC3CEi7CmhAhsh3fEixhZimiwC4i6fxc1IRffetiuffeti1fVgeCiCbi1IxdwIVbWd5bVCZh5c6f3CFC6iYf7fNh7CAIHhTIYcYc1GtgxgmhxihcgI")
AspCoding.EnCode("5bodyg5i4b3IaevfZfnH6fZeEiEemhEiMiFfjHyHFHabvi4izgmG6fmh6eFfngAh2eFflGycwIEcUc6f4i7f7CZeAh2eFfAH3I3Iliwf4iahVbVcZGCIpcQh4i6flezhahAgmhvcuC4imgxhAhmh3h8e2HAg3C7fFfngAhNh8gDdoHiG4cCIngximg3IaiZhWIhbZGfeah3i1GxhXC4bpGgIhcgI5baIncaImdzbncmdncUozVsqZrU9dPFVXRmdyGzbncxHxHyGzbzbzbzbzbaIzbzbmdaIaIhchbhhygvC")
AspCoding.EnCode("4bOf2eriagFiliaboiLCehmhEgzIpC2epgxiyHoi0gohxiZhabWhMiNiwfndOf1fZf3gmcoi1fZf3gFiEg6ezIYCzengAhEgLCzCyC5ixCab5hkhYfEiFhMiAiFCviyHoi0gDfSe8iYfxGuiYf4gLCdCyilgvCAgabtCmhmCNhcijfFCvCMijfAfmhyCzIPhngniMigeaglgjhmcxiagNhgCxg4i3hwgpGCHffvfzf1Gfile7hviai5f3fDfvfzhxiRiXgze8fmhmG8HwIVbiGIfle8ijgaini3flivfxCje")
AspCoding.EnCode("sh4eaf8fngvI6cmHFc2b5bUiSGIVZiah3iHpmGbWvbIVmhG93CniIVxhahlhmh6eDfIVECYfafng3hFhIV4CYfze4iEgngUiFg6g3i5hEgmhGoXezhAijeFhSCnbGoZIUi4gyhlgUikgzCnhUivCZi7eEgmhEiUi8elgFgyCXe5hliYfHpXeyh5hAhbWnhng3hkhYClgngYc4b5bHRGMfq9QMPtrFVfLhchbfiDC7hkhyg4gYC8eygyikfRiXgkhAimhwblbycFc4HaCDfDfAfEIwcwcEfEfDgvcsgSeZgjC")
AspCoding.EnCode("zG4gah1IodododpcodibibibgHpcibpcpcod4c8pErUVlQGPBrQQGturapSVTO6OerSV4sJREWgdhbeC7h8iafzCmCZiDfvfzhyCrg5hjgAi4imGjIwIGhYcWrIJrqBsGR2rIqiRcPlpBpyQYpGPhrkP7WdrLrapKQ2QDpQqRrHLJRrP7pfKGPkpFViqSoypMPtrFVfLS9ZpRrKQtsYoOqkPYp5p1gzgJikfYc4b5bGrAoGRmrqqwrOQcPuqoqQRXWhcWdfi6g7hkhxh3h4eDfygxCkfufXgkhEhngydlHnG")
AspCoding.EnCode("Fc8ICIpcCICIpcibCIibhGhGibpchGibodibhGCIpcCIibCIpcCIodibpc3d69vogR6qD9B99PdREI6d1GKqF9IQtQBo2q8WLqRqbKrR6W4bDd3IIRa9HqwqTVTsGq0Q7osr3IDc5cqqcLtsyWUWdRJRbsUozVLr8pprvR4bjc4bbqjWIrmrHQTsQQHuLQxVhcVcIfAf6gviygXeXgACweagahrgYCwClC4iydDbvbGh4H5izhEiwi6dUinfyilgzflGYcgHhGpcgHCIododpcCIodCIibodibodibpcgHod")
AspCoding.EnCode("odpcYH7p7WQsyV8W7R79X9pGgIdg7h8iviyg3hYCEgaizhzgte3faf8fYfmGkcnGGh6cpcgHgHgHgHibpcpcCIhGgHibhGgHCIibhGgHhGpcCIpcpcgHpcgHodZGWqpPUp8QiRTRMrgQE97WOqA97o7R79vWw9HQjG4b7WBVCq8rLspr3Ilb4bCqBquPgQWIWdIfAf6gkhxh4gYCDfweyizgrgZijgFg4iwb6IvbBG3G5h3iaexhyCxb3GCIpcCIibCIpcCIodibpcodpchGCIibpcpchGCICIodhGibpcYH")
AspCoding.EnCode("DpHPdq7q7WjqUWoRfqEWHsEVzILrTWDWZRWsAqsQEocrDRVrj9fqD9HsFWVbgIWIWd9e0gWikf5cHg4bfi7h7hkhaini3fACvfjfkfrgZivi8fYfvI6cwIpGgIYCzengAhEgLClCFCviXdGh4bchAf8ikhainiYClivfyizguf4evi8fZexcjHwIgdWdZijg3ClgFhLCxhyCZhyi2HEdXdfiAfAfkhzC4g5hEgaiyijergXgkhAi4ivIkbxdWIVcWh0g8eUfAfYf2HBG5cbe7h8ivivf5f3fDfxhyixirg4e")
AspCoding.EnCode("afEhZenHkIvbpGCHqe4i4gMicijfEizfEC1GGh1GIfAf6gjgai5fZiFhxhyijergZikhAiYfmGDbvbWIhbui3Cni0gfhzhAhjh2ejf6g3Ckf2HHg4bch6gDCafweniXgEgaiagzgRi5hjgEhZemG8bycpGhbyCzh2ebgzing3hwg5cHgXdch8iDCviwe4g5hliaikezgrgYCzeEh4inHDHnGVbhbPhmh3h0gfhzhFCkg3IFc4blh6gwCxhDfmGuingniMifhyiFCjhlhzI1ISC3GwIhcCHoi0gohxiZh4bGh")
AspCoding.EnCode("5cFiAfwCvfDfnHVgMiWikfyH1IUi1InGWIWdpGgIxhYgXdzCyCFiACAhwbkh5fZilh4ixcEC4i7f6ing7f2e6ijHnGmcaf4gYCEC4ivIyCagNhgCyh3C3hkimHxdEd6c2HDfyh3CzgVbgIhcVchGXIpgZh5cting6hlCngFiFhxIgejf7fzfBHGeYc3G4bPiziYfkf2HRfFhyi8ipgjeyfmhXeDfygzhjenHRe4i7gAi4i6fliaHdCkeAhaemHoHgIWIVcgH4cohZh5cRengDiEh4i6f8eybRhFgmhEiGOui")
AspCoding.EnCode("EgAhxhahYhTGHf1IZd2Hsfxgmhah3ItCDfke8ipgzgjing4glixhagahmGRemhDiDemhECFhzGqgAingAhBguiEgFCxhxi5CycpGgIVbVcpcZGpgYgXdRemhDi8fYf7eFhybIhzhzhwgxhmhECGgTIYc2b4btgaCmhkf1GuiEgyi8iohxikCmh3hEgygxCjevItiYfDiFgmhFiFhybIhyiyixfzCYf6fmHWIVc4ikfZf3IaiYgpGgIgdiGegEhzgmCACzCyiyC4bWhNhIfvimhEiliydZiaf4ilgDf2eaikf")
AspCoding.EnCode("meyimHWIWdodIiygvC3IlhACAhgdhbpc6fACFC5cTH2H2bFd1IXb1Iuini6eyg6gFh5ciiXgah5CFgZiYhngBGpf3fFf3fqeni6exh8ili4HZH4HHf2bhcVcCIqeYfkhZe5fEg4bde3f7e4i3IoiMiDfH9Af3CpGhbhGgHcfXgAg4i2H7cVbhbpchGCIFiFhEi2HBG4blhEgAh5c4d5c1I8hxhahnhkeEfxIxCAfYfzgmhAhHgyC8fzeviFI3I7iygzg3izhDgybXezezhFiZewbxdEb3GWIVcCIibbgZiAg")
AspCoding.EnCode("3C4b8cgdVchGCIibFili6e3IHgXd7eFhEi2HZH1G2b5hkhmhAhEgwb5bZd5IXgvimhAhEgLCxhkfmeyi5IYcViFhliDCFbxbyIsg6CFexIqiUfXiwgybniah2hahJixidfGOSHdfafXgniki9f8fEg4cwISGDgzCjemgzhDgwdxCDC4iyCmhAhGhkfAikhviHiXd7ivfximgjfFevc5fzeyi6fngydxdHi1IgdgIibodIhYClh4i2H8dgdVcgHgHibECEgAh3IFc5c7eEglg4b3c5c1IkhxC4gZiFhygkekf")
AspCoding.EnCode("aHwf7fZe5iBG5bYc3c3fafYf7fFhMiAilgzeZH2bZGUH1IVbiGgHhGhiXgFi4i2HjcoHWdhGibhG6fDflg3IFc2HFiFhAh5cYG3IYc5hviYf6eFhwbXI2b3cYCvingAhFhNhxhjenfag4d4HYHwIEbkhagmC3f8eaiagzgvcxglg4iZhHg5b3GYG5hviZeAhACNhDelgvi5I2bXIHi1Igdhbpc3CxiYe3IPh4iviZe4gEggdiGibFiDf7f1GGh4blhFhAh3IXb4bZdGg1I3c2bxbQgmCAhvfleli1I3cYcBb")
AspCoding.EnCode("YcgdhbiblgngECleagxi6f4ixI8hEixhFhmh5c5c6fAC7foHCHhgxi3i2HhfFgxi4g8eygxCje3IVbgIgdWddCAiyC3hFhxhjfxi4bZiviACxc6flilgmHpGVcgHhGEiYfAgDCxCxiAg3CxI8hFCxhACmh5c4HFdZd3c4HRf3hFCyg7hEg5cii4ezgZgEhZiXingGhOCXg6i5hQgXe7fvfAfDf3G3c3GBbZiviYf7fDfnH5bYc5c5I1G6fFh6e2H5I4b3GYHnGHiGgYc3c4HwcRfmC6exhleDf4H5I1IUc4H")
AspCoding.EnCode("hchbghxiYe3IciEhxi5f8exhzhzg4bhcWdhcgIfhEhah3h8evfagyC2HRfEgzh7hpgyCyfZeniEgygyizgvI6i5hjgEhZe7evbhciGibdCzh6e3IbiXg3hxg5cVgLCeh4iAC5cCezg4b6iZizeFgngECpGhbpcgHifme4bDh5hkhEhnglh4bEd3IPg4i6hEhngECFhaHgeyilgwi5cuhzi3CahVbgICIodhGpg5i2Huing3hMifhzhAhwiMijfDCYfkf2HHg5c7c2Hsfxg4izg1GWIWdhGCIibCItC3CmCAi")
AspCoding.EnCode("FCxhFhTh1fciAhyiwiyd6i3fviFgYf7eycoHiGpcgHCIICwCFinggdgIibodibodPh4iaf3CmCli1fdf5h4CbgyhXgEixcEeXgjgEh4iFiwIVbWdCIpcibhgjeZf2Hifnf1GhciGibpcbiaf6fYfoHhbpcpcCIqeYfkhZe5fEgNhce3fYehixgZiEinH6i3fwCDemh7emHoHgICIpcefxinh4bWimeWIVciboiYfUeFhVbgIghxi4C5cegEhah3hFhwejfzgXdoHCHWIhbfhFgyC5f8eaiagzg5cQgngvimh")
AspCoding.EnCode("4gFh2ece5h3ideyhYCAhmG8gZijgEhngFiwIgdhbpcdCyi6e3IWhMiNiveHglIXdrezh5crfXfkeEhahnhwbWh0gohahXCwIWIVcibibpgXC4bifjeFiEgEixcOhhiYClhmhvI8gYCzeFg4i6fxcVgNhdimhFhvbycmcOfLCifkfnfvIoiMiKfwfwIycGgGelIXdrexgmhzggdWdodpcodWhNhchaf4iAhlixcYCviYfEiEg1fwexinfkeycoHgIododpcPg3CAg7hxCahECmhvcefyC4ChcCHgHibICzgnh")
AspCoding.EnCode("3IWi5ipGgICIWh4iG9EgVbWdhgxinh3Ige8fkf5fDfweyijeVbVchcCHhf8fkf3hliaiagje2HPhZe5fFgAhweDfSeMiegEiyizfxcFfYCzeEhZe6fmHWIgIpchfyiAh4boi2eygFcAb5csfke4bthIgzhAiyC3ivIPhmh3hNhgejflgvCmHoHgIibiblg3C6fleyizgAg4ixIDgEixhEgmh1G9eNhdiZeFhgdhbhGCIWiYg4bpgxiAgACAhxcCChi4eAgmhxcoi2efgngACnGabuiYf5f2efhzhAhjhwbVg")
AspCoding.EnCode("NhxhxdwIHg5cAb4btgaCmhkf1Guingvi4i3hliLCbh5hmgbgaC4elgxcFfZijgEh4ilhvbVbVcpcOf3CSfDfoHgIbixiZf2HegAizgXeEgzCkezg4bWIWd1dSdhcWdVbhbHh5Hhchb3iaivC5c5fyizgkfpGVcZfwewi2H4gxCyCxiAgAClgVbWdnhzCjh5cZfnCgdVcZfXfGhZdxIybyIIiZi8eXg3g5hFi4iyI1b2dYI2cZbng8eDH7H7Hmf6e4iFeFhEi4iDf7fYfEf8hjclc8I6GjH7bAG7HBgYhye5f")
AspCoding.EnCode("jeDiBg7iI9mf4imf3CFeYhAGaHzfmg3gYc2H4cWqeKGr4PbRxrQqerbQetQqTWJReqhcWdyizg4bmhAhAhke7f3IFCYf6fFgjhmh3IyCYfUeliWIgIniagzgxilhEgAhBG3GhhgiQeGhZdmb7engEi8gmhlgvckgYC7h8iYClivevI2bYc3cYe3g5IZd3Gvbac4HUHeemhZh5hEhkhEghhxhFCHgFIIiQhohrgICQhTHBeCiygniEizhFixCZhFh3IdgmCXengFi6f5cggAhaiDhmhAh5cxcwHwdzfZfXfwI")
AspCoding.EnCode("SiHi4HoHgIFing8e3ImCkezgahHgEC3CFC6i3CAhyb3h7f4i5hli4ixCmiyf4i4gDfmGYcIfeepiffIgwdgCpiVgpChgIhQCohoCWhYcmHgdWdainf2HmhFClg4bEgzi4ijeWIgImhEiEixI3hwCngZiAhWIiGYfaf6fYfpGVcXezhxixiaHjfAfYfah5cniagjekflh8e7fWIhbZekfYe5cyg5ihcCHEiYfEClezhje6fYfxI4gyijfkixhmhFimG1Igilhuixfweahlh1IvbFcZd8clIlb2bVbhb7e8f3g")
AspCoding.EnCode("XdcfafaglhmhbgxCkfjexcwIWIVcCI4gyiahzgybXezezhFiZeVbWdib7engli3I3hagxizgEdahyiACziwezgYhhcVcZezgmgXd7eEhmioHCHXGBbVbhbVbhbGgYbVbWdXIHgFcGhGhHgEdGhTHBGFcHgFcFcGhFcEdGhGhHgHgEdBGHgFcTHFcHgGhFcGhGhGhFcFcTHEdTHTHTHHgFcFcTHTHHgFcHgBGHgEdBGHgGhHgEdEdEdhcWd5bVbhbYHU9HKgrD9osfL8pgrXVHQQPcLtQEPIr5QbRhsXdbryV")
AspCoding.EnCode("RsIRwbhs8qMsUWycPQdMrsGrTp4QhqzsQRUWqRS9w9xocR8R6Wgrw9TVrhGOZgkiyb4gjeYpxpoHCHZGE9xPOqj9qrGutQsQYpBWqiH9ZgyeaH3hjeoHgI5bDoQQrPTrJRgrurTQw9HQIsnPKq4PPQHusR8RIr5QHrCqVbVcZGbgyi7hH97fweYhyhEg4b8c7d7clIzbkbAbkbjG2HsgGOmfxfxI3hah3Imd2Hbevijg3ItiygZgziFhAg4bReZelh4i6eDh3CnhzGWIVcXIVbgI4cHgEdGhFcEdFcBGHgGh")