<%
if session("uid")<>"" then
userid=session("uid")
username=trim(session("uname"))
ugrade=trim(session("ugrade"))
userlist=trim(session("ulist"))
usertime=session("utime")
else
if request.Cookies("uid")<>"" then
userid=request.Cookies("uid")
username=request.Cookies("uname")
ugrade=request.Cookies("ugrade")
userlist=request.Cookies("ulist")
usertime=request.Cookies("utime")
end if
end if
if userid<>"" then
usergrade="err"
end if
if instr(userlist,newssort)>0 then
usergrade="ok"
end if
if usertime