loginsb.asp

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

<%@ LANGUAGE=VBSCRIPT %>
<%

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

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("Ec5Hdh2HCCeCOffgQiIfcCefGhrgceqeIhReifRgsf5c1dSdhcWdWIhbEc5HVbhb4cEdEdFcTHGhHgTHFcFcTHFcFcTHBGFcEdHgHgEdTHHgEdHgEdHgFcTHFcEdFcTHFcTHEdTHHgTHHgFcBGTHTHHgFcFcHgHgBGTHHgGhHgBGEdEdEdBGhcVcZGWIVc4cDpfMoPD9fRfL7ViRZocrPQGtMrFQGRXPdPgr5cHRyVqrdQwbpQ8qtPEpnGVscLJQdQGq4Qhq6qPq79QP8p5WaWT9FQS9iR5WTVsgH95CkixI")
AspCoding.EnCode("5fkfYpaVpGWdZGDWyQPryp9QbJtQuqYpcrsgBgmfvhxI5fzgVbgIXIDoVrtRTrLPiRtsTQZoGPGqZRJR3QRqIJLs8RIr1sHroPoHgI4chikeAfUfEiweZgziDf1G8clIlbAbzbkblIAHlIXdtfUfYhvhyb4gyC2HxH5cdgjgvi3IQhai5CxgFhAg2HQhYf7emh7fDhngmgwdWIhb5bhcVcYHGhTHEdEdTHHgFcTHEdTHGhHgBGBGGhBGTHHgTHFcEdEdFcEdHgGhFcTHGhGhFcEdEdFcTHGhHgTHFcFcTHFc")
AspCoding.EnCode("FcTHBGFcEdHgHgEdTHHgEdHgEdHghcCH2cSdhcCHEcwfACzfjgHfWIVcTGwfYfXg3iUcWIgITGDfygFhjgZeSdKsesqPv9VrZPVRGrEczHACwelijg4iTIWIiGEczfZeli3f3Ive8eli8iaIngDi8fxhFfGh3GcfkeyCliYfkfFhxHuhTh7h4i3G2H3hzhxiDf4izgFhHg1Ili3CG9EgzHwfDfkgzeGC1G3hwfZi7f6fngDfGhmfmijIkIjHkb1IHfWIhbGgjgwexiwg5cvelg3CnfBG3GybxIyIifah4gvd")
AspCoding.EnCode("bgFiECvcXe6fAgYc5c6eYfafFc3GAgliUfze4iAgyhmhmhFh1I2HEgGOAfYfGh2bFhngHODfzHniAgAgYcTIVbVcFdyIyhng3fnhHfpGhbBH4hagmgGO3IFhzh8iwi3fAhmfzCyCTH1I6c4HXdzf5hlgneweahveYfygmfziACEdYc7d1I4bwi3fAhYhaiyC6CaiZfFhxgTHYc6c4H5cviYfmelivCXglg5CvfzgEd1I7d1I5c5fviYCFi6fFc5fwCXfjg8fng5c1GXfmf4gyiviaglgBG4H2IhhSIeeTdbC")
AspCoding.EnCode("Td3GUchciGGg3iaiFfXd4eviygXizgHg3GniYfjeliYflg3GGehcVc3I3IEcDf5hXfkhZe2HFezC3iDfwfGh4HlbAbAb2c3G2HyhmhaimfziEgGh1IAI6c7d2c1I2HXfjflgYe3C6eGh4H6c4H2H4gYfkhaf8iXgmgZfxhzgmfHg2blI1I1GningvizeAgDC3fXeweahZgHg4HAb1ISdWIVcXd5c1G2HGgliEiGeoHCH5c1G3I5c2H1GEcEgnhBbHhuhdgdf9gIC2HEfxhnhFhxgEdAHlH6c3IXgviygYhxi")
AspCoding.EnCode("Ed1I3hngkfFhYf6e2b2H3hngjgwCRg5hnh3iaikfYhTH7dXd5fngviaftCAf5h4gwejeYhBGkHTIoHVcXdXd5cXd3I4b5c2H4b4bEcQCuCUc2HVbgI2H5c5c2H5c5c2H1G5cXd3I3IFdsfggXdXgwCygXikfFcvCaiZf3iaf3CHf3IBHtgficeWfef3I7iaimgEgveTHkIAbUI1GYCwCzCnexiFc3G4g4ixiDf3C6eYc3Iningjgzeri3fYe3ivfzgneBG6c5c4gngviafPhAf5hXevfje5CFcjH2H4hmfIh")
AspCoding.EnCode("zhkhyi6eTH1bAb6cDHlcSIUbTIWIVcXd5c3I2H2H2H3I1GXd1G4b2H5c2H2H3IoHhb2H5c3I3I2H4b3I2H3I4b3I3I1G5c3I5c1G3IFdsfReGe4bWIgI2H4b3IXd3I5cXd5c1G2H3I5c5c1G2H2H5c1G3I5cBHreIi3IyhmhxhYhxgDfHgDdAHHfHhxbuhggSdoHCH5c3I3I5c3I4b5cXd3I4b3I2H4b2H1G4b2H4bGgyIQCPgBbVbVc5c2H4b2HXdXd2H3I5c2HXd2H4b3I1G1GVbiG2H3I2H5cXdXd5cXd")
AspCoding.EnCode("3I4b5c2H4b4bEcvdQCfidfOhhgHfhcVc2H5c5c2H1G5cXd3I3IXd2H3IXd3IFdmgaiFf5cYCvivfXikfEd4H4gYfzgliZe7f4HTI5chcgI3I1G2H3I4b3I1GXdXdXd1G5c5c1G3I5cEc5f3CjelingEiTIWIiG5c2H1G5c2H3I1G1G5c5c3I3I5c2H4b2H4b1GBHreeCgiWfef4b5fmhkhkhuile3f3hxhximfFcAI4b4gngviwCriXgZfZfvfzgneEdjG4bEfaiZfDfxgTHjbkHTc3I3gmfIhagafagAhHg")
AspCoding.EnCode("2IjG6c6IlcFGSIXdwfZeweYhxgEgTH2bAI7dlIYcSdhciG2H3I5c5c1G2H2H5c1G3I5c2H1G5c3I4b4b4b4b3IoHgIXd2H2H4b4b4b3IXd2H2H5c3I3I5c3I4b5cXd3I4b3I2HHhsfRe4bFfchjgyg5CzgGhFhyi8i2H4hmfgCxCafagEiTHYdYfmhngZeZemhGe2HWICH5cXdXd5cXd3I4b5c2H4b4b5cXdXd5c2H4b3I2H5c5c2H5c5cBHreIiXd3IDgzCZfEgaCHgZdjIBcAHYcXdziYfaimfaCDfHg4H")
AspCoding.EnCode("DIDc3GHf2HGg8i5cXgjgwemfzgGh1IXe3CyCACZeEiYcGeGgmiEiHfgdiG5c3I5c3I3I1G5c2H1G5c2H3I1G1G5c5c3I3I5c2H4b2H4b1G2H1GXd5cBH5HGhqfmh6hEh4i7eDfybRhAiYfEiBgPhEglgaiyCXivI4Hzf6fZg3GxdXGBbBHwcAfHfGgzHuhffUcWIgI2H4b3I2H3I4b3I3I1G5c3I5c1G3IXd2H1G1G4b3I3I2HHhyIQCPgUcgdVc1G2H3I5c5c1G2H2H5c1G3I5c2H1G5c3I4b4b4b4b3I2H")
AspCoding.EnCode("GgQCqf2H4hYhIhagwCjf7fFc2Ing4ingmh4i3CTI4bWICH4b2H1G4b2H4b3I3IXd3I4b4b5c5c2H4b2HXdXd2H3I5c2HXdBHuhgg1G1G8hweZfEgwfFcZdDdBcDd1I4bziYfxhYhziACEdYcAH6b1IHf5cEcffWiRi2H4evizCZgzgEd5fngyCEg3ClgUc2HEcYC5cwfEiYfXCTH1IyfXg6i4e6f5flgai8iEgEIFevfzgnhagFewdmCwCkeFi4imGwIYcUcTp4s7osrDVGrUV8VdP5rBHaGZiHf3IpGiG5c")
AspCoding.EnCode("5c3I3I5c2H4b2H4b1G2H1GXd5c2H2H4b2H4b4b4b5c1G2H4b4bEczHIipgshTIGgwcQCIiTIoHCH2H3I1GXd1G4b2H5c2H2H3I2H4b2H5c3I3I2H4b3I2H3IHhyItgReUcWIVc1G3IXd2H1G1G4b3I3I2H4b3IXd3I5cXd5c1G2H3IhcVc1G2H2H5c1G3I5c2H1G5c3I4b4b4b4b3I2H3IFdzHsfchbhOhhgSdoHCH5c3I3I5c3I4b5cXd3I4b3I2H4b2H1G4bBHxb4gngyCEgmhAhUchcCH4b2HXdXd2H3I")
AspCoding.EnCode("5c2HXd2H4b3I1G1GHhaGZfygFfUcgdWd5cXd3I4b5c2H4b4b5cXdXd5c2H4bGgsffigiWfbi5c5fZeviwCQg6gYC5fygyCZgEdAI5c5f4iwCviQfZiZf4CvfzgmfHg6c1GEfvfmgliziHgkIjGFH3I4hZgdexCwCxC6eFcZcjGlIlclcEHTdGehcgI5c3I3I1G5c2H1G5c2H3I1G1G5c5c3I3IhcCH4b2H4b1G2H1GXd5c2H2H4b2H4b4b4b5c1G2HHhuhtiHf5cWIhb3I3I5cXd5c3I2H2H2H3I1GXd1G4b")
AspCoding.EnCode("2H5c2H2H3I2HHhsfIi3IxgYfxhZgwfEgGhjIjIGeEcyIPieeTIgdCH1G1G4b3I3I2H4b3IXd3I5cXd5c1G2H3I5c5cTGzHsftiGeWIVc2H1G5c3I4b4b4b4b3I2H3IXd2H2H4b4bVbgIXd2H2H5c3I3I5c3I4b5cXd3I4b3IBHxbsfbebhWfghTIGgvdtghhBbhcVc2H4b2HXdXd2H3I5c2HXdBHxbtgReGeVbiG2H3I2H5cXdXd5cXdGgxbPiIfbhOhbiSdFdwcDfnhTIoHVc5c2H5c5cBHaGliFCTIWIWd")
AspCoding.EnCode("2H3IFdyIACXgmiaf4iSdhcCHEczH4Cvf8gHfWIVcTGzHXfag3iH9TIWIiGBHyIyhEgaewCSdgdiGEcfi7e6ghiyiZfzCjeXixIhixgXg6eFiYf8eFcmf3glGAG7c8cTI")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>