book_re.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("Fd2cpGgI5byGncyGaIaImdmdzbFOxPWQxoVq79prFrmdaIaIzbxHaIaIncncncncxHaIaIyGzbncxHVbVcZGVsbKMr8RGR1sdPiRD9fQur5VOqjQ6WVrJrFQ5coHWdYHdfafXg3hjC9f8fEgsrbqEpmQvOGPxgFhEgDCGiwcwc6C8h7iwdtfH9XiyevcmCxi2HhcgIXIyGncxHmdncyGxHmdmdncncxHdRGKMQGqPQZqSOcQWsvsB9GQyGzbxHaIzbaIzbyGyGaIaIzboHVcmgxhzf3IFi4iAhFfYf7f1fFf")
AspCoding.EnCode("6dmcECmh6e6iYf7f1fEekboHVcAgng7fDhng7f0gDhjHTHdeFiDfEiydqf4ilflCZelhDfaHRfnglg6iYfEiRiZi6eweXgmivi3C6fmG2bWCsfuhPeLCtihgfhghPgghPg4HwIycoHCHAgmhAh8g4i7f2e6ijIHghiAgEgEiydPgmh7gDemh7e8eybRfmh7f8g4ilgshXgEiai3f4hze3CFimG1IPhfetitehgPgLCpCchiCfe4HnGvbhcVc4cVCYg3IlhYflg8g4iEiMi6ijHGgTI3G2b5csfyh4ijegdhb")
AspCoding.EnCode("4cCIygXC1G3Iwivf3ivIlhYfAh6i4i7fMiFf6dyHFHyHjgmhyCnH6fngEiDhYf7fLCEejIvbwIFdUcFi4iFCDh4iFC1f6i8c1G5cACziYfxiWIgIZGpcgHuC4i7eAfxCyCFi4iaHPgmhZfxh7fmhmCDfXdEC4i7fEemh7f0gDhjIVbiGZGCIngahZf5cygZhoHgI4cbiahZf2Hvfnf2HgdVcgdhbZGncxHxHxHyGzbxHncEVzVuQxq6VcQFV5qxHxHyGncxHncmdxHncxHmdyGzbxHxHxHaIaIhcCHIiaiwi")
AspCoding.EnCode("1G9e0griyiECDfxGWhLCgfmh8endoi0gohahzIWh0gifzg5iyHOf0gMhyhzIoi1fYemizIVgMimg3gFiAClgabXgzemh6e8eNhvfahnfagmcXgkhngEili1fEh6ewCmc9e0gFhSe8iZezIQg3CmCNhdCke7faelhmcui4imC0gegzh7fkg0gyi8i4ixiyHQgngXeNhcijfAhwixGyCzhMibgxg3CXewghcCHIiygjh2Hch8i8iafai5fYCDfvfjfzgshYCaf8fngxc6bmHoHWdbe6g7hjgzCniZilizCzhxi")
AspCoding.EnCode("qC3fviAiZexc7dycTHYcXIIVSGUi3fyC3iGonHSCxdUi4iSfng3hHpxhkflh3C7fACSCFiYfzemh5fEgbWmgmhzeZeEgngbW8f8img5hDfngUinizh8fkfDfHpwHSC2cSC3hveEiHpzfvfYebWzfZiAgEgYfAhIVDflgEhkf5f4eliYfUimCwfZi7fSCYemh5faf3flgngYc2H4cbrHLgPOPKRtrD9eMoHiGchDCAfkhwemCZiEgxhzhzgshXgafFg4inHjHwIGh2bxgliDfleGiyIyI7iDgDgvcRCBgYhwg")
AspCoding.EnCode("zG3hje3GibgHibgHCIpcCIibCIpcpcgHibhG3dS9TPUV6qGPBrPPIJKRAO6Ocq6OiPEpNPKqD9hcVceC6g6gkhvf4gXgliaiyixiufXgjgDemhxcAHvbFc3GVsbKMr8RGR1sdPiRGrlpIrvR5WHQiq7rU9GQLrapss2QDpqQVReKussQ7peJcrAWUpoQ8OxoKRKqFVeMS9v9RrssJqv9QsjQw9n9NexiKCxi4H5cXIIRAoIryQWswr9PdQKsesOrv9oHgIchAf7hafxhmC3fACzCyikfte5hafFgmhvIjbnG")
AspCoding.EnCode("BG8ICIibgHpcCIibgHCIpcpcibgHgHgHgHgHodpcodibhGpcgHgHgHhGibYH69mVgRlQEWdROQdRFbjH2HLPF9IQMrIs0QF9JQVsGtsq8p2HAH3IIRa9BpmrcrBrBoNPDVsr5c8d2HPPbKtsapUWbPusIrEVaWsq7VeqvR2H8I5cdQlpGRwqBWDRVrHuMPl9WIgIfi6g6gvizC4g5hEgwezhjete5hafEhYfvIjcwIGh1I5iyi7fjhkGSC5ikelgjhlGYchGCICIododibodhGgHhGibpcpcpcodCICIibgH")
AspCoding.EnCode("CICI4cE9U9PrzpDV7RFovWhcCHch8ilewCxhniXgEgzCkezgRi3fviFgmhnH8bycFckHpcgHodgHgHgHCIibodgHgHCIpcibgHgHodhGCIibCIodpcpcpcodib4cqsoQD9SroP8rLspr7pU99RyV7oarEp5Ow9GPkHXdSOdrgrSQsReq2Hlb2HCqDstQosgdVcIfle7hafyg3hXgFhwekezgrg5hafAingwbDHwIFcYc5hZfzfvfkfzHZdpcodibhGpcgHgHgHhGibgHpcCICIgHibCIgHCIibgHgHhGpcYH")
AspCoding.EnCode("U9csbQzrDplsFopqhQUpdQEVzILrGQE9yrVr6PrPUVcrBrWsypgPEWHsSpVbiGgdVcVgNhohzg4bHg2Hdg8iAfafyg3h5hEgaijfjeRiXgjgAingvI6cxdWIhbXgzemh6e8eNh8fAhaf3IFc3Ich6g8ivivf3h4eACaikezgsh4eviDengvI6dxdVbWd4eafZeAhliMiaiyCYgag4bTH3Idg8i8iviai5fXgEgwezhxiuf5hviDe3Cwb8cwIWIWd9e0gliUf8ing4bTH4bfi8iAfvivfmC3fDfvfagahqC3f")
AspCoding.EnCode("afFg4iwblHmHgdiGQgmh4gLCciyiEivClh5cEd2Hfi8ilevizCni3fliygagjeRi3fwCAiZenHkdxdhcVcRfng3h1ffhjfAhvC1fxCDC4ikf1GGh2Hdg7h6gkhweXeXgEgxhjfxirg5hafFg4ixc8bmHoHCHkfjfLChiaCmhXeki2HTH2Hbe7hAfviyg4g3fFhygjfzgsh3fafDe4inHlcxdoHVcRf3CXeNhhfjf7fkg3IFc2HFi8iviwe8evIui4imC1fgezhFCzflhxGZdUi1IvbVbgIWh0gifzg5i2HTH")
AspCoding.EnCode("3Ilh7hjgaiDfmGoi0gpgxizI1IUiZdwIVbgIpGhbweme4bvfah6fEgEivIkh4gZiFiYfwb7e3CEiEengAh2e6ikGwIzIwCmC5hECZenHjezhMihizi3C4gwgvbmHHglI5clizi4ikfWIgIpGhbpcYHoh5i1GuCmhDiFgngEC8exIcijfEikgHhHf2bYc5csfziYfyC2HRfDfag7hVCkfyfngniFhvfjfyCmGPgmh7glC4iFiliwdfhyiFCzfychciGhcWdpcYHWiYg3IRe4ilflC4i7eDfwdrCAi4i7fBgPh")
AspCoding.EnCode("DfAhvfah5CBHSdZdYc2HreyhYfzg4bQgFhkelepgzgwhYfniEgxhjfzgxctimhlf8fYf6fDfwdsilCmh6eH9RfDf7fweahmfycWIgIoHhbCIYHpgZh2HqfZeDi8f4iECDfvccfxCkevhvfYf6fGgTIYc4H5cPiziZeje3IuilixCAfCeahkCYf3h8ezCyizgwbQhng6hFgYfAgliaHcfagzhvhyg4i6fnGhcgIngximg3IaiXCWIhbWIiGfhDeje3hDfxhjfzg5cVgNhdgvi4i7fFhmGYCviZelgFh2eaije")
AspCoding.EnCode("Ygagxdgdhbodeevfae4bFiliEigdgICIlhDflg3IFc5cYcEc4H5I1Iqe3hEivf7hli1GCC5hxiZgFgYCnengFcpfZi8g5hRf3hEiaiAfli4H4d4HHf4HWIhbodRfYfjg4i3hDf2HgC4eAgmh3IpCMiliH9DCmhhcWdgHpchi4eFi3C5cjHhcgICIhGpc6fACEi1GTHXdECliEi2H5I4b4H8hvfah4Cjf6CwdyiAfZeahYflgGhzgEhzezeFI3I8hvfximgzhEfxInivizh6fYfnHmHUHZdhcWdibhGhi3f6f")
AspCoding.EnCode("Yf1GkboHVcCICIgHlhEg7f3IGh2H6f8eEi2H3cXd4HZiaf3C6eFhnHYH4H5IXgviYfEiliMiwejeYgyi3cZdCf8eFhDCSHxbaGRC7iDgybrhBgYhwgaH4gxi0fkf1gahbhBgGidfzeZi4gwgpiFgEg4cxdFI8hygjenhkeFeybjf7hYfzg4ilgGhzgAiviafEb1G6CaijemgzhFevcXejgagEC3CwbxdSG4HpGhbpcpchiYCAgng4blHWIgIpcpcpcFiDflg3IBG4bFiDfAh5cYGXd2bviag4gYC8eygyikf")
AspCoding.EnCode("vcxgAhYfZhFc4c4H3c3fwCYf7fDf0gEhFCafZH1I4cEb4HoHWdhGCIIhXgEC4i5cjcgdhbpcodgHFili6e5cEd5c6flilg3IYG5c4HYCviZe7fACyd4cYcZHXgkhYfAhDfNhzCkfXCxC3c4HZGvbUHjgzh4g5h8eweagzgybwfEingZhTHXIYc3c5hafYf7fDf1flCEiwCXb3G4cUH4HoHiGibYfximg3IRfmhjgYf4gFhoHCHhGFiDfEiXdTH5c6fAC6e4bZH2H4HGg1I3c4Hwcuini6ewe6gliYc4d4HGe")
AspCoding.EnCode("2bgdCHib6e3CFi6gzhahAgmhxIEflgaiDfYf3I4blhEgEioHiGbizgmg5cegFgximCEgxhagje4bpGiGVbCHfh8fzgniEgxhagxi5c3fkh8eydFi8elgvbpGVchGCIlg3CEC7hxCje6fZeyb7iEiaiACng3I2bBH1I5IYcuiniEivf6gEg1GOhZikfYhAi4e5CmhFcigXg7C4eQgni7fai6gFh4HXbYcUc3fviYfFCDfnHYH1I4b4d2H6fEgEi4bZH2HZdZGwIEbGgZd3cYcwctC3hEizCAfliYcYGYcSdYc")
AspCoding.EnCode("oHVchgzgYe5chflCxiXeDfzCxCxi5coHgIVbCHfh8fahmCDfzCxCxi2HqeFhjf6gohzgwhZeXeEgygzhkfxc8g5hafFg4iFivboHCHgHhfjfFC5cIC5hXezi2HOf1fhemhDf5cpgzg2HDhXgafFgmh6foHiGpcgHWiXC2H6i3fwCDemh6f2HTH3IPg4ilfAi4iFi8ezGegyiEivC2Hreyh3CkfVbiGodpcCIohZh3IPhng5f0gcijf7fkgNhzh6g4ikf1GFc3IAI5ctgxg4iyC3IVbgIhGibhGhGPhYf3h8f")
AspCoding.EnCode("lgaiEgTh0gciEijfjhmG7CZizeFgmh7eycpGgICIododghwC7eYfpGhbpcpcpcodQgngkhYf4gEgMigiZi3icfxgXg6ewb6i3fkhAiZeECvbhcgICIodhGhgxiZf5cpgZh2HVbVcpcgHbiafECYfoHCHCIibodRfYfjg4i3hDf1fhC4emgIhxgYCEixc6iYCkhAi3C6fychciGpcodbikf3i3IpgmehcCHodoiZeSfACgdVcbikfmg4bhfEhkf3hACvfxCyC5coHiGVbCHegEhzg3h8eweagzg4bRf4ijgmh")
AspCoding.EnCode("5fEgMigi5hZfcfwf3f7fyd6iYCkhDe4i6fmHoHiGibhfyilg3IOfNhLgwfHgAb2Hsfke5crfmixC8fxiZfyd9eNhifkfnfwIWIVcgHpcWi5i1GCezgFiliFCnHVeIhYC6fmhmG7CZijgEhmhAgwbVg1ffg4iDfmHwIabWh0gWikfmexcVg0gNixgwIycFdTIAb3IreyhZejeVbCHibgHCIoi0gchjg4iEiDfwb4ewC4i6eEgNhweximeagwIgdWdibodhGqfZelh8iyixiECngxIghkfmgWIVcpcpcbikfmg")
AspCoding.EnCode("3ICeZhhcCHiboiZeHOFhhcgIhgyCYe3Ici8fxi4gFhvfzhxihcCHhcCHdC8fkf5fEgxhxCkf2HQg4i3h8f7fzC8eBgNhegFCyiwixc7C5hvilCYfFiycpGVcodcijfEi3IVg2eaiTH7d5crejfXdPCgiyi8fzgnhnHPhYf3hLChfxCFCwimHpGhbgHCIAhnglhlekezgAgmhaH7ilgxhDfng5coiNhgfYfDfoHCHodpcVCZh1GWikf6fDf6ewbWfhiXgAgYfwbVg1ffgmhDfmHxGuiYfniLChfyi7fvCmGWh")
AspCoding.EnCode("1fvfmHwIHg5ckH5cPiziZeje3Iui4iwCYfXeFhLCdf5hYegCziXgAhwb8g5hjg8fngFimHoHgIibWhngG9DfpGVchgzg3i3IegAiyC4gFhygkeah1GpGhb5HBboHgIhcgIHhZIhcVcZfxhaeXdnikezgahpGVcYeygkgXdmCzhyCje6f8eAhhcVc3izCkg3InhXfWIgI3imiFcYcaHxIyIee5hli3f4hZi7e3CxbZcYIYI1d5GngliDHjc8IYh7fmh7ili7f4iDfFCYfEfEf8I7bkd7HjH6IDcDbUfmfjCXe")
AspCoding.EnCode("zg6hBg6CI9Xi4i5Cmh7i5ClHvcwiYemiZd5cYHRrfJIR4PHrnQOserIPfuOscstrproHgIzhkf4bYfAhFCjfFCXdEiYf7eEhzfng4bzgmhUe8eWIgI3hjfxizglhDflgFcYchhdfPfTH4HvHEC4iFCDhZeEiaHzf3fle7h3flixgvI4H2b5IZf3gXb4H4HnGac4HHibCYf5i3flCzeFhffvf7fHgFIIiqfWiRibiReBGSgCiaimC7fkelhxCnfFh1GeCni4gmhlhAg4bgg7fyg6iYf7f3IwbnbxIwiZf5eyc")
AspCoding.EnCode("bVFIYcWIgIFi3CEg4b4gkeahjeBGlhYfAhFfngEixI3hlg4iZiDfmhkenCjiZe4gFhmGYcbeggWgbChCybgCOeOf9eghhiPiWioCVg1IvboHgIyg5i5c4iEi7f3IEgvemhxioHhb4i6eFCybnijgngYC6eWIVcYfviAgmhoHhbniyikfxiaHxCAfYfkf3I3hxCkfkfAgliAhoHCH3Cjemg4bygXChcVcEi3Clh8ixCkfFi4izGnixCyixfaingAgmGYcdfECuiyevfyCECYcycTH1IkbkHlb4HVbWd6flCnC")
AspCoding.EnCode("5ccfzezh6fngIhagahjemGwIWIhbgHniagahkfxInivizh6fYfoHCHgHEC4iAC4bXeyikfkfTHjezhDfziygzgmfVbgIYfzgnh2H6fDemioHVc1dHfhcCHgdiGHh5HoHCHggygwi2HuiliZi6ereygwi4indRf8eThwCYfNhdexC8iBgVbhbggxhkg2Hdg3izfvfzgWh5hkg4ioHiGFiEgXgEiEgygwi3CHgFhygaemh6emGvboHhbIfmgwiygahVgZiwiYfGh6e3C8izeXg3hZexc7engAgECzCzhyCmG4H")
AspCoding.EnCode("benhwiaixipCXgkgmh4HwIzIYc4cYcmc4H1IwIpGhbainf4bfiYevCxhxiVgXgvCZeHgYc4H5cEgyhYfahhcVcgHni3fwCaf2HcfjgzhECYfcfagxiahnHmHgdiGZIBbWIWdEcFiniFCxh8iAC2HviZijeXilCZimf4iHgXIxeZiFfYCFiXe7fzCDCli4cHfEgzhAfybafzhmC3fACzCyikfBG5bWfagYhygahzG4eAg6g5bUHEcyIlh5flgai8iFhHfoHCHBH5HgdVc3dib6e4i6fAfjfjelhYfvclgngZf")