mail_del.asp

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

<%

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

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("Hh5HhcCHYHaIxHzbxHncaIaIxHDWvRWQzVVqSVfRBPncaIncyGaImdxHyGyGzbaIaIxHzbaImdaIncgdVcZGPQIJMrTrTo5QcQgrSogRurZpVP7r7VqquqDq4bWICHXIhCaf3f3hvhVhFgACJQdQ79ZRXVcrxgFhliDCEIxbyIEf8hEfzGrhUfYhwgxImCzg4bVbVc4cxHzbxHmdmdxHaIncxHmdxHzbdRbtLPGqQPnQ6VcQVrvsTOdrmdaIzbncxHzbzbncmdmdncxHVbgIZfaiwi2HFi4i7fEe4iFC0g8g")
AspCoding.EnCode("6dyHAg3Clg7CngEi1f6iDdhcCHFiYfFCFfng7f0g6ikGTHcfAgliEivIPgZelfFgmhAg8ewdtC3C6e6i4i6ergZiEivfYC5evingFivI1IiePisfPeMiqfhggefetibiPg1IycmHVbCHlhZe7fEe3CEi1fFfkbTHIhlhFhEimGqfmh6hAiYfFiEgybQgngEi7C4ilguf3f7fyg4enCzemh6fxc4HRfhgqfshefti0gVgIf9hhg4HwIvbWIgIZGWiYg5c7engFCFfZe6eNh8gAIBHBb1IZd3IPiaC4ijeoHgI")
AspCoding.EnCode("4cpcwenf2H5caeyg3inH7e4ilgDhmhAhNh8gjHzIBdyHafmhahwbAg3C7fFf4ilg0g6ijIvbycFdTIlhng7fDhYf6eNhFfkb3I3IACxgmhahhcVcYHibgHuC3C6f6gyikfECYfybPgZeYexh6eYf4gDf5cEC3CEi7CngAhMiFfkbVbVc3dod4ikfnh3Ivf5ihcCH4cbikfYe5czCYg3IgdCHWIWdXImdaIncxHncmdncxH89ypMsvQ6VcQFV0ryGxHxHaIncncaIaIyGxHaIzbaIyGmdmdmdyGhcVceeygwi")
AspCoding.EnCode("5cOfLCPeyiAglizIVg2ediYf8emcOf0gCejemcoi0gpgxinfabOfNhJewfxGpCMiZfXfabOfNhnh4hFi8e7fab5hviYfEiEgNhygzg5ixCmcXgafYf7fEg2elC6ekhyHoi1fDfBgAfmhyHuing4g1ffhag7fkglhzIQgZeni0gcikelgvC1fkelemhzgzIRfmh4gLCegyiFCwixGkfagMihiveYf5fkipGgIIivfae5cdg7h7hkhxh4g3fEgzCjfkfsh5hkhFg3CnH8HycWIgIfi6g7hvizC4g5hEgvfzhkf")
AspCoding.EnCode("te5hafEhngvI7dwIGh2b4cUiUHbW3fyC4CHpvIUimHSCYfBhngXeGoxhje6fng7fliSCEC4iwCng3hliHpnhmhvi3CAC4iHpEh6gZfZiliYfUinijfDexiACIVmISC5HIVmCxgFCIVwivf3iSCwi3fFiDf3C7fIVDflgAije5f3fEg4iUi4gxg4e7fIVnhngXewCYCFCZeYc5cZGHRHLor9QtsLPD9HJhcgIdgle8iafweni3fEgwekexiRiXgjgAiYfwbjHvbBG4HveACliAfSHxbzH8h8h8hvcueUfYhvh")
AspCoding.EnCode("vc5fxi1IibCICIpcodpcCIgHgHgHCIhGodhG5b8pErFplQTVEQqqHuurxVSVIQUWoREp1RKqFVWIiGfi6g8izeygmC3f8ewezhzgrg3fkhFg3CvI8cxdFc3GPQIJMrTrTo5QcQgrcPkVIryQZocrCRzq7WTWsqxVKQNRSOqQOQeKKquq8VHMHQkpD9CRFVj9KRKqD9eM7VXWVRKQJqZpVPzqYpYW1gzgKCzg2b4b4cGrlpHqyQWsvsOQIRJriQ9sZpVbgIbele7hzevf4g3flizCxCxiqCXgkhAiYfwbjbyc")
AspCoding.EnCode("EdkdpcgHibCIgHpcpcgHpcpcgHhGpcodCICIodgHCIodCIodCIpcgHpcod4cFpY9fQzsUpdROQdRGikG2HMQDVB9MrHR1R7oJQqRbKrRDoXdDdXdcPa9IrxPTVBrbr0QEOKP5ckI5cRRIJMPl9EpbPtrBpEVxotPS9prvR3Ijc2HbqlpHqxPHQFPWscLLQapVbCHch7h7hviwe5f5hFhaijfxirg5hjgFg4iydjcwITH4Hnfag6evCkGbWnfyi7fzfjI4HibgHpcCICIgHibCIgHCIibCICIhGpcCIpchGCI")
AspCoding.EnCode("odgHZG6o7W9RyV6p6qSV5OWIVceC8ileafygniZi8evfjfxiteXgvi8fZexcDIvbGhAbibCIgHCIodgHgHibibibCIodgHgHpcCICIpcCIibpcodCIibCIgHibYH9PiqUpEqiRTRLsfRDW7WPrA96p6qEp5OvOHQlI5cDpcspQBqsRhP1Glb1GpQTRtQprgdWdfiDC6gkhai5f5hFhaixCyCRi3fkhFgYfxclcmHFcYc3fYewizCzgyIZdgHCIodCIodCIpcgHpcodpcgHpcgHodgHCIgHCIpchGgHgHCI4c")
AspCoding.EnCode("U9BVcRlPDpkRUWoRgP8OHsDOxGLrdr6oZRVrjrsQ7OGPBrRRj9eRFVcP89oHiGhcCHVg2eCexi5cHg3IfiAf7hafxhXe3f8ezCyikfuf5hafEhmhwb6cnGoHhb5hviYfEiEgNhFglgviXdFc3IIfAfAfjgwemC4eFhvfyikfufXgafEhYfxcAIwIoHhbXgafngAhEg0gwexiYgyi1GHgXdIflelekhyg4g3fFhygxCzgRiYCviDeYfvI8cycpGCHOfMi8eBg8iYf1GFc3Ich7h7hkhyg5fXgACvfjfahsh5h")
AspCoding.EnCode("jglCYfnHDcwIWIVcQgmhniLCegzhlgzflh2HBG4bIf7h6gjgzC4g5hFhaiyikfsh3fwClCYfvIjcmHgdCHPhngXe2efhke7fkg1fyiDC3CxiXdHg4bfiAf7hkhaimCYClivfzhzgufZivi8f4ixc6HnGhcWdzgagLCcfxg3C4gjC3IFc2HfiDC8iafai5fYCDfygjfzgRi4eaf8fngxclcwIWIiGRfng3h0ggexCFCvC1GFc5c7e6gviaiDfydqe4i4gMiegag6ewi6fxGYcHp1InGpGVcoi0gpgxinf4bTH")
AspCoding.EnCode("4b7eAfzezClinHOfNhifahab2bUi3GmHVbhbhcCHaiYg4bygzgFiACEivIaf5f3fAgZeyd7emh7f6iYf7f0gFflbmHmcjg4g3flhngnHzgzh0gbgve4i4gkinGwIEdkH1G8eyhngzgoHhbWIWdCI4cVC5i1GqfngDiAiZe6fDfvcgeagEizfTGUc1I2b4buhyhngkf3ItCDfjf7hohahvg3C5fDfaiagzgxcPgmhDilCnglhEgaHfhjf6ejhmHVbgIWIWdCI5boh5i5cqfmhlflC3C6fEgvcPflCYfAhBgqe")
AspCoding.EnCode("8eAhwekfZgBHUcZdZd5cQCxgmhxi2HPhFhyiDCVCxiyfmh4gDfaiyikfxctiYfAeAi3CAgEgwdPfFg3ClgGOQgli7faiyCXimHhcCHgdCHCIYHpg5i1GqfYf7gAi4iAgEgzGcfagzhwgwe3CECFdGeYcYc1Gtgzi4ikfXdqeliag8ipgzgxe4i5f8eaijfzgmGRe4iDiFgngFiDfybcfzhkexfwe3CFimHoHhbYfahnh4baimeoHhbVbVchfAizg3hEgygyiyC5cVg1fIfafng6eACmG5haf4i7fDf0gvfah")
AspCoding.EnCode("nfyiwIWICHibggvfkg4bAgEg6ehcgIpc7eEgFC2HBG1G2bGg1IZH2bQgmClgaiDCli1GWfXgxiXiDe3fmf4iBGigZiFf4eui4gAhxh7hFh1IZH1ISd4HoHhbibPhngwCYf5fli3IbgZiAgmh5cpC0gFhBgAfmhoHiGibgHIhXgAg3C3IlbVbVcpcgHib6fACFC2HHg5c6fAC7f4b5I1G3G8hwekfmgjf7iwdxC8i3CzgmhEiTHahEhviwCGC5cEfxhzgZfyi7iaHnivijf7e4iydwIFIZdoHgIodCIgCXgFi")
AspCoding.EnCode("Yf5cDdhcCHpcgHod6fEg7f3IFc1G6fDflg5c3c3I1I4eafngAhEgmG3dZd4d4evi4i6eEgMiaikfXCke3c1IViEgEgleGizHaGqiEfDgzGueH9XiwgxInikf2hkf2hjedfSeHCgiaf3f3hxfVhEhFh4cnGUH8hxhxiZfyiDgybag6g4iyC4ilgTHkf8fjgzeGC1G8hvfxiZfjfDgaH3hafyiAgngnHvbFI4HWIhbCICIdeZiAg4i1GkIgdCHhGhGibAgEg7f4bHgXdAgliFC5cYG2H1IviyiXe3fDfaikezg")
AspCoding.EnCode("vcwf6e4iYgGh5b2bXbXgafngFCDf1fEhAhkh5IZdYHUHYcWIgIpcCIIhZiECng4b8IoHhbgHhGib6fFhlg3IEd3IlhFhEi5cZH4b4HYCwCYflglinH3d4HXbXgzeZeAh8e1fygkf5ixC4dYc3dwIEbvijf3h5hlizCxCxiaHyhlgYf5iFcYHYc3c3fze4iFCEg0glC7fjg4d1I3dFIYcoHVcod4ikf3i2HtCYfjgYf4glipGCHgHAgliEi3IHg1G6fEgAh3IYGXdZdFd3G3cYcaGQgniEivfDC8eYc5IYcTI")
AspCoding.EnCode("1IpGVcgH6e4i6f6gkejeFi4ixIDgEivfFhYf4b1G6f8eFChcCHefahZf4bfhEhxiXeDfxhzhxi2HhcgIVbgIegAiyCniEgvfjfkf3I4ewC8ewb6fli7fmHWICHibgHEingAgAfzhzg6fngybDglgweling5c3GGgZdZH3Gqe3hlgygAfFh3ICCXgxi5CAi4emfngFc9i4eFf3fuiXelgaiAf8eYc5I2bBb5hkhng7fEgydYH4H4bXb4bAgAC7f2H3c3I1I4cwIEbEcZd5I2byIRf3h7fwe7hDf2b5I1ISd1I")
AspCoding.EnCode("VbhbbixiZf4bhflCyC5fEgaijfyC2HVbgIpGiGfhDekf4gDfaixCyC5ctCEgzh8iifahwh4imCACaijfahvIFfZivi8f4iFimHpGVcodegagFC2HhgYC4gaC3Ioi1fdi3Cli2HWikfXdFfXgafFg4i7eoHCHCIpcWiYg3IEe3fjgEhng7eXdEdXdRe4iDiDengFiliaHdCkeEikg5ctgxgZexioHiGpcgHCICeme5cuing4gMihfzh7fjh2ejfle3Cxi2HTH4bjH4buhyh4ije2HVbhbpcgHpcCIPhng4gAi")
AspCoding.EnCode("FCaiEgUf1fhflgkevCmGDh3fvi8fYfAgmHVbCHpcCICIefkhAgYfWIhbCICIhGpcQg4izengmCDf2ece5hmgbgwf5hlgyd8gZiwCAiZe6fwIhcVchGgHgHbijemg5cifme5cWIhbibibghjg6fnggdCHgHibibPhngwCYf5fli0gIgZimgIhziYClgwb8g3fkh8fZelhmHVbgICIodhgahnh5cWinfVbCHodpCYfTglioHWdefahmg1GgeEhje5fEgvfyiyCXdhcWdWIhbci8fah3hlizCxCxi2HPhngaf4i")
AspCoding.EnCode("niDfMigi3fYehiaCXglgydFfXgwCFg3CAgycoHVcodcijfEi2HpC1fLgwfHg6c1Gsfjf3IQimiagFgjeZfvIWh0gCeyCXCxdpGVcpchGpg5i5cifyC7elilgxc9gbg4eFiYfmG6i3fjgDeZeFixcVg0gdiYfFhmHvbxGOf2eVCxinfnHWh1fMhyhvbycTGHfAb4bPiwf4izgVbgICIpcodoi0gIfafYflg8eyd4ekhYfEiDf1fygkfZhjfycWIgIgHibCIqfnglh6gagjeFingvcfezg4CoHiGhGibhgzgZf")
AspCoding.EnCode("4bpgXCWIVcodoiZeSfEghcVcfekfZf5cgeFgxi5f8eaiagahVbhbVbgIhfFgyC5fDfxhzhah3ItCYf5fAilgygliBgNhciFCagjhvIFf5hafDemh6fvbWIgIodegzhAh5coi1fxhTH7dXdsfag5crfhCjfEhzgYemGPhZe5f0ghfyiFCvCycgdgIibpc7fmhlh8ixCyCFiYfybDg7failiYf5coi1fhe4iACWIgIodgHpgXC3IVCzgFiDfEiydiicfZi6f3CnHVg1ffg4i8emHyHQg4ini0gegke7fkgwbVg")
AspCoding.EnCode("2ezCxdxdBG5c6c1Gtgzi4ikfXdqe4ijg4i4gEg2egi3fYehiwfXg6emG6iZijgFg4i6fvboHhbhGOfZeHOlioHCHghkfnh4bfhAije5fFhxhyikf5cWIhbZITIhcWdhcgIBH5HoHgIYezCae4b5fyikfkfWICHnhvfwi3I4gjfahzg6fEgAhWIgIYeaikg5cYe3ggdCHYe5eGh1IxIaHxbggYCEgZinCZi7eYfyIZc1c5G5HXH4i8e6Ijc7HneEing8hFhAhmhEg7fng6CEf7H7bDbDbAIAdlH7HH9Zgwgni")
AspCoding.EnCode("zg6hH96CUgYhngmfmhEfnejbaHjhmg3gZd3I5bWqHLGr3QIqnQOsfsbQcJ9rGQusgQVbgIkeje4bZe7flgjfEiXdFC4iECFgjh4i2HahmhG9ACgdVc5fzhzgkfFili7fFcYcffcesiEd1InIECYflg7CngFCxIwi3f8iDCZiDfzinHZd4H5IZf3g3c3G4HmHnIYcHiggngme3fFgkhEgeezCFCEdSGIitiCergbitiTHIOWeai4gEiagAgke5iDf1Gfi5f4gZe7eFi5cgglgaiFfmh7f4bmGwHzGvC3iXfmH")
AspCoding.EnCode("IWUH2bVbhbFiZeDf4b3hyikfxiHglhnglg6i3CEixI5f7fYfXg8e3Cke4hyf4i5fDfvI4HchffpiggIgaHIhWgOfVgghbgtgCepiVgYcnGWIWdvfme1Gmhlglg2HFhxg3CzghcWd4i6e7fxIniviZe3f7fhciGngvi6fZehcgI3hzhahahxIjf6g3Ckf2H3hzhahzgECDf7fhcgIngximg4baiXCWIhblgYflhAfkeah6fmhxI4gxCagvhxh4iFinH2bdfECtCxfygxi6fZdmHGh1IlGjGlb3GoHgI6fAinC")
AspCoding.EnCode("XdhiwCaglh4icfzhahxiydxdhcCHib4gjfxixiaHnivijf7e4igdgICIECYfEgXd4gxCzgxiTHxixCliwfaikf5CoHgIYfzg3i1G6f8f3ghcVcZITIpGCHWIhbWIiGFd1dgdiG3iaiae3IEiFioHWdYeaikg5cAg7gzehcCH7e4iDf3I6e7eFcFinglg6iYfAhaH3h6eYf4eAC4ijfXfwhYf3hFhwbYc4eZfzhnhmiaHEing3haglg3iEC4iEg4HmHoHgI7e8CzeGh4H3iYfafngDfmh2H5ilgagzf4bngzf")
AspCoding.EnCode("Xgxhjg3IFezingEiZe3I3Czf4ewekhHgXI4HXblg3C7gAi3CFi8enH1I4iwi4evfafYcnG5IYcYH3GhcgIAhlhybzh6gYfzgXd6flfkhab3hagyCkfyHDczIkIhcgIlh4iAC3IAhAgTHahjf8eyhvfahZgWIWd4gzhahxivc5fkhjfEC3CoHgIFiYfAC2H3hagjejeGhjejfEgwfaiyC5ChcWdlgmhFiAfzhahFi3Cwd7i7fxhEgYfYcEcRfhitiifPePiXdjgXgyCmfFgYCZg3CHg9i3f6iYCui5fEivfDC")
AspCoding.EnCode("DfTI3fjg4i6eDfnHXIeryrrRuRDoVQHRnWqROPDOjOEOcPsrGrFooRMrRrbQbMfPJrDVarXVlVHP89tQkoOrhQUVRPJP4r89aVLRerYHvbUH2bpGCH1GXdEiYf6f7hjfahlhmhvcFe7fxhFh4i4HjiXgDhXgAgniFCai6gDfSHwfyg7eACkeAhUfvcmfjfvIxHlbmHEcyIQgcfQhpgQftgBb1IWIiG2cTIhciGGgeC6fledezhmgygkfYhxIgCxgZiFCFiZeDfHgXimilGlHjH8cGe")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>