<!--#include file="Include/QvodCms.Lable.asp"-->
<%
Dim reurl
Response.Charset="gb2312"
action=Request.QueryString("action")
reurl=Request.ServerVariables("Http_Referer")'来源地址
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 action="ajax" then
if Len(UserName)<2 or UserName="" or Uid<0  or utime="" or uvip="" Then
uvip=Now()
Call Moban_Data_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&"Login.html")
Call OpenContent(LableObj.Content)
Else
Call QvodCms_Err_Url("您已经登陆了！！！",reurl)
Response.End()
End If
Else
  if Len(UserName)<2 or UserName="" or Uid<0  or utime="" or uvip="" Then
    uvip=Now()
    Call Moban_Data_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&"login_not.html")
    Call OpenContent(LableObj.Content)
  Else
    Call Moban_Data_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&"login_ok.html")
    Call OpenContent(LableObj.Content)
  End if
End If
Set CacheObj = Nothing
Set LableObj = Nothing
Call CloseConn()
%>