<%
Dim UserName,Uid,ujf,uvip,utime,ulc
UserName=Session("UserName")
Uid=Clng(Session("Uid"))
ujf=Session("Ujf")
uvip=Session("uvip")
utime=Session("utime")
ulc=Session("ulc")
if Len(UserName)<6 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
 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 tgzcm_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
%>