eshop_del.asp

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

<%

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

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("FdlhFhThvi4i2HFhUfAfYfHg1IliYfSfEgxb4g7eAg2bGeWIgIBHXcmdmdhcWdyb4hZi5fvhNhFixClCliwfxhmg5f5cb9dffihioffgtioCQiVgbCaIpgiCchcCghGi8fEiwCxcYHvfjhYCZgngzHEgai8ejgYf3gXivcZgygmeXIwIEbbgOeWf9fqfEI6c6cjGAb6c6cUHGpoHCHybliZi3gzeYfNh7ejfFgEgvevf3ini3ISggiIfIhofehReVhseOfffaIcfVhWfVhQhFb5cbe8Ibh7bIi8HSGIWVbgI")
AspCoding.EnCode("xIlizCli3ITfnfjfzg8exHAgxhBfYfEI2HAI7H7hSfHihcgIGpVbgIaHEgAh0gAgkeDeFhziwenhmC4bBeIgchbgCggfQhWgPCWhIimdhiOe9gWgtiGi1Gghcfci7GfhciUHGppGhbzbzbBbVbgIBHyIECEgUfkhmhBbWIWdHhZfai6i3IZivixhXiyCGh2b4gYfahDfngAh4HBbWIgIXd4bHh7hUc3ckf4h6fAfUHGgyI8iHfoHgI4b3ITGEg5h5ejgng2H7izC4CliaCGh2blc8HUb2b5cnCxCEiZfmhlg")
AspCoding.EnCode("THYc6c4H5cZiafygXiyCFc1ImCngzgACmhFC2b5c5f4iwCviAf3fnh4CygzgmfHgYclG1I2H4g4ivijgAgleXg4gxhzgneTH4HjH1I5cnize5hFiFiTH4HDf3f4hvi4i0g7ejfEh8ewfygmgXe4HUchcgI3I5c2H4bBHFh6eBbpGCH2H3I2H4b2H4bHhFh3i1GxgmhxhXiwf8eGh2bjIDIYcXdniagaf6fAfXgjeTH1Ikb4H2H4gafXg6flhTHYcmiXg5fvh0g6fagEhEgxgweYe3hYcGeHh4CxhEe3I5hjg")
AspCoding.EnCode("ygmfahHgZd3h4iyCliZelg1IUcEc7e7h3fxi1GlhliUfafZeGh2bZhzhahEgxHDg3CygmfyhFhFb3InCzhaf3iYcTIS9VruqTrtsXW7WnR9QUWgQSRHhzHlh6gXgyCBbHhxb3iaiFfBbBHzHDfmgTIhcCH2H3I4b3ITGyIFh6eTIWICH5cXdXd5cFdFhAh5c5fkh5hFiECEdYcDfAh0g6fyiAiDfziaiZf4gYcSdhcgIXd3I3IXd4bXdHh5ijfEivC5czfYfFhaCagmgTH1I8ikeAgDf1I5cZi4gEgweagzg")
AspCoding.EnCode("Gh1IbeZfzfvfzgMiIi4eFhZigi3f5fxf8f7hvcZiAgleGf5hXeDfygagjeTHgiZi4gwgAiAf2bHfVbiG4b1G2H2H3I2H4b2HHhFhnh5cFeygnhFhziTH3G8bkbUI1IUcFd3iygFf2H3fjgwemfzgGh4HafngnfEg4HBboHVc5c3I2H4b3I2H3I4b3I3ITGle4bnize5hEClhBG1IFhygEg4HBbGgEC7hZiyC5cXejgXgFiFiBG2b6fliSekh4iDH4HGeTWFWrqlWJq5VDpnRmOEVPQbKrqDqGR1sIqpQgrBr")
AspCoding.EnCode("rR79WrbKsrHsGqXqgRlQPqEpqR6WSpnqsRARJsMqOqxWgrCr7pwqVQQQuQSVMRHLOQIQ8VwqrglGlIlbjGZVFVgQHrWsts7c7dAbAbrrapVbhbEcnCFCUcoHhb3I2H5c5c2H5c5c2H3I5cXd5chRAOQRSVrCRhvOBWEc6f8iYCxi2H5fkhYCAgAgTH1IFi8eBgafng7c7c1ITIAGUIkIAb6IlGEHlHBHXg5cli4eAhXi4iDfTHXfaf5hxiki3Ive7fmhmeTHEgngje5f4ixiEgEIwczHjhYflh7e5hneYfzH")
AspCoding.EnCode("BI8fxhkfGhjbSbDcjG6IkbUbDcZHqexhFhngHgWrdMMr8RBp5QcQiRdPPQFVdKqQapoRmQFVfuQq8Q3cCingkfEhHgUfnglhTIGgweaeYh5c5ezhFCnhZelgGh1IlI4H4bAgFC3hFcVCwi4eZgngFiwcAe6hjfxizexhxiYfaHnexhZh4b5hkhEgTH1IVsIJtQDqHq3qbRhsIqPQD9ILPRl9erYqD9bMQqEq1IHfHhzHXgBb7Hlb7IDIBd7bDbUb8cEczHlhAf3fkfTIGgci9fOftg4bYg4e4gmhBGrgng7f")
AspCoding.EnCode("3iYCyCZiSdHh5h5cDf5hAhXi3CACFcXfkhXgkfki5cwfEi4infHgli3Cxi4g3CzgEgHCxbvdjh4i6fFiYCXiYfzHTblCygzgTH8I7cDGDIFH6IjcBcjI5IqeygEgmhHgQPHutQFQGR2rHroPIqWrD9fuqQapCQYqD9ILPRDPZH9hZekfFgHgSeYfFiUcGgygwimf4bXfzh6enhZe7fTH1IkH2b2HlhAh3hFcCekg5hYh4i6faG6h6hagzgvizCxingaHmfvfYg1G3fjgFhTH4HqRHusRFQHq5QHrgrbRPQEW")
AspCoding.EnCode("cJqQxVpqZRFVetRPEqYcGeHhvd5hGeGgxbegWgOfuhTIFdlh8iYCxi1G4gjgZiFi7eGh4HFi8eThviYfjHkG2bBb7b8b6bjI7HUIldlIFHHhxblh6gYCahHfEcciWgoiPi4b5iYC3hmhHgufmh7fmg5hkf5hTIGgdCVhWhuh5c5i3f3hYfTHufnglg3i3fkfXgBbGg4e3IFh4elgZgYfliEdnCviYCahvh5cwfAhmh5iEdAC4ikf3hngkfliGizHwcwiYfAgFiYCXingvdBIFgzCahEd7bkc8H8ckdTc8HkH")
AspCoding.EnCode("Sb4dQgygDfngFcQPIJtQ8RIr2rbRiRdPqRFVdKPRzoCQmQUpcJ9rSrYG9h4ixi8fTHUfYflhUcEcygaemf4b5ejflgmgZe7fFcYclI1I5c6fAh5fGhCejh4emfYfAgzH6hlfzhahkhaijengybYhainf1G5hkhEgHgYcVscLsRFQBp5QbRoPcQqREWfuqQxVCQZRUpdKqQSrYcTIBHxbXgHfGgxbegWg9ereBbEc5eAhSdVbiG3I4b3I3I2H4b3IXd4b5cXd5c1G3IGgwcciOeWhsfUcTGlh8i3fkf1G3hkh")
AspCoding.EnCode("5hlhlhHg4HAgACBgafmhlblb1ISdUWxQdrE9XVcr6ckb6cmdjbDbDIkH7b6HSIAbyHjb8I7I7dAbDbAb6cmcjHjb6HAH8HUISIjc8H7HUIHh3g6eTIVbiG3I3I2H5cXdXd5cXd4b4b5c2H4b4bMrqs9sYrYpBWDgYfmiwi6fli4i7fcg7iGOXiwgwd4gzgFd4hFCBbhcCH5cXd5c2H2H4bXd3I3I2H3I5c1G3IrQXRRrGrXVTVTGXg3IyhlgZenfTH4HxglilileFbwcwcEfEfEfaH8hH9XiwgzG5fahaGlf")
AspCoding.EnCode("BgDgTeFHwcYcTIxgliDf7hSHxbaG8hFeEfaHDgUfYhxfyb3hahwcAeBg8hShTcBHaG5hBbGgyIFiDCZizgHfBHzHAgle3fzgBb2HBHXg2Hxg7fmhnfFcYcxgDfFh6gSHyIxb7gBgFeTekb7czG8hGOYhyexI3hzgyI4HBbxgACFh8iHCwcaG7gBg7iI9lGlbaH7iSeYhkiaH5fjeHhxb5hBbHh3g7f3IvdTIoHhb4b4b3IXd4b2H5c5c3I5c5c4bEcEC7h5hzg2H3hafXglh6fGh1IAgACThkhmhlcYcHfHh")
AspCoding.EnCode("6fAf3fzg3Iniaf3fAglhHg3GAgFhSejgngjH7cZdSdbr3sEWcqw9HQHh5h5caCFC4infGh1IwfliliAfGiwczHDg7i6CvcDgGOZgwgwd3hyCxbYcHfziACliAfSHxbvdDgDgEfxI7iSeZgxfxInixiGgyI4eTIGgxbAgle3fkfHfGgwcFile5hxiUcBHzHAfHfVbVc5c3I1G2H4b1G2H3I3I1GBHwc3iyg8gUcBHxbDfnhGeVbiG2H2H3I2H4b2H4b4bHhliYe3I8hxh3iDfveGh2bAI8I6cZdUcGgZfvfFf")
AspCoding.EnCode("3I4eafygYhkfTH1I5fngkfFhYfEiYcTIBH5h3IwflgmhYgHg3GveFhlilelhHCxbaG6g5hBgkIaH3hxgzCahZinCZijewgxIniyiaeyb5fxiaGqhZiUfDfkeTbDhNhjhxhmgTHUIDd7IEH2bBbHhygvCYh2HFiEi4gFcYcohwiYCYhmhAgzH7h3fBgjhYfahEgAgnCThNhAb7cvcmfxhnf4H2HDgyg3iDfwfHg2bAIlG7I2b1GxgngvfXiaCACFcZd7bkbYc2H4hzhEi4C3CEiTH2blI4HUcEczHZiUcBHyI")
AspCoding.EnCode("3izC6iTIFdyIEg4CBbgdhb5c2H5cXd5c2HBHxbXCaglgzfTIhciG3I2H3I5cEcyIEg6eTIWIhb3I1GBHzHDfXgmiviZeBbhcVc2H2HBHAfBb3cxi3g7eAfEbTGzH6gTIpGCHEcwcmgyg6iHfVbCHHhbelhlecfjfmgvfahmfybIhyhZi6eAgmhFhFcmf5ekbjbAIjIUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>