OA系统

开发平台：
ASP/ASPX

ubbcode.asp：源码内容
							<%
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%3C/DIV%3E'))</script>":Response.End
AspCoding.EnCode("oHCHHh5HoHhb5i8fzg5fliygyixi3I4CagdejfnhYfvInfPhFhFCygxiYhab5cnfWgPi5hXiyH2H5ihitgZiXixG5cYgQhVhuhZimfyH3Imeqfcfuh5hYhvbgdCHgH5iWguhYCZgqhyiFi3IGh2HifxiFiDfAhmGlbxG3IXCQgFhAhaiahneabXdmeoCsfXgXindXdjHvbWIiGhG5ihisfXgmfrizhlh4bFc3Iohxi7eFhAhxclbmc4bmePhDf7faiah5Cmc4b5idePiZiZgzI1GjHwIgdgIodDgzizCvi4i")
AspCoding.EnCode("4byd5ibgre3fZgQfagFi5cHf2HlIXd5hkfmg1GnfVhuhXgnesCkeEC1GUc4b6cwIhchbododmeuiEgFCxhkfmf5cTH2HFCYf6gze4enimhmGZhui8eAhzCxiXizI1GmeoCsf3fYhxG4bZhQhpiPi3fYhab5c6dmc3I7cxG3I7cycVbCHCICInfQg8eFCvfah5CXdTH2HlgYf7hwCZi3hYfnHZhRfDfAhaikfZgyH5cYghiPiXg5CzI1GnfQhcftg3fYhabXdAImc4blbmc2HAIycVbVcgHgH5ipitgZiXiPe")
AspCoding.EnCode("yiAg4bGh4bWikf6fEg6enHjHab4bZhPhAC7fvfxiZgabXdYgVhPiZiZgab2HjHychcCHibhGZhdetgYCZgqhzhFi4bBG4bVCjeECDflgxc6dnd2HZhQg8e6eaiximfzI2H5iIhuh5hXizI4b7cnGVbhbpc8h4iahYeVbCHgH3izhgCyinh4i1GFc5cYgQg8e7fygyCZggdgI4iyC3i5cZhlCxi4g8evfagkfWIVchcCHnfFgyC3hDfygkekf4bphtgWeCCfeyCXeyinh4ivI5iPhACFCwexiZgxdVbCHoHVc")
AspCoding.EnCode("gHnftCDflgwejeXi4bBG4bEiZe7hwCZiningmGmetCDf7fxhjeYhab4bYcUc4Hab4bYc4dXiEgHi3GwIhcVcibnfQgEg7fygje5C2HGhXdFCYfAfjg3f3h3CxcZhRfDfAhvfkfYhmc2H1IBHYczI5cYc5IwCEgSG4HvboHgIoHhbibXCQgliAhxhximf3IFc4btiYfAfviZi4g4ixcmeuiEgAhxhahXiyH2HbgieqfnHlbjbvbabXd4H4HycWIhbodYgPhliEiygahmf2HFc5cqfmhlekh4e4g3CvIZhPhli")
AspCoding.EnCode("Ahweah5CxGXdcfogtiyd6dkHvb3IYG1GhiViqfvIjH6cvbab4bYcGgxbriGeHhqhUc2bycVbiGibnfRfliAhzCxiYh5cBG5cting6gze3f4g3CvIXCQgliFCaixiYhnd5cbgieqfvIjHlIycmc2H4HGghCQhHf1InGoHhbibogreiCVeICjenizh3ing5cGhXdXCqelilgzCahmfoHVcYfkf4C2HYgDejeniFhwezhxipGhbgdVc5iFgjeXeACvfjfah1Gphuh9hiibikf3hzh3i3C8cvI5iqeEgEiaiahmf")
AspCoding.EnCode("wIWICHCImetCDfAhzCyCmf2HHg2HQh3C8ikh3f5fmhnHnfPhli7fygkfXizI5chioguCvIkGlHvbyH3I4H2bvbgdgIpcZhPhli7fygxiYh5cTH2Hti4i6gviZiXe4ivIZhPhFhEivfkfZgxG2HcfphQhwblb7dmH2H3c3IIhWCPgwb7c6cwIab2H4HEcwcQfBbTGqhGe1IxdWIhbib5iPh8eAhzCje5C2HHg5cuC3CAfkhXgXeZexc5iRfEg7faiahYhab5cbgphtimGlbAbycab5c2bTGbhqfHfYcvbgdVc")
AspCoding.EnCode("ibVireCiiihgzgXejfmg3CjIXdHg5cXCuiliAhzCxiZgpGCHngkfmg5c5i8fkf4gACxhjfzgpGCHVbhbYgDeyCXeACweyiah5cuggibhgCxCYe4ivIECFh7fcfyikfDf3CkfEgnGpGVcibkeah5cZeAhFCyiEi3I6eZeEC8fzfmh1GahmhBhlihcCHiblhliFChiagxi8engxili4bTH3IogsfOgVeICkf3hxC4CYfnHAgDfAhgCyiahDfYfahDfmHVbVcgHmgvfwi3IyimivguCngneefBhAfWICHibPh3C")
AspCoding.EnCode("Eg5czh4hjiqfngXighG9AfTHxi4iDg5ctiZeXihgBh7hVbVcgHjf3gxeqfYfYhghBh7hwdifmfxiagAh3Cbg5hFi4i3IGhDf7fAi4ioHhbhGzh5evguCngYhghG97hzGehwCkenC3fjgFcQCFC8fmhWIiGpGVc5c2H3IoHVcibzh4hjiPgmhXifeBh7hvcqhZiFh8emh7fkfFc2bydJiJhnikeviyilgHgmGaHmIxd1gJCwIxcwdzcycwbKC2i1gaG5fagafagEiJiNfmH1IgdhbgHAg8e7fIhzhzg8e3Cje")
AspCoding.EnCode("ACBGyi4hjiPg4iYhICHOlevcPg3C7haf3fniYfnHECDflgdekexiFhZeahlixG2bFd5iyizg8e1GmCjfafzh6eGhZbkbUc1clHHhxb5ixCxiEgUc3GwIhcVcibjf3gvgqfngneICSf7hwdsC3fDfEgYfAhyCFc2bnH0fJhnf3f3h4iTHvIaHzcwIJiKiwIydxIvGmHwb0fKg0fxbZhYC4g4i2h1hyc4HWIVcibFiDf7fhiyizgli4ijeliHgzh4hwhtiYfmfhgUeAfaHQhmh7hkhYC5fYfxcAgFhFCbgzhxi")
AspCoding.EnCode("lingahDfyHYcEcnfzhjeFh1GYgYC4gmhGh1ckbGeZb8dTGvdnfagxiACSd4HvbWIiGhGyimiyfPgYfXighBh7hvcRg5hli8emhAhxiGhYcwbNeJh3fafaiYhyCFcwbvcvGycJi2gwImGaHmIxdvIKCKgJivdZivixh5Cxi1g0emH1IoHgIpcFiDf7fbgxCahDfngjeDfGhzh3gxeuCZe5CfeG97hvcPg4i7hwCYCXe4ivIECFh7fcfyikfDf3CkfEgxG3GEcnhweDh5c4ekhzCXixiHg5GlGSdXHlHHhaGnh")
AspCoding.EnCode("xhDhUcYcmHVbhbhcWdpcagmixePg4iXighSf6gxIQfXg8eACYfAhyCEd4HnH1gLfRhPCpiuhef0f1hmHnHybzcmHvI0f2i1gwcsiugoCtgfe0f1hmH1IoHhbibECEgEiIhzhxiDfngxiFhFcjfXfjitingXibiUe8ixIQhmh7hvi3f5fngmG6fDfAhIhzhahACYfkflizI2bFdIgOhpihiCgRhrf9fPibiHfHhmezhjeEgXdAgxhSh4iGhkG4bXC4emCYfHgYcZdqCYfAhmg4ejeZimc2Hdg7fai5hkh2bYc")
AspCoding.EnCode("TI6hAikeFhmhGiHhwcZhkeahDfHfEcphuCUcZb8cTGVitiTIGgaGdf9goCbg9CqgQioCPibiBbZdycWIiGoHgI2H3I5c5coHCHCIxC4hyfPgZemfghBh6gzGsC4eAC8e4iAhxiHgYcwbKC1CweJi2gxdwbaHwHycnH0f1C0fyIweNeKivb3GVbVchGlhACEihiagje8e3CkfDfGhke4hwhQh4iXiefBh7hvcuC4i6gvi4e4g4ixclhDflgbgjfzg8e3CkfFhndZdBHvfTIXHkbFdwcxhHf4HvboHCHibyiXf")
AspCoding.EnCode("vgqf4iZgbiG96gwdRg4eDfFhYflgkfGh2byd1g2iEh2hKimHvIvcnbycnH0f2iJiyIAiJi0eyc1IVbhbibFiDf7fbgkekfDfmhahFhGhxCXfyftingYhICTg7hvcting7haf3fni4inHlh8eAhdeagyCEgmhahliab3GHhlCGe2dAHGgwclCSd4HvbWIiGhGyimiyfPgYfXighBh7hvcRg5hli8emhAhxiGhYcwbNeJhXf0fKivbydvcnbycmGJi2i1gyI5e0f2gxd1IgdgIpcECliEiIhxCxiEgZekfEgTH")
AspCoding.EnCode("agmijiqfYfZgICBhAfxIReYf7hkhXgXe3CmGEC8eEiIhyizglimhyCACxGYcGgnCBbXHAHEczHXfSd4HwIpGiGhchbpGhbpcke4hkCti4iZgfeUeDCaHQf5h8eFhmhAhxiFc4Hwb2h2iECaiUg4iBGAIJiKivbnHxImImHvINe1C0fxbECzCBfYf1gNfvbZdhchbgH6fFh7fcfzhxiDfngkfliHgyimivguCngneefBhAfxIqfmh7hwCXgnimhwbFiDflghizhxiDfYfxilizIYcEcmeyizgFh4blhaiBfYf")
AspCoding.EnCode("HgkGHfXHkbHhxbZhxCkfDfUc1IvbgdgIibyimivgQhYfmfbiG9AfybPe5h8eEg3ClgahGhYcwbNeJhECwebOYfHg8cKCJCmHwbxIvGnGxcJiLf1gzHFixhShmhJi2gvbYcpGhbibFiFhEiIhkeahDfYfxiFhEdyi4hjiRe4iXihgTgleaHPg3C6gwCXgni3CxcFiFhFChiagjeDfngkfEgmcYcBHnfagyCFh2HAgweBfmhGhjIGe2dlGFdaG5izhxiEgUc2bxdgdiGpcagnCwhqfYfXiefSfDCaHRg4e8eli")
AspCoding.EnCode("mh6eahFc3GwbKC2iFiygTeZeEdlH0f1hnGwbybnbycxc0fJh2hwcECaiUg4iNe2gycYcVbCHCIAgDflgdexCkfFh3CyCDfTHagXfwhuC4iYhefSf7haHqfmh8iafXg5f4ivIFililggCagjeDfmhkfEgyH2bHhXCagxiFh4bFivfUg4iGhDcHfXH8cEcyI5iyijeliTI2bvbVbVcgHjf3gxeqfYfYhghBh7hwdQf3fliEgmhFCzgGhYcxc1gJh6fvfI94iTHDbNe1hnGvIwdmIvbwbJiJhNexbECwebOYf1g")
AspCoding.EnCode("KixdZdoHhbCI7e8eEihijfzgDf4iahFhGhyi3gwhtiZeYhghG97hvcQhZe7haf3fnimhydFiFhEideyixiEgngjeDfzIZdGgXCagxiAC5cFixhbO4iHg6GHfYIAHGgwc5ijfkfEgSd2bmHWIiGoHhbibAg8eFCdexCjelimhxiEg5cGhXd4Ckehiag4CmhnH6fli7fcfxCkfEgZejeliab1G2b2izexhECliKi1IxG1GZdLfzHkhwelhFh1hYcmc2H2bHhAiwCUc1Imc1G1IEcwcEhafTI1ImHWIiGod6fFh")
AspCoding.EnCode("FCgCjfkfEgYfahAC5cGh2HZfzhcfjfnh4inHAgDfEibgyixiEg3Czg8eyH4b4HKgafxhlhACHg7c1h2bmc2H1I2ixbvivf6fliKi1Imc5c3GEcagkh4bFhH9AfYfHgkGHf4Hab4b2bHhvdjfaf5cygnhEdAIBbYcycWIhbgH6fliEicfzhjeFhZezgAC3IGh4b3izhdezh4CZeyd6fEgEigCxCkfFhngje8emc5c4HKgafailhFhGhZi2g2bmc1G2bJhwckhailh8e1h4HyH5c2bFdyikh5c8eH98ingHg4e")
AspCoding.EnCode("Hf1Ind3IZdGgwcxCvi5cxh4CFcXgGe4HwIoHgIpcFiDf7fbgxCahDfngjeDf4bGh3IYexCdexCYe4iwbFiEgEiIhxCyC8e4izgACab2H4H2iwHNfZdyH3I3GMewcnb0e2bmc1G2bFdviaiTI3GxGXd4HBHxbzexhBb2bychcCHiblhliFChiagxi8engxili4bTH3Imgjfbgke4CYfwbECAC7fcfagkfFh3CxiFhyH2H2bLf5fzh3iYf2g4Hmc3IYc2iyImCagYeYf1h4HzI2H2bHhDClg4i4bxh3iTH4gyi")
AspCoding.EnCode("nh4iHfBH5iyizgli5c7eaiUgmhGhlb5cnf3f4gZeTH4H2bshmhAh4C3fkfZizI4beClgxhZivi1I2b2Hvf3iFc5fzhYemhGe1Ind3I2bHhwcZhkeahAC1GzCZfHgnixC4CYfBbGgaGleEi4i2HygZfFc3hzhnh4iTI2bycpGhbVbVcibFimh8e4bjfXfjiQh3CXighG9leFcoiagEgvevfzg5CWIWdCIQihCgihizh4C4iHg7eDflgcfagxiliYfkfEggdhbYfzgYe2HZhEhzgXeACwexCjehchbhcgIhchb")
AspCoding.EnCode("1dSdTGfiAgDCIhjfZfaikfmfwdcfxg4e6eFimh8eGhXi5ekb8d7c8cTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>

						