company.asp

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

<%

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

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("HhFiDfUfkhmh5cDfH96g4iHg1IliZeG9EgyI4gAgAg4HSdoHVcBH5dxHaIWICHybXfZi3hwg1flhag8fFhziygmg5f5cSggibebg9CfgRe9fthVgggxHoh9heCfgbiHClC7fafvI4czCae3fmf4iaGEgaiDfze4i3gYhybYhaiYgYHwISGcf9fOhVhQhFbjGkHkH6cAbAbGCbVVbVczGEgZi3gaf4i1f6fzhFgFhxgyg4C4g4bUhhCficfOigfReoCrfWhIixHgC9fOhVhReSH5cIf7HIgDHIildGCUCpGgI")
AspCoding.EnCode("ybliygFh4bb9XCkexiEgzbAgvfI94iSH5c7c7HleG9SGVbhbHooHgIwdEgFC0gFijfAiACzivf4C4g1GTfIgIfbgOigfqf9fugpCIiaIbgOeWfVhQhEI2HfededC7GcidCSGbVhcVcxHmdGehcgIFdxbAgDfGOjgYfSdoHgITGYeai6i3I5hviygYhkfFc3G4gZejeACYf7f2bTIVbhb4b5cBHAfBbHhaizfXi3IFilg4gFc3GqiBgZgwg4gzg1fzCzfZimf3CzHbgagzf7h3fxiThxIyf7hZg4H4b7iygmg")
AspCoding.EnCode("DfziHgYc7GlI7d1I1GwfmhygZgwfFhGhZd6I7cBdZd2HzHTIEcvdleHfoHVc1G3IEcDf4emijgmh4b8haimgDfxgBG4HDH6bUb2b4b5ejf7f3imhAhEd1IAbYc1GXgviygmfxiTH4H3hngahEgngFC1I4b3h3Cviaf8i3fYe4CvfahXiTHZdAH2b4bXeYfviaf6f6g3fnizCyC5CBG1IlbYc3I3hkhZiEC7eFc1IFhXgXfvi4i1fFiyi8f8eziwenh3h3GHfWIWd3IXd3I5cBHliFCUcoHWd3I1G2H3I2H3I")
AspCoding.EnCode("EcDfZf2Hxg3CaiZgxg8eTH2bkbDI4H1GXexCzeFiDC4ezgFcYcAHZd1GnijgYClhAgTHZd3g3fmCxf0g7ekeAilixgxh3i4g2bHfEcYeygEe1GYCafvfYhzgGh2b3h4ikfDfmhAhYcHfEcAg8iXgzg5c7eliBgjgngHg1InfxCkflixH6CYfygZgwfFhSH5c4hagafnh1IHf6WVrtR8RLQv96VwrOPSVosSRTGzHlh6gXgkfBbHhvdmgai7CSdBHzHEg3iSdpGCH2H5c1G3IEczH8eEiTIVbhb4b5c3I2HGg")
AspCoding.EnCode("8e7f2H3hkh5hlh7eTH4HliAhNhECagEhliveyg3i4g4HUcoHCH4b3I4b3I3IXdGgZhzhFCwi2HwiYf8eaCjfnhFc4HDCjflhFh3G2HZi5fDfygjfxiEdZdeCYekgxhxi0ghh5hliYCceZi4gvhFgAfvcZi6f8iSc3fXeliwezhahBGdfXgmCwglC6gYcHfhcWd5c2HXd3I1G2H3I2HGgliZf2HEfyg4ClixgHg3G6HkbSb1IHfTGYezCEe5cYCzeygXixiTHZdze4iYgAC2bTIoHWd3I2HXd2H3I1G1G5c5c")
AspCoding.EnCode("3IHh8i3I3hafZi7eAgBG3GACvfDf2bTIHhlh7hZikf2H3hkhZi6fFiHgYcAgEgH9ze4i6I1ITIBVEVtQxOLQv9Dpvs5pEVqRHurqFQIr3qbRpQCqDRuQUWWrIJMRdQbr5RirAPQR6OqRDoSpnqsRARrQMqOqlOiRCrFOnsVQQQrR79rsdtOQIQE9xPrg8ckHkG6cZVEWeqIqVrKRjHlIjGkHKQyWVbhbHh5e7fHfhchb4bXd3I4b5c1G3I5c3I2H5c2HeQyWQRUWqgqgvOTVHhlhDCZikf5c5fzeYC6flhFc")
AspCoding.EnCode("4HECDfThkhZejH7c4HHfkIFHDc7dAdDdFGkIHhZi3IFh5hEi5CZeliHg4hjg3fxiki2HziEiYfmeFc8emhahXeYfzgACEIvdyIwiYfFiECZimf3CyIHe8fygkfHgDcFHlHkH6IDdBckI5IqevfFhmhHgPQGtuPBsTo2rGsoPbRWrD9fuOszoerZR8OdKPR8Q4dOgYfyC8fHgSeZeFiUcGgxhwiZg4bXfyi6emgZe6eEd4HkH2b3IlhAh3hFcifzf5hYh4i6fwc7gDiagzgviwexingxIZgygYg2HYCafliTH")
AspCoding.EnCode("ZdPQIJsRFQHq5QHrCqbRPQEWcJqQyWerZRFVfu9rFRYcGeGgvdXgGe7Hlb7IDIFH7bDbTdjIEcvdECAf3fzgUcFdge9fOfPi1GYgZi5fZeFcrgmhAhnhZizg3fTITG3f2HFh5hAhYhZeDfTHmikh5hyCwg4bzi6eng5iHgDf4ikf5fmhzgFhEIyIvdkgmhlhECZimf4izHHelCvfahFc7H6d8H8bSb8G7HBcAHZHQgvfli3CEdVsGtsRDqIr4RIqCqHrVsSoILPRyWoRmQD9ILqQSr3cVfZexiDeGhThZe6f")
AspCoding.EnCode("TIFdygvCZg5cXfyiFC3iYfFCHg3GkH1I2HAgEi5fTHifkgYCXingAgaGlf6hzhzgafweje3CzGXizCme3IZiviDfEd3GWrIJLsDqGR5QGsiRcQVsUpcJRPzoeryrFVdK9rFR2bHfEcaGXgGeTGvdhf9fWhtgBbHhlh8i3fkf4b3hvi3fFiAgFc1IAgliSevingAIAI1ITIDHjd8H8c7HBd8HlIUIBHxb6f8i5hzgHfHheg9fWhPi3IYg3fningFctengFCmg4ekf5hTIGghfVhWhQC3I5iYCmCYfTHrg4iFC")
AspCoding.EnCode("Ye3fkfZiGeGgZi2H8eZilgYhmhFhFc3gafXgjexf2HyhAhmhZhBGDfYfxi3hmhyCEgFbwcaGkg4iAg6fZimfYfxbBIEhygzgEd6I8b6bDdjcFHAckHEG4dRfxhliYfEdPQbKrqEPBp2rcQpQbRPQD9bMOsAOiPZREWILPREqXbCi3CjeAiHgThng6fUcEcvfwiXi2H5eyi6enhmh6eTH1I7d1IXdAgEi5fFcVCwi3f5Cng7ezH7glfagxiafvfkfngwdXiygYg1G3fkhFhHg4HQPGtLsEPIr1sdPiRHrWrUp")
AspCoding.EnCode("bMRPl9oRxsEWcJqQUs1IHfFdzHXgGeTGwcciWgWhPiTIHhXfEiGeWIiG1GXd2H2H4b3I4b4b4b5c2H2H4b4bEczHciWgoitgTIEc7e8iXgzg3I4gjg3fEC6fFc4HECDfBgjgYflbjHYcBbSVxQTW8VYpBW6cjIlIxHDc8IkcjG6IjdSIjGyHjb8I7IkHAbDb7dlImc6d8d6HAH7ITcTd6G8H7HTcTG3gEiHfpGVc3I4b4b4b5c3I2H3I1G2H2H4b4b4brq9PRQwQw9BW8h3C3gjhFi8engEicgEfH9mfxfyb")
AspCoding.EnCode("4gahGg3gFCTIVbhbXd5c2H5c2H1GXd2H4b5c2HXd2H4btq4POQGrYpHQGg3f5caCFC3CmeHg2bziEgFh7hGivdaG7iDg8hxIEfH9XixfvcnikfaGDiSe8hShEGzH1ISdxgACEg8iSHwcvd7iEf6CxIFeUfZgxfxInikfzHlfBg6CI9UIGgaG3fBbHhyI6fle4eyCGeEcvd7e6gZixiHfXdTGZi3IaCAhngnfEd1IwfACDf6gUGaGwcDiBg8hI9jIlbaH7iSeZgyezGmCkfzH2bTIyhFhFh8iSHzHxb6hH9Ef")
AspCoding.EnCode("I9jI7cxIDgH9nekixI4gzgGgyI3fSdBHmi7fXdzHTIWICH4b2H5c4b3I2H4b3I2H4b5c3IGg6f8iXgxi1G4gwCXg7e6fGh1IAgDfThkh3C6IYcSdFd6fAfXgxiXdXeaf3fFi7eHgYc6f8eH9jgmhlblbYcTITp2RSoIQYpBWHh5h4bve7fYf5iGh2baCEgFh8iUGyIwcDgEf7iaHEfThZgvhxI4gyCyI2bBbaCliDf8iSHaGvdEf8h7iaH6CUfYhvhzG5fxiBHzHXgHfEcvdECDC4ezgBbEcyIlh7hZiyCGe")
AspCoding.EnCode("EcyI7hTIoHVc5c2H5c5c2H1G5c1G4b4bTGzHmgzC8gSdGgwcDf3iSdhcCHXd3I1G2H3I2H3I5cBHDfZf3I6CaimgEgveTH2blb8IkH3GGeFdYeai7C1GXgviaimfyCBGYc4g3CahEgYfFC1IHfFd3f3Ive6e4i5iHg2bziEgFhAfFiUGyIaGleYCUflHyb4gyhxhahZiXf3fahvhvc5fyikgvc4gzgwcPeZiBgEgagBI8g1fvCvf3iTHBdAH7ISI4HBbBHaijhZg2Hlhlg5fGhYcpgkg3fXingFiaG6gYCBg")
AspCoding.EnCode("aeYfahEgAgXfThNh7dAIvc5CzCnf4H3I7izCYeDfwfFc3GAI8c8H3G5cxgmhxhYhziEgTH1I8GAH4H4b4hzhAhYeYf7fFc2bAbZdTIHhwc4eTIEcyIZfaiFfHfHhyIFhmgTIgdgI4b4bXd5c2H5cBHaGXCjfAhwiHfgdCH4b4b1G2HEczHDflgHfhcWdXdXdTGyIFhZi3gkhmhUcgdiG5c3IHh6gHf3cxiXfFi8iUHTGwcleBbVbiGBHyI4Cyg7CTIhcCHEceCFiAfgCagYevfzgmfxIhiwf3f7fAg3CliHg")
AspCoding.EnCode("Zg5eAHjblbjIHf")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>