user_del.asp

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

<%

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

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("TGAgDfH9khmhXdFhTh8iZeHgYcEgYfG9DfzHniAglh1ITIgdgIEc3bmdncWIVcaH5eYC5fvhMi6fke8fFhyhvfZfni2HTfIgIfhi9CheuCOethWhIiaIoh9heCcCfeGiFgAhkhnH4czCzfZi5CYfzHliweFhkhZeXfZgzGZgweYg4cwIHideoCWfoCPgUGkHlIlIAb6ckHUHbVVbWdvcEgXg5eafmhMilhjfDe8evevf3imC2HSghCeCcfpeheuCWgPCWhhhxHgCWgWfoCqfEI2HIfjcgi6IhhAcFISiWIVc")
AspCoding.EnCode("aHEgvf8eXdSgnfzhzgFhnclhaiBfYfFb4b7c7HDCTgHiWIhbSipGVcxIEglg0gAgjfDeDfzivf4C5f3ISgdfficfOiehPg9fthVgggzbhiWg9g9fuCEI5cefbggeDIgehfEbbVWICHzbzbGeWIWdTGvd6fDfThwC3CHfWICHEcYeyg6i2H3fvixhYhahGhYc4gngzg8eng7f2bBbhchb1G3IBH8iBbXbyC4hlh8iSGGgwc6gHfhcCH2H5cGgFhXg3gwCng5c8hzC3iEgziTH3GAd8HUbYc2H5ejfAhnhYf7f")
AspCoding.EnCode("Fc4HkH1I2HZiwCwe5CjeGh2bningahFh3CFC3G5c4gmhkhaf8iYCZf3izCkfmfFc3Gkb2b1G5fngzejg7e6gZi4gaije5CTHZdAI3G2H4gjg5hFi6fTH1IFhYCmijgng2e6fzhAiFhwfweYeXe4HUcgdCH3IXdXd2HTG8eFCTIgdhb4b2HXd3I2HXdBHEgZf2Hzi4iygYhziEgFc1I8c6H1I2HXexCjg6f7hXgahFc2b8c4H2H3hkhZi6fECHgYc3g5hniyeMiAgagFgEgxgvfYe5fYcHfFdZfyg8g2HZiaf")
AspCoding.EnCode("aiYhzgTH2b4gngahlinglg4HSdGgFiAfXgje3I7eDfThjgngTH2bZhkezgACyG6CYfvfYhaCACSH3IXfyizemgYcHf8pVruqDqJqXWU9nRWRSVhPSRBHxblh8i5hjeTIBHwcnhxh7CBbHhwc8emgUcWICH5c2H2H5cGgxbEglgSdWIVc4bXd5c3IEcDf6eXd5fkhZi6f7eTH2bFh7f1fFijf8fEgwfai4CXeZdGeVbhb5c3I4b4bXdXdTG5iagAhjh2Hwi3CDfzixCZfTHYclezhlh8e4H3I4e4g8eygyizg")
AspCoding.EnCode("Fc3GeCZfvCygje1fggXgFhZidf3f4gvhlC8ixIXg7eAfTbZi3hDfwekejeTHgiYC5fwglCDC4HGepGWd3IXd4b4b2HXd3I2HFdDfmg2HEfai3iEgyhFc1IkcjITc4HTIBHYezC8g2H5hjgxhXiahFc4HafmhZhli4HSdWIVc3I4b5c1G5c3I3I3I3I3IBHle2HniafYC6fAgHg4Hlivfli2bTIBHlh6gXgah5c4gjg3fECAgFc4HAg8eBgzeYf7b1ITIGQFWrqkoKRwO8ovs5pSpRqdMLsFQGR5QHroPiRBr")
AspCoding.EnCode("uQEpWrbKLqbqGqNrgR7RQRFoqR8pFWnqMrlqsPLRWQA9CqgqFOwq9qVrtPSVsrfJOQB97pyQRijIAbAIlImOFVprIqWsurAI6ckHjGssapVbVcBH5e7fBbVbCH2H5c2H2H3I2H5cXd1GXd1G4bgql9QRUWRhrCvOGPEcAg7h5hkf5cmCafZiEC6fTHYc7eFhThzeYfAIkG1IGekITckI6c8GDdEH8dGg4e2HEgXgAhXiYfDfHg4hwCZizgwg1GwfAh4iZhTH8eZeje5f4iyCDfEIvdvdzfZe7eECXg5Cmhxb")
AspCoding.EnCode("GflCygkfEdlHUIlHkHlc8cSIjb3cQgaiEg4iTHqRHuuPBsGR5QIqiRIqWrEWILqQappqYqD9fuOsFR3cOgmhxiDeFcBgngAgTIGgvfaemf5cXfxC7fmgng7fFc4H6c2b3I6fAh4gHgohwiXgZgYfECyIDilfagjejgwekfmhxIZgvfZh4b4ejgACBGZdPQHurqBsbs5QbRpQHrQPFVILqQaperYqEWdKQqSr1ITIGgaGXgHfDblbAc8bEG6I7HBckbHhvdlh7hZijeTIEceg9foisf2H5iXg3hngHgqCngEi")
AspCoding.EnCode("nhYCxiXgUcBH4eXdDf5hEimfZeDfGh4haf3fxixf2Hxg7f4iXCBGACZeah3h4izgFhFbvdvdae4iAglh5hmf4ivdGfAizCkfTHjckG6b8bEGDH8IFGjIYGQgaiEg4iBGVsHuLs8RTo5QbRiRIqWrUpfuPRyWfsyrFVcJRP8QXbCimhkfDeBGSeYfFiSdBHygvC5C2H5ekeFCmg3CAhGh4H7d1I2HEC7f4gTHifwiZiZgmhFiyIDi7gyikfjgvfje3CxImfxhYg4bZikhliTH4HRqbKMrFQbs4RHriRIqWrSo")
AspCoding.EnCode("ILPRxVoRZRFVfuRP8QYcHfFdzHXgTIBHwchfpiWhtgHfHhAg6g5hxi3I4gafYCAgFiTH1I7eEgSeafmhAIAI4HBb7b7G7IDd6GBd8HkHSbFdvd6f6g3fxiGeGgci9fOfPi4bZh5h3h4iHgrgng6emg3fah5hUcHhgeWgOfPi4bZhYC3hmhFctengEimg3fxi3fHfEcXg4bEgXgFCZg4iFhEdmijgZikfyeXdwfAh4infBGDfmhah5fYfxiDfSHyIzHwi3C7eEC4eYhmhwcBIEhxhyCEd8Gkc7IkbDbFHAc7d")
AspCoding.EnCode("FH3ctCvfDf4iBGRqbKuPFQGRXPbRoPbRWrFVILRPAOCQxsFVetqQFR5I9h4ikf8fHgTh3CFiTIGgwezfYh5c4hjf6eYeZe7fFcZdkH1IXdEC7fXeBGVCkgYCYhmh6fvd7glfxCkfjgvfkf4ivcZgxh5i3IZijgliTH1IPQGtLs8RBp3qbRCqHrRqD9fuqQyWpqyrUpbMPRSr1IBbEcaGZiTIGgyIegWgOfreHfEcXfFCHfWIgI2H5c2H5c4b3I2H4b3I3I4b5c3I3IBHvdegpiOftgGeGg7eAf5hzg3I5fkh")
AspCoding.EnCode("5h7eAgEd3GECDfUfkh3C6djH1IHf79yPBVE9YpHQ6ckbAbzbjbjcDIlI6I7GSIkHabjbjc6bjGlI7H6cAbab6djb8b8cDGUIBc8I8HjcFHBHmilgBbWIgIXd3I5c4bXd5c3I5c2H1GXd2H4b5ctQ9PRQyq5WHQEf4iXfzfAgDf4iFCIe6CSeYhvhvc4gahHhnCFCGehcgI4b4b2H5cXd2H5cXd2H2H5c1G4b4bsP3QVRcPXVGPGgZi3Izi6e3CnfEd1IveDfEg6gFbwczHEfDg8hwd7iBgZgyeaH3hxixblf")
AspCoding.EnCode("SeFeTeFHwcZdHfxgACACAfUGaGvdDg6C8hybEfGOZgxfwd5fzgzHlfH97iUgSbEcyIZiTIEczHAgAf4eyCTIBHxbAg7hZiahUc2HBH5h4bzi7f3CYgFc1Iyhli8e8iEIyIyI7gBgEfTeAH7caH6CUfZgwgaHnikfwc2bTIwfFhEg6gFbwcyI7gUf6CUg8cjHxIFeBgnexfyb4gzgBHxb5hGeGgnC6eXdzHHfVbWdXd2H3I2H5c1G3I5c2H2H5c4bHhlh7hZizg3I4gzeXg6flhGhYclh8eBgaf4i7b2bSdHh")
AspCoding.EnCode("lh8i4ezg5c4gafZi6f6fFc1IlhEgBgwCng7clbZdUcHR4rUpbPvOHQHhZi2Hve7fmhZhTH4HziDfDf6gSHwcvdFe6CFeyb8hH9ZgvhybmCyCaGYcTIyhFhDf8iHCzHwc6CEfEfvcFeThYhyeaH4gjeGgaGXgUcGgwc7eDC3fyCTITGzHAg6g5hxiHfBHyI7hSdhcgI3I1G2H4b5c4b2H1G1G1GBHwc4Cvf8gSdFdzH8eYeSdWIWd4b4b2HXd3I2HXd2HGgDfZf5c7iygnhlixgFc1I7c7HlI4HGeFdmgvfDh")
AspCoding.EnCode("3I5hvixhXikfTH2b3h4ikfACngEi1IBbEc4e5cxglgngYgHg4HveDfliAfECSHyIyIAfZiUfDcyb4gwfxhzgXg4hZizgwgaHmCagwiaH4gjeyIPe3fThEgagGfDhNhaeyg4CBGBdAH8HUbZdSdBHygzfXi1GAgEi5fTHYcohjh5hYh4iAgyI6g4eBgzfmhahlilh5eBg1f6clbyb5CxhZhYc1GDgaimgDfziTH4H7cjI6b1I3IaCngaiYhaCliHgYcDHlGZd2H4hyi7fYeYfAhGh4HkHYcHfBHyI3fUcFdaG")
AspCoding.EnCode("4CweDhBbEcyIFhnhSdgdiG5c3I4b4b2H5cFdzH5ixC7fzfUcpGhb4b1G2H3ITGyI8elgUcWIVc1GXdBHvdEg4eXfjgngBbhcCH2H3IHhDCUc5Izg5e6f7hHiHhzHleGepGCHEcvdZfyg7CSdoHiGTGeCAgDCIhzhZfzCzgmfwdcfxg3f7fFi4iEgGhXi3g8ckI7cAHTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>