user_ajax.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="Cook.asp" -->
<%
Select Case Request("Action")
  Case "Message"
    Call Message()
End Select

Sub Message() 
  If Int(WR_Mail(17)) < 1 Then Exit Sub
  Dim Message,uFlag
  Set Rs = Conn.Execute("Select Top 1 WM_Message From WM_Member Where WM_ID = "&MemID)
  If Not Rs.Eof Then
	Message = Rs(0)
  End If
  Rs.Close
  Set Rs = Nothing
  If Message = "" Or IsNUll(Message) Then Exit Sub
  If Int(Split(Message,"|")(1)) > 0 Then Response.Write "<div style='background:#FF6600;padding:0 3px;width:auto;float:right;margin:0 0 0 5px'><a href=User_Message.asp class=white>您有 "&Split(Message,"|")(1)&" 条新短消息！</a><bgsound src='"&WR_Setting(3)&"images/mail.wav' loop=1 /></div>"
  '代理检查
  If AgentID > 0 Then
    If CDate(AgentTime)-Date() <= 30 and CDate(AgentTime)-Date() > 7 Then
	  Response.Write "<div style='background:#FFCC00;padding:0 3px;width:auto;float:right;margin:0 0 0 5px;'><a href="&WR_Setting(3)&" class=white target=_blank>您的代理权限将于 "&CDate(AgentTime)-Date()&" 天后过期，请尽快联系本站</a></div>"
	ElseIf CDate(AgentTime)-Date() <= 7 and CDate(AgentTime)-Date() > 0 Then
	  Response.Write "<div style='background:#FF9900;padding:0 3px;width:auto;float:right;margin:0 0 0 5px;'><a href="&WR_Setting(3)&" class=white target=_blank>您的代理权限将于 "&CDate(AgentTime)-Date()&" 天后过期，请尽快联系本站</a></div>"
	ElseIf Date() - CDate(AgentTime) = 0 Then
      Response.Write "<div style='background:#FF6600;padding:0 3px;width:auto;float:right;margin:0 0 0 5px;'><a href="&WR_Setting(3)&" class=white target=_blank>您的代理权限将于今天过期，请尽快联系本站</a></div>"
    ElseIf Date() - CDate(AgentTime) > 0 and Date() - CDate(AgentTime) <= 7 Then
	  Response.Write "<div style='background:#FF6600;padding:0 3px;width:auto;float:right;margin:0 0 0 5px;'><a href="&WR_Setting(3)&" class=white target=_blank>您的代理权限已过期，如您需要继续代理本分站，请联系我们，否则将在 7 个工作日之后自动取消您的代理资格</a></div>"
    ElseIf Date() - CDate(AgentTime) > 7 Then
	  Set Rs = Conn.Execute("Select WM_GroupFlag,WM_GroupName from WM_UserGroup Where WM_ID = 3")
	  If Not Rs.Eof Then
          uFlag = Rs(0)
          Call WRDB.SaveConsume(1,MemName,0,Int("-"&Split(Split(uFlag,"§")(0),"|")(1)),Int("-"&Split(Split(uFlag,"§")(0),"|")(0)),0,"取消"&Rs(1)&"资格")
	  End If
	  Rs.Close
	  Set Rs = Conn.Execute("Select WM_GroupFlag from WM_UserGroup Where WM_ID = 2")
	  If Not Rs.Eof Then
          uFlag = Rs(0)
	  End If
	  Rs.Close
	  Set Rs = Nothing
	  Conn.Execute("Update WM_Member Set WM_Agent=0,WM_GroupID=2,WM_Flag='"&uFlag&"' Where WM_ID = " & MemID)
	  Conn.Execute("Update WM_Area Set WM_Agent=Null,WM_EndAgent=Null Where WM_ID = " & AgentID)
	  Response.Write "<div style='background:#FF6600;padding:0 3px;width:auto;float:right;margin:0 0 0 5px;color:white'>分站代理资格已取消</div>"
	  Call WRMPS.SCache("FlagTime",Now())
	End If
  End If
End Sub



%>