qqshow.asp

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

<%

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

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("FdZIpGVceevfzfXd4gkeahzgPfQeAgDf6ezI3hjfkfyCRhPfabEi6fFiYflilC6gPfPfxG7g7gyikfkhaiah3Cnd3fnhwiMiAe8CabZiZfjhLCDi6h1fzgXgkgmhyHFewf4i6eZe7g7gzIwg4imelClhxfygxiyH7g6hFixfygkfnd6h8CvCAgne0gjfkfmclf7gkglhYh2eagXC5imcrCPfNhpCfiiChgyHsisiabiCSePfrCaboimcFiaiDfngah3fkgngVbVcnizhkfzgPfrClhFh6e4bGhXdYcqhEijf")
AspCoding.EnCode("8gai4CYfEiTHCiifIhReVhuiVhgeuhaH9ifesfzG9fOhbieeceaHjcybkHUHIieCtgdg2HuipiQitihighFcYcZHPhghuCRibiQhaHCidgQfsCchreWCxcZdaHvcwcRhRhzHqgRhzGkgYe4hYcmHhcVcuiZe8e3I5fagzgzgRhrCEdAgngAhEemh7fybcf7fmhZiFhYf9fXfxeYfniliyd1I4e3ikeZfXfwd4gkeahzgYfXeEgvfkezg2bmHoHWd3hjfahxiPfsiaHpiDCngkf2HXeagzgxiPfRhFiFhFCgd")
AspCoding.EnCode("CHYbUchciGgdhbEc5HVbWd4cSW9QPRoRcRdKDpHPsQlrtPzoKRSR9RPRcrRPKs4qBpoRhcCHQgmhli2Hlg6fECmhAClC6gQeqgTH5fyikfzgqgRhybZeTg3CniAiACYfwbZdFi3CjgYfnili4bad1GnfFCzhwi5csisi6fngFh8f6g1Ivb5chchblf7gjfyCkhxhjemhGhFCFilh4iDfFg8irCPfxc4HDilfzhjekhaiahZe2bmHhciG3fYezfNhDiAeBG2HEilh6fYflilC6gqgPfxcYcZi3iwiNhDiDi4H")
AspCoding.EnCode("vbVbWdZi3ijh1fDi7g1fyC5hae3CFcXd7fFiFimhFh8f6gRhQevI3G5h3izfMiDiDi2ejeXgzfng1IwIVbWd6CxgngAhZe6hlfGh7f6flh4iFh8fAfPfQenHYc7iaCng6e4iAelf4HxdWIiGvhngnfDeAgxfwezgGh7f6fECmhDfEh8iPfsinHYcjCngnf8f7ewgygxi4Hvbhchb8C8C6fvhaixiBGFClhFiYfFhlC8iRhPfvI1I7g6h6fyevfxi3GnGWIgI7g7gwi7e5CNhjfzgFc7fAglh4iDfFgAfrCRh")
AspCoding.EnCode("ydZd7gAekg6fmfMijfzg1IvbVbiG7g8CwiFi5C1fzhXC5iEdlg6fFi4iFhlClePfrCwbYcDiDiwi6fZgNhjfYgYg2bychchb6fngDfXdAhlh7emhFhlC8iRhsiTHVgyiACwfaikfXioHhbpGhb2cBbpGhbBH2cpGCHwenf4bZiYeae1fDi6hBHHfYcZd3IXgkf3i5cDiDiyiahviaikfmhGh6d5cliyhYfxiWICHYCnhaeLCDi8CTHEi4i7hkh3f4gmhmGXgYejhMilfDimcYcZojo1IyH1IzI1IvbgdWdyg")
AspCoding.EnCode("Yg4bwelhkfEhafafwbZinhzf1flfAe1fxiZivCngnG5cke7f2HYCmgaeNh7glf2ezg3faengGh4H4HXdFhwfmhxi2HZiZfwiLC7glf1fjeXgkg4iTH5h3ijhLC8ClfVbVcZiYevCNhDilfNhyCZijhYfHglgng7haf4e5f4imG4emgkg0g7gDi2eyC5hzfngmc4HXVAWYcyH1IyHZdvbgdWdqgQe0gOfIfCiefHgAg7hkhweEgydZi3ivC1f6h8CMiyCXgzf4imc2bnd3GmHgdhbsisiFcFiAfjgxhDfvIXg")
AspCoding.EnCode("nhwiMi6hlfzI4Hnd2bvbpGhbZhxCEi4boiTHlI5cACjf5crfgijfEhjenhxcRhQevboHVcWeUfQePfGhCiSeQePfacRhPfnHoixdnI1ISHYchcVcxi4iBhlihcCHYbBbgdVcEclh5fEiygAfAC4bzeYCxi5C8fZiXimhGh4Hvg5hEeXg7e3hEivf8iliYcGepGgIFfXglg3IzhyCwCygzgmhBG4bkfmhEf2HchEiAh3fUfnHnGUHhcVczCYg1Gxc2GZfjfmCFgaemhzgDfzGjg3fSengAh6fmHgdhbZfzhni")
AspCoding.EnCode("8fwiYfxiACxIEf7fweEgngxcYHHh3ixh7CXdvfnhFcYcYezCDhuiDf5hGOPizhAf9gngYgFh4H1G6fliSezengHg1I6gyi7ezCFhvfagxiSHXg4hFijfjg8fACmhZdSdXInGWICHBHwc6f4glgxh7h8eTIgdVcEcwC3fTh3CEiXdygZfFcYcnhzCEeRfAC5hH9Piyi8iWfngZhDf1ITIVbVcEcFh3f3gaf3C4b4hkeAhnh3CEiGhYckH1I5cmCYfviafFiAf5hXexhxiYhBG2bkHYc1G5fZeafkh8i4eYeZf")
AspCoding.EnCode("aiahmfTHYc7d1ITIoHVcEcliEiUcHhli3iHfHhxhvCXi5c4hjfEimgYfFCGhjGXdFiFC5fFcvcybxbvfkg5hneng7exbDilfwcAi8iTGXGHgxfngYgFglhjCzCzgZIBbzGYhvfZhHfBHxblinhHfBHzH8e7fUchcWdGg7eni6evfAfAC3I7eAh4gTH3GxgDf8e6gFbzHzH6CmhXf7hEiYfFiYfximCngaHlfAexI4gyizfxbXimhACxCkfkhaixiZeUduhH9AfmhEd7cXbBHZIHgOgThlfAe5HUc3GGeGgyI")
AspCoding.EnCode("Ag4gEiweDCFhHfWIVcBHEgAhUcBHEgZfSdVbWdFdEg4e3gafYf5cEfygmgFhyhBGAI6dTc5cnCjfAh4C4iFCHgkH5cmiYhmCkeafxCAhFcZccicihfegfhhf3I3g5hnikiYh7fag8fyCnhGhzGybxbzCwi5hXiYfAgwc8ClfwczfaiZfHhXGGhkimhmeEh6fkiwekfXGHfybXiwemeHfhchbBH5HhcWdYgag7f5coiFc6c5cFhyi5crfbhzhlCxi3iwbPfsiwIoHWdYbGegdVcFd6fniEixh7hDfTIVbiGyg")
AspCoding.EnCode("me4bxcjfxiviaijeZeKgBHZIHgzgYbSdJCHgHgAbnGVbCHnhjf5fEhwimhkfDfaHFe7faili3CvI3GEc8e7fHfFdEgYe4bXgafweZgkfBGlgxhmfwfACBbBH5h5c5fvi3fFiECHgYH5fZGEgXgEimfmhliGhnCwC3fahki5cveFCmh5iTH5baCliFhAfEIyIyI8hAf4eaHDiAezG4gagkgyIwi7e5CAhZfBIRiTHAIXbQivfzgTHFdYbEdrCqgmGzgmH5HUcZHQgygFhmhBGGg1dFcFizCDfmhyCZivCng5H")
AspCoding.EnCode("Uc3c9h3Cje8fEdahyi4cUcEcvfkgYh2HXgjgFhFc4cHhAf3I3fwCxhYhjeGhkh3C5iFhUcBHZIFc8Clfwi6fXi1fzhmeZh2cBbZGlh7fniBGaHzGzHxhwi4eneYfFixblflfwcrCqgagnf5iEc2cFcDi6hFikivfahYbSdvcXixhnf5c3gjfFCnhZeFCFc7d2HZivixhYhkfHgjhwemgYekh4iHfEcwcZiGeTGyIDfmgTIGgFh4CSdGgXg4bXekh3flh6fTH5bni5bDf3f7fneYfliFcnCjg4exiye2HwfFC")
AspCoding.EnCode("ngmeGhXIwf8eEgAfUGyIxbEfAfYCyblf6hvc5fyizfwcvCAgmf7fYeBIrgFcjHXbQixhyCEdBHYbFcsiQeydahyc5HBb4duixhDfngHgGgYbTH7evfliZejeXgkgngZIUcYGiCmhkfFgFckfag5bZiafEgTH3dHhDCXdXgzeygmfkfFcafngYgFhBbTGZIEdDiDivC6fYhLCyiXCYg5HUc4cBbFdXGTHrCRhMixiZiwiYfvIahmHZITIHhwcZiBbBHyIDf4CBbHhaGFhAhSdYcvbHioHgI4iwC6f4ioHVcZf")
AspCoding.EnCode("zhXeEhwimhjeFhaH7i6evf8eYfwbYcTG8e7fUcHhDfZf5cYCjgygmfxiFcEiaiXiyhliUcBH5h4bmCviZilh6fFcXIXf3dFh4eFCXi3CDfFcmikh5hkfwg4bvelgZeZhFcYHzililileUGyIzHDg6gXgyb8C8CxI4gzhaexbzflhmf7fnhScshTHjHZHsevfxiFcFdZIBGsiQenHkfxdZIGeXbQgvf8engTHTGZIGh6fvfACmhkf5hwiYf2cHf3ciCngkf8fBGzgag4cHfHhaijh5CXd3fkhliFcZGFd7h5c")
AspCoding.EnCode("3fkhzCXiahTHjgngYgFhHfTG5HFcAeAekgAgZg0gyije1dBbYHAgEi5fHgybvczHygzfYCYh3CECyIAe7gzHPfsijfzgGgYbGhAe7gECkiaiyC5HBbwdXizCYg2HmiyiAh4CZe7fEdAb5cZiviaimfzgGhzfygmgnhvi4iBbBHyI3fSdHhxb8enhBbFdlinhUcBHXg5cmCafZi6fFiTH5b5e5bli5h6eYhYfliBGXfze3fahki1Gve7f4iZhTHYHziACEg6gSHwcwc7i8iZiybDiDiaH3hzhvCwcwilhmfEi")
AspCoding.EnCode("mgGfqCGhkG4dQizCkfFcEcYbGhPfqgwbjewIXGBb3cRfaili4iBGTGZITHAgygEgmhyCYCkgngYbGeXbVfmhkf8fGhxizhYH3faf8eTH4cEcDC3I4eviwemfkfEdjgZeZhEgHfTGZITHAe7gjh6fmfLCzhkfYbUcYHUcBH2cEdqgPf1fjeXgkg4inHahycYbSdFdzH5hUcEcaGACnhUcBHxbACEiBb4HwIFIWIhbBHaG6fni6ewe6gEg3ITIhciGFdYbkfngG9DfZIBbhcCHGgzHAC5hnCwCngGeGgzHDf3i")
AspCoding.EnCode("HfGgyIFhAhGeWIWdEcliFCHfHhAC3iSdGgvfwiXi4bnCke7f4CmhEiFc6c5c6flg3hTHxIxIxbaiwi5hmfng6fvd6h6haGnhzh6CxiHh2cTHwg4iXC8fFixfaikfYbGeybXixhmeBbBHwc8eZfGeBHxbli6eGeoHVcHhzHDfZinCjgngHfhcVcEcwcvi5hH94i7fBbVbWdEc2cVbCHaiYg2H6CyhZeFC4i8ClfFc7c4bFhwfngahpGgIXGBbhcCHEcFini6ewe6gDf3IEgBg7h3CEd1IEgmhUeFhzHwh3fFf")
AspCoding.EnCode("5hFi3h7fvfAf8e4HUchcWd8g4eEi1GFfYfFCEgwe3hXgafleag6fBG1IZh7fjfvC4hjfFhlijfwi4HhcWdygnf2HmG4Imgyi5fEhwimhyCACaHkhZiH9ZeFClhycoHhb4Cyi3h8fkgngzgFhaHFe7fai8eZevIXIGgyI3iwe7CBbYHwIhcCHYgEhxi5fEgvfxCahXdOCQggeLg1fhfvijfXgEguhzhleggzC6ixcxdoHhbIOhcWdCIFfZiEi4bEC8e3fFCFhNi5cFc8cyHWIhbgHAgEg5hEiliLh2HHg2HDd")
AspCoding.EnCode("kbAbSGVbhbod6i5hEi2HzgFiXdTH5cnHxi3fDhweYhZiFhkeAhaHZileAf9e3fjh4izGwekf3imhSf9f5iyd1IVgYfliFiniZi8imhYcyc2H3bGhXdnc7cvbUHhcgIgH7C5h6eXd3iXdTH5c3izh3h8fkgmhjeEgSGVbVcgH5iAixiXe8eygjfzg3IkgkhydzCmgwIVbiGibTfVbCHgHib6i5h7f2HYfzeTH3ivc5Cng8ebizeYfzf3Czg8ebhBgifYeBIZfzGZgmhDfefwCmhzfmhxiDfgiUfWi4CvIvfZf")
AspCoding.EnCode("nGEImgvc3fkhviTb4Cwd3fkhvi2iwe4C1hGiZfybwCZiThYflgAgKgxhZf0eUHhciGhGCIygYgvI3izGwC5hUfngEi6fwImhviaHAgDfGOkh3CEdngzeFIoHCHpcgHngjgyblhPeHgXCAiximCDfxhxCxiydTgyHH9ycUhACvevfECybFiliH9viYfxIkhYfYgEgGhG9HiFhwfyg6fwdlhFhSekhmhwdlizh8iTHBgHiUCUHhcCHpcgHmhzeybG94bBG4b6fli4e7f8eKfEbhciGhGgHaiZh2HnH6i3ClgEg")
AspCoding.EnCode("vfniZivi8iyilhFcFc4HZhAhxCwilizhAfYcwIoHWdibhG3CviwdUf5cFc4blhDfXgAh8eMgSGVbVcgHpc4ivi7eZeSgoHgICICImhwCwdBg3IGh1Gah6f4bGf2H7hZiYhYfJf9fmenfFi4iAC3IwG5cwekfkf3ClgiemhygmfveEg2HUG3Inhjf5flCjhYfahliaHmijf3iGOxI6f5f6eagjgvisfzh8i4bzdXdZfzhniAiae3CahliaH4hxC3iThaH4gjgygmhkf8eCf4iwenexgEgFIWIVchGodmhafxI")
AspCoding.EnCode("H92HaIGh5c6fEg3fFCFhNCGCWIiGCIgHGphcCHCICIAhmh8eFgFCxi5c3CafEbgdVcodbVoHVcpc8hzCjeZfxC8hvcFiliZiUftgzhAf9gngZhliFcZh8fzg5fACxhzhjewbvbgdVcibb9oHgIpcodvf5i2HxcFfmh6eFhai3h4ekhAfyi7eTHBG4HZhEikeaeDfyi7h4HmHb9gdgICIgH6iZiEi5c8iLh5cFc2HahlhXdSc5c7h3fXingJfoCZhmeEC4iAC2HGi5cnhzh5fFgjhZezg8eybmijf3iH9vc7e")
AspCoding.EnCode("XelgjfjgjgtgzhDCGCWIgIibhGZhDfkh9fXfwhvcTh2HvHTH1GnH8i0iXdnI1GFi8e3f7fACMg1Gzb3Inf8ejg9f5evgybUfmHvdSbUHVbVcgHpcGphcWdCIgHYfzeAgngb9oHhbpcib7CYC7f4b8i0i1GEd4bxi6f4bUd5c7h3fZgngMgVhnfme6f4i8e1GnI3IygzgxiZeFCphYfygXiwfEg4bGi2HmgjfmCEhvC3Czg8exIXfjf3iUfxIAg3hAhkejgwCPiyiDC2HmbXd3ixC4g8fwi4iahACzGXfxCnh")
AspCoding.EnCode("H9vcnivivfngahDfogngxhXiziFhUHWICHodibZh8ekhVhnCjiybH92HnIFcXdnH8iJf5cxH4b7eFhZiAh8eLh2Hnc1Gnf8eafVhmixezGUfycxbFHUHhcWdCICIGphcVcpcpc5iFhvipiXfwhybECrixcZhDfviWgXfkCybUend5cXCDfvipi4hwhaHBgvbSGWIiGibpc6f4iliPiweaengjfFgEgvI2bECACXgBguhke7hWfmhnfDfwbyc2byH2HjHjGmHHihcWdCIHohciGgHnfACjgOe4hvg2HBG3Izf")
AspCoding.EnCode("zevI2bZfvf7CPhDf5hH9sfyiAfii3CYgDf4HnGFIWIVcgHlhli5hGOQCjf7hii4imeACwbycUHVbWdSiVbCHigQgegMh1fgeafyi4e8etgag6gggaiEeydvbUHWIVcBHyIlhni7fygAfACBbgdWdGgXGngaf6f4i5HTIWIhbHh7e4gFCai8iAC2HFhGO8i3CHg4Hli4iBhACaGyfYCDhZiFiniEivf6gFh4HTIWIhb6iZiAh2H8gYfFCFhxhXe5hkhDCyilhFc4HYgEixCzfmijfliDfzhae2bhchbweZh2H")
AspCoding.EnCode("xc2GZfke5fEhwiZejeDfvckh3fUf4iFCAgwIoHVc3iyiniAijh4ixiDfyb8hFCailimhnH4cGgzH4CxhEeSd4cxdoHVc5iEhah5fEgxhkezg1GChuihfNiMicizekeXgDftgag6ghhzC7CvIwIVbiGUhoHhbgHFf5hEi4b6fDf3f6eDfNi5cEdAgXeEiZeYfkfwdDgwenhEgwfyGAI7HjGzIVbCHgHECFh3fAhliJf5cTH5cDdjIkHUHpGgICI6i3fAh5cahECXdTH4bxcxi4e7CxhXi3fFhxCEiyb3f6g6g")
AspCoding.EnCode("Vg5hzfZeaHaijeYengTgWgYgxc3GpCmhDfAgni3f6gmhYcmH3I1HEd4bmd6dwISGWICHgH6i3flg3Inh4bBG3I4CyinilCzfmhyCliGCWICHpc5iEhyCXeDfzCzhxi5cwivinHygnhmHWIgIibb9hchbgHCIFfYCAh4bZekhGh4CvcYh4iDfhgvi3Czf4ikflidfThCenhScnhzGYhYflifeafZezfmhxi8eceUfWinhnHvf3ixdEImgaHZiviviSc3iybZiviafJhxh4CKiGinhaHviXgUf3CAh7e1Cai4C")
AspCoding.EnCode("NfHihchbibgHygZhmGmgzGkhZiUf4iEiFinGZejgaHAgEgBgkh3CEdngjgEbpGhbgHibYfafybFiqhTHnf8fje5fliaixCzgmGG9xGUfmHIOEgvexhAgaH7eEgUfzengybafYfXCFhTHBhHiDfzivfFiwdAgDfUfzengxIlijf7hFcThGCUCUHVbVcpchG3CkhvcSf4bEd5clhDfXglgEgMhUHpGCHpchGweYg3IvI8g4i6eACxh5fXgviAfaglhFcTH1InfFCzhvCACagle1ImHoHVcgHCIngkhybSe3IEd")
AspCoding.EnCode("5cFiAC3fAhAC0iGCWICHpcpcmhwC7eYfIOVbVcpcpc4iafxITh2HHg3IahFi5cTb2H6g3f5CmhLhOeZhZhEC4iFh5cvH3IaiyCkf4i7fViYfxhneyhli4bUG4bZfyiXe8faeYfahlizG5ejf3iThaH6fniFCagjgafPiyi8i5cac4b3iyi5fEhjh3CxiliybXfyimgUfwd3hzezC4iyCDfVi4ixhYhwfEgEbpGgIhGib4iafvcH95cyGBG3I6fEgXglgFhNCGCWIgIibhGIWoHhbgHgHAh4iFh8f7fkf1GYf")
AspCoding.EnCode("viHigdgIhGSipGCHgH6CygjenhagEfzGAgDf4eBguhjfAfCCmhnfFhFcnfAikfniACygjfkfmGwIWIVcgHUhhchbododvfZh5cxcEe3CAhlivf3hYCvi7hjfAgHgHg2bnf6ejfwi8eke6g1IwISghciGodibFfXgEi2H6gLh5cTH3IkfEC4bUdXd6g4eZgYfJfpinfYgAgmhFh1GEIXd3iyimC8fjh3CxiACxIXfyi3iThwd7e5fFCzhviviPiyiAfFIVbCHCICIZhliviVhXfvgaHGO4bmbBG4bwbDC0i4b")
AspCoding.EnCode("ac2HAgliYC7fliJf5cxH4bmeFhviVh5ewhaHH9nGzHEGUHVbVchGhGGphchbgHgH4iwCAgngTfhcVcpcpc6i5hEi5cAfLh4bEd5cxilh2HSc3IAfYCYhZeNCpiXCnfFi4iFh4bvH3IxhjezgZeAhViYfaiXizi8e1GEI2Hmgag4gEhvC3CzgEgyb5ezhZfThaH6f3hEizhafafsfkeAf5cacXdmgkeniDezfYfyCEgzG4hagZfSexI5fzeygmhkfDfWCmhvfYhziDfHioHVcodCInfDfzeWg3gjiaHTh5cmb")
AspCoding.EnCode("EdXdnH7h0i5cyGXdlhli3fAhAC0i4bxH3IYgEgkh9f5eyfvcSenGyIUIFIWIVchGodIWoHgIpcgHYgFhvi9f3gyfwdlhsCydYg8ejg9fXfjiaHTgzI4bZh8ejgoCmijiwdUfvbGChcWdCIgHFi4iFhQCwezf3CzhAilixcYc6fEg5hUftgag7hii4iZhDfvImHZdab4bkGAbvbGChchbpcGpWIVcodnfliafpiXfwh1GGh5cjhzewb4H3iweFfqeDf5hH9rekeAfiimhnfDfYcxdFIWICHpcFiliZiH9uhyi")
AspCoding.EnCode("8iWfmhZhACxcycEboHVcbVoHWdChqedCNiLChfviyi5hFhsfag7heeygEewbycUHhcVcEcaG7e4g7fyg6gEgBbgdWdWIgIHhXGVbCHmhkfZf4baiZhoHCHYfjeZf5cWiXCWIiGuiZeDf2HmCagjeahqgPfBGVgjf8exgxhkfmfXdVbCHYbUcoHVcBHfiEC6gcfjfYeygzgXiaHIhzi5hFCECYfFhFcXi5eDdjb7cAHBb")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>