bsconfig.asp

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

<%

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

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("BHZIVbhbXIncxHyGncaIaIncaI8VmrQszVVqSVhPUqyGyGzbxHzbxHaIncaIzbaIncncxHzbyGmdncpGgI5bQPcLuP8RGR1sGsCq8OePLQYoOq7rS9VrKs8R3IVbCHXIIgviZiniki9fFgEgKPbq79mQ5WcrveACFh8iEIyIvdFeDg7iaHqiBgYhxfybnixi2HhcCH3dxHxHxHaIzbmdxHxHaInczbxHIQeMLPHRRqYRSOHrVrwrTOTWncmdxHncncyGncmdncxHncaIWIiG3ivfvC5c7eYfFC7C4iEi1f8g")
AspCoding.EnCode("lbyHlhYfAh7CYfFCLC6iAHpGhb6fngAh8gmh6e2e8gAIGhcfFiEgAhnHPg4iDiEhYf6fDfaHRf3CEi7Cmh6eRi3f7fvf4e4haf4iAgvI4HphtgsfRgNhqfefgebiqfbiuC4HycmHgdiGlhYf7fFfnglgMiFf8cFchi7e8elgxcti3ClfDemhECDfybqe3CEi8gmhAhrg5hlgvfXgmiafYfAgwb2bQgbiqftebiPg0goidgOgbiZdwIvbWIiG5bCeme4b6fmh7f8g4ilgNh8g7cEcHf2b3GXdPivengahpGVc")
AspCoding.EnCode("ZGCIygXCXd4bvCweZfmGlh4iEi6i3Clg0gDhjHzIUImcvi4ixinHAgng6eDh4i7fNh6ilGxdvbEcTIAg3C6e8g4i7fMi8gkb2H4bliziYfxioHWdYHgHgHPgmhECAfjfzgFimhaHqf3CYeygAhngmCli5cFi3CAh6i3C7fMi6ilGhcWd4cgH4izgmg1GainfgdVcZGefyC4C5cainf3IVbCHVbCH5bmdxHmdmdncxHyGzbSpzVsqyR7WdPSoXRaIzbxHncaIzbxHaIncnczbxHxHxHxHxHmdncgdhbeeaizf")
AspCoding.EnCode("2HOf2eqhjfFiEgzIOfNhfgYfEgabOf1fCexiyHoiLCifxinfnd9eNhKfwfyHVg0g3iXfmcoiMiYe5eAgliEind3fzemhFCDfNhweyC5iagab5hjgmhlgDf0gAi7fafzIWhNhEgH9AfZemcQgngni0gegyiFCkglhzIqemhXe2efhjfAhzf0gyi6gmhzgmcuiYf3h2edCyi6ekgabjeyi2ebgxg3CmCvhgdiGffwejh5cfi8iDCjgyg3h3fEgygyixiRiZiafFgngmG6bycoHhbfileDCkhai4gXgACweagxi")
AspCoding.EnCode("ufZijgEhYfwb6cycTHYcYHSCUHHp3fzgnhSCnHHpwIUimhSfYfmCGoygahAg3CEiliUiECmhvi3C5fliUiYe4iwC4iDf4iIVFgle3i3fAC4iGo5fxClCxiliHpmIbW5HbW5fyhFCHpvCzC3iHpae5h6fEgmhlgbW8e6eFgzg3h3flingbW5fxgZiEibWZfYf5faf3fFC4iZd4bZGbrcuhQ9QMPKqUpfLWIgIIf7h6gafyg3h3fDfweyikfRiYCafAiYfydkGvbTH4HwfEgEg8iSHwcwc7iFeFexIqiH95Cxf")
AspCoding.EnCode("zG3hyC4HibhGodpcCIibibCIibCIgHCIpcgHYH7VSqSW7RcrEQPPcLKRxV79dRSVer6O1RKqFVpGhbbele7hafxh5fXgliygzhzgRiZiafEhZeyd8cnGHg2bQPcLuP8RGR1sGsCqHsAoBpxP5Wcrhr7rSOBVrRyWKQNR6V9rRrHLtrsQ8VeJGPAWD9oQEWj9MPusEWfL7V5VqsJPKRv9WQ7rXVYW0fahJixi4H5cYHHslpBpyQRRmqqsdQsQpROrXWoHCHeCle6gkhygmCZiliaixCahRiYCafAi4imGDcxd")
AspCoding.EnCode("Fc7HpcCICIhGpcgHodpchGgHododpcpcgHCIibgHibgHibodgHododpcgHZGSWwpgR6qFVcq9PbPEIAI4bMQF9dRrqTp1RF9srRqHuuQ8p2HAHXdGrzOHqxPcrEQTp0Q7oLq2HDc3IRRHuJqxVEpdRKqBpSpxoLr8pprns2Hjc2HHsAoHqyQHQEQRRIJuraphcVcfilelejgainiYCDfwezhyCuf5hzelC4ivIDbvbHg2bYgjflgwijHHpYgzhAhkg8c4HhGpcCICIpcCICIpcodCIibCIhGibhGhGibgHib")
AspCoding.EnCode("gHCI4c8V7W9RA9F9lQUWnogdVcbe6g7hzeaiXeXgEgzCxCahqC4eafDemhxckcycEdlICIibgHCICIpcpcpcpcgHCICIhGibpcgHibpchGodibpcCICIodhGCI4cOQhrFVEqpQBqMrpr7pU9WQlO6plQEpwV5WdskH2H6VdrCqSQtQos1GAI4biRDsMrprhcWdch8iDCafaini4elizCyikfRiXgjgDe4inHAdycBG4HYC4CwiaikfyI2bgHibgHibodgHododpcgHhGibgHCIibCIibhGhGCICIibgHpcXI")
AspCoding.EnCode("7WGQcRzrU9jqEpCQhQUpdQDOmcMsTW6oyrQQ7QsQEoBWEQVrzVeRUpbqEVoHgIVbCHOf2eWikf5cEd2HfiAfDCzexh5f3fDfygagxiufZiviAiZemGlIychcWd3fzemhFCDfNhDeFCvi3IGh4bdg7h6gafygni3fDfygzhahrgZiafDe4ivIAIycWIgIZiwCngAhEg2exhjemezh2HGh2Hdg8i6gkhygniZiDfxhkeyCRi4ejgEhZexclGwIWIWdpCNhACSeAfZe4bFc5cfiDC6gjgxh5fXgEgaiyixiRi3f")
AspCoding.EnCode("jgFgZewbDcmHVbVcqe3C3hMiegagFCaeAg5cTH5cdg7hAfkhaini3flivfxCkfuf3fjgEh3CnH7HwIhchbRfYfmC2eegzhlgvCMiyi8i3Cah5cEd2Hfi8ilevizCni3fliygagjeRi3fwCAiZenHjdxdhcVckfagNhcfyhYf3hjC2HEdXdfiAflekhvf4g5hEgxhkejergXgkh8f4ivI7bmHWIVcuimh5f1fhfjf7fvC5cEd4b7e8iafvfDfmGPhYfni0gegjfAhkg6fzI2bHp4HnGhcCHoiLCifxinfXdBG")
AspCoding.EnCode("4b6fAfafygEgxcOfMiWixixG3GIVYcycgdCHpGhbzCnf4bweyCFiEgAhwbjg3hXg6fngxc6fYflgDhmhlgMiFfkGyczIjgniXgAg4iydzgzh0gdeyhZeXevhmHvbTHlI5cEgyhngxihcCHVbiGod4cCeYg4bRe4iAeFgngECACybdCke7faeHhUcYcYcXdtgxgmhkf3IQgliyi8iWikfvgngXeFhaijfahxcRe3C6hAingAgACzGegyi7fwiwIVbCHVbVcpcYHWinfXdqfYflfFgmhECDfaHqgAimh7fUftC")
AspCoding.EnCode("8elgxhzg5CEcUcYcZd4bPiaCYfxi5cqelixC8iifxivgngXelivfxCximGqf3C8CAi4i6fEgybPfEhYfAhGORfACFCaikfnevboHgIVbgIibZGCeYg3IQhYfDiFgmh6fEgvchizhjfxfvfYf6fFdUcZd2b1GPiwfYfkf1GPhDfyi6gpgkfwhng5fEgxhjfkfmGtiYfDilCYfFiDfwddezhjfxfvfngAgycoHVc4ixiYe1Gyg5ihcWdoHiGfhlCkf3h8ezCyizg4bWh0gchjgYflglinH3fjgmhAhEgMivfje")
AspCoding.EnCode("5iagwIhcgICIIizCkg4bAg8eAhpGiGib6fFh7f3IFc3I2bGgYc3c4HPhXeFCaileEg4bVeZijeZgFgYC5CmhEdoe3fEe5huiniEizC6gEg2bZH1ITIYchcVcpcRfngjgZe3hli2HIhZi7e3C4boi0gEgGOlenghcCHpcCIIh3flh4i5cjHhcCHodgHgH6fEgAhXdTH2HAgliAh2HZHXd3GDgxhzg4Cyi7ivcxC7h4iyCYfEiFcjeAiwCviUH5cDgygje3ijf6CvcXeafxCEC4ixcmHFI2boHhbgHibgC3fEC")
AspCoding.EnCode("3C5cAHpGhbgHCIibAgFh6e1GHg3IlhDfEi3IXb2H1IZivimh7fDfnHYH4H4dZiwCmh6eli1fvfkfmezhZHYcogEgDf7hEIzHyIrhEfEfzGqiUfXijCaHnikfKCje2hkfdfUfEIIgvi3fnikipiDe8eXIycHi6CvfjenhxCEfybkeDC4izgmhAhHgahFgafjgHi2HEfygahnhag7iaHXeviagAg4ivIwIHiZdWIhbCIhGIh4e7emh2HjboHgIpcCIibAgliEi2HGh1GECli6e3IXb1GYczeag4gYCACxhxCje")
AspCoding.EnCode("aHveAh4i5iFc3d1I5I5hafnglgliMiAiEiaf5I1IZGEbYcoHhbpchGgC5hFing3IkdpGgIpcgHpcAgFh7f4bFc5c6fli7fXdZH2H4HXgkh3C7fDfvI4c2bZH3fwCZelgFh0gzCxi5iyi4d2b4cxdUHviyiXeZiACaijfxixIxg6e4infEd4c3GZHYCwC4iEiDf0gEh7fkhZH2b3dUHZdgdVcgHZeahZf3IPhngkhZeXeEgWIhbgHFiEgAh2HHg5cFiFh7f2HZH2H4HFdYc4d2baGui5f7fvfleFh4H3c1ITI")
AspCoding.EnCode("4HVbgIgHlgmh6fAfkexi6f4iwdEfEivfACZe4b2H6fDflgWIVcefxi3i5cgeDezgnilizCjfje4bgdCHVbiGdCAizg3hFhygzhzg2HXgviDfnHAgFhAhwIhcCHhGpclgngFi6gagxiECngybDg6exh8eZe4b4HHh4H5IYcQg3hlgai8iDf4bVeYCxineFg5hne4iBGigXg7CYCPhmC6evfleFhYc3cYcSdXgjgmh7fEgvI4cYc5c3c2HAgEg6e4b3c2H2b4cnGGCHhYc5I1Ivdqe4gEivf8iEg2bZH2bUcYc")
AspCoding.EnCode("oHVcefyCZf2HhfFgahmCDfvfagxi4boHCHgdiGegEhzgmCliaiyiyC4buiACjf8iWijeji3CniDfaiagzgmG6i3fwCAiZe6fxdgdVcpchfagAh2Hgh3f3haC2HpCLCdiYf8e4bifzg4b8g5hzeDengAgVbCHpcCIohnf3I6iZikh8fYf6f2HTHXdti3C6hDe4i6fDfaHgezh7fwi3ItgwfmhzgoHgIibgHgHCe5i2Hui3C5fMihfxC6ejh1fjfAfngzg5cTH5c7c5crevengxi5cgdCHhGibodgHPhZemCAi")
AspCoding.EnCode("lgxhFhBgNheg7fagwinHFfXgkhEhngFimHpGVcCICIpchgjgFi3CWIhbCIhGibhGqemhafmh5fEgMiIg5hmghizi3fAhmG7CZizeFgmh7eycpGgICIododghyCYe2HCeZh5chcVcodCIhgkh6fngWIVcpcpcpcRfngjgZe3hli1fbhZiYegCyhZilgvI7C4ejgAiYfFiwIVbCHibpcbikf3i2HVCnfoHCHCIWh3CSfDfWIVcghkfZfXdgeFgah4gACaiyixiXdVbVcgdCHciAijeniACaijfxi3IQgZeviYf")
AspCoding.EnCode("mCli2edfYC4Chizi3flgwbFf5hafEh3C6fxdgdVcgHgezh7f3IWh0gMhveBGlI3Iuhjf5cug4hjfFgxi3iwbOf1fifkfnfxdhcWdibhGWinf2HifjelhDfEivI9gcf5hAgYfvIDh3fafDe4i6fxcpC1fdiYfACnGvbyHOf1fpgzg5inHoiMiNivenGwIEcUc7d2Hreyh3CkfVbiGodpcCIWhNhdgkhng7fEgxc3fafngAhFh0gaikfmeyiwIWIVcCICIpcuCnglh6gkeah7eZeybefahZfWIVcCIibhgxi3i")
AspCoding.EnCode("2HohmegdVchGVgmhUelipGgIhgyC4C4bdCDekfXeFhaiyixigdgIWIhbhfFgzgniliaiyikf3IQgZe3hAi7fxhliSeLCfhEiagkgydEeXgvi8f4iAgvboHhbpccijfEi2HpC1fvfTHlI4bQCjf2Huggizh8fkf4CmGQgmh4gLCciyiEivCvbhcWdgHpcEiZeFiDCyikfFingxIFeEivfAC4i1GOfLCcC4ilioHgIibgHohnf4bVCkfECACEinHVeIh3fAgmhvIWh2ehengEgvbyHuing3h1fegyiEijhnHOf")
AspCoding.EnCode("1fvfmHxdFcXdAb1GPiwfYfkf1GPhYfving4gDfNhIg3fmgIhwf3f6excFfZiwC8f4i6fxdpGhbgHOfYfTgEghcCHbixi3i1GgeFgxiniACvfkeahXdoHhbXGSdhcgIVbhbGgYbWICHmgaizf2H4gzhahzghcCHYeaikg3IniagzgxiECEgAhWIiGnhweae4bZf4hoHgI3i3gGh1IvcvczHhh4eACZi5eXglhZewc4GYIYI1d2dmhAC8G7H6GYhEi4i7iAClgngFh7fngDg7ijclcjc7HAI6IAGDbH9mfvhni")
AspCoding.EnCode("je8CTh7iUgZg3Cneng7imfDcxIjhZf4hYc5cYHRrcuHs3QcQnQPRpqBOfuqQBVtreqoHCHxCje3ImhlgFCyiEi5cFCmhFilCzf4i5cje4iHOlioHVc4gagjexi6fACEiBG4HbChCsiFc4HnIlhYfAhFfmhFCaHvCYC8iAf4eFhwfvI2b1IXbYe5e5I1I2bmHac1IEbffng5iZiEhafDfffvf7fEdHibCQhCeRiefqfTHBe9hvfnilgag6fzhYgDf3Ich5f5fZeFi6f5cbC7faiFf3C6e4bnHwHaHkgmgmimH")
AspCoding.EnCode("SiHiYcpGiGAg4iliXd5fkeahyCTHlhZeFC6ingAhyb4gAhng3fEg4ijfXfvgmh3hEgxc4HbeIiWggggixIbgpipCVgghbgreohOe9e2bmHVbCHyg5i3ImhlgEi5cDfyhZeyChciGngAh6evcXejgngYCFCVbWdZeaf7emhhcVcnixCzgzgybjf6gngxi5cniyikfzgAg8eAhhcCHmhxiYeXdxh5iWIgIFCZeAg8ijfxiAgmhaH3hyiyixfaiYfECnH4HdfAgPhjCvfkfAgYcvbTH4HDdjGAI2bWIWdFiAimi")
AspCoding.EnCode("XdIhvixC6f4ihikexiyCxcmHhcgICIXeyikfyCvcXeafxCEC4ihcCHCIlhYfFh2H3hxCkfyCEdxijf8eyhvfzgYhWIhbZejemg3Ilh8fmiWIhb5HTIhcVcVbCHBH5HoHCHbCaivC4bqeli3f7fsfwejhYfmcQgEgUfkhng1fbgzhAfUfpGVcffaivC2HfiZfvCweahOf3fzfngWIVc6fliZiEi8ewekg4iFcACvfaemhFCnHvbpGWdfimgjhxhzgWhXgzfngFc7fYf6gkh5h4g4inH7e4iAgAgaiagzgxcZd")
AspCoding.EnCode("dgnhkgweah9e4ejhYf2bmHzIYcXI2bzIYcYcmHVbiGzC5i1GdgnhaeaijeVgXgvC3CGhZd3G2H8eyh4ixihcWdCI4g5hafjg3IhiviyiFiYfbgagjeahxcmHVbVcXGSdVbVcGgAgmC6eyg8iDf5cjg5hkfYhAiZimf4iTH3dyf3fFfXglhmC7fvf6gli5bHfDfxClexIkhagmCZiliaixCahFc3dWfyiXiwexiwdZi6f8iXIFITGwc6fmCEiweAfACSdhcVcBHZIVbCH5bgHAh3C6fDCxCxi6fZeyb7fngnh")
AspCoding.EnCode("ygAhZeXeEg3I2bafyiZgxhkfxIZiFi7h4HoHCHYfkf4C5czCZhpGVc5HHfoHiGHh1HncaI3I2HzbaIHfWIhbBH5HpGVc6fAinC2HziDfvCzemhkfZfoHgIZIUcoHVcEc8i1G4ejgaiXiyCTHXemhyCDfmh6eSdT9cRWqTqJRmW7VMQXVcrBH3f3IyhAhng5iTH3GziEgEg8iEIyIwc6CDg8hxIFeThneyeyb5fah4H3IliXgAhZg4iliTH2b2enCvi4ezgvh3GUcBoZRJRNsVsbKLsEPBpXPIqgrEcwcYCTI")
AspCoding.EnCode("GgxbAfTIWIVcEc2chcCHngzgYe4bFi8f4hhciG1dBbhcgIGgeC7e6ghijf3iygahmfybhizi3fEi6f3CDfTHmf3gkb8djHAHTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>