book_add.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("BH2chcVcZGyGaIncncmdxHyGzbFOyQOqxoRs79fRUqzbaIzbaIxHaIncxHxHaIzbzbaIncxHyGncaIWIVcXIqRcLLs8RHq4RdPCqSoePJqZpOqjQ7VVrtRDq3IhcVcYHbhzeYCniyeWgEh8esrcPSVZRvOdsyhAC8eAfUGxbwc7i7i6CxIsgThmfwgxInixi5chcCHXIaIyGzbncxHzbncyGmdzbncaIdReMLPHRWrnQU9bRqqYQcqdrncxHncxHmdxHxHxHaIzbmdxHoHgI3ixhzf2HECZelgDhngFCMi6i")
AspCoding.EnCode("7cndlh4iFCFf4iEi2e6iDdhcCHFinglgEe4i7fLC6ikGTHgCECliEinHPgmhlfEhYflhACaHtC3CEiFfZeAhufXgAhyg5h5ezengAgwb4HVitguhQf0gtibifhefqfefqf4Hxdycgdhb7e4i7fFfYf6eNhFf8cHgbg6fFhlgnHPgmhlf8fZeFiDfvctCYfEiFf3C6esh3f7fvfXg3gviYfFixcYcqefePgRibiuC1f9echiCef2bnGxdhcgI5bohYg4bAgYflg6iYf7f0gDhlbGgUc4H3G5ctgxg4izgWIVc")
AspCoding.EnCode("3dCIxhYg1G4baewenhnHlhYflg6ingAh0g6i7cyHSbxGwC4ijevIlhZeEiEenglgLC7CkbxdnGBHGelh4iEi6i3Clg0gDhAH3I3Ilizi4ixioHgIXIhGibtiYflh8ikeyClh4ixIPg3CYeygEiYfniEg4b6fmhEi6iYfEi1f7CAHoHCHXIib3CkfZf3IaiZhoHCH3dfezgnh3IzC5i5chcWdVbVc3dxHncncyGncmdncxH89zVrRwPU9cQ8O0ryGxHmdmdncncxHaIzbxHzbxHzbmdxHmdmdncoHiGhhvfkg")
AspCoding.EnCode("4bVgNhPekeAgEgabOfMifgmhDfzIoiMiohkfyHOf1fifyC5indWh2eNiwfyHOf2enhXfmcVg0gZf4hAgDflgab3fafZeEiDfMizCkf5ijfnd4ekhYf7fDf0gFgEiafmcoiMi8eSe6g4imctCYfXeNhdCjfAhaeECmcQgmh3h0gfhag7fkgMijfAfngahabQg4i5f2eciaglgwizIzgyiLCbgyhngXevhpGiGhhvfjh2Hdg8i6gkhygniZiDfxhkeyCRi4ejgEhZexcDGwIWIWdeC7hDCzevfXe5hliaiyiyC")
AspCoding.EnCode("rgXgkh8fngvI6cycFcYcYHIVFIGo5hxiZfbWxcGoxdbW4iTgngmCGoygxi6f4ilgFhHplh4iviYfniDfSCZfYfafngFh3CHp8f6g3i5hDfYfSCXeagEhzgACUizcUi1dbWniaC7fUiwiwe3iSCwi3fFiEgng6eUiDfFCAije5fYCAC4iUi5fxg5h7fbWZfmhmCafYCFC4i4H1G5bTpfJfqWRJqLPSoHJWIhbIf8i6gkhvf4gZilixhjfkfuf3faflC4iydlbnGFc4HwfDf8e7hSHwcyIDgEf8hxItfBgYhxf")
AspCoding.EnCode("aHXexi4HpcodgHpcgHodhGibgHgHgHCICIpcYHS9Er69APGPDRVrcLtsapFocq6OCQUWNPusD9WIhbch6g7hjgvf4gZiDfvfagahshXgvi8fZexcjIwIFc1IqRcLLs8RHq4RdPCqcPAoHqyQ5WHQCR7r6VTWrRl9rr2Q7WRPqsHLLPtRDWctcrjoFVCR8OkOJqusSoIuDoXWRrrrurwO9RaR5W5p1gzgJixiYc5cYHIRkVTowqVrYQWqGrrPesPqv9WIgIeCle6gvivfniXgFhvfzhxiRi3fvi8f3CnHlHmH")
AspCoding.EnCode("HgDbodgHgHCIpcibgHgHodhGCIibCIodpcpcpcodibpcodgHpcpchGpcod4cFpY9gR7RSoB9OQTOGikG2HusEOB9MrTp1R8WJQRqHusqUO2HDdXdGrlpTowqHQDRGq1R8WKP1GkI3IqqHuurxVUWIQJRIr89aWuQ8pgQyQ2Hkd5cHsjWTomrHQEQQQGtJqaphcgIdgAf7hjgvf4g5hDfvfkexiufZiwC8f4inHkdnGGh4Hnfjflgkg7cHp5iyiEiaelG1IpcpcodgHhGibodgHibhGodpcCIibibCIibCIgH")
AspCoding.EnCode("CIpcYH7p6VOqxWDVarEpnohcgIdg8i6gjgaimCXgFhygkeahte4ekh8fmhnHDIycHgAbCIpcpcgHibhGodpchGCIibhGpchGCICIododibodhGgHhGibpcpcpc3dVRCREW8QiRTRMrprE9U9WQyVDVAPUWX9YpBW6c1GSOTWgrTRsRos1GAI5cpQ8rsReqoHhbfi8iAfvivfmC3fDfvfagahqC3fafFg4iwbDHmHEd3GXgnhkgzCxiwcYcodibpcodgHpcpchGpcodpcgHpcCICIhGpcgHodpchGgHodod4c")
AspCoding.EnCode("U9GQcR7qDpjqEppqpsUpHsDOmcuQHPDWmQRRAqtRSWGPFPRRzVfqUpGrEVVbCHWIVcoiNhifkf2HTH2HeC8iDCkhweni3fDfvfkeahufZijgFgYfwblImHWIhb3fafZeEiDfMilC7fvi2HEd1GchAfAfafyg4gZiDfaiyixite4ejgAi4iydjHnGVbWd3fkhZeFCli0gxhahYgzh3ITH3IfiAfAfjgxh3hXglivfkexirgXgviFgngxcDdwIVbgI9eNh8eSe7hYf4bTH3Ifi6g7hjgaini3fFhwexCxiteXg")
AspCoding.EnCode("khDe4imGkIwIgdWdPh3CXe1fgezhEiwiFiXdHg3IchAf6gjgainiZilivfagzgte5hvi8fmhxc6GxdVbVcQgngmC2eegyi7fwi0gzhAfmhxi5cTH5cIfDCAfafvf4g5hACvfjfzgRi5haf8f3CmGDIvbWIWdxiyiMigCyh4imCxf5cFc1GfiDC8iafai4gXg8eaijfyCRi4eaflC3CxclcmHWIhbRfmh5fNhdCjfFCvC5cTH1GlhAfjgxhEgwbqeZe4g0gfhjfEikglhyH1IUiYcvboHCHOf1fifyC5iXdGh")
AspCoding.EnCode("1GFiAfafvf8ewbOfMipgzgyH2bIV4HwIVbCHoHiGainf5czCkfFiDfFCmGkh5f3f6fngvIFiYfEi6i4i6e2e8g7cycndafXe5hECYfwbjexCMibgyhmh4gvhwImHHg6c2HDfxgmhahWIVcoHiGpcXIpg5i3IPg4i8CFgmhAg8eybgekeAhzfHhHf1IYc3Iuhxg4ixi2HPh8exC8iCezgwhZeni8eygagyCydQh3CAe8fZelhlivccixClgkgvboHgIWIVcpc4cWinf3IPgZe6hAiYflhlizGrCEh4ilgBgtC")
AspCoding.EnCode("8elgaikfXiGgBb4H2b5cPiwf4ikfXdRfDfjf6gohyCyfYf4glixhjfkfydReng6hFg3CFilivcrCEh4iFCUfuili6eaiyCXimHhcgIWIiGpcYHVC5i1Gqf3C8CAi4i6fEgybcfzhjfvhzCYfECFdUc4H3G4bsfxgmhzg4bqe8eag6gohkfjing3hDfygyixiwbqfYflf8fYfECliwdIhkeyixfvfYf7evboHVcngzgZf4bygnfWIhboHCHgeAikfniACvfyikfXd9eNhIfafYflgEgxc3fvi4iEi8e2eygxi")
AspCoding.EnCode("5ixCmHpGhbodffxhaeXdFiEgAhVbgIibAgDflg5cTH2H1IHh2b5IYcRfXeEiyg6gli3I9gZiyCZgEhXgnemhBGoe5hFf5hRf4gEiyg7hEgYc3c4HBb3GgdVchGQgmhze4iXeEg3IgCYClh3C1GOf2eFhH98i4igdgICIibcfXgAg4i5c7chcCHCICIhGlhli7f4bFc1GECFhEi3I5IXd3GDgaikf3iag8haHzh8i4ikf4i7fEdkf8fafjgEbXdEfvfzg3izhEfaHmCzeaglhngydycHiYcgdhbpcodcfZiFi")
AspCoding.EnCode("Ze5cDdhcCHpcCICI7eli7fXdFc1G6fACFC5c3c2H1I5hafmh7fFhydYHZd4dZiafZeAhDf0gxhzgZhkeYG1IogFhDf8iEIxbzHsg7i7iybtfUfmfxfaHmCxiKCahNexidfUfSHcekh3fniwgWg8fFhXImHFI8hvfkfYeyiEfvcxCAf4ikf3C6eGhkf8fafjgFI5cEfaixi3ikeFexInivixC6fZewbxdUH2bpGWdpcCIIh5hAgmh3IlHWIVcgHgHCIlhFhlg5cTH1GFiEglg5c5I3IYcwCag3hXg8exhkeje")
AspCoding.EnCode("ybwfAhYfYgFcXI2b5IZiviYfAh8eLCAi6ejgXb3G4cSG1IWIWdodibgC4e6fZe4bjchcVcodCICIlhDflg3IFc5cFili7f3I5I1G2bZiafmhEi8eyd5bYc5IXgwCZelgli1faizgZhjfXbYc4cmHHiafxC5f3fDfygzhyCaHwflg4iZhTHYHZdYGXgkhngFCliMiAiFCkh3cZdYHHiYcpGVcod4ikf3i3IQgZeviYfmClipGCHodECliEi2HHg4b6fFh7f4b4d2HZdFdYcZH3GxbRf4gAhyg7h8e3G5I1IBb")
AspCoding.EnCode("4HhcgIib7fngFi8izhkf6fYfaHEfFCaiACmh1G5c6fDf7fpGhbefximg3IhfEhzg5fEgxhjfkf1GhcCHhcWdhfAikfmC8exhjfkf2HXgjglinHFiliEinGpGgIpcpcFCYf7e7hxCkflhZewd7ilgxhFhng4b1IBH1I3c4HRf4gAhxh6gli2HVeZizgZgAiXgZg4iEdig5h8g4ePhXe6exhAfFh4H5IYcTI5hjg4iEiDfwbZGZd5cYG3Ilh8eEi1G5I3IZd3dvbGCTG4HYG2bwcuiniFCyg6gFh4H5I1IUcYc")
AspCoding.EnCode("hcVcefzgmg1GfhAikf3hliwexCah5cWIgIgdiGegAikfniEgxhjfah5cuiDfyiAfVCkfyfYf4gFhzCjfkfvI6i5haf8f3C7ewIVbgIodciyiEiXdghZimCwf5coi2edi3Cli2HWizg3IEeZiaflC4i7eoHWdodpcWinf3IDh3fkh8fmhEC2HEdXdtiYfAeEhYfAgFhxIfhke6ekg3Iuhwf4izgVbCHCIpcpcohnf2HRfYf5fLCcixCAhaeMijfAfYfje4bTH5cAI3Isfyhngkf3IVbCHgHhGpcgHui3C5fAi")
AspCoding.EnCode("7fzC8eTh1fhf7fagkgxcFfZiviAiZe7ewIhcVcodgHhGghwC6fmhpGWdpcCIibibQgmhjgYf4gli1fdfXgnhIhxgZi7fmG6iXgjgAingAgycgdgIibCIhGghjeYe4bifZh2HWIVcCIibhgviFiYfVbiGodpchGQgmhze4iXeEg0ghCYCnhgCve3f6ewb6iZivilCngAgvboHgICIpcbixi3i2HpgYgpGhbpcOfmhG98egdhbbizgmgXdgeFgxi5fliygzhkf4bhcVcoHVchflCkf5fDfygzhyC2HRfngvimh")
AspCoding.EnCode("5fDfLCceXgnhbgaCZiEixc7C5hvilCYfFiycpGVcodcijfEi3IVg2eNiwfEd6c1GsfxCXdQimijfFgahZfwbOfNhVCkfXCxdhcCHhGibifYg4bpgah7e8elgvIOhcfZiAgmhnH8gZiviEhYf6fnHOf1fcC4iACvbnGmcOf1fifjeZhnHoi0gLgwfvbwIBHTIAb2Hsfve4ikfhcWdgHpcgHpC2echafYf7fEgvIZiaf4iEili2ewezg5iyixdoHiGibodgHQhZeEC8iagahlhngybhgkfmghcCHgHCIghahmg")
AspCoding.EnCode("5cifmehcgICIoingTgligdgIghzgYe4bgeDeah5fFhvfagxiWIhbWIVcci8fahXeACaikezg4bqe4iXeFglgzCACThLCge7fkejhxc6iZiwCFgnglhmHWIgIpcciyiEi2HVg0gweGh6c2Huhyi1GPCbhyiFgzg4CmGQg4i5fMiegzh7fjhychcCHpcgHFCYf6fAfagahECYfaHDgEixhDfYfXd9e0gehngAChcVcpcodoh5iXdifxiFi8eEiydiicfZiAgngmGoi1fcC4i8emHndtC4ini1fegzh7fjhnHWh")
AspCoding.EnCode("LCvfxdxdFc2HjG4bsfxgmhzg4bqeZejgng3hDfMiIg5hZfbgziZiAhnHFf3faf8f3CFixdVbiGpcOfYfSf8eVbCHbizgmg2HfhFgkf4gFhvfjfje5coHVc1dHfhcCHgdiGHh5HoHCHmgygwi2HniyixijepGgI3iaivC2HXezhyCkflh8eFChcgInhxhkg4bmgXfWIVcZfXfHg2bybxIwcff4eliXg3gZiAgngwcYdYIZbZI5Gmh8e8GDb7HYh7fng7iEgAhngliEiYf8hFekdlc6G8Ilb8GDc6GBgZgjCmC")
AspCoding.EnCode("ah8CSeEfTeYh4iXi4i6CZgkIybzfmg3gYc5c4cRrcuIRXRdPZq9rCQdqILRPcsKqprWIgIxCje3I4i7fEiagAh2HAh4iFi8fwiYfXdkfYfSfEgVbWd5fjfzgxilhDf7fEd3GggbhqgEdYcacFi3CAh6i3C7fvcwi4e8iDCZiDfzivI1I3G3cZfnC3c3G4HxdzdYcHiffngZh3fEhafFhbCvfFCEdHiffReohufhgQhHgUhWewe4glgzh6fyiYgFh2Hdgninimh6f6f2Hff7fzC6i3CAh1GxcwHaHzfYe4hmH")
AspCoding.EnCode("SiFI1IoHhbAgYfEg4b5fjfjexiTHFi3C7f6iYfFCzG3h7fYf3fEgngyiXfji4ini8emG1IfiIioCffceybgC9fWh9eIChitgohVhVg2bwIoHgIainf2HngAhAh3IliwfZexiWIgI4ilglgvcmCjgmhXg6eVbiGZekh6fmhoHgIniagahzgvcyiAfmhjeXdnikezgah7eli6eWIgI3CyCnhXdwenfpGhbEi4iFiDCagzglhYfxI4gyiyikiaiYfAgvI3GbhFiRfvhaijeEC2bycHg1IDdjGAIYcoHVcAgEhXf")
AspCoding.EnCode("4bhivijfFiYfgCjfkfkfvIvbgdCHgH4gyiahkfaHmCzeaglhnggdVcpcFi3CFh5cmCjfxixiBGxixCliwfaizgZgpGVcYfyC3i1G6flCnChcVc5HTIVbCHVbCHHh1doHWdbCaizf1GPhDfXgAhtgxhaeZezIQgFhUfvingNhcfag8iH9VbCHffvfzf2HeC3ivCxhjeoi3fzfYfpGhb6fliXglgDfxhkgYfHgFhvfzfZeEinHycgdCHfiZfvCweahOf3fzfngHgEiYf8iviZiXeZevIFi4iEC6fwezhyCnH2b")
AspCoding.EnCode("be4CwiygahWhXgjhng4HwImc4HYH1Iab2b1IycoHiGaiYg3IfimgkgaiyCVg5hkgZeGh3G3G4bDfyhYfzghcgIib4gZiviaf4bdewCyi7engIhkexijevIwIgdWdYbSdpGCHTGlhniEiaiDCEg3Ikh3fzgZgAiZiXi4iTHXIvg4eDhZi6f3hEiweDCFh4cTIEgxClexIvijfniXgFhvfzhxiFcYHiijf5CvfkfaHXglhDCYHUHGgwclh5f7fzCleEgBbWIWdEc2chcWd5bpcFCYfFi8ikexiEC4iaHEingmg")