selcolor.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("HhYbgdiGZGFcHgGhGhTHFcEdHgFcEdTHTHFcBGGhGhBGTHHgBGHgBGHgFcHgFcBGEdTHEdHgBGTHHgHgGhFcTHHgHgGhEdFcHgHgTHTHGhFcGhTHBGBGBGTHFcEdoHgI3dgdCHZGDpfMiR8OeqGK8phsXVHQQPHusRFQBp2rHriR4bbryVqrIRxcpQDRuQFoxdqRHusrIRGqNrhqarRQEpRq6Ww9ypBO8RS9iR5WdsueH9ZgwgxI4gzgYpyooHVcYHFOyQ9RzV9QdLsRJr5WBWtfThZgwgybnizgWICH3d7V")
AspCoding.EnCode("VrsQ8RLPiRLQTQ5WTVHRmQKq5qQPIJLsEPbs5QcQCqgdWdYHbgjf8iUflgaimfwfAC4bkb6clb6caIjIlIlGlI3IrhThXivhzG4gkfXdzb4beCkhkhXdRexhXiyhDfFi2Hqf4iAg4ilgDhZenhvcVbWd3dWIVcYHBGBGTHGhFcTHBGTHGhGhTHTHFcTHTHHgTHFcBGBGEdBGGhGhFcHgGhGhEdBGBGFcHgGhGhTHFcEdHgFcEdTHTHFcBGGhGhBGTHHgBGHgBGHgFcHghciG1dHfgdgITGCftgOgOhUcBHog")
AspCoding.EnCode("hgchbCUcGgtgifsfOhbiBbrQKPWPao6parFdzHtgVCQCWffeHfgdgIFd9hghsfeC3I5fkekfEgYfkfliFc1IFh4iTgliyIziDfkgafSGXd4gwfZilglh4iFhFcmfXfkbjb7cAHZd3IziEgFhDCyG4i7gFgyg8gHgcfkekfliYfyCDfaItgUf8ingUcVbhbBHPhtgMgOhbi3IEgUfDCngFcDfngUeEgzH5flhAgTIsfhh4bBeWIWdgeoCOfsfzbtCVCMfhgSH5cjHlIvcFHAfACVbhbSiVbVcIgWgggKe3ISg")
AspCoding.EnCode("VbhbciVh9etgxHtCohKhICFb4b6djGybTc7hDfhcCHGphcgIgiuguhreVhoi4bIOgdgIqiifeereCfFb5c6HZezfVbhbGpoHVcBHzHQgsf0iVefeSdpGhbVbVcGgPhIhuCCePePi3Ikh5hkfXilCXgXi3CTHpfZiEe5hPhXe7fygleEgGeWIVc8gZi6eXdRf3CjgRegfIg3IGh5cYHXIFIVbWd6iXglg2HffAhtiehdf1GBG1GYH4cGCoHgI7CYC7f1GRf3CjgcCQhchJfXdHg2HZGjHjIkHYHHihcgIVbVc")
AspCoding.EnCode("8gZilg5cwfngSfXeaC3ITH5czgmh7i4bfi7f7f5hThxcYH7dXImc3I5b6dZGmc3IXIjIXIzI2HZGlH4cyHXdYH8IXIyH5cXIkc5bab2H5b6IXIab5cXI7IYHnd3I4cFHXIxG3IYHEH5bzI3IYHch5bxG3I3dce3dyH2H5bgC3dyH3IYHIiYHzI5cYHef3dab4b4cfh4cwIFIWIiGWIgIZhEhxi3h8eygjfyC4buhxCphmhHOmGahycVbCHb9gHFfZilg5cxgab1GkhHiVbWdgdgIxi2HBG1GVf5hliwfzG7f")
AspCoding.EnCode("zhEhkfZfxckfmHFIoHVcze1GEd1Gah4b2c3Ilb7bGCpGiGzi3IGh4bVfZiACxgvcXCafjfyi6ewbwbje2HyI1GAI8GwIyc3I2c1G6dDHGCWIiG7fngEgEhEikf3IvIyh3CG94gxgLfwf1h5cmb2HveZeUe5fzi1Caf2gxdGCoHiGGpgdgIgdhbZh8fyC4gDfwejfzg2Hffyihiagkhyilgxc4gmc2HjgmHpGWdSg2H6iXgAh5cAhmc2Hmfab4bmiUHgdgIhcgIAhXdBG5cXIlITgXInI2HXeaHFi8fnC6fEg")
AspCoding.EnCode("lgvfxiZgxclbab2HjbwIFIVbVcZg3ITHXdXI6cSfXIwG3I5faHlhFg3g6fFhAhwezg5CmG8dyH2H8bxdGCoHgIXf5cTH3I4ckHSf3dmb4bniybFiFg3gAg8elgygahYhxc8bxG3I8HxdEbVbWdVbhbzCmewbvi4bHf5cjHAH6cwIhcgIUhpGhbvi4bEdXdjg5cxH1GkGAHAbHioHiGoHhbAh2HTH5cnH7f3IwH5cmGkGDdjG4bzb5cjgvb4bzd1GlGkcDI4bnb2Hvixd3IwcXdjHAH6cSGVbhbne2HHg1GvI")
AspCoding.EnCode("ne3Izc3IxckGDdkHXdaI1GafwI3Imb5cAHDIDI4bad5cjgwI2HzH4b7ckbkHSGpGiGXf5cEd2HvInCXdwH1GnH6djI7d4bzb2HwCwI2HwG2HjI6H6H5czc3Ikhyc3Iwc3I7cAHlIUHpGWdbVYfviAgmhhchbb9oHCHAh4bFc2Hydlg5cmI4bwCnG5cyI3IAIjIlIUHpGCHXi2HEd2HvIZg2Hzc3Ivivb4bzH4bAIjIAbHiWIgIXfXdHg5cnH3g1GmI2Hafvb3IyI2HlbkbjGFIgdiGUCoHCHVbWdFCYfEg8f")
AspCoding.EnCode("Eikf3I4c3HYHzd4buhyiph4iTgvIlgnG3InI4buhyiphZeTgnH5Cvb4bzd4buhxCiemhG9wbXfycUHoHVcbVhcgIVbiGZhAiahmCACygyikf1GfekfnhhijfzejfAhwbmHoHVcTf2H8g3fEi1GweGCpGhbVbVcygZhwbbC6eRediIg4b3bTH5ctCngviuCgfdfycpGhbUhpGCHgg6ePgheIg5cHg5cqe3CafuCfgceUHWIgIZhyi7fvIyg4bEd5clIFI2Hvf4bEcGh2HAGjGSG2HaiXdvHnIxdgdCHhe7fYC")
AspCoding.EnCode("BgQC5h4haf3CxI7fkeEfAgnHvfycvc3gYhhiagviagEi2HHg2HeexCbgjfviagAhxcPh4iafqfehbhmc2HDd8I6c3IzbXdwe5cmI3IUIwIFIoHiGGphcCHgdCHQgngafhiagvizhAhaHDhXgjgEh4i3IHg2HbCaghijfjgkelgnHqfehIgxIvfahahZelgQCZeHODfyH4bcCuCIfMgaHaikfzg4i7fsf3CBhFhycEbhcgIQgxgkeDgbgzhkhyiAhzG3gmfgCzhkhxCAh4bEd1GPh4ikhcfyiafjfEixI6iXg")
AspCoding.EnCode("khDemhHiVbWdUCWIVcBHaGqecfQhWiQfreHfVbhboHCHEcRfcfPgifrire1G3CEemhahliHgzhahmCzeweniwg4bZhjfEiEdbgyiwCjf7fPi4e4hkhZe2Hjg4ezgneFgZiZg4iBGOC3f7CXgqe5flgyg7hliHfWIgIPh3CviPgfgdf2HGh5cmhFfZeje8eaHFiFC5fhgwC3CzfZekfACxInCYhIhjfwCag7fSGoHgIefkf3ihiagkhyilgxcwIHioHgIBHaGtCbgqfWiRguhUcVbVcoHCHHhPhhiqfVCRgPi")
AspCoding.EnCode("3Imh7CZexiEgHgagzgkgjfDe6f4ijf7CYflg3InfyilgFcIhzhafzhlgtg5hmijgng2HwCXgximfFg4eZgYfTHChXg8g3fPh3h6eygDC8eSdoHCHQhcChCaHygkfxiYflgPiYfSfAC4bGh5cmh6ingzgEgzGAglg3hghvimhaengkfACyb4h5CIhzhwCkeAhHiVbCHbikfZfhiagviagAhmGvbHiVbWdFdyIuicfReCeQfuhUcoHiGoHhbHhRfcftiifQftg2H4iEeZeyC8eGhzhxikgzhEhECZekeAiEg4b")
AspCoding.EnCode("ZhjfEiEdbgyiwCjf7fPi4e4hkhZe2Hjg4ezgneFgZiZg4iBGOC3f7CXgqe5flgyg7hliHfWIgIQhcCgixIygkfkfmhEiuhYfUe8e1GTH5ctCYfjguCcCdfSGoHWdhgyCnhIhjfwCag7fmGmHFIoHCHEcwcQgIhtipgritgUcoHgIoHiGFdQgcftipgqhPi4b4iFfYfahFhFcjfyC4gviyg3hjC1G5iaglgHgfglg3fSesfZiXfwCYf3Ijg3fxiZgAi5hYhYfGhigXgDhZiQg4g7fzC6gliHfWIiGQgYfafeh")
AspCoding.EnCode("PgdgJf4bGh1Gng7CZeyCDfaHlhFCmCefjgYfwiYfzgliaHDfzCFhkh4iEbhcgIhgzgYebgagkhzhEiwbnGFIoHWdHhxbtCIhQhVCPeuhUcVbCHhcCHBHuibgtipgqhre4b4iDh3CyCEgFcjfjeaejfEhFiYfkeFfmhAh2Hnfyi7fTHfg7fZiSereYC5ekhmh5cjg5hah5CDe4eXingGhCh3f6iYCQgniFCvfAfliGeVbhbheqfdgKexIwezgxingEire3CSfAC3IBG2Hng8gmhxiDfxIAgAhmCbijgngzfYf")
AspCoding.EnCode("ahliybDfwe8ezeYfHigdCHhgyC4CcfkeafxClgydvbEboHWdGgzHqecfPgifQfPiUcWIhbhcgIEcQghiqfpgQfreXdngFf4izgFhFczhxizfjfEhlh4ijflCEg5cYgzhFCBGdilgXgBgtgXgXfzeYf5cafYCkfZgFg3fXingFcCh5hFf5hQg4gAhai6gEgHfgdgIdiqfdgKexIvfkfahnglgsfmhBh8e3IEd1GtCYfafehuCeCJfFIoHVcefzg3icfjfwCzhAhxcvbHiWIgIGgaGQgbgQhohriuhGeWICHgd")
AspCoding.EnCode("hbHhtCIhQhVCPeuh5cmhFf4ikfDfFcagxi4gkhwe3hki4bXCxClgFc9fye1Gaf5hximfDe3fYhmhTHpfZiFf3fQg5fEiweleACGeVbhb7iygahnhxCFezGEingFhEh7fxiqCXgvilCYf2HFc1GPhmhzecfagzeag6exI6iXgviDe3CUHgdgIFevfzgmgzh7iaH4gjgzhEC4ivIwIUHoHhbEcxbRfdeReCeQfPiSdoHgIgdWdBHWeefQCdgXd3hzhkfACngkf8eTH1IVfRfViPiOgOh5cDIvclI6caHjIEHlG")
AspCoding.EnCode("7dxIkHYc3IahZijh4iTHgfghWhbiqfeCtgpiPgBbFdaGVihgdgggTIWICHTGdfpiffNC2H3gZgcfyijgyiAhGhzfmhzgFgBbhcgIGgffVCrg5c3fjgweZgkfTH3hngzgDfmhAhGeWIWdTGgCefOfuhICuCHfWICHEcsfdggiWfefXd4hzhEinh4ilgHglI1G4gngkhkhri5hYemgvfyCYhGh7d4b3h3Czekhui7h3fnivfkfXiHg7clIBbpGhbhchbFdQCPgUcoHiGTGsfhhUcoHiGBHuhchdfWfbi2HXfag")
AspCoding.EnCode("7f3iZe6eEdjG4b3h4ijgkhqhYCYeYeaizgYhGhkH5cmCngviwCRfAfZiXexhahneTHlI1GygYeHghiagvikeFCsfYC3gzeYfWIgIlhliUfjgngGhZdhiugPgRf9fQhGi4bwf4ejeYe4HUcgdCHGgtCgCqfCeQfQC3IwC5hahmflCXgmfZeTHig3fFfZiui4gAhai6gliTIhcCHYg8fjemCEgvfyizg4b7i3hxc7fyH4bYhmc2HnCzI5czgvbgdiGb9WIgIlg3IHg2HmGnHEi2Had2HAI6I2Hac3IEivb4bwH")
AspCoding.EnCode("4bkI3Inb5cvIAI6HXdaI5ckfwI1GnI2HkHBhUIlI2Hnb4bjewIXdaGXdjH6HEbgdWdmf3ITH5cnHvIXi2HwHXdlb7b5cmb5cZgwI3IvG3IkI4bnb5cwbkGDI2Hmd4bahxd4bmbXdjGBhTcAb2Hzc2Hkfyc3Iwc3Ilb7GEbhchbnCXdHg5cnHmG5e2Hnb5cjH8G2Hmb4bXfmH5cwH2HkI2Hzc1GmG6d7G4bzb5czgvb4bzd1GjGG9UIAb4bwH5cyCwI5cvd2HjHkcSGVbhbpGCHmgke4gDekg4izglizG6C7f")
AspCoding.EnCode("zCEgZenHXIGguhIi2HIgfgIhoCiiWgPgTH3H5bac4bsfkeieZeSfxcFCmH3IzdXdsfkeCf3CTgydYhvb2Hzd3IsfkeCfngSfnHmiyc3Imb5cXIzingaimfxgDfBGBd3IEfaimgFhziGhTcHfBHxbuhIiHf3dwIHiWIhbUCpGVcWIgI8gXglg2HXekfAizfXdTH3IzgYf7i3IfiAhAh3fThvIAIab5clIzI2H7dzI5cjHzI1GAIyH2HAbzI3IkHab4bkGzIXdjGnd2HkHabXd6dyH3IjHmc2HlImc2HkHnd4b")
AspCoding.EnCode("lbmc4b7czI3IlIxG3IAIab4b7cab1GlIyHXdAbvbGCVbhbgdiGZhyiAhnHai2HTH5clIHi3Ixh1GHh5clbAdGC3Iai2HwGwGmHVbVcTfpGCHnhzh5f8fwiYfkfEgaH7i6eweACZewb5bEctgQhBb3dnGSGhcgIZhzh7fxckC3IFcXdkHUH5cxe4bHh1GlHlISG3Ixe3IacnIycpGWdTfgdgIjejH3IHg4bji2HZI3I8bGChcgIzgAH2HGh5c9h3f8evezGnfvixCjflgydkC2HaG2HjdwIXdnb4blHGCWICH")
AspCoding.EnCode("jelH3ITH2Hxi8c3Imb5ckIHiWIVcoHgIEfXeydvI5fxiFgjh2iahDcNf2Hnb4bxijHXdnI5c4gahlCae2izgjI2g3ImI2HmG6H5cxHXdkfAIwImHmcWIVcwb3hkfEhkgKgahDc3InI2H6d2g5cwH3IjeAI2HvH4b4gzg8fjhJhjejIXdwGXdjHNf4badXdnHDI2Hnc2Hzg7cmHmHndVbhbxc3hxiFgkgKgjekI3Imb4b8c1h1GmI2HyClb4bzd4b3hyCDejh2iahAH5cvH2H8c2g5cmI4bmG8b5czbXdyCAI")
AspCoding.EnCode("ycmHxG1GvfvbHioHiGGpVbhboHCH3ijf5fFgzf4ije8ewdFeAhxhlingkhahydZGTGwctgQhBbYHycGCWIVcUCoHCHEcaGPhIhReifRgreTIpGgIhcgIEcaGQCIfhC9gfeHfGgyIuhIiHfWIgIHhQCIiTIWICHBHuhfibhWffe1G5ejfEi4CYflgEd7d2HXeYfwCjgsC5hnhZfzCzgmfBGkH3I5fYfviviQg7hZi4gaizgXiTHlI2Hwe4CHggfEiXgThPi5hmiafYfVbhbFiDfGOjg4iHg2bgCsetiQgWgPg")
AspCoding.EnCode("EI3Iwf4ekf3i4HSdoHgIGgRfhiPgWiqhuh2HkhXgzgYhAiXgZgYfEdigZiFfXgqe4g7fvf7hEgTIoHhbZhkelgydweXdTH2HkbjdjdUH3Ivf5cHfHg5ckHUHXdxh4bncGh5cUIxIDInGWIgInhzhniEhaengkfACyb8hFCxhFh3CmG5bEcuhqf5cdfgfhiWgiiWgQhBG1b4cmbXdQCagViYfUemGvfvb5cvH1GsfzhphYfSfxcvfmH3IvH5crekeWCZeBhwbaiwI4bmbXdZGGeEctghh4bsfWiQC9gbiEdYH")
AspCoding.EnCode("vH5cWe5hFhveaHYgzeagkelgxcyg5cvGXdjHAd3IaG2HAI7Ivb5cvH3IXIyh3CaiZgxgDfTHDb5c8hvfYe8eveTH8c7dHfGgvdQCffGeBHvdtguCBb5bmHGCWICHTGzHQgcfqfWiritgBbhcgIhcgIEczHtgIfceCChgHfEcyIuhIiBbEczHsfQhBbEczHQCdggi9gghSdTGwcbghgVgtghgqfGeBHwcffVCufTIWICHEcggWish4b3fkhygZgahFc4gngkfACngEiHfWIiGGgcfefWhtghgqfBbVbiGGgQC")
AspCoding.EnCode("behCWfef4bnCxC7fmgYfEiTHlI5c5fYfwCkhqhZinh3iygzgZgBGlI3I3hmhvikhqe6g3fmCxhah5CGhlb7dGeVbVcVbCHEcsfqfUcWIVcGguhee4bZikhzC5CzgFczfweYeZfkh4i2H6ejf8hPhAf3fxiTHAHTIrQn9LPrPPsao7WWqhcgIHhuheCceVebi3I4hzh7f3i3ClgFc6d2H5f4izekhqh4eZfmgwezgneHg6c3IniZewCaftC6g4e5fygzgYhFckH3IxgmhzCXixgEgTHlHAb5cxhZfBGqevejf")
AspCoding.EnCode("7igCjfjgxCFCoHiGEfzCmgACyhGh7H7dTIoHiGoHgIBHsftiUcWIhbEctgIiTIEczHtgffGeFdyIsftiTIHhwcuhfidfWfghBbEczHQCggUcWIhbFdreIi3IlgagDgQgAf4ekfFcAHSdGQbJORzpGi3IEcPhqhIfWh3IygnhFcPgfgdfSdGgwcRfRgbeVgHfBHbhPgTIeQgqFWVPEIXdTGtCQfIfWhgdWdvfmgTHdiqfdg0iHfjHDdAbHhwcPhridgVgTITGIgPgBbSWeLfqkPEI2HFdohWhsCthuhXdwenh")
AspCoding.EnCode("FcPhYfvicfjfviagEi3IlhweSh4iGhldSdGgwcsfeeGeoHhbEcsfeeHfHhbhrfsfPi9fOf3Ivf3iBGOejC1GFhTh8ingGhlhlC5eaeaiEgBbOqUp89kOGgwchCrfsfPiOeWhBbTGzHtgeeTITGyIPiPgUcpGWdBHQCPgGeoHgIGguhIiHfGgIgthQCPiWgVgoHCHzhxi3hafweXeyeTH7izCkfmgxC6CaHXeafxCAg3CwbvbUHSd9R5pqPIuGgzHdfQiPitgVhoiTIEcyIPiffTIBHaGQCPgHfEcyIuhfibh")
AspCoding.EnCode("iiefHfHhxbhiefpCtgbiPgBbFdaGIipgrgTIGgyIdfOeff0iHfFdzHogtgVfiiTIhchbHhIflh6gbgzh3iygzgmfwdbgzi3flg7engDfTHYh3gjIlHlbkbGe")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>