sqlin.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("Hh2coHgIYHmdzbmdmdaIyGaIxH7pmrWQzVWRUWeqBPaImdncncmdxHzbmdncmdaIxHncnczbmdyGxHgdhb4cWrcLMrFQGR3qcQiRFVhqurv9OqjQ7VQQKsDq4bpGhb5bhCvi5hnixfWgAiACJQGrEpyrYpBWveFhli7hUGxbzH7iFeEfzGtfThXiyezG5fxi4boHCH4cmdaIaIxHncncncncnczbncncIQGKKqIsWrxr7WcQVrnRIQcszbyGmdncmdxHncnczbzbxHaIVbiGmgwejh5c6f4iEi6iZe6e0gFf")
AspCoding.EnCode("AIzIAgmhFC7CnglgNhEekboHhb6fYfAh6imh7f1fFfkGTHhiFiAClgmGtiZelf8f3CAg8eybQgYf6e8gYf6erg5h7fvfYC4hafmhFinHYcCfPiQCRg1fqffeeghgtiefQhYcvbxdgdCHlh4iEiEe3CAhMiFfkbEdhilhDflgvIPgmhlfDeYfFi8ezGQgnglg8g4i6eqC5h7fygZiXfjgmhFinH1IRfICQhqCICPg2eVgIfVfbi4HwIwIVbhbZGpgXC5cFi3C7fDh3CEiLC8gjHEcUc2bZd1GsfaCmhxihcVc")
AspCoding.EnCode("4cgHygZh2H3Ikgxh3ixclhYflgFf3CAhNhEelbabBdmckh4ikfvIFi3C7f6iYfEi1fDhlGvbycHhGelhYfEiEeYf6e1fDh8c1G1GDfzimhkfoHVc3dCICIqf4iFi8iyixilh4ivcqfmhnhzCEi4i3hDf5cAgYfFCDhZeFCMi7CAHhcVc5bibYfzgnh1GygmeVbVcYHbixi3i1GweYg2HWIgIWIhb3dmdaIaIzbyGzbxHzbSpypsqZr7WcQUp3QyGxHncncmdaIyGncyGxHxHmdaIyGzbaIxHyGWICHeeygjh")
AspCoding.EnCode("2HOfLCqhjflhliyHoi1fdi3CEgyHOf2epgzgmcOfNhWiahXCndOfNhNizixGpCNh3iXfabpCMinhXfAgEglgab3fzeYfEi8e2eygzgYgagmc4ewCmh7fEgMi8flgkhmcOf0gDfGO7h3CndQgZe4g1fhfyi7fkgAgabPhZe4gLCciyiFCzfNhxC8i3CzgyHui4i3hLCgejfFCjhmcxiyiMicfxgmh5fwgWIhbIiaijh2HdgAfDCkhxhXe5hFhzCyiahRi3fjgAi3CnHAcmHhcCHchle7hvixhXe5hDfaikekf")
AspCoding.EnCode("te3fkhAiZemGkHycGh4HYHUiGCIVXgkf3iUixcUiycbW4iG9Yf3hbWzCxiFimh7fliIV6f3CkhZemCliSCZf4ivimhFhYfIVEhlemg4eFh4iHpniyiAije8eIVwHIVZIIV3haCFCIVkgxhYebWzf5h6fDfmhEibWDf7f8fje5fZili3CIVXezi4e7fHp4CngXekhXg7fZe1I2HZGHReKhQ9QtsKqUpGKhcCHfiAf8iwCyg5f3f8eygagxiuf5hviEh3CydjHvbFcYcveACFh8iSHxbvd7i8hEfxIsgBgYhxf")
AspCoding.EnCode("zG5fxi3GhGCICICICIpchGodibgHCIpcgHCI5bS9BQUVlQds8qWsdMKRzoSVIQEperEp1RJREWVbiGdgDC8ivizC5f5hACaixCzgufZiviEh3CmGAHxdGhYcWrcLMrFQGR3qcQiRIRjWIrmr5WHQCRjQSOTWsqzoMq0qSO9rWqHLMQtRE9HMHQx9UphrUpaWMPKqD9GKDoXWOQrrMPZpVPjQ5Wn9Neje0fxi2b2HYHGrzOGRvRQQwrRrGrJrfrPqv9hcCHch7hDCviai3h3fliygjfyCsh4ewCAi3CnHDcyc")
AspCoding.EnCode("GhDbgHCIibhGCIhGibpcgHpcpcpchGhGCIgHCICICIibododCICIibhGibYHSWwpfQ6qD9cqOQIQSHkG2HtrF9TOsRBo3r7oJQPQdMrRDo4bjI2HcPkVBpxPTV8qTp0QEOLq2Hjb5cQQcLLQl96OdRMQBpUozVrRS9gQwq5cDbXdHslpHqmrcrFPWsbKurapVbWdfi7hAfjgyg4g5hDfwejfxite4ejgFgngvIjcnGEd2bnfagEizfAIbW5ijflgzfDd2bododCIhGCIgHgHpcgHCICIibibhGCIodpcpcod")
AspCoding.EnCode("gHib3dE9SO9RzpF9arUW5OpGCHeC7h8iviaini3fEgxhjfzgrg5hviAimhnHDImHEdAbibhGibibodpcibpcgHCIpcodgHpcgHpcgHibhGibpcibhGibgHpchGYH9PoQEWSroPUPtQprDWDpWQA9EO7RSVmpw9cr6c5cU9TWgr8rtQeq4b6d5cgrBqtQprWICHeC7hlewCaimC3fliaizhahufXgkhDengmG7bycTHYcZi3iaewezgzH1ICICIibododCICIibhGibgHibgHgHibpcibgHgHgHhGgHpcpc3d")
AspCoding.EnCode("6VHPT9lPDpzQ6OoRgPEWIRSpxGrRGQ6oZRqq7QsQ7OBWEQqqj9hQD9dQ89gdgIoHCH9e0gpgxi2HGh5cchDCDCafxhniZi8ezCzhxiuf5hwCAimhnHlIwIWIhb3fzeYfEi8e2eFglgjg3IFc1GeC7hAfjgai5fXgFhaijfzgufYCkhlC3CvIkGwIoHCHZiafnglgFhNhwezgXCyi5cEd2HchDC8iwCyg5fZilixhxCjeufYCkhAi4ixc8cmHWIhbOf0gEgTh8i4i4bTH3IIfDC7hkhwe3h5hACaizhxiufXg")
AspCoding.EnCode("vilCYfxclHycoHhbqemhniNhgezh7fwi7e2HBG2Hch8ilezevfni5hDfvfyiyCrgXgafAi4ixcjcycVbVcuiYf3hNhdCyiEijh1fyi6gYfyC4bBGXdfiDCAfviai3h5hDfygzhjerg4ekhAiYfxckcycpGiGzgjf0gbgxgmhmCjC3IHg4bbe7hAfkhvf5f5hlixhjfkfuf4eafAi4iyd6InGhciGRfYfmC0ggezhlgzf1GHg2H7e6gkhvfDfydPhYf3hMihfyi7fwiECzI4HHp3GwIWIVcOfNhWiahXCXdTH")
AspCoding.EnCode("4bFi8izezCFhxcOfNhVCxiab4HIV1IwIVbCHpGCHaime1GygzgAgEgEimGwC3h3fAg4inHAgmhEiFfng7fLCDh6dxdzIze4g3f6f4inHzgagNhIhvengmCkiycxdTHAbXdliaCngkfhcVcVbWdhGYHVCZh5cti4iDi8fnglhDfxIegzhEiwiHhHf1I4HXduhyhZeah4btClizh8iifzgji3C5flivfyikfwbRemhDiEhZelhDfvcgejf6ezfvbhciGpGCHpc5bifnf5cuCng7g8f4iFilivcsiEh4iEiUfPh")
AspCoding.EnCode("FhFCaixiYhBHUc1I4HXduhve3CxiXdRfliyi7hohkfvgmhXeEgwezhxinHti4iDiDeZeAgDfxIqgFgmhFCGOQgEgAhweahmfvboHCHVbVcibYHifnf1Gqf4iDilCng7elizGcfjfxCwgwemhAgBHGe1I4H1GtgyhYfkfXdPhDfzh8iifxiyf4imCEgvfjfjevIPg4ilfEh4ilhACwdcfzhyikiwe3ClhycoHhb3Cxinh2HygYgWIhboHiGhfAijeXeEgygagzg5c9eLCchafngEiDfvI5hviYflgDfLCxhyC")
AspCoding.EnCode("XCagnGWICHgHIivfkg3IlhFh6eWIWdpcFiAC7f4bEd5cZdGg4H3cYcPhmC6evfDCFh5ciiZiximfFg5hmfngHgChZi6i5hRf4g7fzC7hFh3GXb2bSdYcVbVcgHQg4iwCYfniDf5ccf5h7emh5cWh2eFhUf8iZeoHiGgHibhi4e7eYf5clboHCHpcodCIAgDfEi5cFc5cFiFhEi5cZH4b2b6Caixinhjf7ixIjfDCmhje3CEiEdkfAivikhEb2HDgxhjemgke8hvc5fviyiFiZemGwIUH1IWIgIibodgCXgAg")
AspCoding.EnCode("mh1GkboHhbgHgHibFiFh7f2HTH1G6fliEiXd5I1GYc4eafYfFCEgmG5b1IZH4ejgYf6eEgNhvfkfXCzhZH2bViDfliAfGivdyItfEfFexIsgH9mfvhvc3hyCKCkf2hxigiSeHCbhvi3f3hjCpiEhDfXIwIFI8hvfjeZfyiFezGag6gngzg4i6eEdah8fjgviUH3I8haikfmgjf6CybmCwCag7engnHmHHi4HWIgIibibdeXgEC4i5c8doHhbodpcodAgDfEi5cGhXd7eDfFC4b3c5cYcvijf4g5hDfygagah")
AspCoding.EnCode("vcziAhYfYgTH3d2bXb4ekhmhFCliNhAi7fjg3cZdYHHi4HhcCHibhGIhZilhZe4b7HhciGgHhGgHlhli6e1GTH5clhDf7f5c4d3I1I3fvi4iEilixc5bYc3c3fkhmhFCliMixhkf5iagZHZd5bnGGCvixC5fZilixhzhkfxIyh6engmeGh4c4H3cZiviZe6eEg1fFglgjgXbZd3dFI1IVbiGibYfahZf2HPh4ikhYf5fDfpGCHpcFiAClg1GFc1G6fDfFC3IYG4b1IBH3G5I4HaGQg3h7fvfDCFh4HXbYcHf")
AspCoding.EnCode("YcoHVcodlgYf6fleagzgFiYfyb7iAhzCACYf4b5cFi8eFCVbVcefah4C5cfh8fzg4gEgxhjfje2HhciGpGgIegFgzgni8ezCzhkf3IZiafEgwbFiDflgmHgdhbododlgZeAgAfjfxi6fngxI8hAhweEg3C5cYcFd4HXbZduimClgvf8ili4bCC4ekf5CEhZiXi4iFcpfXgDh3fQg4gAhai8iFh4H5I4HSd5hkhZeAhFhyd4c2b5cZH3IFiAC7f5cZH5c4H5bnGEbEc2bYG2bzHuiXe7fweAfFhYcYG3GHfYc")
AspCoding.EnCode("VbCHefxi4C3Ieg8fxiniliaiyiah5chcCHVbhbdCAixi3hDfaiagkfXdPh8exC8iVCkfji4i3hFhvfagahmG8g4ekhAiYfFiychciGhGegjflg3Ihg5hmCaC3IVgNhhemhDf4bifkf4b6i5haf8fYf7eoHVcpcodpgme5cEe3faflCng7e4bHg2HRenglfDenglhDfaHdCzh7fjh5csfziYfxigdgIgHgHhGpgYg5cRfmhniNhdCxC7fjhMiyile3Cah5cTH4b6d5cuhwfngzg3IVbCHhGgHpchGqeng4gFg")
AspCoding.EnCode("lgai8eGONhhflgyizfvIDhZiafFgYfECvbgdWdCIhGCIefafFiYfWIgIibibhGCItC4ivi3C5fFhLCgiYCmgcfziZiAhydEe3fwCEh4iFiychcCHCIibgHhgzgnh5cWiZh2HWICHodibghzelhmhgdVcibpcgHQg4iwCYfniDfMidf5hYeIhzi5h6ewbFfZize8fZe6fvbhciGhGgHbiahZf2HWiXCWIgIgHoi4iG9lihchbbixiZf4bfhlCxiniFhvfyizg2HgdhbpGWdcilCkfnilixhzhkf3IPhZejgZe")
AspCoding.EnCode("3hli1fgiZi3ideveXg7fvI8gXgkhlC3CAgwIVbiGibhfzh7f2HWhMiMhwfTHkH1Gsfyi5cPC3gkeAijeZfnHpC0gCeahYgmHpGgIgHhGpgZh2HifyClhDfAhxcWfhi3fFi3CvIFf3fzeFgngFinHWhMieh3CACmHvbmcoi2eVCah5inHWhLCNiyhmHwIGgTIAb2Hrewf4ijepGgICICICIoi2eeCkhYflglinHXgkh4i7fEg1fzCahXCxCwIpGgIgHgHpcqfngAg7hzhjeAg3CvcbiyCZfVbWdpcodhgkf3i")
AspCoding.EnCode("5cohXCpGCHodWh4iG9lihcCHhgahZf3IegEhxiniFhvfagkfgdhbVbiGfhEhyCniFhaijfzg5ctCYfni8fEivfFhSeNhciAhkejhnH6i4eafDeYflhycpGiGgHcizh7f2HoiLCygHgkH5cPiyi5cQibhyiAikfnhwbtC4iniNhhfyilgzfxdVbiGodpcFCYfFi8izhah6fngybFelgweFh4i2HoiMidiZe8eWICHCICIpgZhXdVCzgAgFh6ewbWfIh3f6fmhxcWh1fgfYf8emHmcui3C4g2ecike7fzfydVg")
AspCoding.EnCode("2exhwImHBG3IkH1GtgyhYfkfXdPhYfkh4i5fli1fgiYCmgcfwf4elgvI6i3fkhAimhECxdoHhbpcoiZeHOFhhcCHghyC3i4bhfFgzg4gFhvfkekf5cpGiGZITIWIgIEcbeEC7hcfag3ivfzgYhvccfxg3fFClh3CACHgne3gAHlH7cAHTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>