%@language=vbscript codepage=936 %> <% option explicit response.buffer=true Const PurviewLevel=2 Const CheckChannelID=3 Const PurviewLevel_Soft=3 %> <% dim ClassID,SpecialID dim SkinID,LayoutID,SkinCount,LayoutCount,ClassMaster,BrowsePurview,AddPurview ClassID=session("ClassID_Soft") SpecialID=session("SpecialID_Soft") if ClassID="" then ClassID=0 else ClassID=Clng(ClassID) end if if SpecialID="" then SpecialID=0 else SpecialID=Clng(SpecialID) end if %>