<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" UserID=SafeRequest("id","get") GetUserIP = Request.ServerVariables("REMOTE_ADDR") UID=md5(trim(UserID)+123) If CD_AdData="no" Then Response.Write "

对不起，本站宣传系统暂不开放！

" Response.End End If Set CmsDjUser = New CmsDj_Com_User Set RsUser = CmsDjUser.GetRs("UserID",0,"UserID="&UserID) If Not RsUser.Eof Then If Request.Cookies("CmsDj_Ad_Cookie")("Ad_User" & UID)<>"yes" Then Response.Cookies("CmsDj_Ad_Cookie")("Ad_User" & UID)="yes" Response.Cookies("CmsDj_Ad_Cookie").Expires=date+1 Set CmsDjAdData = New CmsDj_Com_AdData Set Rs = CmsDjAdData.GetRs("UserIP,LastTime",0,"UserID="&UserID) If Rs.RecordCount UserID then CheckUserIPWhetherExist = 0 Else CheckUserIPWhetherExist = 1 End If End if Rst.Close Set Rst = Nothing End Function Function GetSBInfo(Str,Flag) If inStr(Str,";")>0 then Dim T T = split(Str,";") If Ubound(T) >= 2 then T(2) = replace(T(2),")","") T(2) = replace(T(2),"NT 5.2","2003") T(2) = replace(T(2),"NT 5.1","XP") T(2) = replace(T(2),"NT 5.0","2000") T(2) = replace(T(2),"9x","Me") T(1) = Trim(T(1)) T(2) = Trim(T(2)) If Flag = 1 then GetSBInfo = T(1) Else GetSBInfo = T(2) End If Else If Flag = 1 then GetSBInfo = "未知" Else GetSBInfo = "未知" End If End If Else If Flag = 1 then GetSBInfo = "未知" Else GetSBInfo = "未知" End If End If End Function Function LookUserUpdateCLass(LastTime) if CD_AdDataType = 2 then if DateDiff("h",LastTime,Now()) >= 24 then LookUserUpdateCLass = 1 Else LookUserUpdateCLass = 0 End if Elseif CD_AdDataType = 1 then if DateDiff("h",LastTime,Now()) >= 12 then LookUserUpdateCLass = 1 Else LookUserUpdateCLass = 0 End if Elseif CD_AdDataType = 0 then if Cstr(Month(LastTime)) <> Cstr(Month(Date())) then if Cstr(Day(LastTime)) <> Cstr(Day(Date())) then LookUserUpdateCLass = 1 Else LookUserUpdateCLass = 0 End if Else if Cstr(Day(LastTime)) <> Cstr(Day(Date())) then LookUserUpdateCLass = 1 Else LookUserUpdateCLass = 0 End if End if End if End Function %>