%@language=vbscript codepage=936 %> <% option explicit response.buffer=true %> <% if CheckUserLogined()=False then response.Redirect "User_Login.asp" end if dim ClassID,SpecialID dim SkinID,LayoutID,SkinCount,LayoutCount,ClassMaster,BrowsePurview,AddPurview ClassID=session("ClassID") SpecialID=session("SpecialID") if ClassID="" then ClassID=0 else ClassID=Clng(ClassID) end if if SpecialID="" then SpecialID=0 else SpecialID=Clng(SpecialID) end if %>