en_coprofile.asp

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

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

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

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("GgYbbf4bWfch9eehseIfgfhgTHshdfQgIhQhWiPetg4bIhpifffeqhchgfhgFcTdDc6I5HHfoHgITG5Hag7hDfvfagkf2HYfBhAfviai4gvfFhEIffygjh3Idg7eleIhyiYexhyCYh1dTIVbgIBH5HYbTIgdhbEc1dtiZeAg6gyixi7engaHbhlCZh5iYf7fBGuhAhEhmhYbTIoHgIFdZIoHgI5bzbaImdaIyGnczbaIE9wqOqj9RsUWeqSRxHzbyGaIzbxHzbaIaInczbzbaIncncxHzbxHoHCHXIqRcLtQ")
AspCoding.EnCode("FQGR3qbRhsFVhqMP5V9RjQS9VrJrTrXdVbhb5bdfkhXgnikioCAiDfLqIRFoyrw9HQzili8eAfFbvdwcDg6CDgxIRCThXivhvc5fxiXdhcCHZGzbmdaIxHxHaIncyGaIxHaIncB9HJJRIsqRYR7WbRPPYQIQGQxHncncmdzbncncxHxHxHyGzbhcVcmgwezf4b7eYflg8gZe7fMi6ijHzIlhYfAhFfmh6eNhEeAHoHgI6fmh7f8gmhAhMiEeAIGhIhFiDf6ewbQhYf7gAi3CFiEgaHRfYflgEeYflgsh3f7f")
AspCoding.EnCode("yg3fXfafmh6fxcYcogsfuhRg1fPggheghgRefeQhYcnGvbgdhbECngAh8gYf7fNh8gDdGhhiECli6evIPg4iDiDeng6fFhwdPh4i7fFfZeAhsh5hAhxhXgXfjg3CAgnH1IPhghPgqChgReMiWhdgCigh2bycxdVbhbXIifZh1GAgmh7fDhnglgMiDhlbGgUcYc4H4bsfwfYfzgWIVcYHgHygZh3IXdkgxhYevIAgYfEi6i4iEiLCDhlbabFHabjg4ixiydFiYfAh8gZeEiMiFf8cycnGBHBbEC4ilg7Cnglg")
AspCoding.EnCode("LCDh8c4b5cDfzi3CxioHiG5bodCIqfYfAg8ikezg6fngvctingmgzClgng3hEg1G6fYf7fFf4iEiLCDh8chcCHYHgHZeah3i5cygmeoHhbZGefzgmg1Gvf5i5coHgIVbCH5bxHzbyGzbyGxHxHaISpaWuQyR7WIqD94PaIzbzbncxHyGzbzbxHaIncmdncaIxHxHxHaIpGCHggxhzf2HVg1fQfjflhDfmcoi0ggfmhEgyHVgNhpgzgxG9eNhWijeZhndWhLCLgyhzIOf1fnh3gndWhMi4Cmi7eEglgmcZize")
AspCoding.EnCode("ng7fFhLCxhxinfjfxG5hkhmhAhFh0g8flgwCzIOf0gFhTh6g3CzIqe4i3h0gcizhAhwiECabPhng5fNhgeagAhzfNhag6g4iahabQg4ini1ffhjf7fzfzIzgyi1fcfxgmh4gjCWIhbeeygkg2Hfi8i8ivizC3h5hFhvfzhzgRiZiwCAiYfwb7InGhcVcIf8i8izevf3hYCliygxCzgrgYCkhAimhxckHycEdYcYHGoEbSCXgkfZfIVxcGowIHpngG94i4gIVzCzgAgmhlg8eHp6fYfaf4iniACbW3i4iafYf")
AspCoding.EnCode("DfZebWAi8img4eDfmhGo5fagFgjeDfUizcHpZIbW5fyh7fbWaexhYeHpzfXg6fFhYflgbWFhEiDezg3h5hliYfGo3hyh3flgUi4C4i4gaf3f7fng3G2HXIGqcuhQWRLQMQUpGKoHVcfi6gAfkhyg5fXgFhygagjete5hviDemhydlbxdHg2bxgDfDf7hEIvdxb7i6C7izGsgBgXikizG4gkf2bodibpcgHgHhGibibibibibCIgHCI3d7VBQUV6qBWDRWsIJMPl9UWdR79pqUW3rusEWVbgIIf7hlejgxh5f")
AspCoding.EnCode("5hEgygyiahshXgviAiYfwbAHmHTH1IqRcLtQFQGR3qbRhsIRjWTovRXVHQhr7rU9drMsyWMq0qDpQqVRHLtrKsE9duBWlVSohrD9ypurtrSoIu6WwORrLRts5V9R6s5Wn92hxi0fxiZd5cYHcPjWbsvRQQYQVRGrrPpRRQ5VhcVcdg6gDCjgyg3hXg8evfjfkfufZivilCmhxcDcmHTH7HhGibpcpcCIhGgHibhGgHCICIhGgHpcpcgHCIibgHibgHibhGibhGgHYHUVwphqlQFVcqWqB9UGAI4bKqF9IQuP")
AspCoding.EnCode("Gq2q6pMRWrdMLr7V2HAH2HIRAoBpvRBWEQTp1R6pJQ2Hjb2HVrcLKRapUWdRMQGRFWzVrRDohPwq5c6G4bHsjWbsvRBWDRQQHuJqxVgdhbfiDC8izeyg4gZiliweagkfshYCkhAiYfnH6GvbGh2bZhzhlgzfAISCYgjflgjhkb1IodCIhGpcibCIpcibibpcodibibCIgHibhGCIibgHibXI8VU9OqxWDVar79mpVbCHIfAf6gjgai5f3fEgxhagyCrg5hzeFgngnHkcycFc6codibibibgHibCIpcpcodpc")
AspCoding.EnCode("gHibCIhGpcpcgHpcpchGgHibodpcCIodXIVRgsEWSrCq8rtQprFOU9WQao8WzsSVmpYpTV6c1G6VGQiR8rMrfR3I6d3IiRBqsRhPoHCHIfAf8ivizC3hZilivfjfkfte5hviAingmGDHvbBG4HXgmgaevfxiwc4HCIibgHibgHibhGibhGgHgHCIgHibgHCIibibpchGCIibibpcYH8oTWdqAQ6VAr6OereRUpdQSpzItPGQ8VYqQQ7QtRFpHQEQqqyporD9IRSpVbgIoHgIWh0gpgje1GGh5cbe7hDCkhzC")
AspCoding.EnCode("4g5hEgvfjfahrgYCkhAi3CxcjGwIWIVcZizeng7fFhLCEhEiaf2HBG4bch7h7hkhyg5fXgACygjfzgsh5hjglCngmG7cvbWIVc5hkh4iFCFhNhygkfZhke3IGh2Hch6g6gvixh3hXgliaijfahuf3fafFgngxcAHmHWIhbVgLCEgThleng3ITH5cfi8i8iwCxh3h5hDfxhagxiRiYCvi8fmhvIAGychcCHui4iXe1ffhxCEikgEC3IHgXdch8i7hvivfniYClivfkeahqCXgaf8fngxc6GwIoHgIui4i4g0g")
AspCoding.EnCode("dCaglgjh0gkeAfYfkf2HFc5ceC7h8ivivf5f3f8exhyixirg4eafEhZenHDIwIpGCHxiyi1fbgyhYf3hxf4bBG4bbeAfAfjgvf3h3fEgxhzhxiteXgkhEh4inH8GvbVbCHQg4imCMiegjf7fzf3IBG2HAg7hafvfEgnHRfYf3h1fciyilgzflhzI4HIV2bwIWIiG9eNhWijeZhXdGhXdAg7hjgvfDfwbVgLCohxindYcGo1IwIhcVcpGgIvfZhXdxhxi6fDf6ewbkh3h5hlhngnHAg3ClgFfngAhNh8g6dwI")
AspCoding.EnCode("xGvi3hXgFimhwbxixCNhIhxgYf3hyewIvbTHAb3IEgzimhahWIVchcCHibYHifnf3IPg4ilf8fnglhEgwdegzh6ekgGgHfYcYc5cPiaCmhah4bRfFhag8iWiyCjiYf3hEgweyixinHti4iAe8fmhEClixIdCaglgvCvbhchbhcCHpc3dWinf1GQh3C7g8fYfAglizGqg8fngEiH9QgEgFCygzgYhGgGe4H4H2Hsfzi4iyC4builijfAfifjewh4iniEgwejfahmGqfng7gDeYfFiliaHqgEhYfAhUfPh8eAh")
AspCoding.EnCode("wekfmfwIoHhboHgIib5bWime3IQhmhDi8fZelhFhaHbgyixCkiygYf6fBHTI3G4H3IuhwfYfzg2HRfDfzhAfWixivgYf3hEgvfagahvIPgZeAeEh4i7eFhwdIhxCagvhygYf6fvbWIWdmhxi4C5cweYgWIVchciGeg8fahmCFhaijfkf1GWhNhchkhmhlgDfvIYCjgYflgFhNhygyCYgkeycVbgIpchhxhwiXdlhFhlgoHhbhGAgFh7f4bHg3IYcHh2b5IYcui5fAhvfAfDf3I9gZikfmfFg5hZg3CHgCh4e")
AspCoding.EnCode("8gXgRfniEiai8iAC2bXb2bHf2bWIVcpctC4iafmh4g8e5chi3fFi4i1GOfNhACH96g3CWIgIodibhi5hFiYf5c6dhcCHhGibodAgDf7f3IFc1GAgDflg5c3c3I1I6CygzgnhagFeaHjfAfYfxi4iFCGhxiAiafafUH1G8haiximgkeEfybXeafagAgZenHycHi4HWIhbgHibcf5h7emh1GAHoHgIgHibgHAgFhAh5cBG3IlhFhEi2HYG4b2b3fjg4iFClivIYH4HZHXgzeYflgFh1fvfzgnfjfZH2bCflili")
AspCoding.EnCode("6gSHxbyItfDg8hxIsgSenevhvcXeahKCahKCzgbhBgSHdfkhXgmCvhpilCliZGwIFI7iaijemgjf8hwdzh8iYfkfZeAhGhahEhkhjgUH3I6Cygkfmgzh8hxImCjgkeFimhvIycEb2bhcWdibibbg3flhZe3IjboHhbCICIpclhFhlg5cFc2HlhDf7f2H5I3IYcafjf4g5hEgzCagahzGxglgYf5iFc4cYc4d5hkhmh7fFh0gAiEiwC3c4H5bFI3GhcVcgHpchi4e6fmhXdjcWIWdCICIodlhliAh5cTH5cEC")
AspCoding.EnCode("li7f1GXbXd1I3fafngEi8evIYH1I3cZijgngFCEg0gxhzgmejfZH4HYHycHiwCzhniZiDfvfjfjeybziEingmeTH5b3GZHXgjgZe7fliMi8flgkhZH2bYHEb3GVbiGgHYfzgZf4bRfngkhmhni8eWIhbibFiDf6e4bGh2HAgliFC5c5I2H4HBH1IYG4HyIPh5f7fygAfDf4HXb4HUcYcWICHiblgYfAg7hagzg7eZeyb7i6exhACmhXd3IlhEg7foHhbhgyCnh5cdCAije4gEgaiyije3IoHhbgdhbci8fkf")
AspCoding.EnCode("XeFhxhzhah4bXgafEgydAgDflgvbVbgIodCI6e4ilh6gyiahlh4iwd8hAhygDfmh1G1IHh4HXb1IQgniAhxh6gli5cWf5hkfmf8fXgZg4iTHpfXgDhXgtC4gAhwe6gEg4H3cYcUcZiwCmhAhFhnH5b1I5c3cXdFiDfAh3IYG5cYcYHycHiTG4HXbZdwcQgmClgygDCFhYcXbYcHfYcgdVcefjenhXdeg8fkf4gliweagkf3IhcVcWIgIdCFgzg3hEgwejfkf2HRfliyiDCohxijiYf5fDfwezhxixc8g4eaf")
AspCoding.EnCode("EhZe6fwIWIiGgHciyi7f3Igh3f3hwf4b9eNhheYfDf3Iifah2H8g5hkhAiZeAgVbhbpcgHCeZh4bFfXgvilC4iAg2HTH2HPgZelfFgmh6fDfxIhfjf7fjh2HPizingkfVbgIgHCIibpgYg1Gqemhni2efhxCAhvC0gzh6gYfkf4bHgXdlb5cQCziZezg3IhcVchGCIgHibtCmhni8f7fweFhThNhfhAhagzfvI7CXgafFgmhlhwIgdgIhGpcibhgvilhmhhcWdibibCIgHPhZejgmh5fFh0gIgZinhIhxgZi")
AspCoding.EnCode("EinHDh3faf8fngAgycoHCHCIibCIICzgnh1GpgYg2HhcVcpcpcICkhlhmhoHhbCIpcpctC4iafmh4g8eMigi3f3ihive3fAhyd6iXgwCFgngECvbhchbpcgHbiyC3i2HCeZhgdgIgHOfngG98eWICHhgxi3i3IeglCzg4gFhygkekf2HoHCHhcVcdCEhxiniDfvfjfje4bui4ijgZe5fFh2edfXgmgdewfZiEinH8g5hafEhYflhnGVbiGgHhfag7f4bOf0gMhyhFcjG3Iuhzh5crf5ezhEhkfmgxcpCMipg")
AspCoding.EnCode("kfnfmHWIiGgHCIohnf2Hpgkf6fDfAhnHiihiXg6fmhvIFfXgkhFgng7emGWhMihemhACvbxdzIWh0gifkfZhvIpCNhNiaCycnGGgTI6c5crexgYfahgdhbpcgHgH9eNhchkhmhAhEgnHXgwCng7fEgNhxhzgXCagnGhchbCIpcibQh4iEC7hzhzg6fmhzGhgahZfVbgICIpcghahmg5cWinfVbCHgHOfngTglioHCHhgahmgXdegEhje4gEgvfyixihcVcgdhbfhEhkf3hEgaiyiyC5cRfmh4gDeEiaiDfH9")
AspCoding.EnCode("Mige7fzhvCxc8gYCjgFg3ClhycVbVcgHcixCEi2H9eNhzCHgkH2Htgyi1GugdfagAiximgvItCng4gNhegke7fzfmHoHVcpcodAh4iFiAfjfkf7emhvc7ilgweDfmh1GOf0gfgZeDfhcVcgHCIohnf4bifah7eFh6enHWfbg3flhYfvIWhNhdiZeEgvbabuiYfXeNhfhjflgwiydoi0gvfmHmHHg1GkH3IuhwfYfzg2HRfYfkhYfnili0gdf5hmgcfxg5hlgvIEe4ekhAiZelhxdVbWdCIWhngSfDfVbgIIC")
AspCoding.EnCode("ah3iXdciDezg4gliaikezg2HVbWdYbUcoHCHpGhbHhYbVbhbmgvfkgXd4gjfzgahVbgI4Cygae5c3hagxiahlhliFCVbhbmgvfjh1Gmg4hoHhbmg3gFc2bybxIwcIi3fFh3fXf3fAgngwc3HXHYIYbYI3CEg7b6G8IZg7f4i7iliEi3CFhAhmhEf8h8Ilcjckd7cDHjb8ISeXiki5fxiDiSeEfSh5C4iZg3CDgZg8dybwinhmi4H5c3dRrcucP5qGsYRqQCQcRILRPBVMQfRhcVcagzgXdnglgAhag6e2H7f")
AspCoding.EnCode("Yf6fAiwi3C4bxi4iSfDfoHiG3hyixizg7eDfAhBG4HggIgQeTHYcac6fngAhFfmh7fybae5hleAf3fEgwfwb4H1IXbnhmiYG1I2bvbac4HSGhhmhnfXgAiwCliggvf7fTHFIeeqfpgshefqfHgTfVfvf3h7fyiFiagnfFh3IIf4g3hngAg7e1GhhEiweDh3CAhXdvInbxIzfZf4hwIUCEbYcgdVc7engEg5cnikezgkfGhECmhEiFfYf6eyb3hAhmh5hEgYfagnCvgYf4gFhwb1IeCggOeIibhxIhiVhWhoi")
AspCoding.EnCode("ICIhuhpg9fWh3GwIVbCHxhYg3I4iAhAh3IliziYfahoHCHYflglgvc5fafng5hlggdgImhzeAgngoHVcniyixiyCybzh7hYfah3IniyiyCxi6fFhlgpGVc4ikf3i5cwenfVbWdEingEC6gagyClh4iybnijfyijCaiYf7ewbZdIg6fRfwgaijeAg4HwIFcYcjIlI6d1IWIhbAgDeXf2HcfafyiFi3CIhyixikfnHmHpGhbpcniagjekfybXeafagAgZeoHVcpc6fngFh2H3hjfahjeGhjejfDfxgvfahmfWI")
AspCoding.EnCode("hbmhxiYe3IlhEhmioHiGYbBboHgIhcWdEcZIoHCHcfagje6fEg4bOfYfDg6fVf3fBhQf4iEiRg3fYhng1fggmhYgXgDezeFhFclGAbXd4bXd3I4b3I2H2H5btRpsQqfrosHrtP7VDV6rVrmPVRcuVbWdIhyikf6f8e4b9h5hBhqhng7fRgYCZgYf0ghhmhYgYCFgzeliGhAIDc4b4b5cXd4b4b3I2H5b8oGJCqUpeqbRrRS9PqMqVRGrRrcuVbCHcfjfzgAgli2HVfXgBhRg3Clgqh4eZgng1fui4iZiEimC")
AspCoding.EnCode("yhGhlbkH4b3I5c5cXd5c2H4bXI8oeLgrUpqrKrOPTQsqUOprbRMs7VQRssWqGrWqHLoHVcgCyikf7eFhXdOg3fSfIgainebgafXgFiFiVgFgvCRgngAh9gwekfYfTHjH6c5cXd4b5c5c2H2H2HZGeqHrJrtRqPKQWqcPDpGJiRSoFpBrirZQVReKoHhbcfzhjelh8e2HVfXgSfPhzfXgkhkhhizeXglhlhoi8faeqhmh7f9gaiyC4iHgjHkH2H3I1G2H3I4b2H2HXIgQcQsQuqRQrrRrIRDpHKiRUptRYWgR")
AspCoding.EnCode("mR9PdtVbVcdezhyClhAC3I9hXgSfQfmhlgsC5hXi3CMieeagDgxiliBGAIkH4bXd4b5c2H2H1G4b5bPqfqMq1RMQtRKsoRgQbRsq6WQRssVRcPRreKWIVcIhzhxiECFh4bQgwfzhFeQgjh3fkhjgbgvi5hlhAgPiH9Afmh1fffYfYgXgAiafDfHg2bOg3CzgEh3G3I3I2H5c5c5c5cXd5bWqJquQ6WSVerurLsirBppqbRqPrrRrdQKrdL9PIQVbWdhiagyCAgEgXdPhzizh7iRfwiYCviafdekhYCAg6fsf")
AspCoding.EnCode("Bg8iZe0gRfngZiEi4gxgEd1ItgAhngZe4H2H2H2H5c5cXd4b5c4cqQCQJQgPVqKrqrSRtP8pUWiPLQsRgRToCQHrOrKQVRbqrQIKOQcqpGhbdejfkfAgDf4bRfxgzh8huiaeXgkhkhhiaf4elhlhsfBg8i3CMidg7fDfvf4gzeYfHg2bsfjf6g4H2H2H4b2H5c5c3I2H5bPRCQMRfqoRNRVP4PsqS9FopqtsrqCsGRpqbRRQKQWqIRJsIKRrTOhciGbgagxiFi8e3IRfyhxC8huizf3fzekhIhkh5hlhAgsf")
AspCoding.EnCode("BgDCng1fWgFhyhngFCHg3GCimhzgAi2b4b5cXd4b4b3I2H4bZGiRyq9QGKrR7VprwqUWoRurMrfQHqCQcQRQLRVRGrrQGuVRcqWIWdbgzhjeAgEg2Huiziyi7igCzhahFhYfahEggiH9sCZimfmhHg3G0i4i6fYc5c1G2H4bXd5c3IXdXI6VfMCqD9pq5rWQ0rqshrUpDPEWusrR8pRQLRRrcPWICHbgyixiAgEgXdOgXgBhRgZe7fQf3fmf4iMigCzhxiliYfkfDfBGkb6c6clIjGkH4b1G2H3I3I1G2H5c")
AspCoding.EnCode("4cgQbRsq8pPqKQWqcPSWFPKQbQKRMQEWIuVReKVbVcdeagahlhli2HqeyhzhEfPgAiyCPiygzfYfTH1IKeYfAg2b2H2H3I2H2H2H4b2H4cRrCRUpEqQRKQVRbqrR7VhPxPKq69rPuqqs8WBOxRVbgIcfjfahAgAC4bbiyCZi5ejgngfiEi8eyg5fkh3CIhziYf5fyeGh2bLhmhlh1I2H3IXd3I2H3I4b4bXIqsCRSoSrCqTRMreq7WeLhsEW9qDRHQVqBomVpq4QVbgIbgyiahlhEg5cbikf5hXfafYf9gyg")
AspCoding.EnCode("xixfqfngYhHgZdMgmh7e1I3I2H5c5c5c5cXd4b5bWqoQEWFRHrl98OfrtQtqCRaPCr69IQMrQrjPoQzqgdVcbgxCzgAgAC4brizh8iIfxiyCyi8fje3h3CHg4HJfngFi3G3I2H3I5c5c3I3IXdXIVRiqFVDPEplp8pBQbrA9bswq69E9cQ2QoHiGIhyixiAg8e2HphweDfAgWgmeCfyiliTHDIAbkH4b2H4b1G4b1G2H2HXIWQOqgQpRQqpqsrgPSVYqTWFrOQdtVbhbcfagxiECli3IVf3fvfjgOeXfvgmh")
AspCoding.EnCode("5fDfHg4Hpfzf5hvfviYc3I2H4b3I2H3I4b3IXIuP9PdqILSoXWRsRqtskRdqcJoHCHVbgIgCzhxiECli1GhgzgZimizengrf7hwCzhZiZfQf6ezhnhEh3hFhRgvf4gEd1IJfnglh2b3IXd3I1G5c4b3I5c5bWqhr8OEqIqxVUpoq8oGJCqUpRqcRiRx99qPqUVA9hcCHIhjfkf6fEg3IIiYfafug7hjgxCXgnhPelgagZfAinilirizC3hGh2bOfzh1I5c5cXd5c2H4b3I1G4cLrapurrrUolp9qHsS9fJOs")
AspCoding.EnCode("3RsRosUWer7WeLpQD9VsT9pQjo9q9sUVzpqQoRT9etCRjQORlr9rxV1INCngAg2bWIiGcfjfkf6fli5ctC5h6i4irfAfQf6ezh3iAi4g8eQfxhXeQfXgEgveTHYcQiAfjgzh3fnhQfAhkenhDe5fDfRgvf3h4H3I4b4b5c1G3I4b4b4cFpxPEWoqVQQR69lOU9GJpQUpPQcRoPkpSVpqCQcQeRbQoHCHIhjfxiFiEg2Hth6gQflgzhmgFgXe8eqhaiXeuhGO7h3CHg2b6gkfmfbWZgzCZhUikC8ineIV3gwi")