vote_add.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("EcZIWIiGYHzbnczbxHyGyGyGxHE9nsWQzVRs6OgQBPyGmdaImdzbzbxHmdaIxHmdxHaIxHxHncncaIVbVcXIWrIJMrFQGR5QdPhsFVfQJq5VOq7r6WVrsQFQ4bVbVcYHhCjgZi4gvhpiDeliMRIRSVZRXVHQveDfliAfHCzHyIDgEf7iaHqiThZgxfyb4gzg4bhcgIXIxHmdaIncxHaIyGaIyGxHzbaIdRIuKqGqQPYRSOdPWsYQIQTWmdmdxHaIxHncyGaIncxHxHncVbhbnhxhwi3IAgng6e8gYfAhNh6i")
AspCoding.EnCode("lbxGAgYfEiDhmhFCNhDh8cpGgIFing7f6iYf7fMi8glbHgbgECEgEiwbuC4i7gAiYf7eACaHPh4i7fEeYfAhsh3f7fai3fXfjgYfFiyd3GWCreuhqhMiPgghfhICuCfeti1IvbvboHVcECYfEi7CYf7fMiEekbGhde6fEg6evIRengDiFg4i7eACaHtCng6eFfnglgshZi7fvfXg4hwC4iAgvI3GRfghtishefRe2e9eIfCiIC4HwIxdgdCHZGCeXC3IECmhAhFf3Clg1f7CjHGgHf4HYc5ctgyh4izghcgI")
AspCoding.EnCode("4cgHygnf1GXdkgvfnhvIlh4iAh6iYf7fNhDh7cyHBdzIvingahxc7e4ilg8gnglg0gFflGmHycBHSd6fnglgFf4i7fMiDhjI2H4bEgxgmhxiWIgIYHodCItiYfAgleagje6fmhxIPgYfnhxh6engmC8eXd6fYfAh7C3C7f0gFf8cpGgI4cgHYfxinh4bxhZhhcgIXIhgjemg2HxhZh5cVbiGWICH4czbzbmdzbzbncyGaI89zVuQZrDpcQD9XRzbaIaImdaInczbmdncaIncxHyGmdxHzbncxHpGCHhhxhzf")
AspCoding.EnCode("2Hoi1fQfag6flind9eLChemhFhmcVgNhohyCnd9eMipgahZhyHoiLCKfzindOf1f3i5eabWh2eZf3g7eEg6ezIZijg4i6eAC1fzCzgmejfzIXgkh4i7fDf0gEhFCvizIVg2eDfTh8imhyHqeZeXe1fcixC7fkgECndRfZeXeLCegxCAhjh1fxC6gYfyCyHQgYf5fMiciagAhwizIxiagMicfxgYfXejCWICHhhygjh5cch8iAfafxh3hZiDfzCagxirg5hviDe4ivI7IwIWIgIIfleAfvivfmC3fEgygjfxi")
AspCoding.EnCode("ufZikhFgYfwblIwIGhYcXIIVUHSCXgxiZfIVmGIVnGHpmhTgng5fbWxhjeAg3C6eACHp6fmhwC3C5fEgHp3iZejg4iDfYfUiEh7hnh5hlingIV4gkeFgkfFhbWzcbWXGIV5fziAhbWvCxhnhUiaeXgFiEgYfEiHpDfEiFgah4gXgACngUi3haCZilgUiZfZemCaf5hEiYf3G2H5bGqcuhQqrLQMQFVIuhcWdbeDClekhxhniXgFhxhxCyCteZijgEhmhnH7cxdTHYcaCDfDf8iUGxbxbFeEfDgzGsgSeZgki")
AspCoding.EnCode("xInijeZdgHodCIhGgHCICIibpcgHgHCIibod4c7VUREolQBWBrqqHuMPzoFoIQ79fsEp1Rus8OoHiGbeDC6gwCxh3h3fACygjfyCufXgaf8f4ixcjIvbFc1IWrIJMrFQGR5QdPhsIRlpHqvR5Wcriq7rDpGQsqyWrr2QSOPRRrfJKqJr6oGLTVlVFVCRFVypMPMQD9IuUOZpVRLRLQv9WQ7r5WZV0fah1gzg2b5cXIIRlpbsvRVrYQVRcPtRCPRQXWWIgIIf7h7hzeygmC4eACvfjfahqCYCafFgYfxcAGwI")
AspCoding.EnCode("Fc7HgHpcibibibibpcCICICIhGCIgHibibpcibhGCIgHpcibibodibibpcZGUVY9gRlQD9IQOQB9EIlb3IJREOdRMrGq4sF9MRWrHutPUO2Hkb5cdQAoBpwqBWEQTp3r6pJQ3IlH5cWsGttszoUWcqtrGRFWaWMsUOhPmr3IDb4bdQa9bsyQcrTsQQHuurzoVbhbbeAf6gzeygXeXgliygyijeqC3fwCFgZenH8IwIGhYcnfjflgjh6dUiYgag6ezfkbYcibgHhGhGhGgHpcodgHCIododgHhGhGodCIodib")
AspCoding.EnCode("ibgH3d8VDpQszpDVlQEpX9hcgIch8i6gviygni3fEgvfkeyCrg3fkhFgmhxc8bycTHkHibibpcgHodCIpcCIibpchGpcCICICICICIgHhGgHpcgHodgHCICIgH4cOQhrEWFRpQBqsRfRDWU99RyV6pzsSVX9YpTVjG3I8oGQCqTRsRgQ4blb1GiRDsuPosoHCHchDCDCafyg5fZi8eygyikfufZikhEhmhwblcwIHg1I4emgzfxhahwc2bhGCIgHpcibibodibibpchGCIpcCIgHpcgHgHpcCIibCICIodXI")
AspCoding.EnCode("U9TWBOzr6VArEpiPpsUpbq89yHtPGQDWYqQQ7QJrFpHQDRQQj9psSoHsUoVbhbhcgIWhNhVCyC1GFc3Ich7hAfvizC5fZiACvfjfxite5hkhDeYfvIjGwIpGgIZijg4i6eAC1flClgze2HHg3Ich8iAfafyg3hYCliygagjeuf5hviEhYfmGkGnGoHVcYCafngFCAC1fwejeXCagXdGh4bIfDC6gafzC5fXgDfvfyixirg5hviFg4ivI8cmHWICH9eLCEgUf7hng4bFc4bfiAfAfkhxhni3fACygyizgshZi")
AspCoding.EnCode("zeAingvIkIwIWICHqeYfni1fdCjflgkg6f5cTH5cch6gAfkhyg4g5hliygagkfqCXgvi8fngmG8InGoHhbQgng5fNhfhkelgvC2exCAfYfahXdEd2HdgAf8izeygni3fDfaizhahsh5hviFgngvI7GwIoHhbahyiNhdexgYfnivh4bEd4bch8ilejgai4g3flivfjfxirg5hjgFg3CvIlcvbgdVcQg4i5f2edCjfAhwi2HBG2Hlh7hafvflinHRfng5fMidCkeFCaelhabYcIV2bvbgdWd9eMipgahZh2HFc")
AspCoding.EnCode("Xd6f8iwCvfDfxc9eNhohjeyH1IGo1InGWIVcWIVcweXC2HzCzg7eDflgvIkhni3f6fngwbEC4ilg8gZe7fNh6ilbmHxGzeXe3fFi3CnHzgxCLCcfveZemCwgxdvbGhkHXdEgwf3CkfWICHoHVcpcXIoh5i3ItingDi8fng6f8ewdegjfAhkgHhUc2bYc2Hsfyhmhxi2HtCEgyi6gohxixe4i4gEgygagzgnHReYfDi8f3C6fEgxIhfyi7fwivbWICHVbgICI5bWiYg3Iqf3C7gAiYfAg8exIQe8fmhlgBgRf")
AspCoding.EnCode("FhAhwezg5CTGSd4H4H4bQCaCYfzg2Hui8eag8iifkfjimh3hFhxhyizgvIPgZe7g8fmhlhliybQeFgYfEiThPhACAhxhxinewIhcgIoHVcgHYHWiYg4bPgng8CFg4ilhACvcbgyijfyezCYflhEcHf3G4H4buhwfYfxi2HRfEgjf8iVCjekCZe3hFhaiagahwbuC3CAeAinglhFhaHhixCjfkizCYf6fycpGhbmhjeZf3IweYgpGgIhcgIciDeyC5fACygkekf3IVgNhfiafYflgFhydZijgng6eDfNhaiah")
AspCoding.EnCode("nfkenGpGCHpcbCvfkgXdECDf6epGWdCIECFhAh2HEd3I4HFd4H5I4HRfniEiyg7hli3IiiXgximfFg3fne3CHgpf5h8g5hui3hEivfAfFh2b3c4HSd1IhcgIibuiZeving4gEg3Ibg3f7eYf5cOfLCDfBg6gYfhcCHpcibbg3flhng3IlbhcgICIgHodAgli7f3IBG3I7eDfAh3I5I2H2b8hwezg4Cke6CaHjf7h3CyCYflgTHxiDejgviUH2H7ixhahnhzh7ixI4gjgkeAgYfwbvbHi2bpGgIgHpcIh5hEC")
AspCoding.EnCode("mh4b8cpGgIpcCIgHFiDf7f5cHg4bAgEgFC3I3c4bZdZijg4i7f8eydYH2b3c3fzeYfAhFh1fvfxinfjf5I4HViAC8eDCUGxbxbqiDg8hybRCGOnekixI3hah0fxiKCkfgiGOSHdfvi4e3hvhOe8fEgZGwISGDgaizg3ike6CaHxC6gZekfnglgGhxi8fafjgEbXd7iygzgYejf8hvc3hafke7eZenHycGC4HWIWdodgHde4eECngXdjbVbCHodCIgHECDflg2HTH5cFiEgAh5c5I5c1Ivijf4g3f8ezCagkf")
AspCoding.EnCode("ybxgAh4iZhFcYH4HXb5hviYfFCEgMiFgAhviYGYcXIFI1IWIgIgHhGcfZi6f3C2H8IWICHpcgHpclhEg7f4bHg3Ilhlilg3IZHXd1IZiafng6eEgmGYH2b5IXgafmhAh8e0gzCjeXCjfZH2b3dxdUHjgjfni4eEgaijfkfvcyhAhmhZhFcXI1I5I4ejgYfAhFhMiEh6ejgZHYc5bEbZdVbhbpcZezg3i3IRf4iafYfniEgVbgICIECEgEi4bEd5cAgli7f1G4d2H2bEc4HYG4HxbPh5f7faiAfDf1IZHYcSd")
AspCoding.EnCode("3GgdiGibAh4iAg7hzhyCECZevcDgAhxhDf4iXd2HFiAC7foHVcfeahnh1GhfFgje4g8eygyizg5cpGWdoHWdegDekf4gEgxhyikf2HXgkhACxcAgEg6emHVbVcibgH6eZe7eAfyiyC6fngwd6C7fwe8e3C3IZdHh2bZHZdQg5fFCvf6gDf2HiiZizgYhAiXgXingFcpfXgFf4etC4g7fxh6gFhYcXbYcHf3fkhmhEiDfydXIYc3IXb5c7elilg3I5I3I1IYHnGUHEc4H4d4HyIQg5fEivf8iFh1IZH2bTI1I")
AspCoding.EnCode("VbVchgzgZfXdegAikf4g8eygkekf4bWIgIoHhbfhDezgmC8ezCjfkf4btCACjf6gifxixengniDfvfyiahwbDh5hviFgngAgnGWICHibfhyiAh1Ghg3fniyh4bpCNheh4i8e3IWizg2H6i3fafAinglhWIgIodCIWiZhXd6iXgvi8fZeEC2HGh5cqfZelfEhmh6fDfvchfjflgzf5cQCve3CjeVbhbpcCIibohXCXdqe4i4gNhfhjfEivC1fyiDCYfkf5cBG4blb1GsfxgZezg1GWIVcCIpchGodRf3C4gDe")
AspCoding.EnCode("7fygEgThMihf7fagjhyd6iXgjgDeYflhycVbCHhGhGhGefviECYfWIWdodgHhGhGtCngwCmh3hDfLCIg3f4Ccfxg3f7fxc6iXgkhAingFiwIhcCHCIgHhGICzgZf4bpgZh5cVbVcgHgHghkhFiYfgdgIpcCIibuiZeving4gEg0gIg3fYecfzi3fFCnH8gXgafAiYfFivbWICHibCIhgah3i3IpgnfgdgIpcOfngUeEgpGCHghzgmg2HfhEhje4gACwexCkf2HVbWdgdCHeg8fxiXeEgaijfkf5cPhmhkhmh")
AspCoding.EnCode("niEg0gIg4emgcfyh5hEiwbEeXgafAimhlhxdVbhbpcgeagEi3IOfMiKfwfFclI4btgagXdugmizhlCximgxcOf2eVCkfZhycoHiGgHibohnf2HWikf6fEg7fxcCCdeYC7emhwb6iXgkhEh3CECmGoi0gehmhDfycxdyHoiLCifkf5imGWhNhJewfwInGGgGelI5ctgziZeyCoHWdCIhGgHVg0gchviYf7fEgwbYCvinglg8e1fxhxiZhjfnGpGiGgHpcodqfngECDCjfje7e3CxIICahnhoHWdCIgHICkfmg")
AspCoding.EnCode("2Hif5ihcgIiboingG9EghcCHhgkfYeXdeg8fah4gFhaizhxioHCHVbhbci8fyC4gliygzhxi1Guing4gFglgygDfSe1fci7fxCzfvI8g3fvi8f4ilhwIoHhbCIegzhEi3IVg1fzCHg6c2Htgke3IsedfzhFgzgZfwbPhZe4gLCgexC7fzfvbgdWdgHCI7f4i7e6gyikf6f4iyb8hAhxhling3IVg2efgYfFhVbVcibhGpgnf5cohahECFhAhxcVebgZiAgYfxcOf1fdingFhwIzItCngniNhdCyilgwinH9e")
AspCoding.EnCode("LCvfvbycTH1GkH4buhwfYfxi2HRfngaf4imC8eLCce5hnhhixg5hAhyd7C4eviFgmhlhmHhcWdgHoi3CSfDfhciGghahYe2HegDezgXeEgaiagxi1GgdCH1dTIpGCHWIgIHh2coHCHmgxhvC5c4gagjekfVbVcnhvfae1GXejfxiyC6fEgFCgdCHYewevC3I4C4hVbCH4C3gTHZdaHxIzHffZiliXg4hZiAg4iyIZcXHYI5H5G3CEgDHDb8IYhEimh7iDf7fmhFhEiYf6CDgjc6IDbjckGlckI8IBgZgwg5f")
AspCoding.EnCode("jelfH9EfbOmfngZgYf7imfDcybkgZf4h1I3I5bRrfJIR3QGsYR9rCQcRetPRHPMQeqWIgIjfah4bZelgFCkeFC2H7fmhEClCzfng2HxiZeTglioHCHnizhahahlhlilgHg1IeeIgPfGh2baclhZelgFf4iAhybvC5h7h8i4eEgzivI4HYcZHZfmi5I2b1IwIzd1IHihh3C5iXgAiaf8ebCvfAhFcUHeeqfohshefqfFcTfVfyg5fEixC7exCmeFh4bfi4g3hmhECEC1GIilgxhDhYfEiXdnHzcwdzfZfminG")
AspCoding.EnCode("IWEb3GoHgI7eng8e3IniagxijeEd6f3ClgEeYflgxI3hEiYf3fEgmhxCmivgngXeDfwbYcchffOeeeceaHhioCOfVgICgCsfCeOepC1IxdVbhbvfXC3IYfFC7f3IDfwf4ixiWIhb4ilgEixIniafng3f6egdgIYfkhAgmhhchbnijfkfahybyiAf3Czg5c4gzhxijeFiEglgWIgIngkfYe2HainfgdCHlgng6f8ijfxilhngaH3hagagvhaingAgnHZdIgFiRfwgwezg7e4HvbHg1IAHAblb3GWIWd7elCXf")
AspCoding.EnCode("2HIhwCxC6fngcfyijezgxcmHoHVcib3hzhahxixI4gjgkeAgYfVbhbpclhZeEg2HnizhahyCGhahyi8exgaizgmfhcCHYfximg4bAgFgnCWIVcYbSdhcgIhcCHTG1doHhbIivfae2HPhFh3f7fPivfzfngyHuiACSewCZeNhIhyi6gThVbWdbCwewi3IchnhzfaiyCOfZivCYfoHVc7eFh5h6eDfygaengBGEgaikg4i6eydmHgdgIbeZfkgygahoi3fzfngGhFC4i6gjg4e5fmhxclhYf7e7ewejfxiyd4H")