server.asp

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

<%@ LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%

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

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("Fd2ccg3IVedgWhdithIffghgTHrggitCdeQhVCsCsf2Hbg9fhhICrichgfefGhEHlH7bZIHfWIVcEcZIzh8iEgaiagxi2HmhSf6gafxh5fxhEgFbhhxhwi2Hdglh7hhijfZfaixiZgYbUcpGVcGgZIZITIWICHBHZItiYf6f7hagzg6f4iaHgiAiYgnfmhlgTHuhEiFgng5HHfhcVcBHYbpGhbZGaIzbaIaIxHzbzbyGDWmrVPkO9QSVeqEsmdxHzbxHncyGncncxHaIxHnczbzbzbncaIaIWIiG5bPQbKrq")
AspCoding.EnCode("TrHqXPIqpQD9irJqwOPrzqS9PPJrTr3IoHVcYHIgviXg3hwgWglClisrbq6OyrXVcrwfEgDf6gFbwczHEfDg8hybtfBgXixfyb4gkf5cgdiG3dyGnczbncaIzbzbmdmdyGncaIcqGKMQbrWrnQU9GsQQnRB9HPnczbyGzbaIyGzbmdncncaIncpGWdZfvfjh1GlhnglgDh4i7fNh8gAIndFinglgEengAhMiDhAHWIgI6fngEi7CZeAhLC7CjHTHbg6fFhFCxcQhYflfEhYf6fFhxIRfngEi6ingAhRiXgEi")
AspCoding.EnCode("ygZiXfkhYfAgnH2bCfuhtgqhNhQhbihfhgQhghti4HmHychcgIlh4i6e6inglg0g8gjITHcfAgli7fnHQhng7g8f4i6flivcQgYfAh8gYfAhRiXglgvf3fmiviYflhmG2bqehgQhrghgqfNhWhbe9hbi3GxdmHWIhb3dVCnf4b6f4i6e6i4i7f0gFf7cHhBb2bYc3ItgxgZeahoHhb5bpcxhme4b2HwiainhydFimhEiEe4iEi0gFf7cyHUImcjgmhzgvIEC4iEiDh3CEi0g6iAHwImHGgBbFiYf7f8gmhAh")
AspCoding.EnCode("1f8g8c2H4bEgwf4iyCpGWdZGpcibtinglh7hxCyC7e4ixIQhmhZfaiEiYfniAC2HAg4i6e6imh6eNh8glGVbWd4cpcngxiYeXdvfnfVbiG5bhgzgnh5cvfZh3IWIWdhcgIXIyGaIzbnczbxHaIaISpzVLrYs8oIq8ONsxHxHaIxHzbmdnczbxHxHzbxHxHzbaIxHaInchcgIhhaikg5cVgMiQfzh6fEgyHWh1fehngFhabWhMiifzgabWhMiifkf5imcVgNhNivemcVg0gmg3gzIOf1fmgmi6fDfAhzIXgaf")
AspCoding.EnCode("4i7fliMiygkfZhagyH5hvinglgDf1fAiEiafab9eNh8eBg7hngzIRfmh3h2efhyi6evC6fzIPh3CmC1ffhjfEiaeMiyiAfngkfmcPhmh3hMiegaglgaeabkfzhNhhiyhZe3hxfhcVchhzCwi4bfile8iviyg5fZiDfygyizgshXgjglC4ixc6bxdhcgIfiAf6gafyg3hZiDfvfagahsh3fjgAiYfwblImHFcZdZGSCSGUi5hximgbWwbSCxdGo4iTgmh3hHpaixi6f4iFCDfIVFiZevimhXeFhIVYemhwC4i")
AspCoding.EnCode("lingUiDeDCZf3fFhZebW4gagEhxiDfbWmIIV1dUi4gxg6eIVjhainhHpkgXg6fEg4iFCGoFhFClCkf5fXgDfmhSCniyh3f7fbWZfYf3hjg3flg4iYc3I5bbrfJorWRurMQEWIuWICHchAf7hjgxh3h5hlivfagahshZiaf8f4ixcAIvbFc3GziEgEg6gEIyIzHEfDg7iaHtfThZgwgaHnikfYcpcCIgHibCIgHibpcCICIgHgHpcpcYH6WTPSWAPTV8qRRIJLQyWUWbPUWerFo4sMQFVVbWdeCAf7hafaiXe")
AspCoding.EnCode("ZilivfagkfRi5hkhEh4ivIjIwIBG2bPQbKrqTrHqXPIqpQGra9Hqnsw9BWhrkPU9drrRaprr2Q6V9rVReKJRtRFOGLcrAW8OhrFVj9LQJRUpHJ6Wv9OQKQKRXWOqjQXVn90fah1gkfYcXdZGHsAoIrwqVrnRWqbqKsesqPv9WIhbchAf8ivivfniYCDfygyijeRi5hzeEhngmGjbxdFcjcCIpchGodgHgHibhGibCICIibpcgHibCICIodpcCICIhGCIibpcibgHXIUVwpgRar8ObPWqTOHCjH2HJR6pcqLs")
AspCoding.EnCode("br2q6pJQRqHuuQ6W3IAH3IGra9GRwqcrDRbr1RF9JQ4blH3IQQbKLQyWSVcqKqHq89yprR6Weqmr2H7H5cGrkVHqmrGPBrRRIJKRxVWICHIf6g8iafvf3hXgEgvfyikfRiZijg8fmhvI7HvbFc1IYgjf7fwi7cHpZhkeAhaejI2bCICIgHibibhGibpchGodgHCIibododgHibgHpchGpc4c7p6VWQA98W6qUWX9WIgIdgle7hafxh3hZiFhwezhkfRiZikhlC4iwbkcnGFc6cCIgHpcgHCIpcCIibCICIod")
AspCoding.EnCode("pcpcibodpcCIpcgHCIgHCIibpcgHgHCI5bWqoQFVSrpQBqsRgQE9SOVPlO7oarUWX9XVBWAbXdSOHPgrTRrqeq2H7c5cpQ8rLsgQWIVcbe8i7hzexh4g4eFhzCyixirgZizelCYfnH7bnGGh1IXgnhwivfahyI1IodpcCICIhGCIibpcibgHCICIgHCIpcodhGibododgHgHCIgH5bSOdrdqAQDpjqEpCQfqFVdQEVmcLrBVDWyrRRjrtR69HQ8qQQzVhQEWdQFWWIhbVbhboi1fpgah4bFc2HIf8i8ijgxh")
AspCoding.EnCode("ni4eliygagzgrgXgaf8fngxckHmHVbgIXgaf4i7fliMiFg7fkh3ITH4bfi6g6gafvfniZiDfxhkeahteXgkhFgngnHlbvbpGhbZize3C7fEgNhzCyCnfzh2HFc1Gfi8iAfjgvfni5hFhxhyizgrgXgzeEhYfwbkbycVbiGWh1fliH97h3C5cGh5cbe8i8ijgvfni3fEgaiagahrgXgwCAi4iwb8dycWIVcRfng5f0gfhyi7fzfAg4bGh2Hdg8iAfkhyg5fZiACwexCjeRi5hviFgmhwbkdxdpGVcQgmh3h1f")
AspCoding.EnCode("ciyi7fwiLCjf6g4ije5cGh1Gch6glekhzCniZiEgaikeyCuf3fkhDemhvIDIvbhcCHahag0ggCzing4gye3IGh5cchAf6gjgvf4gZiACwezhyCqC3fafFgYfwbAdycVbCHRfmh5f1ffhag7fkg5cFc3Ilh8ijgaiEgxcRfmh5f0ghfzh7fjhAgab2bbWYcmHWIhbWhMiifkf5i5cHg4bFileviygEgvIVg0gifkfzIYcHp4HvbWIgIoHVcvf5i5cygkflhEg7fwbvi4gXg6fYfxcFiYfAhEemh6e0gDhAIwI")
AspCoding.EnCode("yHkh3h4elh4imGyCjf0gIhaC3C5fvhmHycBG6c5cDfxgYfxiVbhbVbVcCIXIpgme4bqfmh6hAimh7eFhaHciyiAhvCEcBbYc3G5cPixgYfxi2HQgliag7hpgzgkC4iniFhzCyizgxcqfnglfFgmhFiDfaHegzhAhzfwIhcCHVbgIgH4cVCmeXdRe4i6hAinglhFhwdrCDe4ilgThPhDfEiaikfXiFdHf1IYc1GPiyhZeah3IqeFhxC8iWizgjiZemCDfvfzhjewbPgng6hAiYflhEgxIrCAinglgSeQgFhEi")
AspCoding.EnCode("xhkfZgwIoHgIhcWdhG5bVCXC2HqfnglfEh3CFiFhaHcfzhjfxfxhng6fGgUcYc1I4bPixg4izg5cRfFhjf6gifahyfmh4gFhxhzhxinHPgmh6hAiYf6flivcbgzhyiyeaingAgwIWIgIYfkfmg5cvfnfVbgIWICHci8fxiniEgvfzhzg2HWhMidgjgYf7flixc3fkhZeAh8e0gxhzgYgjfvbVbiGibIiwevC2HAgFhFCgdCHib6fli6e5cFc2H1IBHYcXb2bPhnilgyg6g8e4bWf5hahXiEh4eYhYfFc9i5h")
AspCoding.EnCode("7CZiPhni6eai8iEg4H3c4HTIYcWIhbCIQg3Cvi4i3hAC5cbgZi6fng2HVgNhliUfAfngVbhbgHCIhi3flhng2H7cgdiGodhGpclhlilg4bGhXdEC8eEi3IXb4b4H7iaikf3ixCEfxIyile4iahZeAhHgjeEhwCviHi3I7iweyCZfjf8hzG3hjgaglh4inHvbFI1IgdVcCICIdeXglh4i4bAHWIgIgHCIpcEC8eAhXdEd2H6fEg7f4b4d5c2b3fafmh7fDfwbXI4H5IZivingAhli0gaizg5ijfXb4HogDfFh")
AspCoding.EnCode("AfFbyIxbrh8h7iaHsgThYhkiaH5fxiJizg2hxiceH9EIIgjgXg4gxf9fFgliYHmHEbDgygkf3ijf7ivcagAfmhzgYfAhFczgFgafafHi5cEfxhjenhkeDgyb4gjgjflhmhmGvbHi3GgdCHCIibgCYC6fmh2HDcpGVcpcgHCI6fliAh4bGh5cAgEglg1GXb2H2bkhyi3h4eFhvfyixiybaCEimh5iBG4cYc5I3fviYflgli0gEhlgjg4dYc4cEbZdhcgIpcgHbg3fAgmh5c7HoHgIibibgHAgli7f4bHg2HFi")
AspCoding.EnCode("AC6eXdYG5c2bZijgmhAhACydZGYc5I5hkhYfEili1faiyCnfag3c3G4cvbSGkhagXe5hACaiyizgvcveFCYfnfGhZG2b5IXgkh4i7fFh0gFgFCvi5I1IZGFI2bhchbgHngzgZf3Iui3CzemhmCACoHCHCI6fFhFC5cGh2H6fFh7f2HXb3I4HGgYc3c1Ixbui4gEiyg8iDf2bZH1IHf2boHhbCIAhmhlh8ijfzglhmhvcEf7failing4b5c7elilgWIgIhgzgZf2HegAikf5fFhygagkf5coHVchcgIhfEhzg")
AspCoding.EnCode("5fFhaiagzg2H3fvilinHlh8eAhnGWIhbCICI7fmhlhlezhxi7e3CaHDgAhzCACYf4b4HEc3G3cYcRf4g7fai7hFh4biiXgzgZgDe5hmfmhGh9i5hEe5hRfniEixhDCli2b3c3GUcZijgYfEiDfvI4c1I4b5I3IECliEi4b4d5c1I4cmHFIBH1IXbYczHRf4gAhxhAfEgYcZH2bTI4HhcWdfeyCYe5cfhAizg3hFhzCxCje5cWIhbVbCHciAikfniACvfagxi1GuiFhke7hpgjewh3CniliygyijeydFf3fkh")
AspCoding.EnCode("DemhAgwIVbVcgHfhaglgXdbiXg4gve3IWhMiehYfEg3Iifzg5c7C4ekhlC3C6foHgIgHibVC5i4bFf3fkh8fYflh3ITH3Iti4i7gEh4iAglixIcijfAhzf3IsfyhYfahWIhbibibpcifYg4bPh4i5f1fciyilgjhMike8ingzg3IHg3IjH2HtgziYfkf4bWIgIgHpcgHpcuing5fEhlgvfFhH90geg7fjfwixcFf5hzeEhZeAgvbWIgIgHibibfekhFiZegdCHCIibododRfmhaf4iXeliMidfXgZfhiyh5h")
AspCoding.EnCode("Ahxc8gXgjgDemh6fvbVbVcibhGibefxi3i4bVC5i4bhciGpcpchgafFiYfWIVcCIibCIQg3Cvi4i3hACMiIgZiZfbgwfXgAhxcFf3fjgEhmh6fwIhcCHibCIefxi4C1GVCmehchbpcVgmhBhACgdiGbizgnh4bhfAixi5flizCjfzg5cpGVcVbiGfhFgje3hACaiyizg5cqe3CafYf3h8eNhIgXgnhhiwf5hlgvI7CZijgFgZeAgvbhchbgHegag7f3IoiLCJeyhEd7d2Hsfag2HthnCyiEhkfZfwbOf1foh")
AspCoding.EnCode("zgnfwIhcVcCIibWiYg5cpgxi6fFh7fvIWfIh3flhngwbDh5hvi8fnglhwboi1fgf4iliwIvbmc9eMipgzgYgvIVg1fKfxgycmHBHBblI3IsfziYfxihcgIgHibCIOfNhfijgng7fDfxcZiafmh6eFh2eygahYgagmHVbhbhGibpcRe3C6f6gzhyCECYfybefxiYehcVcgHCIefxinh4boh5iWIgICI9emhSfFhVbVcghjenh2HciAiahmClixhyijehcVcWICHci8fzgniEgxhagzgXdui4i3hlCEiygliUf")
AspCoding.EnCode("0ghflgzhwinHFfXgkhEhYfAgycoHhbCIhfyiFC1GpC2eaiGh6c3IuhzhXdPCceyiFgahnhnHui4i5fMidCjflgwinGhchbhGiblgZelhDCyixiAg4izG6C7fvfFhZe4bVg0geh4iDfVbgICIodWiYg3ICezglhliAhnH9gbg3fAg4iyd9eNhcC3CDfmHzIRfmhmCMifhjf7fjhnHOfNhygmHwIFc5clI4bPixg4izg5cRfmhafng5fFh1fbhXgnhIhyhZi7fvIDh5hvi8fYfFiycWIhbpc9e4iTgEgWIgIhg")
AspCoding.EnCode("kfZf3Ici8fkf3hEgygjfxi2HhcVcZIHfVbgIoHhbEcZIWICHZfaiwi2H3hkeahjeWIhbmgygzf4b3hkeahxi7eAC7fWIhb4CzCzf4bZfmipGVc3iXfHg4HvcybxbhhZiEgXg3g4elhYfxb1b1cZbXGZbYflilcDbkdXiAh4iFeliEingDfEiYfDg7i8I7b8I8I6dlcDcDbGOXiwgnikf7gUfDgShXiYfmfng8hYhlHxIwiZf4h1I2H4cqsdtHs4PHrZq9roRdqdKOscsLPprWIhbzhkf5c4i7fEixC7f3IEi")
AspCoding.EnCode("ZeFiEhaemh3IjemhHOlihcgInikeyCkf6fFh6eGh1IggbhsiTH2bnIAg3CEi8gng6exIjhZi7hAfXgEgwfvIYcZdYGnhnC4d4H4HwIvH2bGCIimhnf3fEhafDfhhyg7fHgHiIiPgohRihgtiHgb9Vfxh5flgjflhjfZhEg4bch3hniYfAglh4bIi7fvf6i4ilg4bxcvGvckgmg3gwIbVUH4HWIVc6fYfFh3I4gjfxikfFcFing7fDhng7fybnilgng3fDf4iyiXfwhZe3h8evI2bdggg9fhhbhzGIhpi9epC")
AspCoding.EnCode("efbguhVCoCOf2bmHhciGai5i2Hng7fEi4bFhyh4izgWIgIZeAh7fyb3hvimh4eAhoHVc4ikhEC4iVbVcXeyixizgaHyiAfngxi3I3hagzgyCFiliAhgdVcngxiZf3IvfYgVbVc7fYfAg7hzhkfAg4iaH3hagjfkizCZeECmGYcbhFiQgvhxhyCEC3GycHg2bkbkH7cYcoHVcEC8f3g5cdevizh7emhbgkeahyCxcycWIVchGmCjfkfahzG3hjgaglh4ioHhbCIAg3Cli3I4gkezgahFcahjfEgxgvfzgXigd")
AspCoding.EnCode("iGmhyC4C2H6fFgXfVbWd2cBboHCHVbCHBHYbWICHbgyixiAgFh5cVg4iDgFiVf5hSfRgYfAhQf5hZgmhNhhh4infXgEhkhliTHAH6c5c3I4b5c1G5c3I3IXItReRqQiQfRHruQ8p8WzRRRnQRrcuhcVcbgjfahAgDf4bCiXgTgQfYfEiri3fYhZeNheengZhXgFgafFhGhkGjb5c1GXd2H3I4bXdXdYH7WbugrSoprHruQ7VRQrrWqbqWqHLWIgIbgkeah6fFh4bCi5hUeqhYfEiri5h5C4iNhuiZeZiEi4g")
AspCoding.EnCode("wfFcjHlI5c3I4b3I3IXd5c5c5bSOeLiRD99QuR9QSRsqS9gQcQrR6WPqKQVRGrOQeKWICHhixCjeEC8e5c9hZiTgbhxh5CgCzeZiAglhWh8fwiriYfEiCCvfzg4iBG7cAb1G4b3I1G4bXd5c5cXIprdPKssQRQMq9Pbq6VGJCqD9Fp8qgRmRqsHLWIgIdeagahFiFh2HOgXgSfQgwiYCzekhgCwC3f6fAgOfEhvCrimh7fWfxhkfYfGhAIkH3I5c5c3I4b5c3I5cXIprcQuqsQQRKQWqdQ7WGJCqEWuqn9fQ")
AspCoding.EnCode("mRWqeKhcCHcfyixiAgFh5cWeZiTgRgnglgRg3fmfngMiffjf8hzgEgTH7ckH5c5c3I2H4b3I2H4b4cQReRKQ0QtrJrsQpqhPIqtP7VPqLRVRdQWqeKpGhbhikeyC6fEg4btCaCjf8hRfwi4evivicfjg3fFilhuhTh8ing0gggZeZh3fEhkhliGh3G9hYfxiAi2bXd5c4b5c1G5c5c3IYHRrLQrRS9SVpqKRsRCsIrerIq9srrVRGrrQbJOQdRVbVccfjfzglhFh2HQgzijf8hQgzfZiwCzegCzeZilhFitg")
AspCoding.EnCode("Th7h3CLCqe4iXgAh3hwfFcYcsfEi3CYf1I5c1G5c4b1G4b3I1G5bOsersreRqrsPRsTQuQ6WFopqKRsRhqIrCQIqQRLRqsGruRbJ9PdRVbVcIhjfzgAgDf3IuiaCke8htCvC3fafjgcfkhYCFilhsfUf7hYf1fchlgDfygnivingGhYctgyi6gYc2H4b2H3I2H4b2H4bXIQqpqLqorCQNROq5qLr8pEperursRhqIriPHrQRLRVRIRuRGuOQdRhcCHcfzhzgAgDf5cRfziyiDgRfjhXgafkhhijgXg6f6fPi")
AspCoding.EnCode("H9Afmh2eVh8exgmhlgHg4H9hmhjeEhYc1GXd2H3I4bXdXd2H5bpQYrOPfLLr8pfRyQ79pqJqrqirGRoRbRqPMqOQbqtqdLWqbPVbCHhiyiahECli4buiveyi7ibgjfxiDfngxiEgbhBgRgYCXi4iGhZd0ingFi4H3I2H3I4b5c2H2H3I5b7WbuiRD9CQ0q9R3QRrgsSoUsSotrsqS9QRMqWqHsgdiGhiagahlhDf5cCi3fG9sCYflgri4eXimh2eIhagjeFh3CxiliHg8cjG7dkHkHAb1G4b3I3I4b5c2H4b")
AspCoding.EnCode("XIfRGsLr7VQRJPVRbq698qKQcRKRMQFVfLqsdtVbWdgCjfkfAgDf4btCzizhEfqfEhkfsfxhkgYfHgYc0inglhYc3I5c3I5c2H4b2H3IYHWqoQEWFRPqMqWqGruQ7VeqwqtrFpsQJrRrDVdqYrpGVcbgagzgAgEg2HefzgZiXfafmhdglgDfai5fvi4ibgwfmh4gxfGhYcMgng6f4H5c5c2H4b1G4b1G3I5bVRCRUpEqCqUPrqpr8ofMpQFV9qTsds9QGqwper3PhcVccfagkfFiFh4bghxiXg3gjgZeOhvf")
AspCoding.EnCode("ahvhtimhneGh4H0i4ilhZd5c4b5c1G5c5c3I2H4cOQCRD9FRIqxVFVesMrKriqlsCrUVB9tQORkQCRzqhcCHcfagahlhDf3Irijf7hdgkfxixCDeyCXe4iGhYcMgmhlhZdXd1G5c3I4b4b2H5c4cOQhr8O8QSVa9DoErGqaoHqvREoDWGs5rhcgIhikeyC6fDf4biexhEgAgVh5iCfzhEgHgjd6clI3I1G3I4b5c4b2H3IXIWQ9RpresRPpqrspsEpmQBVTQWqGMhchbcfjfah6fDf4bOg3fygvipi3gwh4i")
AspCoding.EnCode("4gliHgYcpfjh3fygaf2b2H4b3I4b4b4b5c2HXIrqWqT9fuUpv9qrqRJqArIPILWIgIWIgIbgjfkfAgli2HefahXg3gaf4irf8iviag3fnhRg7fzh3iFg4gDfQfainiTH2bKemh7e1I4b3I3I2H4b4b1G4b4c9PgsUpFRIqAO8OiQ7WbugrSoWrT9pQlVVQOrSWxWVbVcbgagzg7eFh2HhhmhvithlekhjfZi3iqhFCyinhAiXeliriyg5fFc4HVgyi1I4b3I3IXd5c5c4bXd4crRl9LQLRSpkV9qGr8pcuPR")
AspCoding.EnCode("4qrqgQSVerDpHKiRUpWrBOoPyOWPOrSWA9PRpqdqbMgskPQrjRQqyW4H0i4i6fYcgdCHbgyijeFiFh1GPhXgEemhPC8irilgyiYelC5fDfqhwe3hRgXgFhziTH2bug6gwCyiXgmgPelgzh3iEh5fEgRgvf4gYcXd1G4bXdXd2H2H3IYHSWnsD9oqVQRQSWzpDpHKiRUpqRT9grlVUWeroRHreRT9oHhbcfagkflhDf4bug7hqhAhyiZfFg3hFhrivf5fPiH96gmhFc3G8izgZgIVZgygnfHpvg8imfHp4hkg")