vote_del.asp

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

<%

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

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("GgZIoHhb5byGaImdyGmdxHxHzbFOnsWQzV9Q79hPSRncxHxHnczbzbzbzbncaIaIaIyGaIxHzbzbncVbiGXIPQcLrqDqbs3qIqgrSogRur5VWQ7r8pQQJr8R4bWIgI3dIgvi5hmCkiWgAiDfKPHsEpYqw9HQveDfFh7hSHzHwcEfEfDgaHqiGOnejCzG3hah5cWIhb5bmdmdyGncaIzbzbxHncmdxHncTOIuMQbrQPZq7WdPQQnRbPBVyGaIncaIncyGmdxHmdaIyGxHWIgInhaizf2HAgmhFC6inglg2eFf")
AspCoding.EnCode("lbmclhYf6eEeZe7fMi7CAHWIWdECYf6eEe3ClgLCDhlbTHgCAgDfFCnHPgYflfAi4iAgFhvcQg4ilg6iYflguf4eFCyg3f4hjgmhFiwbYcCfsfuhqhMiqfICegbiPgghti3GycwIWIgIAgng7fEeYfEi1f7CAHHgbg6fli7fxcQhnglfEhngAgFhvcQgng7f7CngEiufXg6eyg4eXfkhngAgnH2bPhfePgqCfeuC1fOfchiCIC4HwImHhciGXIWinf2HFimhAhDhmhEi0g8gAITGTI4H2b4bPiyhZezgoHVc")
AspCoding.EnCode("5bibzCZh4b5caeyg3ivI6f4i7fFf4ilgNh8gAIndUImckh3CxivIFiYf6e7CYfAhMiFflGmHvbHhHf6f4i7fFfng7fMi7ClGXd1GFhyh4izgVbhb3dodhGtinglh7hjfxiECYfvcuCYfZfai6emh3h8e2HAgZelgEengEi0g6ilGgdCH3dCIZekfmg3Ixh5ioHCHXIghyC3i3Iygme2HVbVcVbCHZGyGyGxHncmdxHaImdDOyptPwPSObR8O5qzbxHmdaIxHmdxHaIxHxHncncaIzbncaIncaIhcCHggvfae")
AspCoding.EnCode("XdVg1fqhaglhliaboi1fgfmhFhmcOfLCpgxizIWhMiCexiYgzIVg0gLgwfxGOfMiZfnCyHVg0gZfmi6fliAhzI3fkhnglgFhMiygzgnfxCzIZiafng6eEg2e8fAhjgzIOfNhFhSe6g3CxGtCYf5fNhdCxC7fkg6fmcqengni1fhfyiAhjhNhzh8ingzgzIqeng5fNhfhyiAhaezIkfyiNhIhaCmh3hkipGgIIiygzf5cIfAf8ijgxh4gXgACygyiahqCZijgAiYfmGldmHVbVcIfleAfkhxh5f3flivfjfzg")
AspCoding.EnCode("ufZiwCDe3CmGAbvbFc1I5bbWGCSC4eximgbWwbHpycSCYfG93C5fHpaijelhmh6eDfIV7engzengniEgUiYe3Caf3CEgZeHpFg6gnhZiDfYfIV3hxCAizgEgGowHbW2cbW5fve6eGozfai4CHpkgYCECDfZe6eSCEgFCEhah5fYCEgYfSC5fxg3f7fUi3ing3hviXgEingYc2HXITpdtpsWRLQKqFVGKhchbfiAfAfkhxhni3fACygyizgshZizeAingvIAIwIHg4HveDfliAfHCzHyIDgEf7iaHqiThZgxf")
AspCoding.EnCode("yb4gzg2bpcCICIgHodCIpcgHCIhGCIhGgHibXI7VBQSW6qGPDRWsGttsapEpcq6OfsEp1RMQD9pGgIfiAfAfvixh3h5hFhaiagzgrg4ejg8fmhwb8cvbBG1IPQcLrqDqbs3qIqgrcPkVIrvRYpcroQjQU9BVsqxVLRXs6V9rWqGMtrtRE9duGPyOUpiqD9ypMPMQEWGK8pZpRrKQLQ5VWQ7rvOXoKCje2hahYc3I5bbqzObsxPVrnRWqbqsQfr9sZphcWdIfAf8izexh3h4eDfygkezgteXgviFg4imG8dmH")
AspCoding.EnCode("Ed8IhGgHCICIibpcgHgHCIibodpcCICIhGgHibpcibgHhGhGhGgHpcodgHXI7OZOfQAPSoTOVRTOFblb2HusDVIQLsTp1R6pJQWrcLrR6W5cjI5cIRa9BpvRHQFPIs1R6pLq3Ijb5cqqcLLQapUWcqtrBpDOzVLr7Veqmr1Gjc3IIRkVGRvRHQFPQQcLLQAOoHgIdgAf8iafai3hXgDfxhagzgshZijgFgYfyd8IycTH1Imeag6ezflbIVYgjfAhjhlG1IodhGodgHgHibododgHCIgHpchGCIpcgHgHpcib")
AspCoding.EnCode("ibib5bE96V9RyV7o7REpvWVbVcchle6gafai3h5hACxhzhxiteXgviFgYfxc6HmHFclIibCICIodCIpcibodpcCIpcgHhGodgHibpcgHhGgHibibgHgHpcgHgHXIOQhr8ODPhsUPrqeqE96VOqxWEOzsFoX9XVBWAb2HU9cspQ8rLsgQ2H7c1GCqBquPgQWIiGdgle6gviygni4eACvfxCzgte3fjgFgmhxcDHmHHg2bYC3ikgygjezH2bpcibgHhGhGhGgHpcodgHCIododgHhGhGodCIodibibgHodCIYH")
AspCoding.EnCode("SOGQcRAQDpAr79oRfqD9IR89zILrGQ8VmQPPkstRFpBWDRqqj9fqD9dQSpVbhbhcCHpC0gWizg4bFc1Gfi6g6gjgyg4g3f8evfyikfqC3fjgFgYfxckHycVbgI3fkhnglgFhMiFglgafXdHg5cIf6glejgwe5f5hEgygjfahsh4ejglCZeydjHmHVbWdYCafng7fli2eygxinfjf5cGh4bch7h8ijgyg4g4eEgvfzhahRi5hzeFgYfxckbvbgdhbWhMi8eBg8ing2HFc2HIf8i6gkhyg4gYCEgaizhyCRiXg")
AspCoding.EnCode("vi8fZeydlHvbhcCHqeYf3hNhhfjfEizf6f3ITH5ceCleDCzexh3hZiEgxhzhyCqC4eviFgmhwb7HycgdCHui3C5f1fcikeAhjh2ejf6gZezg1GHg5cdg8ilewCvfmCXg8evfagzgshZiaf8fngwbjdycWIgIjejfNhhiyhYfXeye1GTH5ceCAf6gwCzC5f4e8ezCagyCsh5haflCngnHAdmHWICHRf4ini0gfhyilgwi3IFc2HAgAfzezCEgnHPhng3hMifhyi7fzflhabYcHpZdwIhcgIWhMiCexiYg3IHg")
AspCoding.EnCode("3IAgAfzevflinHpC1fpgzgyHYcHpYcvbWICHVbgIygZh5cygzg6fAClgxcaf4g4eAgZenHlhnglgFfmhAh2e8g6dnGndaf5f5hEC3CnHzgjfMidexg4i5fxfycvbGhAb4blixgngzgpGgIoHhbib4cohme3Iqf4i6hEh3ClhFhvcgeagEikgBHUc4H4H5ctgyhngzgXdQglizhDCWizgjiYfXeACvfzhxinHReYf6hEhYf6fliaHhfag7fwixdpGWdpGhbib4cpgZh4buC3CAeAinglhFhaHsilCYfEiGORf")
AspCoding.EnCode("DfEiweahYhTGHf1I3G3Irexg4izg5cqeACjfDCpgjeyfng4gFhaijfkfvIQh3CDiFgng7eDfybsiEhYf6eSeqeDfEizCkfZgxdgdCHpGiGodXIVCZh4bqf3C7g8f3C6fEgaHcfyiyiwgxh4iAgEcTIYc4H3Isfve3Czg2HPhEgzh8iohxiyfYf3hFhaijfyCvIting6hAiZeFiEgxIbgagagxfweYfFimHgdCHngzgZf5cvf5iVbgIoHhbegFgahniEgygjfyC3Ioi1fdgzeng6eDfwbXgjgYfAhFh2eygyC")
AspCoding.EnCode("mexCmHoHhbodbCvfkg2HFi8elghcCHgHFiFhAh4bGh5c1IGg1IYG1IRf3hAhai7h8e3IWfZiahYhlC5hYh4iBGigZi8g3fui5f7fai6gFh1I5IZdTIYcVbWdpcQg4iafZemCDf4bhi3f7eYf4bWh1fDfH9AfYfWICHpcoddeYC7emh4b7cWIhbibodod7elilg4bGh2HFiAC7f5c4d2H4H7iweahnhkeEfxIke6gZezg4ilgFcjelCafwCFI1GEfygzgnhyiEfaH4gkhxCFingvInGUH2bhchbgHhGde4e6f")
AspCoding.EnCode("4iXdAHWIWdodgHhG7eAClgXdGh4b6fAClg2H4d2H1I3faf4iEiEgwb4c1I3cXgviYflgDf2ezCzgnfzh5I2bViFhliAfSHxbxbqiEf6CxIqiBgYhkizGnizg1gzg1gzgdfSeSHgiafYC5fwgWg8fliYHycEbDgvfahmgag8hvcag6gYfyCngEiTHzgDejgzeUH4bDgygkfnhzhFexImCzexC6fYfwbxdGC4HWICHpchGbgZi6fYf5cjbVbhbibpcCIAgEg6e3ITH4blhliAh1G5I2HYckhzhmC5hFhaikezg")
AspCoding.EnCode("vcxg7f4infTH4c1IXbXgjg3ClgliNhlCEijg3c4HZGGC4HVbVcgHhGcf5hlhYf2HjcoHCHCIgHpcEC8eFC1GGh4bFiEgAh4b4dXd3GZijgmhAhDfxc3d4H3cYCafYfEi8eNhxhjenfagYG1IZGwIHijgyiXeYCDfzCagjeaHxglgmh5iTHYH1IXbYCvinglg8e1fEhEikhZH3GZGSG4HhcWdgHngyC4C2HqeZewCngmCFhVbCHodAgDfFC2HHg2H6fliEi3IXb5c1IEc1I3c4HyIRfXeFCygAfFh1IXbYcBb")
AspCoding.EnCode("YcoHCHibAh4i6fDCagxiAgmhvcFeEiygEgng3I3I6f8e7fhcCHICkfmg3IhfAikfniFhygjfah3IWIhbhcgIeg8fyC4glivfagje3I4eafFhvIAgDfAhvbpGgIodhGFCYf6f7hxCyC6fngaH7i6eygliYf2HYcHh2bXb2bui4glgygleEg2HOh5hxiYhDeXgmf4iGhChYCDh5huiXelgai6gDfYcZH4HUcXgkhnglgACvI4c2bXd3c3IFiDf6eXdZH4bYcYHnGUHHh2bZH4HwcRf5flgvf8iAC3G4d3GBb2b")
AspCoding.EnCode("hcgIghah4CXdgeAizg3hFhvfyiyC2HhcWdoHCHciDeah3h8evfagje3IqeEgyi6gWijekCYfmCEgwejfzgvIDhZiaf8fnglhxdhcgICIgejfAh5cgh3fXeve1GOfMicCYfEgXdVCkf1GEeYCjglCmhlhoHWdCIgHVCnf3IFf3fviAinglh5cHg5cPg4ilfFgYf7eACxIhfzhlgjh5cuhziYfkfVbhbpcgHodpg5i3IPh4iXeMiegaglgkg0gjfleYfxi2HEd2HAI3IsfziYfxi4bWICHibCICIibuing4g8f")
AspCoding.EnCode("FCygliUf0ggelgkezfwb8gXgafEhmh7ewIgdiGodgHgHghwCECYfWICHpchGCIpcRfYfvimh3hFhNhgiXgmgbgveXg7fwbDhZikhDeng6fycVbhbodibibbijemg5cpgnf5coHCHpcCIghjgAg3CWIVcibodpcQg4iafZemCDfNhgi3fYecfyh5h7fnH6i3fafFgYfFixdpGWdhGibghximg4bohXCgdiGpcVgmhBhDfhcWdefxi4C2HhfAije3hFhwejfzg1GWIiGWIVcegAijemCDfzCagje2HQgngkh4i")
AspCoding.EnCode("5fDf0gbhYC3ibgxg4e7fwb6i5hafDeZe7emHhcWdgHegxCFC2H9e2e0CxgEdAb4bsfxC3IrfnCjfFgkfZfxcoi0gohxiYgycWIVcgHCIifmeXdpgkflhEgAhxcOhhi3f6fmhwb6i3fwCFg4iAgwboi2edingEgwIwIzIOf2eifxinfydOf0gLgwfycmHEcBblI2HuhxgngahhcgICIgHodVgMiIfjgZelg8enH5hjgng7fFhNhwezgXCkexdoHCHibododqfng6f8ikezgFiYfaHbiahnhVbhbpcCIhgzgYe")
AspCoding.EnCode("3IifZhVbVcib9engSfliVbhbICahnh5cgeFgxi4gDfaijfkfhcgIVbgIeglCzgniFhzCyizg5cRfZemC8fAhaiDfSe1ffhAhjfzfxcFf3fjg8f4iECnGgdiGibfhyilg4bWhLCzCBG6c3Iuhzh2HQihCjfAiyCZfnHuiZe3hNhgejflgaewIpGgIpcCIEiZeECAfxCzg7eYfxIDgAhaiDfYf3IWhLCdingEgpGCHibpcohnf1GCeje6fliFCnH9ggCYC6fZemGpC0gcCmhFhmHndQgYfmC1fegjf7fwixcVg")
AspCoding.EnCode("NhaiwIycHg5ckH3Isfve3Czg2HPhngkh4i3hli1fdf5hnhhiwfYClgxc8g5hviDe4iAgwIWIgICIOfZeSflioHWdefzgmg2Hci8fxi3hEgvfzhzg3IVbVcZITIoHWdWIVcBHZIpGgIYevfjh3I4gjfahahpGgI4CwevC2H5fzhyCyC6fEg7fhciGmgaizf2H3i4hVbhbnhmiHg1IxIzGyIff5hFhZi4h4eAgYfwc1bZb2dYbZb4i8e6Ijc8ImfEiYfEflilgmhEglg3CDg7iDbAdjc8I7cDHAGkdUfYhki5f")
AspCoding.EnCode("jelfTh8hBfmf4imfYfDgmfDcwdae4C5e2b4b4cVReKbqNsGsmP9roRdqdKqQdrusgQhcWdjfkf5cZeAhAhke7f3I6eng7eFgwing5cje3CSfACWIiG5fagzgahFiDf7fHg2bbCgiqgHg3GvHlh4iAhFfZe6ezGzfZiDCAfXgACaCnH3G3G4dmgnCXb2b4HxdnI4HGCffngnf3fAiviEghhailgFcFIIiqfpguffeuCHgTf9hyg3hEizhFijfnfFh4bfi5fmCngFiAg4bIi6eai8gnglg3IvIwHzGzf3iXfxd")
AspCoding.EnCode("GpFI1IoHVc6f4iFh3I5fzhzgzgGhFinglgFf3Clgvc5flgZeXg8eYfzh3gvgYf3hFhmG1IeCeeoCffdfybgCoCOfVgefhirepgpiOf4HycVbhbxhZh5cnglglg1GEgwfmhahhchbZelg7fvc3hkh3C5hAhhciGngviAgYfhcCH5fyizgahxIagDCngxi4bmCyizgxi6f8eFCoHhb4ikfYe2HxhZhoHCHEiYf6f6gjfxiECZewdXezhzhkiygmhlhydZdceFiQgvhxhkfFiZdmHFcZdAHkH7c3GVbhb7e8f3g")
AspCoding.EnCode("1GbgzeagFinghikeyCkfydwIpGCHCI4gzhxikfaH4gkhxCFingWIiGgHlh4iFh2HXekejekfFcyCjfEgaCzCkfnepGWdngyCnh4b6flC3goHWd5HTIoHCHhcVcGgYbhcgIIiygwi2HQgDf4eFCtgvfjhngabuiFhH9afYfNhIhyiAfGOWIVcggxhwi1GfimgkgygzgVg3faeYfhcCHECDfXglgDfaizf4iGhEgvfjhnglgwbycWIgIIf4CkgaikfVg4ekgZeTHAhng6gaf5h3hZevIECZeEC6fvfzhyCyd4H")
AspCoding.EnCode("dgZfwiwezgoi3fzf4i2bvbab2b4c1IzI1I3GwIoHhbxh5i4bbemgzfaiahWhYCjhmhFc3G1I5cEgwf4ikfoHVcCI3hXgjgwC3IhikhxCFinghijfjeyCnHvbhcCHXGHfVbhbBH6fni7fvf6gDf5cwC4eyCneEh5hXingGh5bkCYCEeZiAg3hAhvf8iACYHUcACjfAfvczezh3h4eDfygkezgBGXIiiagXiweyCaHYCAgleYHFIGgxbFi5f7fyg7hACUcWIgITG5HVbVc5bgH6eZe7eAfyiyC6fngwdFCYfYe")
AspCoding.EnCode("weFCngmCFh4b4HwCagmfzCkfxI3f6f8iYcWIhb4izg3i3IainfWICHXGSdWICHHh4Izbnc4b5cxHxHBbVbVcBH1dWIVcAgEhmi1GziEgkgjgngzgZfpGCH2cHfgdCHGg6g2HZiafaiYhzgTH3hngzgFh4ilgTIbQBOVRDrMQnVDoJRZoHQHhXg3IwfAhmhmeHgZdveACDfAfFbvdvdEfDgEfvcFeBgXixfaHniah2b4bFhZilgZgng8eHg4HNh4hvi5hjewg4HUcGqYqus5qRqcLuP8RIr4RcQgrBHzHZiTI")
AspCoding.EnCode("HhyI6gSdWIVcHh1dhcgI4ikfYeXd6fEhmioHiG5HBbVbCHoHVcBH5HWICH3izCaeXdtezhFh4ipghhabEC8CzehcgIshzhDf4iVCffFcAC7fvfwimGQhmhAe8fng7eEgmG1IWiggYcnGxdoHWdygme2HrgagFh4iifffGgBbZdYc3IEgveYfahhchbgH7eAezeTHYc4CYfjg3CACYf1GmeFCagvC4bshjfACng2H6Cwfng7fYf5cWiggGhYc5IhijgximfvIufkeACngifhhwIXbYc2bhcCHgH3hzhxikfwd")
AspCoding.EnCode("hgG9ng3hAi8e4i3IAg7gjgWICH1G2H5c2HmC3fjgjg2Hhiafyilhngcfzhzgzgwbyc3I3I2HXd3I5coHgIZezgYe2HxhYgWICHAhmh7e6gxCjeECYfaHAh3C4CvflgYfni8e3IYcufjflimhyb5hlh8i1IWIgIXGTIoHhbHhfilhlebgjf3ixhah5CybIhzi4elgFingDfFcmfXf8ckIlbjITI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>