ordermessagebox.asp

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

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

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

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("Hh2cdhWfIfOfgfrfeCheefGhteceQgcfqfCeqhre4bIh9feehgQfbefgghTHEH8dAd4bYbSdWIVcWIVcBHxgDfzfzeTIWIVcGgyh4iZi4CHfWIVcEcACyg8ekh4iBbuqCPRQwOqqnRVRIRHhzHDfvflijgZeTIWIhbGgwingAC5h4bzgZijhngGhYcchEhDfvezhFC4H3I5fagkfDf4iahFhHgYcphUf7hke4HGeoHgIHhaeZeDfXg3IyC3fjh3CHg4HdezhxiliZiniFh1I4b5fagzgli4ixiFhTH1IogGO")
AspCoding.EnCode("7hzhIerhI96dDHjbvc3hagwi4HHfhcgIEcjhmh8e5h5cxi4evCngFc1Icfjf6gThFCygmfwfli2b2H5fyikfEgmhzgACTH4HVeEflblcDcxIniyiae3GHfgdgIEcjhngAC4e3IaC8eEgAfmdYf6hEhvf8gGh4HIhjfahACngyCDfyGtgSe6gYf1I3I4gzhyCDfngzgFhBGZdFhmhSfEgxbziFhzfafUH2H5faC4e7flhZe8eHgmfXflGjbkGkb2bHfpGgIBHzeygahxf2HaCFCmhZhEd1IWizgnizHOg3fkf")
AspCoding.EnCode("4eZgngCingahlivcmC6fAgYc5cFCngzeGhYclhFhSeaf3ClhxgngngFh4H2HDfH96gZeHg1IFhngG9Egvd3hlhAgYcBbWIhbEcxbyhYf4enhSdoHgIoHgIBHXfyinhTh3IlizhAfjh4e7fnevfzgGh3GlG4H3IkgYC7fYhzCzgwfZexhXiziliFc2blI2b2HkgXgEiXiaiahEfygmgACyhGh3GAbYcXdafmh5iFhkgZi7fmfaizgFc2bAb3G4bnivi4eECAgFc4gafXfjgEh3C3I2HXfXi3hjfafyi7fHg2b")
AspCoding.EnCode("2IXCnfnfmenfZhYcUcWIVcEc5e6eHfgdgIEc4hlgSdTG3gFCGeGgXfFCHfVbhboHgIHhAfBboHhbFd3gFCHfpGgITG4gYfzgEgngAhSdoHgIWIhbTGDC4b5hafygYhxiGh4H5fYfkfDf3C6e4HBbpGiGGgXf7fGeVbiG4b4bBHredgdfVehg4bEfvf4CACyhGh8dlITc3IziYfygmfwf8eHg1I7cDIAbYc5cnCjflg3i4iFCHg3GAbYc4b3hZeafwCqhXgmgmgxhkfmfTH6c3IXengjgkhQg8iXgmCxhahZg")
AspCoding.EnCode("Fckb3I3hvi5hlh6fBG2bWCYfXgZfng7fsf3iPhFhBgvimh4HBbpGCH1G2H3I4bTGredfWgggNCHfVbWd3I2H1G4b5c5cEcPiQh3IDhIfjgygXixiFcFhjf6gTIXdVbhb1G4b5cXd2H4b5c4bGgPiff2H5cDgainhFhveGhYc8cFGDd1I5cxgYfvfZgyhACHg4H6HDc2b2HFfZiafygYhzgEd4HzfweZfnhvi4i1IUc5cpGiG2HXd3I5c4b3IXd1G3IXdTG6g2HYCafxhYhkfHg2b5fmhkfFh3ClgZdHfTG3g")
AspCoding.EnCode("6eTIoHgI3I3I4bXd2H3I3I4b1GXd4b4bBHZIGhtimhlf8fYf6fDfwdQe8fmh6eSeQgDf7fweahnewb2bzf7eZg4HnGZIBbBHzHDCSdHhxbQCggUcWIVc2H3I2H2H1G3IGgwctgQhUchcWd2H3I5c5cXd3ITGuhtiBb4bpGCHXd4b3I3I3I4b2H2HBHPigg1G3IDgxhmglixgEd2bkbSI8c2b3Iyh4ixhYhwf8eGhZdAH7I4HTI2HoHVc4b4b3I5c4b2H4b1G2H1GBHggohte1G3fjgyg5CkfGhmCngkf8emh")
AspCoding.EnCode("EiUc5chchb3I4b2H3I3I5c5c5c4b2H3I3IFdohWhPethPiXd2HFhH97hngFc6f8fmikgaiFh4b7exhI94iBG8d3I6iXgaf8fngGh8OSVGQ0Q5cah3fzf4iTHQgEh3gvCvfDflG2HzhxihijgainiyeBG4H6Cygxinhag6CzGjgxCXeXgDfzCjfahybwflgmhnfGhYHghECxgxCAfzGXg7e6gYHFI1ITIVbWd2H3I3I4b1GXd4b4b2H3IHhwchhifufHfBHzHQCeeHfVbiG1G3I2H2H1G4bTGxbuhqfGeWICH")
AspCoding.EnCode("1G3I4b2HBHvdQCbhVhbCMgUcWIVc2H3IBHzHredgIgiihgBbhcVcXd2HGg8i5cYCjgweYhxiGh2bXeYfyCFhnglg1IBbBHXf7fUcWIiGGgyI7hTIhcgIFdnhxh8g5c5hjgxhXiahGh5fZeahACYflg2HTIoHCHEcxbnhyg6iBboHhbTGzHXeYfzgFhZe6eHfWIgIFdAfBbgdgIoHiGHhmiEiUchchbWIhbBHyI6gUchcVcVbCHGgyInCzhnhSeBbhcWdBHxbziFhkgviHfoHVcGgfilh7hdezh3iaije5CxI")
AspCoding.EnCode("hixg3f7fAgmhACHgmfXf8cjbjHAHUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>