ubbcode.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("GgYbVbiGXIEdFcFcEdTHGhEdFcEdHgTHFcFcGhEdBGTHEdGhFcFcFcFcTHHgGhTHHgHgGhFcFcGhTHHgTHEdGhGhBGGhGhEdFcGhFcTHHgFcEdTHFcTHFcTHGhBGVbVc5bpGhbYHU9ItpQSogQGKS9oPZoHQWrbKtQFQIr1sbRiR2HbrA9qrGrxcCqBrLrEpvbRqdMsrGrGq4Qir7RRQ6ORqDogdVc3dwflili7hFbzHyI8hFeDgzGrhH9mfkivcnijexG3I2H3IlIjIAbmd8d8IDIAb8G8bEHAb2HoHhb4c")
AspCoding.EnCode("4boHCHYHpGCH4chixC6gSeEiwemfwfAC3IlGAbAIkHyGjIkHlGlI4btfUf5CvhaH3hxi2Hnc2HfiwCjg2HqfweZgxgli6f4btimhEC3C7fDh4i3izGXd4bhcCH5bgdVc5bTHHgHgHgGhTHBGTHFcBGBGHgHgHgHgFcBGEdGhTHHgFcTHHgGhFcTHHgTHEdGhEdEdHgBGHgTHTHFcTHHgHgGhGhBGHgEdFcFcEdTHGhEdFcEdHgTHhcVcVbWdXejfyClhli5cWiwi3fZgmhQfXgEgyhFcYcxhzfXgmf3Clhxb")
AspCoding.EnCode("3GVbhbXCAiahniDfygyiyC2HQidfgicfzhYemhxclh8eAhcfyijeDfZekfFhycpGiG6fliAhcfjfxiACngzgDfFc5cciaiviFh4iEipfPhwbECliEiIhjfxiEgYfyCFhnGgdVc4Cvfwi5cAhmhoHgInhwekg1G7hyiyHaiaihciGYeygzf3IlgngIhxCyCEgngah8eVbCHPhYfDf4bEimhTHkfYfFe2Hti4i5ChgUe8ipGCH7f3CxICeYhzgjf6engcf4eAgmh2HTHACAh8fmhhcCHEiYfvccCjgjfXf4ejg")
AspCoding.EnCode("HgPi7fEh4iVbWdDCjfGh6chciGzCxhFckHVbWdpcVbCHlgngxIqh3f8eDf4i6ejeHg1I1gKgWiWecC2hNfvIziDfEg7hUiwfEgDfDClhSCXCEglewISH0fwc0fyIvIybJh1e1g1CKizcxd0fJhKCwcVCOggfJiKi2bgdiG6fACAhhiyixiliYfzgFhTHlgngybti4i7hafXg5f3Cwblh8eAhIhxCxiFh4ikfEgmcZdBHZi2HyikfZhke3hAilhBGFhwfai7eaH5eafEhEimGnG2HziAhYfnfFcZd1IYIjHGi")
AspCoding.EnCode("wcwc1c8c2bYc5cDf5hAh5C4iliGh1fmijg3fyCvhGeFdWiiCgf5cuiQhIhTH1I2b5GAIUGxbwcXH8cYcYc1G5eag7fmgnglgGh7dXdXgjgFhBGDWFpSW9QKQ0qJrfqFp7pcQ1PwQa9irCsqRIPgrjo2HjfyCjgke5hmgTH3G1Iyf4e8g5h6f5fFCxhAfFhGivf5inHliaCyg6faHFeygmgliwfBbFi3hFC3CYfahvc7iwe4CFhzixHjb8dDcvbDfxgygAgybEfweZfliveBGAg4glgng4ijewd8hvfmgliwf")
AspCoding.EnCode("aIjbDclH1I4HSdHhvdYCTI3GwIoHCHEiYfxIRg5hFh8engFCxiFcZd0fJhPCriCCWgIfIiFcwb5CwenfSCwh8iXiUijiAfngYhHp3gkg7hUi8iahmfwI0fJCwbybMe0h2h1CKinbycnHZgaiXCHpjiAfXiHpwhlemhXibW5ejhAfUilekfnemH2h2iNeaGrfriOh9fIfIiKC2g1IoHVcFiliEihizhxiliYfahFhEd5cEimhaHtingAfwC5hXe3CxcECDfEihizhahDfngah8ezI3GHhmi7fUcEcWiWehe3I")
AspCoding.EnCode("RfPgbgHg2bZdZd5Ipgjh4eYhYfqh3fDfyh3c2bXHjHaHnevf5iYcZd3I5eyi6eZfYfFCHgjGBbUV9QLPSRQQmPQRnqTp0QVsdqpQAWPrxQOrhQw9dsGgXf7fGeGgdg5cCfQhbifhEdZd4HZb8c1ckGZd2b5csfchuCdighsfHg0g3gkh3fjexfUcTGCeOgfg3IQgtideEd2b4HYI8cXHAI2bYc2H3gjfFCnh3CFCHgjG3I3fafliTH8VUVSWVqJPNRKsor69FOcQ0qZsa9CsgRPQT9grAWXdkekfwCzhZi3i")
AspCoding.EnCode("FcYc4Hvg5hFfXgAg3hEiai7hDfEIvfXCwbFhvexhlhwd7ixh3iDfxgUcEC5fEiYf4ikfybFexh3iFhvezblHDcAGmH8ewfxhFizGFevf3iFhwfTHFimClgngYfxivc7iai3iFhzinclHjbjbZdYcUcHhzHfiTI4HxdVbiGgdVcFCYfvcri5hFhDfngAhjeHg3G2h2irfriiipibeeeHgnHxIKgNg2h1CJCmIwI2h0ewbaHJh2f0fJhKinbmH0fLfNezHQiriCCWgbeIiNeNf4HgdgI7eFhlgcfkezgDfZezg")
AspCoding.EnCode("FhTH2HFCmhaHQh4iAfvi3fni3CvI6fDf6ebgagxiDfmhxiFhndZdBH4hEiUcTGVC9hdi2HPhuChiGh4H1I1I5Iohzf4emf4iPe4eEgxg5I1I1ckGwdYhvfYgYc4H3I4hyi7fmgYfFCGh7dSd3ITGXg2HwfEiYfYgHg2b2b5GjIZdYcUc6OmQTWEsYrzOgRfQIrprQqfsIPfuFdxbZiUcYcycoHgIVbCHlgngybriZiFhDfng7fyCGh2bNeJhhhVCtiGhzcnHKg6cmdEHKiwHycyHnbmGJh6czbFG1hwHycNe")
AspCoding.EnCode("NfmGaHJhLiNeMeNfzcvb0fLfJivdggpgqfKiYchcVcFiFhEihijfahFh3CxiliGh7f4ixIqf3C7hzeYCni3CnHFiliAhIhjfzgFhZezg8eabYcBHyimijiZeXeEg2H4gjgXglhECzCmgHg3hzelhvfnhSHjH7blcbhjHdfcfbexHDcciTdbgyG7ckGcfhfmdUIjG6bDIxH6G8I7H7GDIjb6H7H7dAbkHAb5c5fyiZf4inCXg6fYfBGxgEgliAfFbwcxb4CxCEfahviyi4e4Cybwi3f3hFCyijhYfmgygXgyb")
AspCoding.EnCode("5fkezfwcleDe3gyIAgxgyiXejC8h3f8g4izH4g5hmi6fyIZfzCAh3CmCEgkelgzH6f7iaH4gXg4h1bEengFCFiaixCkfGhldmc7dzIAHmc6c4b6CweZfACyhFc1c7c5cwfngxhmfxgEgGh1c8cBbBH6g3fFC5hjh1Gah5hvC4iGhFi7f4g5c7C3fvi8f4iTHZbAGBbEcmhae4hYf3i1G6f6e5fGh1cAG1GAfviEhmfvfxiEC6gXgmf4iFczilili7hGiwczH8h8h6Cvcwi5h5fEiagzf3CnhweYCvcmCjfwi")
AspCoding.EnCode("wclhyhjf4gvhFeXgEemhwcZfyi7ixizekeXgZfyI3IDgxh4CACxgHgZbkG4bwfmhvfmfyhliGhXHAHHfTGzH4iwinCngYeUcTGzHjfnCvgZe3hEgHf3GwIoHiGlgmhaHQfYCFhDfmhEikfFc4HJi1CqgsfTHvGvIKg6cxHUbKinbxdndwHwb2i6cyGTd1hzcmH2hJCxcybLfNg1gKg1hwHnG0f2iNeaGqgtg2g1IhciGECFh7fbgyikfEgmhxiDfHg7f3CybuC3C6gzeXg5fYfxc6fEglgIhzhjeEg3Cxili")
AspCoding.EnCode("nd4HHh3CwinCngZf5cFiAhmCBGXH8d4b7iai3iliwfHgZbjH3IxgmhaiXiyhDfHgXHDd4b5hDeFhzhDCvi5hH9THEgEilCYf5cafyijf7hBGZhZikh7emh2Hnikekf8e7fzhvizeZe7fFcFh7f8f4iXd6gjg3fH94i6i4iEiTh5iEi3fjhmhEd5iZikh6f4i3I5fYC3hve3CFcXC3fviFimh4b6f4g5hzengBGuhpihfWiPi5c5ene4gjfjgaglgGhYd7dlIlIAbjGAb2HvhvfjflhkijhjfZfYfBGnfZivi")
AspCoding.EnCode("ECng1Gli4e7fmf3CEgXe5h4gwfZeHgnf4ejglhYf2HDCkh8fYhaikfFiAfZi5CngTHwf8eEg6gGizHxb7i8h6Cwd3f7h8iviZewd3hyizfxb8CAixh5fwgEgygjhYfaGHfYcnGpGgIlgngxIri4eACFhYflgxiTH1I2h2iVfRgTHadwb1C7daIFG2gwHmHmcwHvIKgAbzbFG2gadycJiJCnHyb1CLiKCKgNfzcyc2h1CNezHiCqhKiYchcVc6fEgAhcfagzgFh4ixiFhTHlgYfwdQhmhlekh5hmC4iwbFiDf")
AspCoding.EnCode("lghixCkfliYfxiDfab3GHhyi4hxemh5fli1G3fzevfYhxiBGaevf3inhafYf5cmCjgXg6fFiai3iFchiOhuiWiffFbkbDd3ilcZhlH7cjIxHnCAbmeAdnc6djH3i6czbUb7HXg4hyGlIjGSb6c5fAcjcniDGZeSI6H3I4gjg5hECECHgWgbhoeghcfuh2HvfnhFc9hYfZfvf4eQfviZiGOng6e5cFevfZfACxgBGZbAI2HvengvfnexgFhTHXHDd4bHfHh8i3fEi3fwiXdzg3fzfZeHgQgzijf8huiFhYCAC")
AspCoding.EnCode("8flhgiZi6eXdDhZiafEh3CFczbjHTIGg6g5h7f4ezf5cje4ekgngHgegaize3Cah3fkg4i2H8g5hvi8fngTH2djbSdFdngae3gYfZf5cDfBg6gmhGh4e6gDCviaimC3fFhzCyiyCyISfncyikh3CkeXfkCmhnili5cnijfmgmhXfXgAgmhFcziFhDf6gSHvdxb5hXeFhxh7C4iBhvczfygniFCjfFijf5iDfybXezhwixb4e3hDfaiEeYfUezH3hyije8e7fyikh6fzHwiDCjgXgUf4iEiwc4ixixbxiFizf")
AspCoding.EnCode("7hkbzCxi5iyb5fZi3g3HqCmh6eECaixCkfFckcablbyHDIkbxG7IjGlb5cnfvi4ixi4eaengTHkg6g3IlhFCmCHgYIjb1G4bEfxhZfDfyhFcZbjH2HwfZevfXiziACHg5G8cGeBHzH3Ckg5emhmgHfTGyIjf5evgmh5fDfSd2bmHVbVc7f4iaHriYCEgDfYf6ezgHgYc0fJhti9hEdadnHJh6cncFGJCnbycyHnbyd2iAbxHSI2gmIvb0f0enHvcMe1e1gKg2gmIycNe1C2hzHPgCiNf1IVbVc6fEg7fgCzh")
AspCoding.EnCode("yCACngjeEgTH7f4iaHPgng7hkh4e4g3CxcFiAC7fIhxCxiACngkflimc2bFdOedfOCghhiPi5cniafXglh6fygmgGhnivilhvfmgSHgCfhIheechch7dDczbTcdfhgjcmdjH7c5f5ixHbhEGDbgizbjGAbAH6cbehfcedfIhhigebe2Hnikh3f6fFiEdWgIgpfbihiPi5cainhFctiIfVhIh0C5c7ixhZflixgTH2dlb1GaC4izCmfziliGhZbAHTIHhPedgRechCi2HoifiCifeBGQgqfbg3IrgchCCPChg")
AspCoding.EnCode("HgZbAGBbBHqhIfqfchCi4bOfIfVffeTHhipipCQgOeiife2HufeC9gseghHgcfzeygAfkGTIHhQfIfuCchVf4boiIfCiefFcgCWgOfsfReWg9gui2HshfiOhPCICTHxhwiZine3C8haikfnhxC7iBbBHRgdgPgchVf1GOffiWefeHgdgugtgpiqeQCchqftg5cufdgOhQiefHgDfFCEh3CSdGgaGWgdfpfbicftgTIHh4h6eTIFdpigiOCefIhQC5cmCjg3fFiFixh4CBGcfCCPhWiIiGihihfbghhIfdglI")
AspCoding.EnCode("jbncTcbhef8IxH6dlbIhgezbbhBdjcbhnckHlI8c7dIfcidfgicfIhgech5cyhZexhmfzi8eTHAGAH4baiYeBGFfainhYfjf8cXdDgygZfliziFc1c7cBbEcriIfQhchiC5coichVfbiHgRfuCIh1GqCfiCCrfbiFcZbjbHfGgqhbePgbe9h5cOffiCibiBGbeugsfWgQgtgchuCQC3IrgchVethefGhxHjHBbEcqhIfqfIfWe2HoifiiChgBGhiOeOfsfuCWgVePh3Iufbe9grffeHg3hjfkfACAhjfkh8i")
AspCoding.EnCode("3fxiYfviSdGgQfIfRedgOg5cOfchCighEdgC9fWhuipiVeIC4bRiIfOhPCbiGhcfjgyg6glbHfTGzHpiceoehgbgtgTIYcnGgdhboHgIEiYfxIqhZiDfEgYfFCahEdZdvINeKghfWffiRfog1g1hvbmGxI1CLiJi1CNfnbxdxcKCKg0fwcciOheCqeCfKC1hycYchcVc6fEgAhcfagzgFh4ixiFhTH3I7f3CybQhZe7hkhYCnimhxc6fEgEigCjfxiDf4ikfFhxG2bEc5h1Gyh7f4imeTH3G4HZb8c3G3G2H")
AspCoding.EnCode("PichqfgfbiQCHg0gXfviZixikiUcHhWiCigf4bPhuChiFc2b2H3c3IifvC5hne3CriYCDfzi5cXb4b4HAg8hmexInexh5i2HmiyiEiYeZelgTHlI3IXgkhACEdSVZRTWBPIqapuqhQFpDWHr0qsQfQVQQPBpprciCCdgqeViUolpGQxO4I1GyhngvfnexgDfBGAI7b2HEfzCnhDfyhFcjHlcHf2iQsyVpQeQrPgRORWrNfHhwc5hSdFdXfAhUcEcOehCChbicfuhXdnizhZfngIgXglhYfBGwfli8eleEIyI")
AspCoding.EnCode("yImgyiFeyCkhjfXg3iaHkg5hni7fagzf3CnhzCYCxIXeagzfzH8i8f3gyIlhyhke4gjC7iZi7CYfxbmCZinCAgzH5ivi5hECvezHEC8h5iviZiFiwfxI3h3f3g2IDh4iEilhvfagkfEd8babjGabAbnd6c4bniafXgFiECvf3iTHniaflhwenhGihhlG6bcfIiceDHfexHchbi8GeexH7clb5fnfncTd6IIgFHncjcjcjckc8bDckc7HAbAb7d6c5c8hvf3iEgwfEd8bjG7d5caCYfaiXiyhFhTH8IAbjGTI")
AspCoding.EnCode("TGqhfiqffiCi5c9ebeOgefHgkgagDhzC3C3IrgchVethefGh4H4HZb8c2b4HHfBHPeIftifiiC3I9efiWeefTH8CFg4ekhygDfSe3Iufbe9gthefTHaCxhmfyhUcBH4izfmi3Cmg2H6f6e4gHgYc4HZb8c2bZdXdlfEhZiviweACThFcwfxh5Czi4bAfjgFgZgxhkf7eAfZineZeHgXIxgEglileHCxbzHDg7iEfxIjhZi5flgjfvCmh4CzCXgzG4gjfzfwc6fxgag3hvhFeXg7C4iwc4Cjf8hyCvixCXgZf")
AspCoding.EnCode("wcaiah4CZeSfwd3hXiaiScrijH0gqh7fagmgNhRi4iAh6fygjfyCGhPhvezh3hjC7i5h6iYfegviYC6fziYHliUf7hZeGh4c5hle7hafaiXe3f8evfzhxiaGUexHFiyhjf5fki6CXg8gYfnc5iviZiFiyh4c5cEfxhnhACziFc8bkH6c3Iwf3CxhneaCliEd7H6c6cBbZbAHGgxbZekg5emh3iHfEcwcpiceoehgcftgTI1IvbgdWdWIgIAhZeybQf5hDfDfmhEiahTH4HnHNeLfciiieCQgieFcvGnHLf7d")
AspCoding.EnCode("aIFG1hmImHxGmInHMelIzbEHNfadvb0f1hycnHvcLfLiKCKgNfwHnGvI1g2i0fxbciOheCtCCf2hKiyc3GgdhbFiDfAhgCyiahDfngzgEgGh2H6eYfvcReZe6gjgXg4g4imGECFh7fbgyikfEgmhxiDfzI4HFd5hXdaClgZeYgTH4HYcXH8I1I2b4bredguCdibiQCTHNhnCviYCzgxfUcEcohiChe2HtCQhhiFcYc5cZH3IohzfXgZgmhriZiFhwf3IZHXd2blhFeZhyb5CaiZh5cXfagEi4CYfEiTH6c2H")
AspCoding.EnCode("5hzeFhFcUWnPTWTQHrzosQgPFpDWHr1PrPfQQrRqBpgQciCCdgQgCf89a9dry9Xc4bzi4ivfYhyhACFc7c7b2H7iygZfACyhBG6dlcSdLfPrA9CqgqsQgR9qQP2gTGxbZiHfEcmiEiGeTGWgdfighgbguhXdmCagmgmhce5h6fmhTHwfFhli7hSHzHzHYejf7ixiwCag4e3izGzf3fmClgkejhngZfweXgaHXeagjhzHAflC4hzHlhzijfnixf7iYC8gYfzHXeXg3gFizHZhvi5hECaCzHlh7i5izeYClhzi")
AspCoding.EnCode("aH3hYCmi1bFfnglgAgxhjfjeTHkcxGjGzIlIzIlI5cXewC5h6fAgaiZfHg3hvi6fygZfHChhDdldbgeeIgDHefncIfhg6IhhzbkGAImC5incTdDHbhBdnckd8I7Hkckcjbjd6GkH7dAb6c5c7iaiZfEgyhTHYIjI4bzi4ixhmfxgDfEdZbjbGeHhqheCtichCi2HVgfiiCefFczfyiFfxhZe4bRichVethefFc3G4H5G7H2bYcGeTGQffiQhIfVf5cpCdgOgefFcDiAiZivixhliH92HshchCCQibiGhwfai")
AspCoding.EnCode("ZgwfSdHhZevCmi3CZf5cFiAh3hTH1I2b5G8I3G2b5clfAiZiviwe8eBgTHxgygZgyhXdDCjgFgYhweah6f7h3fmfmhFc5bwfDfDfleSHwcwc6CDgFevcae3f5fFCagaemhmgvf4exI5fkekgxb6fwfxC3hxf8hZiFf4izH3ixCDgkfafkeXgmgwcvfah3imhHOwd5fYhaiScPe6dNhri7fzh4CMishYflgAgygzhkfBGRfzikeXewgDgXg8g4igewC5h6fxg4cDfBg7h4iTHXI3fDC7hwCzC4g4eEgvfjfxi")
AspCoding.EnCode("zHTgaIlhyhke4gjC7iZi7CYfzbXCviYCAgwf4c5c8hzCYeDfaCGh1c8c5cziYfygYhwfEgHgZbDcUcZb7HGgzH3Cjh4hZenhBbFdwcVhgipfhghiQCHfYcmHhcCHVbiGAh4iybPe5hDfliZe7fjeTH2bxcNeMerftiOh0fNfycydxIKg2fJi2iKizcycwbJi2i0fxbthuCiiJi1hmHYcWICHECFh6egCyiyCDf4ixiFhGh2HlgmhzGPgZe7hvi3fni4ixc7e8elgcfagzgEgmhyCACzI1IHhbe4bCfQhefhf")
AspCoding.EnCode("GhYc2bXHAH4H3G2HPifiuCfgfePiBG1fXfwCXgjevhTIXHlGGgzHbeTI2bmHoHWdAhYfybri3fliDf4iFCzgTH4HmG1gKgQiqfOhFcwbwd1C2f2h2iKivGxd2hKimHwbwd2i0h0fKg2gmIvbnHNeLfJiaGsePg9g1g2gyc3Ggdhb6fEgEicfagahliYfzgDfEd4bFC3CxIRengAfafZi5fngvIlhFh6ebgxCxili3CkfFhndYcFddg2HVitighdCBG4HZdZb8cYcYc5csfdgQhgfhgtgGhMimikh3fzgxfSd")
AspCoding.EnCode("ZbjbTGxbchSdYcvbhcCHWIVcFCYfvcQfZiDfFhZeAhxiGh3Gwb0f2ifeVfbeifOhJi0enGnHJiPhvH0feiwdKgNg0f2iKizcycxc2h2iJizHgh9heCWiii2hNfyc1IoHWdlh8eFChixCkfli4iahFhTH3IAhZexIRemh8iafZini4imG7eEg7fbgagzgFh3CyCEgzI2bTGxhzfYh2H3fkhaiYhkfTH3f5e6fwiai4Cmgze4i1G6f7fmCHg3G4b5I2HCekg3fnengqh3fDfaC4bZH4bYcYfwi3faiwCAIaHmf")