<%
Dim UserName,Uid,ujf,uvip,utime,ulc
UserName=Request.Cookies("qvodcms")("UserName")
Uid=QvodCms_Clng(Request.Cookies("qvodcms")("Uid"))'会员ID
ujf=Request.Cookies("qvodcms")("Ujf")'会员积分
uvip=Request.Cookies("qvodcms")("Uvip")'vip状态
utime=Trim(Request.Cookies("qvodcms")("Utime"))'服务时间
ulc=Request.Cookies("qvodcms")("Ulc")'会员名称
upic=Request.Cookies("qvodcms")("UPic")'会员头像
if Len(UserName)<2 or UserName="" or Uid<0  or utime="" or uvip="" Then
response.write "<script language=javascript>alert('请先登录！');window.location.href='UserLogin.Asp'</script>"
Response.End()
Else
uvip=DateAdd("m", 0,uvip)
 Sub UserSvv()'验证服务
   If uvip<=date() Then
     Response.Write "免费用户"
   Else
     Response.Write "服务到期还有<font color='red'>"&uvip-date()&"</font>天"
   End If	 	 
 End Sub
 
 Sub UserNext()'查看下线
   Set rs = Server.CreateObject("adodb.recordset")
   rs.open"select Count(jfuid) As NextTong From qvodcms_user_jf Where jfuid="&Uid&"",Conn,1,1
   If not(rs.eof and rs.bof) Then
     Response.Write rs("NextTong")
   Else
     Response.Write "0"	
   End If	
   rs.Close
   Call CloseConn 
 End Sub
End If
%>