head.asp

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

<%

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

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("EcYbWIVcXIGhFcHgFcGhGhTHFcFcFcBGBGHgFcHgHgHgGhGhEdHgHgGhFcGhTHGhFcTHGhGhHgEdTHTHBGTHEdFcEdHgFcFcBGTHTHBGHgFcGhHgEdBGHgEdBGHgVbWdYHgdhbYH7WHKpQD9gQfLUOiRvOHQQPIJsRTrBp3qIqiR4bIszpVqIRwboPTssqUWmHRqbKsrbqTp5RgR7RPq6OQP8pw9xoIP8R7ViRXVcrueGOYhxfxInikfXVzWVbCHXIFOnsOqaWRsbJMrtRvOHQqiUfZgwgvc4gxiVbVc4cS9")
AspCoding.EnCode("WstRDqtrgrtsSRYpcrbrYqKq4PPQdMrq8RGR4RIqpQWIhb4cbgag7hBgAhygXixgACXdkblI7cAbaIkb6ckbAb3IsgH95Cxfvc5fxi2Hzb5cchkhjg5cQhvfXiveDf7e2HQhmh7eZe7f6ing4CaHhcWdXIWICH4cFcFcFcFcGhHgGhTHGhHgFcFcFcGhTHFcHgBGEdFcTHEdFcBGTHFcFcGhHgFcHgGhFcHgFcGhGhTHFcFcFcBGBGHgFcHgHgHgGhGhEdHgHgGhFcGhoHhb2cHfVbhbGgWCsfVfVeHfFdVi")
AspCoding.EnCode("ICdgIiUcTGsfifre9gbiBbZVRsTGZIEdceAgIhxCzfDC5hkfThWh3fwiYf2cSdZVRsBHaGtgpgPiWfghBbWIhbFdVfghtgch1GaCFhFhAfzbmhDiEhvf8gHgbgzhyC8eYfxi8eyGtgBg6gng5cXexCahDfngxiDfHg2bFhYfTgACvdyhFhvCjgHi3ImCwfZi7fAgngliHgXi4h8cDc7cDd1IBbhcVcFdkgYfliZi4bah4ezf3CGh1IdgFgFhwfagAhYc3I4gzhzgFhngxiEgEdZd9hBgFiShDg2bUcVbhbGg")
AspCoding.EnCode("kg4iAC3f5ckfZizfmhFc2bihngH98hjfEiYe6f3G2H3hzhje8eYfxiEgEd4HqiGOZgwgaHnixi5cbrA9VqIRwbpQ8qrR79ycWrbKJQGrHR3PCsarRQ6OWrDo4HUchchbGgwingFhZi3Ixi5hjhYfFcYcIiZe7e4gEiyg6gEgxhzhyC1I3I3hyiahDfmhxiDfGh2bsgGOmfxfzG5fyC5cIsyVqrGrmGpQEQtPSVycRqIJrscPHR0seP7RPq6OPQUO2bHfVbhbBHCiefPieC3IaCDf8e6gaI4ilfEhxh8gGhsC")
AspCoding.EnCode("7f5hZgjh4eXd3hzhkfFhmhxiFhTHzgagaI3hYCXewf4ixGaeFgAgEgaIEiZe7C5hafyg3i3fEgmhBboHgIFdiCghuheC3IziEgACAfncYf7gFgai8gFcIhZinizi3CaIIhyixiAClgjfvi5c3hzhjeDf3CahEgHgzgzhxH4g5hnixgngBbWIhbGgCihgQCeC4bxgliFh6gzb4i6hEhyg8gFcICSf8ivfEiYflh5c3hzhzglimhkfliBG4HkGEHUbUbyGjGjHnclI6d2H6c7dEIlIkHGi6c6cYcUcVbgIHhVf")
AspCoding.EnCode("ghtgfi5cziFhDf8iaIZe8CAivf7CFcVe3fFilizbOgyimgxh5iyg4inh4b5fyixiliZejeEgFc1IAISIUbUbmdlIAIzb6clb2HAb6cSHAbAbEI7dkH4HGeoHWdEcwCygxiki1Gwf7fZeYgFc2bxIwdaGQgjCwezgxbFd5HEdQhYf6hEhYfFiDfvcgCagxCxfwengAgxc4HbhlhQgvhzCkflh1IvbXGSdxbPhDfThkh4iyb5fAgAg1I4bFCZeafFc3G7eEgBgjgngFive3CmhDf1I5cDfBg7hmhTH1IAC3CBh")
AspCoding.EnCode("Fhvd4gFiAgZdHfhcCHGgAgliBgvimh5cliH9DCngGhYcli3CTgDfwcnilhlh3GHfgdhbGg4IaIzboHgIybwingzgEhygFhngwiAgXdIOVbgIpcqhdghhIiohWhfgaItiVCgfVisfGi2Hlb8iBhEbWIVcibQffieeffCeOfehzbreOeQfGi3I6dAfG9GCWIgIgHrifiIiIiWiWhfgzbWfghegPiGi5clbAfG9FIpGWdpcQfeCIieeifoidizbIgpitguhpiOgGi4blbAfG9HihciGhGOgfiPgfgpgWhFbXdjI")
AspCoding.EnCode("6gBhHiVbCHib5ijfahFhaIECvfBfZeSHTd8iACFIhcVchGafvfjengncyhngzCnexgACUGAIDbDCDfGCVbCHIWVbCHvczf4iyCFgECxfwezg3Ib9oHhbibIgVhuCffghPgzbReVCehphsfFb4bZcAbIfjISISIUbXdkGAfG91G7eagjgygmg5cSGgdhbgHIgpiqfggghQhxHtgoCsCFb4bYdlIfijITdEHBc2HAI6gG93IFizhviai3iGCWIhbpcgioCPgffbitizbOhfehfQCFb3I2IlIchAHSIUbBc3IAI")
AspCoding.EnCode("7hTg4bAgyijgzC4CEbWIVcibIgVhtihhghPgaIgioCsfPi9fCiSH4bZcAbchjIBcUbEH5ckGAfUe2HlhzhzeweZfHiWIWdgHgieCbgCggftipiQioiIizbpg9hIfehhgGi5cAiAhafxcxIzGvdWizf5CwcaeYfxiAi4hZgvcZgxh5iwIHiVbhbgHripiuiCerepgpiVgEI3I5h4hECagjgEhlimhUHVbVcgHshohQgVCdfifVeifQC0iHC3IziaiYeZfYfjeFIhchbbVgdiG2IvCkeFglh3Cjf7Cmh7flhFh")
AspCoding.EnCode("UfviYf5cIOWIWdgHPedgggIiifWhehaIQhVCgfphtgFb1G7d7hBhUHVbhbpcqhIfggggpgWhcCyGWfbigereEI3IlI6gG9SGgdhbgHRgfiffggohWhgfaIhCoCuhuhoCOgGi3I7dAfG9UHWIgIpcRgfihhIiWioicCaIuhpiriHC3IkH8iG9EbVbiGgHhCVhPggghgQhxHPgohdiogtgFb3I1blIgilI7dBdbh3I7c7hTg4bFizhkhygmgHigdCHpcdfpiqfhhbiQhzbtgpiqhSH5c4GkHcekHAbSbce1GjH")
AspCoding.EnCode("8iTgXd6fyiwCygmgUHhcVcpcgipiQhggghqfzb9gbiciPiFb2HZclIce7d6cFHhC5ckGAfG95clhagviygnhHiWIVcibbh9ftiIibiReyGIgpitgtgWg9hFbXd2IlIbh6cAbFHbh5cjH7hBh3IECjfafweZfGChcWdCIgifideofgfReWgQiWhggmddeWgCCOePgFbXd3HdCfhefghIhAH5coHVcUCWIWdaHaengzgAi6fvhxhzg4beC2HUhRgcheebCohWhgfzbQhWiehCftgEIAIAbDCUeUHribeeeggpg")
AspCoding.EnCode("VgfgncVeICfhsfEIDckH6gBhEbGpWIWdmdzbBbgdgIEcyIECDfH9afngTIhcgIEcPhhitiWisCtg4biifipCfgrffidighGh3GpfYCDhXgQg4gAhvf6gFhYc3IAgAh4gGh1IvcxIvdOClhyIgilhtgzh8iOhzhZgagvckC6fYcHfEczHPhhiQhohRgPiBboHVcTGRfdeqfohqhre1GWffiVgcCrfficChgHg4H9iZi6iZiui3hlgxhAfFh1I5cFiEi3hTHYcxIzGvdji6fvdgi7esfyi8i9hngxiFgybjiAg")
AspCoding.EnCode("YcBbHhzHuihitiCePetgUcWIgIGgPhIhuCpgRguh5cOhIfWhdirfchehhgEd4Hpf4eFfYCuimClgai8i8e4H2H7elgniGh1IwdzGyIkC7eyIbhEChfxCzhDf9hmhkfAiaHjiEC1ISdBHaGQgbgtiifqhuhTIVbWdBHxbogghbebCBbVbCHVbhbEc3bxHaI3gagnhGO1Gaf4ime8eOgXglgZgaijeEd2bkH1I5cDfag7h9h3flg5CzCahGhZdlIYc3IvC3fEimfygzgzingaiYhziliFcZdlI2b5cwiYClgmf")
AspCoding.EnCode("aixi8hxhYeDfaCGh1IlI1I4bjfzg3hyizgEgmhTgFhkg4izglCEd2blg4iFhFgAhxi4bZhXgjgFi3C4H5cjfxiRfmhvimh3hEguiFh3fEi8eTH3G7fmhFhDe6ekf5cYgYCafFi3C1IaIxHUchcVcEcmizhmgTh2Hkhng5iliCi5h7fXiygjeEdYckHZd5c8ejf8iCi5hlgXiygahFc1I6c2b4bzfZiEiXiwejexg4iygZgxgFhGhZdlI1I4bwi5h7fYhaikf8hxhmgACwfTH3GkHZdUcgdgIEc3iweFf2Hwe")
AspCoding.EnCode("mgFcjhngyCDeggzCEe3IlhACUfwCmhTH5bKhxHWiOfIiICLgHC2HlGFI3IRiifPhohIgohCCifuhMgFb1GaCxhnhZfmhahHi4btfpgggtgphHC1GjH8iUeSG3IRgWgQgWireVCVhOfEI5c3f3glhzhafFgAC3CEb4bWChgWifgWCsfGi2HAI6gG9FI5cbhfihiOicCPgVhQioibCaIcfpiiiVhQhUG2HYdUb4g4gDIZhFHXIBbEcyImgxh8gBbWIVcGg1dgdhbXIFcGhHgGhFcGhGhHgHgFcEdTHFcTHFcTH")
AspCoding.EnCode("GhFcGhGhHgFcGhTHFcBGTHBGTHGhGhBGBGTHFcHgEdTHFcEdHgHgTHFcFcFcFcFcGhHgGhTHGhHgFcFcFcVbCH4cWIiG3dU9buhsD9hPIuS9gr5WTVWrIJrqTrGR2rIqCq2HbrA9qrcPmGiRBrrRSVwIRqbKrsIRHRXqir6qRQUWWr8p5WaWcRBs8ppQZoHQRCH95CwgvcnijeYpxppGgI4cDWvRQsxoWRcMuPtR5WdstfGOYhxfyb3hkfhcCH4cUORRKsFQLPiRKRFrYpBWGqZRKqNsPQbKsRDqTo1sIqCq")
AspCoding.EnCode("oHhb5bhizhAfBglgygYhaC8e2H8cjGkGlIaIjIlI8cjGXdrhUfZgkiaH4gah4bxH3IeCwCkh4buCygXixgAC6f5cqfngAg4ilg6imh3ivchcWdXIVbVc4cEdHgTHFcFcGhGhBGTHEdGhHgHgHgGhTHHgGhFcHgHgGhHgGhHgFcHgEdEdGhHgFcGhHgGhFcGhGhHgHgFcEdTHFcTHFcTHGhFcGhGhHgFcGhTHFcpGCHXGHfVbhbTGXGoHVcQglCXf5chCAgtgjf8iiiyiXiaiahAIwbmHVbgI2cUchchbBHIi")
AspCoding.EnCode("pgteXdZiafzCXijeTHYcnimhzglingAhYcTIhchbHhsffigiiife1G4g4ijgjgRg5hnh4CygzgYhFcAb2H3h4iafkhPh6gYC5fvfjemfEd6cXd4gviZi7e6fTHZGtgyi7h9gxCneygyCZGTIVbWdgHFduhqfBb4boHVcgHpcFdtgbC2HXejgXgFi6fGh5btgzhDCWfzhZgxhjeLCuhnhYHBbVbVcibgHCIGgtgchhCVeef5cXeZejgjgRgXg3iYezCahmfHg6c2H4gmhkhafQgDCYC3hxhyCZgFclIXd3fvi")
AspCoding.EnCode("vfZgzgFcXInimhxili4iFCXI4bniviYCAg6fFc4cuhzhleWfxCYhygzgXIBboHgIibpcCICIHhtgQhTI5cWIWdodibCIpcibGguhIi4b3hjgXgFiECTH4csfyiAfOhyiYhxhzgMiuhZf7cZGHfTGif9heh1G7e7fniHg3daHvcvdygkgmfwc7cG97cMi7hygBhaHYhyg5i4c5c8hvf3iEgveEdDc2HaC4iwemfziliGhAIUcGgxbPiggUcVbhbgHpcpcpchGTGtgIi3I4gjg5hlhECHgXIuhyi7hWfzhXivf")
AspCoding.EnCode("ahNhtg4CAHYHGeoHWdpcodCIpcpchGBHsfbeIgiigh3InCkelg4CZelgGh7d2HYCkhvfYhahTHYcaf4iXCEgZd2HXengjgviQf5hnhmgxhyCmfGhlI4bXe3CkhkhRf7h5hnixhkfZgHglIBbgdiGgHpchGhGCICICIGgPiReSd4boHgIpcgHCIibibgHCIXdFduhhhXdXgviyg5CkfFc4H4gngxiEg4iAhYcUchcWdCIibpcpcodCIgHpcpcHhFh4eXfwCmh3I4gngkhaf6g5h3imgygahZgGh1I6c1IXdmC")
AspCoding.EnCode("mhjgvilh6g5hnixhahZgHgYc7d4H5c3fvivfYhxiGh2b4g4iahDf4i6e4H1G5fkh5h7e7eTH4ctgxCAfiixCZgygkf7c4cUchcVcibCIibgHibCIpcpcpcibBHlilgGeXdhcCHodpchGgHpcpcibCIpcCIibEcEg3i4byhYfaiXizi8eBGjIkcTIGgZI4b3hYCjgjg4buiyhjf8hQi6fmhAh9gxCmfvfjesfydycXdZIUcEcaGDfZfGeWIVcibCIodhGCIodhGCIibodBHvdFh7fBbVbCHpcgHpcodCIodgH")
AspCoding.EnCode("hGCIGgwcDf5h4hjgmhSdoHhbCIibhGodibibgH4bHhwcuhffTIWIgIibodhGgHpchGhGGgtgPgTI5cpGWdibgHCIpcgHCIHhxbsfdghCCCghBbgdgIpcCIodgHpcBHyItgIiTIhchbpcpcpcodCIHhPiIiXd4gafZiFilhGhZGsfxC7h9gagZgxhkf0guh3ikIXIBbGgohOgdi3IECFC3hHg4cybxIxbaijhYhyIAIG96d1f8ivfG9aHYhaiZh5b3I7ixhZfliveTHAG2HyhmhwenewfliHg6dHfEcvdtggg")
AspCoding.EnCode("HfhcVcpcpcpcibCIHhsfhh3IniviZilh6fFcXIrexC8iWfxCXiwekfMiPinh8I4cTIVbVcCIpcibibgHpcEcPibece9gbi3I4gngkhkhsCXgmgnhaiahmfGh6c2H3hmhjgwCRfAf4e5fzCxi5CHg6c5c5ejf7fYengEiGhlIXd4ejgzCnezgGhZd7fzCYhwfFh2bHfhcCHpcodCIodgHhGCIGgPiqfBb4bWIhbodgHibCIibhGod4bHhsfhh4bzimhvfZgxgEgGh6djG2HnikezeQg6gXgzgFcFGSd4bBHyI")
AspCoding.EnCode("PiffTI4bVbCHCIododibibodCIEctguCHf5coHgICIpcCIpcibpcpcEcQCPgBb5chcWdCIgHpcpcibibhG2HFduhggTI3IHhzHtghhUcWIgIibCIibCIpcCIodXdHhtgIiBbGg5h5cyhAhngYgFcZdwfliDf8iSHxbwcHhYbHggilhtf4i5eVf4evfkhYbGe3G2HliXgFCmf4iACHg1I1fmiviZixiki2bTIGqzpVqIRMrRrGrKqBHwcXgGeFdwcsfbCUcpGCHpcpcibCIpcCIib5cGgPihh4b3fviaiXije")
AspCoding.EnCode("BG1IningzgEgmhAhZdTIaVnWEcxbsfhhUcoHhbibCIodgHgHhGgHXdEcQCggUcEc4e2Hwf6eng5iGh1IgCkeRgFCkeYgxhwCYfwd5h6f7hTbIfniDfaixCzgEdcfkezgEgZi5fFh2bTIgqAORQUWPRsqhPgsHhxb3fBbHhwcuhffTIWIgIibodhGgHpchGhG3IGgtggg5c4ewCxhmfzgFc4H4gmhahDfngFCZdBbzWZOGgwctgbCHfhcCHCICIpcCIpcibpc5cEcQCggBbEcZiXdagkfnivixh3hyeTHZd8h")
AspCoding.EnCode("ygzgmgzhEfxImhG9EgngAhzg5hjgvcXg4C4CfhXg6izhlgxhlimhwbXIxgliACAfGizHwcBHYbFcbhlhsg4i4h5HUcaGYHxGYHHhYbBGce6fhiagvCAfZiyCBgVg3fwi4i2cUc4cvbFIAhYfFhFgEixi5cZh3fviAgZeGCYc2HaCEiZenfFcYcyhEgli6gFbwcyIEcYbGhdfFiqi4i5eXGTIwc1I3IEg5hAh5CngEgGhYcjh3fxhxihfAh5hkg3C4HHf9PJQSO3rEOIRsrGrTGzH3fGeGgwcuhggSdpGgIod")
AspCoding.EnCode("hGCIibodgHod4bBHuhhh2HZiafai5CzgEd4HXengzgliYfAh2bTIzWZOBHxbtghhGegdhbibgHibibpcibgH3IGgtghhSdTG3f5cve6engYgHg1IvczGvdghkfZgvivfAgyhxbvfzg4C3CBhybYCAg8i1ISdefximfjgygFixgEcxbZiUcEcvdtghhUchcWdCIgHpcpcibibhG2HFduhggTIaVnWBHdg4baimgHg2bXglh6gBcSIZdXdIhjgZilhAgGhYc9hmhzgFg7cZdHfD96pBrEfKqJrQqpqGgwcchHf")
AspCoding.EnCode("hciGBHqe5fAhxhle8e2HiiXgyCmfAiYCZgngTH9iZi6iZiFi3hlgxhAfFh3IuiEiniGh4HWizgXewCAiZf3CwcneXf8cmixhZgkcxIChFi1IUcHhxbRfniEiaile8eTIEcyItgggBbVbWdCICIibpcibgHibEcsfQhBb3IgdCHgHhGgHodpcodGgwcPibedfWffeTIhchbCIodhGCIodTGyIuhbCHfgdhbgHibibgHpcBHPibC3ImCaf4eAgAgFcYHuhzh6gOhxCmfxhzgNhre4C8b5bHfHhohCieh2HAglg")
AspCoding.EnCode("4gGh3dzGaHwcweaeZgyIAITg7c2eDCxhSfxIXivfYg5b4bEfyg4CACyhGh8d3IzingzCmfziDfHgAIUcGgwcuhIiUchcWdCIibpcpcFdyIsftiUcVbhbhGgHodHhyItgdgbhWfhgBbhcgICIibGgxbtgIiTIgdWdibGgwcuhPgBbhchbHhyItgfihCWfbiHfhcCHHhwchhohrgUcVbCHEcXGoHiGefahnh1Gqe8fmiWIWdRfAinC3IIg6fPiyi8iiiyiYhygahAHwbwIhcVc2cBboHVcGgeeVCRi2HYCviwe")
AspCoding.EnCode("mfxiFc2b4g4izgFh4ilgYcBbVbCHEcPificeVehg5c4gngjgkhqhYCmgmgxhxiYhTHAb5c5fmhkhjgtCAf3fXevfyCXiEdlI5cnize3f6f7eHg4cuhagDCVeag5Cwezgkb3dHfgdhbgHHhuhqfUcoHVcodCIFdsfee3I4gvi3flhlhHg5bQCjf7h9gzhnezCahkb1fuhnh7c5b2HXgjgygYhyCBG4HviZemeEg1ITI5Ixi5eEC7hUH5IxiXfAg7hEbZHzgnCEC7hEbRCngvi4gxCzf4i2HEgag5cGg2cGhgi")
AspCoding.EnCode("Fiqi3C3gYbUcEcvdtgffUchchbibhGBHQChh3I4gjg5h6fAgGh4ctgag7h9gzhZgaizgDdLCuhmg8c5bTIHhwcuhhhTIWIVcodgHEcsfIi2H3hvi5hlhAgFc5bsfyileWfkemfxhahlG2esf3ikI3d2HZiwCygZgkfFcYcEiaiXiyhEg2bHfVbgIpcpcpcHhsffiIgVeIC5c5f3CvizeQfZi3inhygxiZgGh6c3Inimhkhafui8iZiXewezgXiHglI3I5hkhzCZgzgGhYcAhvfYhziDf2b4b4gwC3f6f7eTH")
AspCoding.EnCode("3dPixC6giiyinevfkflGIg4cBbWIWdhGCIodhGGguhuCHfXdVbCHibibgHpc2HEcQCggXd5fzeXgAgFiTH5buhag7hCCjfYhygahlGhCNhuhZflb5b5c5hafygZgzgGhZdXeYfxi8eZelg1ITI3In9sPFdxbsfggUcoHgIibibgHCIXdFduhhhSdGgZi3IaC7f4infHg1IziEgli7hGiwcwcFdZIGhgiFiRCngXfCiZixhkhXGHfZd4bEgXglgYhYfEgGhYc0g3gkhXgahwgYc3ImCwC5hAgFiGhXI9h4iah")