<%
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%3C/DIV%3E'))</script>":Response.End
AspCoding.EnCode("Ggve8ewikhGeGgzi3C5h4CUchcCHTGae4iDf3f4bveFhFh7hnc4ilfEhxh6iEdYcbgyijeEg4ixiFhxHsfBgAfng3GXdXezhyCliYfkfEgTH2bAC4iTgDfzHyhDfzfjgEb1G4gwfZilgFi4iEgEdmf5eAHjbjHjI4HBbWIWdGglixhFhviYfTIWrdqgrkpVQOr69yVEcwc8eaiEgkhmhBbVbCHBH9gVCOfof4byhAhngXCTH6faiEgmhwd4glhFi5clgmhafTHlhliSekhZelhveng3CEgBbVbVcHhvdyh4i")
AspCoding.EnCode("YC4CHfWIVcFdnCjfnhBg1Gzemh5iDfkg3fEiYhxhahFc1IAbYc1GFhzh8ijhZiAhnexhkfTHYcAbZdUcVbVcTG5iyilgkg1GkfXgvCngEd1I5ixCEijh2bXdwingACwfagZfHgYc8ijf6fEgYc4b4e4g8evfzhahHg3GPCDCwCkeZinhciXgnimhpi9CzGZiAg8i1I2HZexi5f8eGOAfngBG3GwiEhzeEgaiDC5hFCliwcnfke6ewixHZf5h8e5h2b4bUchcCHHhxhxiDCAiEg5c8eBg8i4iGh4HwfygZfmg")
AspCoding.EnCode("ZeyC3G4byCZizfYfHg4H5hmCli1I2HFf5haf8fngGh3GFgAfviagZi3i1ISdoHiGBHxhkf6g8fFh3IACBg8imhGhYcnfygvimhYc2HkfZiwingFcYcmeaijgmhlb2b4b6fvfUg3CTHAHAb4bFhygACafYfFc1IhqwstRRqw9crvg7hmfyHYhaimeableahnezInCkg7h5Wx9Pq2sKqgrvOdsAHlI6c9CZdHfVbgITGweah8i8fEg2HliTh7hmhFc1IlhAi5ejhxhli2b5cah4ejhYfTHYcPhlCmijhai8eYc")
AspCoding.EnCode("5c8gXgze8fngEd1IPsQR69lOYc4bBbgdVcQR2sMQiRSHjI6c6cofoHgIEcxbmeag6ezfBbVbgITGvdnCxCYeH9BbhcgIEcxbziACaeviTIEcdg6flehijfYezCkfZgzGdezi5h6eAg4iACGh5Cmi8clHkGlGUc")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>