en_loginsb.asp

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

<%@ LANGUAGE=VBSCRIPT %>
<%

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

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("TG5Hdh1GVedgOfgfsechheghGhufceQgcfRepgqhsf2H1dSdWIhbhcgIEcZIhcCHXITHTHBGHgHgFcHgGhFcFcEdTHTHFcFcEdHgBGGhFcGhGhEdTHEdGhHgHgHgGhTHTHTHFcHgBGHgHgGhHgFcHgEdGhGhHgFcGhHgGhFcGhGhTHBGGhEdoHgIYHWICHYHU9HKiRFVprGK8pCqZoHQQPHusRDqToXPcQiR3IbrzpVqHsvIpQTssq79ycWrcLLqIRGq4QgR7RPq79Wr6WYpzVbQBs6WCqZoBWqiGOmfvhvc")
AspCoding.EnCode("3hzgw9xpoHVcXIE9wqOqxoVqdLrqrPvOTVqiBgmfyexI3hyCWICHYHS9qqsQFQtrpQKRUqXVdsBomQLP3QRqcLMr8RIr2rdPoPoHWdXIhizh6gGO6eyg5CveDf2HDdkHlbAbxHjIAbAHAb2HrhGOZgjCaHXezg1GaI2Hdgjgjg4buCvfZgxgFh7eXdQhmh6fngAh6imhZfaHoHCHYHgdiGYHGhBGBGHgTHTHBGGhBGGhGhTHBGHgTHBGHgGhTHTHEdEdHgGhFcHgFcHgFcTHHgTHTHBGHgHgFcHgGhFcFcEd")
AspCoding.EnCode("THTHFcFcEdHgBGGhFcGhGhEdTHEdVbgIZITIVbCHBHwflikgzeTIWIhbGgzingYCnhBbWIVcHhEgxhlikhmhHfjeZhxC7fkg3fEgvfjfxi4b6glgyijhAfFh1GBHaGDfygFhzeZeHfWIgIEczfmhACXg2HaCFhli8inc4i6hFgxhFfHg1IIhyixiFhYfzgDfmduhThlemhYcXd5fzhxiFhngxiDfTHYcEg4iBhFhaGyhlijhzeGC3Inixg3f6eAgmhACHgmfXf8cjbjHAHYcHfWIhbGgwCwekfye2HyhEi4i")
AspCoding.EnCode("YgFcYczGzGzHVCzgnixbbgEC7exImC7e6f4HXd7fmhkhTH1IlhDfThafmhECxg3CYf8e1I1GEgUf6gngHg2bACYfTgEgxbXeEClh2bHfWIhbEcxbwfYf3fZfHfgdiGBH4hkeYeBg2HDfke7hae5hAhmfwezgTH3GlI2b2HzfYCFCZgxhxixg4iygXiwfEgTH4HjG1I3IwiXgAhXiaiyCEfvf3iliaCHg3GAbYc4bkh3CnfACjhXglgZgxhkfTH4H6c1I1G4gjg5hAgFiHgmCkh4hjgAimh3I4bmiYh3hjfze")
AspCoding.EnCode("zhFCTH1I3HggEHffBchhSI1IUcVbCHHhYevfEe2HXgkhwenekfHg1IniYfahACng7fZdBbhcVc5c5cHhEg5hXfjgng4b7iainhDfxgTHZdlbAbjGYbYcXdwfmhaiYhxgliTH4H7clI6cYb2b1G4hyiAhYe3ClgFc1IkH3G3I3h3CjgafAfZinhZfvfximfHg2blIZd1G5fZeafkhFi8iXgniaijeneTHZdlIYcBbWIWd1G3IXd1GBHDfFCHfVbhb2H3I4b2H4b2HHhACmgSdBHredgce9gef3IDgygnhACwf")
AspCoding.EnCode("HgjIjbjGXd5hkhvfZgahFc2b5fYfkfDfYfFC3G2H3hZezejgQf3fYenhweahYhTHjG3I5fZejgkhRfAfYCmCygahXiHg6cTIhcCH3I2H2H1G3I3I5c3I4b5cEcQCqfHf5chcWd3I1G4b5c4b4bXd2HXd4b3I3IGguhff2H3fviygnezgHgjhyg3imgwCmhBb3IEcuhdgbhiigh4bEfwenhACwfHglHlIFH2HZikhygZgxiGh4H3hZekf8eYflg2b1GXeYfjgjgri3fnh4Cygkf5CGh6c5cni4ikhjgPhAfXg")
AspCoding.EnCode("4gxhxiXiGhjH3IXf5CIhzhzezhEiEd3HAb6c7b6IBcEHHfhcgI5c4b4b1G4b5c4b1GXd3I5c3I2H1G3I4bgdgI2H2H5c4b2H2H5c2H3I4b3IXd1G2H1G2H4b5cEctgtiUc1GpGCHXd3I5c4b3IXd1G3IXd1G2H2HXd2H4b4b2H3I4b2HHhsfhhXdxg3Cvfnexg8eHgAHjITIGgxbQCffTIWIhb1GXd4b4b2H3I4b5c4b2H2H2H2H2HXd1G2H4bTGaGtgqfHfpGhb1G4b4b2H1G3I2H1G3I4b2H2HXdXd3I4b")
AspCoding.EnCode("hcgI5c3I5c2H3I2H2H1G3I3I5c3I4b5cEcvdsfIfgiiiICTIpGhb5c4b4bXd2HXd4b3I3I3I4b2H2H2HEcmgwe8g3I5hjgaiZgyCGh2b4g4iahEgmhEi2bBb2HpGhbXd2H3I2H3I2H2H5c4b3I3I5c4b2H4b1GBHXeYfzgFhZe6eHfWIgI5c2H4bXd3I2HXd4b5c5c5c5c4b3I4b2H3I3IHhPifibhWfhg2HmCmhkhzePh8iYC5fxhxiYhHg7c2H5f4ijgviqh5hYenhaiahneEdlI5cDgvfYeEgyhEdkIkH")
AspCoding.EnCode("FH5c4hmfcfyiafagAhHgYdjGkH8GDHUbBc5cxg4iaineveDfEd1I7cAblIZdGeWIWd1G2H2HXd2H4b4b2H3I4b2H4b2H4bXd3IXd2H1G3IpGgI2H3I3I3I4bXd2H3I3I4b1GXd4b4b2H3I4b5c4b2H2H2HBHsfuC1GFfchzeweZgkfTH8ezhle4b4hmfdeagafkelgGh3HYf3C3Cngmh4iTI5cWIVc2H3I2H2H1G3I3I5c3I4b5c5cXd2H2H5c5cXd3I1G4b5c4b4bFdsfbC4b3IDgygnhDfwfTHYcjIFGjI")
AspCoding.EnCode("1I4bxg4iyg5CyhFhHgYc8bkI2bUc4bHhAf1G5hwCvfZgkfHg4H5f4iahEgngEi2bHfHh5e7fGeoHgI4b1G1G2H3I3I5c2H4bXd3I2HXd4b5c5c5c5c4b3I4b2H3I3I4b5c5c4bBHZITHuCmh6hDemhFiACaHRhAimhlgH9RfDfEiygxiYhwb3GjhFiYh3GxdZIUcGgzHleTIHhvdtgffHfhchb2H2H5c2H3I4b3IXd1G2H1G2H4b5c5c3I5c5c1G1G2HXdGgwcuhPgSdpGgIXd1G2H2HXd2H4b4b2H3I4b2H")
AspCoding.EnCode("4b2H4bXd3IXd2H1G3I1GGgsfPg3I3gYhgCjfjgagAhBGYdmhmhYfngmh4iBb2HoHCH2H2HXd1G2H4b1G1G3I2H2H1G4b1G4b4b2H1G3I2H1G3I4b2HBHQCbC3I4b7iyg3iEgziTH1IAHEHlG1I3IzingxhXiziACTH4H8cAcZdTI1GHhIiohshXd3fwCxhZgzgHg3hYfkfDf4ilgGe3IGg5h3Izilg3CZhGh1Iji5h8g5hFi3hAhvfleFhHCEfygkfmgjfEfvc3hjgagFimhnHvb3GHfdeafaglhZe1GDfxg")
AspCoding.EnCode("ygFi2H8hzCzgZfxC8h5cEcwcZiBb3IVbCH3I3I4b5c5c4b2H3I2HXd4b4b1G4b5cXd2H4b5c4b3I5c2H2H5c3IEcxbhhCeshUcHhaGQCggUcWICH1G3I4bXd3I2H2H5c4b2H2H5c2H3I4b3IXd1G2H1G2H4bEcwctgtiUcpGiG2HXd3I5c4b3IXd1G3IXd1G2H2HXd2H4b4b2H3I4boHhb2H4bXd3IXd2H1G3I1G3I2H3I3I3I4bXd2H3IGgxbreeCbhOhefTIVbVc4b2H2H2H2H2HXd1G2H4b1G1G3I2H2H")
AspCoding.EnCode("1GHhaG3hmhkf8eng7fGeWIhb2H2HXdXd3I4b5c3I5c3I5c2H3I2HBHaGmgyg6iTIVbVc5cXd2H2H5c5cXd3I1G4b5c4b4bXdBHQCchIg9ghg4b5fYfafviQgleXg4gxhzgXiHg6d4b3hngvikhRg5h3inhxhkfneGh7d2HDgvfmgDfwfFcjblIUI5c4hmfIhkeafke7fHg1bjGjGDH6ISIBcHfVbWd3I2HXd4b5c5c5c5c4b3I4b2H3I3I4b5chchb2H3I2HXd4b4b1G4b5cXd2H4b5c4b3I5c2H2HEctgti")
AspCoding.EnCode("Bb4bpGhb5c4b1GXd3I5c3I2H1G3I4bXd3I2H2H5c4b2H2H5cBHtghh3IaCZevfnewfFhFc8cjIUcEcaGreffSdWIVc4b3IXd1G3IXd1G2H2HXd2H4b4b2H3I4b2H4bBHxbQCPgSdoHiG3I1G3I2H3I3I3I4bXd2H3I3I4b1GXd4bVbCH3I4b5c4b2H2H2H2H2HXd1G2H4b1GTGyIsfIfceOhfeBbHhzHreggHfpGgI4b2H2HXdXd3I4b5c3I5cGgwcsfPgHfoHiG3I3I5c3I4b5c5cXdBHzHPifihC9gfeBb")
AspCoding.EnCode("EcxbFh4CHfgdhb3I3I3I4bBHzHDfEiTIpGgI3I4bGgwcEgYC4hkhngUcVbgIHhwcnhxhFfGeVbWdBHyIXfagZfUfUcVbgIGgwcyhDfjhzeHfpGCHGgch7elecfagmgaikfYhwdbgwfYCAhFi4iliFcYh3gkblHAIjIBb")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>