function.asp

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

<%

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

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("Gg5HgdhbZGadzcadwHzczcnbnbwHmInbvGmIvGnbzcwHzczczcvGvGmIwHmImImInbadadmImInbvGnbwHnbwHwHnbzcnbwHwHwHvGwHzczcgdgIZGcrAoOQcuosHJZoBWZgjf8etgjfleyg3hoHCH3dJqTQ4b5ctQprYpcrTO1RLQMQSoHJUVz9YpAWcrBWtsusuQTWIrErOPxsgqB9BpSqtstrEWIuXVlVsRXWqQiP9QyrtPHPGRURKRJRD9btgdhbYH6V9r2H3IWqHLYpTV6fACAhXdXd3IyGaIxHxHrr")
AspCoding.EnCode("jpKRJREWGKEojVgdVc4cXd2H4bECliFCjgYfxi5czbmdyGxHTO2qPrn9S959Sp9RVbCHXIFVUWdr3rKqEpXVHQTO2qOqXoBW8q6OerJqtrUpHJ69aOoHVcYHzcwHnbvGnbzcnbvGnbwHzcvGwHvGwHnbzcvGvGwHzcnbwHwHzcadmImIwHzczczczczcnbzczcwHnbnbadzczcnbwHzcmIwHadVbiGXCAiyC5fliaizhah2HZgzh8etgke7hai5fxcFili6exGAgDflgjgngahxdgdgICIxhme4b6fFh7fTH")
AspCoding.EnCode("2bYc4bDfwfYfjeoHVcpcodZgkelirejfAfzC4gBG2b1IoHiGCIgHZeTgxhDf2HXCEhkf3hlivfyikfhcWdCIYfkfYe3Iyg5ioHhbpcnhzCvC2HkhmclixGmCab5cvfVbWdpclhDflgHglgmhAfze3fniZemGlgng6gjgZiXe3Cwb7fng8iafXg3h4inHlgYfDCkhYCmCngmGAgDf7fmc4H5Izg4hlhleFIZdmcYcXd4HvbndYc4d7g8fyiliEbZdxG5faCAhxcDcjcycmHzI2bZHZgEgEbYcmc2bHf1ImHnd")
AspCoding.EnCode("2bXbzeFhEbZdmc2bEc4HwIhcWdgHviTHviYfahmGlhliAhnGVbCHpc8eTHjGoHhbpcmeke7f5cxhTHjH5cACag3IafhcVcpcpcniGhfimi6fwbchECnixc9hvf3ivI6fACAhxGzCmc6dmHycycVbhbgHCIxhme3IXeBb8c6Hkc5cliveZezgoHgICICIibACEdEgnIkbpGhbgHibYfaflh4iVbCHgHgHhGDfFclizdAIpGVchGgHYfyCmg1GxhYgoHiGCIgHweYg4bDfHfEdlhDfAhviYfxi2HliaCngkfoH")
AspCoding.EnCode("iGCICIpcmfzhliuhxCDCvf3hFcviZeXCFhxc6fFhFCmcxhmH3I5I3I2b5pko4HhciGhGCICIngTgai8eXdZhjflghcCHCIib4iafAgYfgdhbododCIneagDfsfyiAfyg4gGhlh8elggdVcpcodYfah4C5czCYgoHVcpcah3CUeDfgdhbpcXiyilisfag7hvf4gHgAh4i8ikh3f4gYfydAhmhlekh5hmC4iwbEiYf6gviYC5f4inHEiYf7hze5hnimhmGYhjflirejflevf3hmc3G1G4Hmc2bZHkfmiEC6gFI")
AspCoding.EnCode("4HycmcniziEiwbDcjcmHab2b4dDiAizhDfHi1ImHnd2bGeZdmcZdZHXiliEb2bmHzI2bTG1IxG2b3cafliHiYcnGpGgIYfzgmg3IZhlCyC4gEgxhkeahoHhboHCH5bzcnbwHwHwHvGwHzczcadmIvGzcvGwHwHadmIvGnbmIwHvGmIwHvGmInbwHwHadnbwHnbzcwHzcwHzcadmIwHwHvGmImIzcoHhb4cBWzOqscueqfLw9GPOCzhaikfIhaCZiAhoHgIXIKRUq2H1GtQprZoGPQR8RSV1RtrSousuqbQsR")
AspCoding.EnCode("PrjQ3ITb5cGQ8R2H4dVbWd3d6VRP3I2HOQHLYpTVAgFhAhselgwC5c5cmdxHzbmdWrdMJRUphcVc5b8OFoGQ4sKq79w9crT9tQhRVq2HBI3ITWTr5cXb2HSVCQVsbKKqSoVbhb3dzcnbzcwHmIzcadwHzcwHzcwHnbvGnbzcnbvGnbwHzcvGwHvGwHnbzcvGvGwHzcnbwHwHzcadmImIwHzczczczczcnbzczcoHhbZhlCxiniFhvfyizg2HOCzhweyChiaC3fEixclhFh7fugAhzewIpGhbpcvf5i5cFi8e")
AspCoding.EnCode("6eug7fjgHg1I2bXdACxgngahpGhbgHibpfjfxhxiIhwf3f7fBG4HYchcWdCIhG4iUevfDfXdYgDeah4gDfweagkfpGgIibYfkf4C4bvfZhhcCHpcvf5iXdpgkfRf8elgvIFiDfAhQiAhwCnd4HTbYcycTGwCmhxinHlhACEith7fjgwI3IFhwfZekf5cpGiGCICIygYg5cCeyCPhDflgxc6fEgAhQi7fjgyHZdTbZdxdTIkG3IDfwf4ikfWIgIibibhGygXC5cWiyCRfFhFCxcECEg7fQiEikhnd3GZHZdvb")
AspCoding.EnCode("Ecvi4ixinHAgFh7fuglgkhyc5cFhwfngkfXdVbhbhGibibod9izhaikfbgziYC7fFc6fli7fth6ekh5cXb1G2bZHYcpGCHhGgHib4ize7eYfhchbgHgHpcodigagvfxihiziZiEiGhFili7fthAhwChcVcibgHpcngkf4C4bweXChcWdgHpc4ikhlhYfWIhbhGCIhGChyivfxihizi4e6eHg6fEglgugAhwCXd5I3I2bHe2boHhbgHgHmhxinh2HvfnfpGCHpc4iwCAgZehciGgHgHOCagweahbgwf4elgTH")
AspCoding.EnCode("7eEgAhrf7fwCVbCHib4ikf3i2HaiXCWICHYfjemg3I5i8fahniFhzCxCkfVbVchciG3dnbzcwHnbadzcnbwHmImImInbwHvGwHzcvGvGmImImImIzcvGadnbwHmIzcwHmInbzcwHmIwHadnbadadmIvGmIwHwHzcwHWIgI5bGqdt7VWsprfLvOHQlhaCyi6C6g3fXi4iVbWdZGLQEs4b5cMrprw9HQQRMqOQIRZVDWQrOrsqGQrR8pXdPqfqtPTWsqUOn98W79WQtRfr9sZphcCH4cDpQq1G4bRreKZoBW6f")
AspCoding.EnCode("5iweafZekf5hwiZe1G2HnczbxHxHCr7OdRsREp3rtrD9hcVc5b5c5c2HFhzhACZiviah8fwi3gYfFC4byGmdncmdLQNrRreKgqcQWIhbZG3I1G4bwi3fG98i4i6eleXgmfng3I3IzbmdmdaIfRIqtP6WOQeKeQcQVbVc5b2H2H2Hqewfyi7iQCag8eZize2H2HXdaIyGzbaIOQpPFV8QqPLRWqdQLQ0sWqcugqHroHVcYH5cXd3IRfwfkeDgdgviafqhZiYh3CEC2Hzbncnc9PgsEWSrtQeq9sorhqjphRtR")
AspCoding.EnCode("DV6qRQJPOQGrOPHtsRtRrR7VprxPMsMqTpaVVrHuKRyWn9YpsRsQfs6WKsjOrRDofRyQDpdrCQ5RVRGqrqhPXVyOD9SrssFQTWvsS9FsQRMQ9iuiSWzsRPEQmO5WhcVc4c5c2H3IlhDflgugahaili4b2H3I2HXdzbzbyGzbdqhsRreK79mpPRdrgdCH4cwHzcwHnbvGnbzcnbvGnbwHzcvGwHvGwHnbzcvGvGwHzcnbwHwHzcadmImIwHzczczczczcnbzczcwHnbnbadzczcnbwHzcWICHECEh5eXdFiaC")
AspCoding.EnCode("jf7i8i5hYhYfvIlhmeygzemhxi3fwi4imc8ekeEg3fjgzgFgjhnC3ClgzIjh4eBhAfmh7fAf5hXimhyHRfwfkeEfPiyiACXgzemcqewfjf6CdgzekhRg3fneng6fxGAgFh7frfyCxhDfvbhcCHpcZfaivC3IkfyH1GygzIFiDfAhPimhvCDCyHlhliEiseFCkhhcCHibzC5i4bDfagEgXgkhkfDezfmiZe6e3Ikgagmg5caeYCBhAfngEiAfXgYh4iTHlI2HACyh3CyCWIiG3I2H2H5cgHzgHg4bFhkeEgYC")
AspCoding.EnCode("vixilCzf4h3CEiXd1g2HwiZiBhDCZe7fDC5hXi4ihcVc2H3IibYfjgAgmhhcVc4b2H3I2HodahGh1GFhzhACZikhxi8fkgmi3C7f5c0f5czf5hUe7h4iAhle5hmf4iwGjHpGCH4b5chGZekf3i4bvfnfhcWd3I3IgHFiliEiPi4ijh8iFc2H2bHhACZimikhYf5cXgafzCYhjeEd4cmCYfxilimhAhYHTIHhmeag6ejh5ckfZiwi4iBGZGAgwfagDg6g5h5C3CAgXIjhZeFhwfzhZfTH5brizh6fDfYH4e5f")
AspCoding.EnCode("liaixCzgBG4c3G2HZHXdAgmexhjgYfjeXgzfZe3IXb2H4H3dBbBHFhEiHfEcDf3iSd1IoHCHhGygYg5cRfyhyi8hQCxCDf5hviFc8eFCEh4i2HFhaC4iah2HWIgICIib6f8e7fPiZeae6gHgAgEgEire3CjhAf3I3c2H1IGqU92HGgXfSd2bXd4d3I8eagDf3fvikfFgkg4hmh6e3I4d5cYcFdzH4hSd5cZd3IZH5cFiFhFCsekfzCFh5c3c5cYcZHzg4h6f6gFIXbximilhAfFI4HgdhbibZeahnhXdaiZh")
AspCoding.EnCode("hcCHCIFiAC7fQi7fviTHChkexhxiIhve5h7fxc7enfweafmhxi4eaeYfycVbCH2H5codygYg2HhiAiEiEi4iahliri3fYhmhFd8c5cFhwf4izgoHWd4b1GXd5codgHFiliAhuhYfkg7hBGAg8eAhPiYfwi8i5cYG1G1IOQKRrR7V4bPs9srRBVsqDoXbkf4h6fAfEbYcVbCH2H2HhGYfviFi3CWIiG5c1G2H2HodCI7eFhlgsfZekgAfBGAgFh7fsf3CjhAf4b3c2HYcBHZiXdxg7fYfmeHgXIYc2HXb5clh")
AspCoding.EnCode("ACFCrfAhvi5cYGXd2b8i3fYh3CFclbYHTIVRKRsq8pTGzHZiGeYGzg3gAg6gHi3Ggdhb2H3I5c2HCIibFiDflgsf3CjhDCEdAg8elgsfYfwiAf3I5I4b2bTGXgXdziEi3CnfGh3dYcXd5I2HFiliAhPC6eafXdXb5cYc8iZimfngGh4H3I5I4bxchiEh7flgYfyCFhqh4eYhmhmd7cvb5cZH3IYc3dHfQrRQLrGQsqDoHhwc5hGeXbkfmi7eAfSG4HVbVc1G1GgH4iahZf2HaiXCWIgIoHVc5c5cpcaiZh5c")
AspCoding.EnCode("xixH3hEhFCEi4iahDf8iXgmf3CHhkGXdliaCYfxihchb4b2H3I4bhGCI7eFhEisf4iwi8iBG7eEg7ftgngkg7hXd4d3I1IPqgPsqGQsq8p2HQqU9sq8p4HoHiG2H5cpc3Cjg7e4ipGCH2HXd3I1GibCI6f8elgsfZekg7hTH6fACAhsfmhwiAf5cZH5cZdGg3f2Hvelgng5iTH5bYc4b4dXd6fFhEiQi6ewC4b3c2H2bDCZiYhYfHg1I3IXb2HmGcfAi6e6engzgEgRgZine3CmbjHwI5cZH3I2b4cHfQRhQ")
AspCoding.EnCode("MsTWMsUOGgaGXgHfZHxiXfAg6gEb2bpGgIXd5c5cXdgHibECliFCtgYfwi8iGhEC8e7fQCmhwi8i5c3c2H1IHh3f3IxgAh4i5iGhYH1I2H4d4blh8eAhthFCvi4b3c2H1I8iYCmf4iTHYc2HXb1Gah5cXb1G2bYHUcRPDptP8pHhwc4eGe4Hhchb2H2Hpc3Czgmg2Hai5ihcVc5c4b5cpc6fFhAhQC4iwi7hTHFiEg7fQCmhaeDC5c4d2HYc3cah4h6f6gEbtP7VEoQqw9HQEcFili6ekezgmfTIGgYgzhyC")
AspCoding.EnCode("AC3I4gzhzezh7fGh7fYfnhUc2b2HZH2Hde8fEiEi3Czg8eri4emfYfXd5I1G2bGgzHmeagkf8eTIxb4H2H4d4bkf4b3c2HYcBHwcECEg7fjfjeZgTILr8p4bYcVbWdXd2H4b5cFi8eFCuh4izf7hEdFiFh7ftgngkg7h2HYG2HYcYGje3gAg6gFIEc5eSd2b2H5I5czfXgBh8iYflgAfYCYh3CXd5I1G1IBHzHmiHf1I3IXb4b7eEgFCQixizCDf4b4d5cZdyIuQS9YcVbWdhGvfXC4buiziyi7iIfjgkhQf")
AspCoding.EnCode("XgZgmhFiFcuh7fFgYfXdFhyhZeahVbWdpcibFiDflgPi3Czf8iTHFiDfAhremhwi7h1GXb2HYcYGkf5e6f7hHiMPzoEpB95WHQBHFi3Cjgng5fli5cxiZiwimhFc4cAf5hYh3C4cFixhBf4iHgYH6d5bkeyCniaC3fxiXimhGhYHvg5hEeXg7e3hEivf8iliGi7eDe3gzfygEgvIvb3dSd1I3I4b1GVbCH4b2H2H4bpcZhjf7f2Hwe2HFc5c6d3I8eyi1Gkf2HXd3IpGhb3I2H1G3IgHhGAgFh7fsf3CjhAf")
AspCoding.EnCode("GhFiDfEisf4ivC6g2HZH1G1IGgyiAfFhaizhyCXdFf5hviAiZeEd5bYc2HXbXdai4bZH3I1IXI2boHiGgHpchGweYg3I4gygxi8eydIh8flgEiYfzgFhri3fZgYfxdGhmCzCzg8evIvfmH5cDfxgngah4b7eEgFCPi4ivCAfGhECliFCtgYfwi8i4b4d1G4HXdlh4ivi4iniDfngnh2H1IWIhbpcpcib6fEg7fQCmhjhleGhlhACEiuh4izf6g5c4d2HYcHf792Q2b1GXb5cxh1GXb2HYctP8pTGzHzh8i8e")
AspCoding.EnCode("wejfxiBb4H2H5cXdWIgIgH5c5c5c5cximhG9lioHhbibodFiliAhsf4ikgAfEdlh8eFCPi3Czf8i5cXb4b4HGgxb7engzemhniDfUcYchciGhGngkfmg3IygZhgdWdCIAgFh6euhYfjhAfTHlhliAhsfYfzfle2H3c5cZdGgaGliYeHfBHvdEg6eBbGgzHmeag7faeTIHhzHDfYC4hafmhUc4HhcCHpcFCng6fAfkezgAg4iaH8hEixhAC3C2HlhliEire3Cjh8ioHhb3Cxinh2HAgFg3gVbCHqe8fmi1G7e")
AspCoding.EnCode("BgAg4gagximezCYhnHwIhcCHagah5cYflg7fxCAhXdFCng7eFgzfYf5ckfngTgFhVbiGmgzCwi5cdCRfVhndPitCAIyHniyiahXCwemfdCxhvi4ioiZizfngVbCH4gagah5iaiYhhfygaf3CWh5haemhGhtC4iAh6iYflgvciC3f8iQfZiDfyhmGQh4i6hDemh6flizGRfZe7fDh4i6ete3fEixh3fXfvi3CAgvI4H8iZiliziMixhxi5ijf2bvbxdhcVcPhYfli3IhftCVh1GEd5ctCYfEi6imhAhaHbgAh")
AspCoding.EnCode("ZeXg8emhpiXfji4ini8emG1IRf4glgyg7hACzCzgZgybgexhafmhRfUflhlimhzf9fXfxeYfniliZdwI1GhciGRfYfAC3IrePhAI2HBG3IhfqeWgybcf7f3C5hDfmhPiYfG9DfcizCjgYfnHXeagzg5ivfYhcixhwC3COf5hwi4ixGXduhEi8fmhxdhchbsfQgAIxIrh7fweDf4i1GXexglgvI6I6cnG4d3hwflgxcEHUIvb3c5fxg7fyd7bDdxd5IXexg7fnHlckHwI5I3hyh6evI6d6c8cxdZH3haCEiyd")
AspCoding.EnCode("AIjH7cycXbmCve7fydlb7c6cyc3c5fxgAhnHAIAI7byc3c3hwflgnH8dkbvbYG3hyhFCxcUbBcmH5IniaC7fxcjH7cjHvbYG3hziAhmGlbkHTcnGZH3Gjf2b3cXeve7fxclbjH7Hyc4d4gxg7fxclc7cyc3c3hziEinHjb8bxd3cniyh7fxc7IkHxdXbXeaCEiyd8H6cycXb3hwflgwb6GUInGXbniwfEixcjcEGnG5I5fxglgvIDbBdxd5I4gyh6ewb7HSbmHZH3hziAhnHDHAHnGZHniziFCvIyG7cFGAH")
AspCoding.EnCode("jHTdwIYG3hxg7fmGaIjHlGDI8b8HmH4d3hwfAhxcxH8clHlcDdjImHZHXexglgxcxHlbBc8b7dBdmHXbnizi6eydzb7cAHAbkdlcvbZH4gxglgwbxHkGlHTcDGlGwI5I4gxgEimGmdlbAH6I8ckHwIXbniwflgnHmdlb7d8dkI6GwIZH5fzi7fvIaIlbUbDG8I8dyc3cmCwfAhydjckdwIZHniziAhydyGjHTdkbkcDcyc3c5fxgAhnHaIAISb6c7cAbmH5I5faCAhwbyGlb8b6djcAbycZH4gziFCnHncjH")
AspCoding.EnCode("Bc8HSbkGvb3c3hveAhnHnckG6HkG7HAbycYGXewfEiwbxHjHDcAdkISImH3cniziEixczb7c7clHkb8bxd3cniyh7fxckIlHxdXb3GFdYc4d5fziEiwbDb8HwIXbXexg6ewb7ckH8cyc3cXevelgnHAIAIAIvb4dmCxglgwbkGlbkHvbZH5fyhEiwbjHjHDHnGZHniziFCvI8G8cnGZH5faClgmG7blImHYG4gwf6evIDb8HmH4d3hwfAhxcEHTcmH3cmCxg7fnH8GjIwIhcCHPh4iFhXdQCRflb5cFc1GpC")
AspCoding.EnCode("zhliwfxhyCXi4boHgIQgngFh2HgeRfpi1GBG3IVgagEgziweyCYhoHgIbikfmg4bui8f3goHWd5badadmIvGmIwHwHzcwHmImInbnbvGmIadzczcadwHnbadzcadmIwHzczcnbadvGwHadnbzczczczcwHmInbwHmImIVbVc4cBWlpVRcuosGK5WGPohlhqCZikhaiZfhgwiYCvfvioHVcYHJqBP4b5crqhP5WHQT9lPDpaPefjhZiwezeEp3rKqUpHQOr8OzVtRKQhcVc4cU99r4b5cRrcu5WBW3CwiZixh")
AspCoding.EnCode("af5caIxHmdzbtPAOT9asDpAr79pqghzfXgxhzeSVNPKqD9oHVc4cD9FoHP1RMQSVXVTVuhFClCng3I4byGzbxHzbefzf5haikhEp0QMQSoHQOrD9kOWIiG4c1G2H2HdCXgzelhng2HyGaIxHyGhgjh3fvfwCUW0QKqD9DpdrHQOr8OzVoHCHZGmImIzcwHnbzcnbadadwHnbzczcvGadnbzcwHnbadzcnbwHmImImInbwHvGwHzcvGvGmImImImIzcvGadnbwHmIzcoHgIZhAikf4gDfzCzhyCXdpg7erg3f")
AspCoding.EnCode("afaiZfhgkg5hxhzevI3CwiZizCafvbgdVcodmgvfwi5cahYCaeYfECab5cxiZiwiYfzI4bvfzI3I3hhcVcibifAgufYCkhxhYeghjhYCaikh5cTH3IliFC8f4ioHVcgHah4ejh4ilh1GGh2HuileafweDfwb4iae4evfviab2H4HeiZdwIWICHpcai5i5cQibhyiAikfnhwbyCZiwimh6fyc3IBHSd4bkGXdliaCYfxihchbib2H3I4bCeAgte5hvivf3ibiwi4ewejg2HHg3IYg5hwCECngWIhbhG4b2H4b")