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