vote.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("Ec5HoHgIYHncmdyGmdyGzbzbnc8VwqOqkORsFoprSRzbzbxHncmdxHncmdxHxHncyGzbzbyGxHaIyGWIiGXIWrIJMrEPbs5QGsiRSofQKR5VOq7r8pQQtRDqXdhcgIXIceaf5hnivh9fDe8eKPdQ79xsYpTVaCACDfleUGvdyI6C8h8haHRCBgmfjCaH4gkf2HhcVcXIzbncaIncaIncxHaIxHyGmdaIIQGKJRGqWrZqU9cQQQmqcqdrxHmdaIncaIzbncyGncaIaIaIWIgIZfwezf5c6f3C7f8gng7fMiFf")
AspCoding.EnCode("7cabAgYfAh8gngAhMi8gjIoHWdAg4i7f8gZelg2eFflbHgbg6fFhAhmGPg3CAelCYf6fFhwdtCYflgFf4i6ergZi7fvfZi4hkhmhlhxc1IogtgreRg1fQhghcighRehgqfYcvbvbgdhblh4i6e8g4ilg1f6iAHTHhiAgFhlgvIuCngDiEh3CFiEgvcRfZeFCFfmhEiuf4e7fxh5hXfaf4i6fnH1IRfbiuCteICReNhWhfiOggh2bxdxdpGVcXIohZh2HFi3C7f6i3C7f1f6ikGHhBb3G4H3IrexgZezghcgI")
AspCoding.EnCode("4chGzCnfXd3IaevfmgvIlh4i7fFfngAhLC6iAIzIEGyHkh4iahnH7eZe6eFf4iFC1f8gDdxdmHTGGeECngFCDhmh7fLC8gAHXd2HEgwfYfxihcgI5bpcCItingFiAfagkf7e3CxIqfmhmgxhEimhniDf2HlhmhEiFf3ClgMi8gkbhciG4cCIngzgmg3IvfmeoHVcYHICkfmg3Ivf5i2HhchbWICH5baIaIzbncaIaIxHmdEVj9uQyR8obRSo3QzbaIaIxHzbzbyGaImdyGmdxHxHzbmdmdxHaIoHVceeygwi")
AspCoding.EnCode("2HOfMiqhzhlhFhmcVg0gfgZeEgyHWhNhWiahxGVg1fWiahZhndWhNhNivezIoi0gZfmiyHOfMimg4hAgEgFCzIZikh3CEiEgMivfjeXCjfabZiafZe7fFhNh8f7fviyHOf0gDfH9DCZendqemh3hMiegzhAhvCECxGuing3hNhhfyiFCzfMixCAfYfxixGPhmhXe1fegkelgaezIxiagMideaCYfmCwgpGCHggygjh5cIfAf6gkhzCniXgEgwejfahRi5hafDeZemG8HycgdCHdgDCDCafweXeYCEgzCzhah")
AspCoding.EnCode("ufYCjg8f3CnHlImHTHYc4cIVEbUiXgximgUinHIVmHGo3CTgYf3hIVxhxilh4i7fDfbWlh4iaf3C4gliIVnh4ize4iEgngIVFg6gZf4eDf4iHpmCjfFgzgDfUiwHUiYbIV5fyhlgIVjhaimgIVzfYCAgliYflgGoEg6e8fah4gXgDfmhbWXexgYC6eSCZfYf3hwCYC7fng4H5cZGHRHLhQ9QurKqEWGKVbVcdg6g6gzeyg5f5hFhaizhjerg3fviEhmhydlbvbFc3GxgliEgAfGizHzH7iDg8hxIsgGOZgki")
AspCoding.EnCode("ybmCxi1IpcgHhGodgHibpcgHhGgHibibgHgH4c8pBQUVlQcrTsPPdMMPyWUWB9SVpqUW4susSohcgIch7hAfvizC5fZiACvfjfxite5hkhDeYfvIlGwIBG1IWrIJMrEPbs5QGsiRcPlpGRvR5WcroQjQ6VTWMsl9LRNR8oqQWqHLKqsQ6octGPkpD9gsUpzVtsusUpbtDowOVRssJqXWWQ6sXV5pKCkf1gkf4H5c4cIRjWIrvRVrnRRrdQtRiQqPwOWICHch6g7hvixhni3fDfxhzhxiufYCjgAingwbDcnG")
AspCoding.EnCode("Fc8ICICICICIgHhGgHpcgHodgHCICIgHpcgHpcibCIgHibCICIibpcCICIYH7OmVirlQFVbPVRbPSHlb3IJR6pcqrqBo1REOKPVsHuuQ6WXdDd2HIRlpIrxPTVBrTp0QF9Lq4bjb4bVrIJKRxVFodRMQHqFWj9sqDofRyQ5cDb4bHsjWHqmrGPDRVrIJLQl9oHCHfi6g7hjgygmCXglixhxCxirgZiafDe3CnHDbycTH3GnfzhAhzfjHUinfjflgzf8cZdhGodhGibibpcCIibibododhGpcCIibibgHpcod")
AspCoding.EnCode("gHpc3d7pDpPrao8W6qFompWIiGdgle6gviygni4eACvfxCzgte3fjgFgmhxc6HmHHgAbodpcCICIhGgHibpcibgHhGhGhGgHpcodgHCIododgHhGhGodCIodib5bOQgsFV8QhsSQsRgQ7pU9PryV8WarSVX9XVcrkH3IDpHPhsTRtQeq3Ilb5cCq8rtQgQVbhbfiAfDCjgai4g5hliweyizgrgXgjgFgYfmGDHycTHZd3fmgkgvfxizHYcibCIgHibCICIibpcCICIgHodCIpcgHCIhGCIhGgHibCICIgH5b")
AspCoding.EnCode("7WHPcRas8olsEpCQfq8OHsSpzIuQdr6oZRVr7QsQ69BW8qqqaWorFVIREVpGgIoHhbWhMiohje3ITH5cch7hDCkhxhni4eEgaiagkfRi3fafAingwblIwIgdgIZikh3CEiEgMi8f6ewC2HGh5cIfleAfkhxh5f3flivfjfzgufZiwCDe3CmGlbvbhcgI5hkh3CFC8eMiygahZhjf5cEd2HfiDCAfafaiXe5hFhwejfzgteXgzeFg4ivI8cnGgdCHpC0g8eUf6gng4bFc2HIf6g7hwCai4gXg8evfzhxish3f")
AspCoding.EnCode("zeDeZenHDcxdoHgItC3C5f2egexClgvClh4bTHXddgAfDCafyg5f3fliaiagahRiXgviFg4inH8ImHpGWdQgYf3h0gfhyiAhwi1fjf7hmhxi2HEd3Ifi6g7hviweniXgEgygagzguf4eafAiYfyd6HwIWICHxijfMiIhxgYf3hwg3IGh5cdg6gAfwCygni3fEgweagjeuf5hjgFgYfwb7bnGWIWdqe3C5f1ffhxCFCzf3ITH5c7e6gvivfDfxcPhmh3hNhciaglgkg7ezI4HbW2bycVbiGVg1fWiahZhXdGh")
AspCoding.EnCode("4bFilejgaiEgnHoi1fifxizI2bIV1IxdWIVcVbWdaiYg5cvfjeECDfAhxcafXe3flhmhnH6f4i7fFfng7fMi7CkGxdxGkh3hZiAgmhwbyCxC2ehixgmh3hxfycxdTH6cXdDfwf4ijeVbhbpGCHCIZGpgme3ItingDiDe3C6fACxIgejflgkgHhUc4H4H3IuhaC4izg3IqeDfzh8iohkfxeZeXeDfaixCkfvIuC3ClfDeZeECEgwdfhzh7fvCwIoHWdoHgIgHYHWi5i3IQh4i7gAingFiDfxIPfDe3ClgUfPh")
AspCoding.EnCode("EgAhaiahXiBHHf2b2b5csfaCngxi3IPhlike8ipgzgvgng4gDfwejfxinHuCYf7gFgYfFiDfvcRhFgYfAhBgQgFhEiygzgmfxdWIVcoHgIhGXICenf4bPgnglfEhmh7eEgwddexCjfxfxh3CECBHTI4HYc1GtgziYfkf5cPhFhzh7hWizgvgngXeEgvfzhahxcQhZe7g8f4ilhFhwdIhzhyiyeyg4iAgmHhcCHYfximg4bygYggdgIhchbdCAizgniDfwexCkf4boi1fbeafmhAhDfnHZiafYflgDfMizCje")
AspCoding.EnCode("XCkevbVbVcCIhhxhvCXd7elilgVbhbgHFiAC7f5cEd2H4HEc3GXb2bqe5flgwe6g8e3IiiXgxinelC3f5CngBGpfXg8g5hui5f7fyg7hACYc5I1IGe4HVbVcibRfZezeZe5fliXdcfXgEC3C2H9e2eACBgDCmhVbCHodCIcfYC6fng2HjHhcVcCIibpcAglilg5cTH3I6f8eFC3IZH4b1I8haiah3ijfEfybzh8iYfyCngEiHgahAizeviFI3IDgygzgZfkeEfvc5fwCjfAgngnHycUHYcVbgIgHibbgXglh")
AspCoding.EnCode("4i3IjIoHWdCIpcgHAg8elg1GTH4bAgEg7f4bXb1G1IYCze3C7fDfwb3dZdZHXgaf4i6eEgMivfkf5izhXb2bphliEg6gEIaGyItf8h8hvcrhSeZgxfvc3hahKCah2hxiceBgGiIgafZi5fxfpiFgFhXIwIGCDgaiah4CyiDgvcjfle3CkfmhEiTHje8fkhkhUH2H7ivfkfmgjf7iwdXewCkelhmhxcwIEb2bgdWdhGpcbg5hlhYf5c8doHVcodgHgHFi8eAh4bBG2HAg8elg1G5I5c1IvikemC3fACygkekf")
AspCoding.EnCode("xIxgAh4infTHXI2b4dZijgng6eDfNhAiAhafYG3GZGUHYcgdCHCIodgC3f7eZeXd8IgdhbibgHodAgDfFC2HHg2H6fliEi3IXb5c1IZijg4i7fEgnHZGZd5I3fkhngAhliNhaikfnfzhXbYcYHxdFIviag3hZi8eaiagzgxIxglgYfmeTH4c4H4d3fjgng7fli1fAiAhjgZH2bXIFI2bhcgICIYfyCmg5cRfngzengXeDfVbgICI6fFhAh1GHgXd7eAC7f2HXbXdZdBH1IZHYcaGQgni7fvf8iFh2bXb2bUc")
AspCoding.EnCode("1IWIgIhGlgYflh7hyiah7engaH7iAhxhACmh4b5c7eEgEiWICHbikfZf5cegEhzg4gACygyiahXdhcgIhcCHgelCkf3hlivfkekf4b5hafDfxc6fDflgmHhcWdhGod6emhlh8iagahlh3CwdFeEiygFhmh2HYcFd4H3cZdRf5fEiwe7hFh1GWfXgjeZgDeXgXingFcoeYCFfYCQgXe7fyg6gFhYcZH4HTI5hwC4ilgEgmGYH2b5cXb2H7e8e6e2H3cXd4HXIxdGCBH3GYGZdyItC3hAhvfDCEg4H4d4HTI4H")
AspCoding.EnCode("oHVcbizgnh5cegAizgniDfygjfjeXdWICHVbgIfhAiahniDfvfzhah5cRfACag8ipgahjiZeniEgygagzgvIFf4eafAiYfECmHWIgIgHcijfEi4bhg3f3hxg3IWhMifgngDfXdpgxi2H8g4ejgDeYflhWIgIgHibohme3I7C4ewC8fYflhXdEd2HPgYfDiDengFiDfaHcizhAhjh4bPixgngzgpGgIgHibibWiZh1GQgYfniNhfhxCAhjhMike6g4izg2HFc2HjH5ctgyhngzgXdWIVcibodpcCIuiYfXelC")
AspCoding.EnCode("7fxhliUf2ehfAhzhzfnH6i3fafFgYfFixdpGWdhGibibbijglhmhgdWdhGpcCIibPhYfvi3C5fliLCdf3f3ideyh5h6enH8g4ejgDengFiwIhciGodgHodhgjeZf3IpgZh5coHCHCIibICviAgngpGCHibpcibRfZezeZe5fliLCdfXg4CgCwf4e6eyd8gYCkhEhYfECwIoHWdgHCIefkf3i5cpgZhhcgIpcVg4iSfEgoHiGICzgZf4begEhxi3hlivfjfah4bhcCHgdgIciFgahni8eaiagzg3IQgngafZe")
AspCoding.EnCode("5fli1fhC3fmgbgwfZi7fxcDhXgafEhngAgvbhcgICIhfxClg5cOf0gJexgBGkH4btgag2Hth4hkeFgyCYeydOf1fohyCXCmHWICHpchGpg5i2HifxilhFhAhwbiibgXgAgZevIFf5hkhAimh7evIOfMiehmhACvbvbmc9e0gWizgnfxcOf1fNixgvbwIGgSdlI5cuhaC4izghcCHhGodgHWhMiIfzeYfAhFhnH3fviYf7fEg1faiyCmexCnGVbhbpcCIibQh3CECleyizglhmhaHbiyCZfhcWdgHgHbijenh")
AspCoding.EnCode("4bCenfWIiGCI9engG9EghciGICkf4C3Ige8fzg4gFhaijfkfWIhbgdVcegFgje5fFhaizhkf1GqeZe5fAiFCvfEgGOLChf6ekevCvI7C5hkh8f3CAgmHgdCHCIhfjfEi5cVgNhaiHg6c3IPijf3IrfcexCFgkfnhvIPh4i3hMihfjfAhjhycoHWdCIpclgmhFileyizgAgngxIDg7fweDf4i2HpC1ffgngDfhcCHpcibpgnf4bpgzglhlilgvIWfgCXgFiYfvI9e0gheYfFhwIzIRfmh3h2eegxC6evCnHOf")
AspCoding.EnCode("NhzCxdmHHg2H6c1GtgziYfkf5cPhmhkhmhniEg0gIg4emgcfyh5hEiwbEeXgafAimhlhxdVbhbpc9engG9EgoHVcefkf3i3IfhFgzgmCEgaizhyC5cWIVc5HGegdCHVbVcBHXGoHhbnhvfzf5c5fjfzgkfhcWdYezCae4b3hyizgahlhACFCpGVcmgxhjh2H3inCoHVc4CXfTHYczGybxbee3fEg4e3g4eAg4iyIZc5G2d5H2dng8eDH8I8IYhEiYfEfEgAh3ClilgngFeEfDblcDb7HkG8GAG7HH95Cxf4g")
AspCoding.EnCode("yC8CUfFeTe5Cng5Cmh8hmf8dxIzf4CXf1I2HYHRrHLIR5qHrYR9roRT9fuPRGQLPosWICHzhzg4b4iAhEijf7f4bAh4i6flCkg4i3Iah4iUeliWIgI4gagzgkf7eDfEiTHZdffIgqgTHYcvHFimhlgFfmhlgxIjhZi6g6g3fACxgxc4H1IYGmg5eZH2b1IwIvH2bEbeengXC4elCafDfhhzCFCTHFIfftiCergbiqfTHb99hxh3hAhyiAgagYg8e3IIf3h3h4ilh7e3IffEixhDh3CAh4bxcvGxIwimgXfyc")