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