user_agent.asp

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

<!--#include file="Cook.asp" -->
<%
Call AgentFlag()
Dim WM_Agent,User,EndAgent,i,uFlag
Call DBConnBegin()
Select Case Request("Action")
  Case "Save"
      AreaID = WRMPS.CheckStr(Request.Form("AreaID"), 1)
	  User = WRMPS.CheckStr(Request.Form("User"), 0)
	  EndAgent = WRMPS.CheckStr(Request.Form("EndAgent"), 1)
	  EndAgent = Date()+Int(EndAgent)
      If AreaID = "" Then Call WRMPS.ErrView("·请选择要代理的城市<meta http-equiv=refresh content='1;URL=User_Agent.asp'>", 0)
      If User = "" Then Call WRMPS.ErrView("·请输入待操作用户名<meta http-equiv=refresh content='1;URL=User_Agent.asp'>", 0)
	  Set Rs = Conn.Execute("Select WM_Agent,WM_Email From WM_Member Where WM_UserName = '" & User & "'")
      If Rs.EOF Then
         Call WRMPS.ErrView("·该用户不存在<meta http-equiv=refresh content='1;URL=User_Agent.asp'>", 0)
      Else
	     If Rs(0) > 0 Then Call WRMPS.ErrView("·该用户已代理了其它城市分站<meta http-equiv=refresh content='1;URL=User_Agent.asp'>", 0)
           Set Rso = Conn.Execute("Select WM_GroupFlag,WM_GroupName from WM_UserGroup Where WM_ID = 3")
           If Not Rso.Eof Then
		     uFlag = Rso(0)
	         Call WRDB.SaveConsume(1,User,0,Int(Split(Split(uFlag,"§")(0),"|")(1)),Int(Split(Split(uFlag,"§")(0),"|")(0)),0,"升级为"&Rso(1))
		   End If
           Rso.Close
		   Conn.Execute("Update WM_Member Set WM_Agent="&AreaID&",WM_GroupID=3,WM_Flag='"&uFlag&"' Where WM_UserName = '" & User & "'")
	       Conn.Execute("Update WM_Area Set WM_Agent='"&User&"',WM_EndAgent='"&EndAgent&"' Where WM_ID = " & AreaID)
	       If WR_Mail(5) <> "NO" Or Int(WR_Mail(17)) > 0 Then
		     MailBody = WR_Mail(18)
	         Email = Rs(1)
		     Set Rso = Conn.Execute("Select WM_Name From WM_Area Where WM_ID = " & AreaID)
	         If Not Rs.Eof Then
	           MailBody = WRMPS.GetReplace(MailBody,"{$City}",Rso(0))
	         End If
		     Rso.Close
	         MailBody = WRMPS.GetReplace(MailBody,"{$BeginTime}",Date())
	         MailBody = WRMPS.GetReplace(MailBody,"{$EndTime}",EndAgent)
	         MailBody = WRMPS.GetReplace(MailBody,"{$City}","")
             Subject = "恭喜！代理 "&WR_Setting(0)&" 城市分站成功！"
             If WRMPS.SendMail(WRTemp.SiteLabel(MailBody&vbCrLf&vbCrLf&WR_Mail(4)),WR_Setting(0),Subject,Email) = True Then
	           If Int(WR_Mail(17)) > 0 Then
	     	    Call WRDB.SendMessage(User,Null,Subject,MailBody)
	           End If
	         End If
	       End If
	  End If
      Rs.Close
	  Call WRMPS.SCache("FlagTime",Now())
      Call WRMPS.ErrView("·分站代理分配成功<meta http-equiv=refresh content='1;URL=User_Agent.asp'>",1)
  
  Case "DelAgent"
      ID = WRMPS.CheckStr(Request("ID"), 1)
	  If ID = "" Then Call WRMPS.ErrView("·请选择您要取消代理的分站城市<meta http-equiv=refresh content='1;URL=User_Agent.asp'>", 0)
	  Set Rs = Conn.Execute("Select WM_Agent From WM_Area Where WM_ID = " & ID)
	  If Not Rs.Eof Then
        Set Rso = Conn.Execute("Select WM_GroupFlag,WM_GroupName from WM_UserGroup Where WM_ID = 3")
        If Not Rso.Eof Then
          uFlag = Rso(0)
          Call WRDB.SaveConsume(1,Rs(0),0,Int("-"&Split(Split(uFlag,"§")(0),"|")(1)),Int("-"&Split(Split(uFlag,"§")(0),"|")(0)),0,"取消"&Rso(1)&"资格")
        End If
        Rso.Close
        Set Rso = Conn.Execute("Select WM_GroupFlag from WM_UserGroup Where WM_ID = 2")
        If Not Rso.Eof Then
          uFlag = Rso(0)
        End If
        Rso.Close
		Conn.Execute("Update WM_Member Set WM_Agent=0,WM_GroupID=2,WM_Flag='"&uFlag&"' Where WM_UserName = '" & Rs(0) & "'")
		Conn.Execute("Update WM_Area Set WM_Agent=Null,WM_EndAgent=Null Where WM_ID = " & ID)
	  End If
	  Rs.Close
	  Call WRMPS.SCache("FlagTime",Now())
      Call WRMPS.ErrView("·取消分站代理成功<meta http-equiv=refresh content='1;URL=User_Agent.asp'>",1)
	  
  Case Else
      Content = PageTop()
      Content = Content & UserPath(",<a href=User_Links.asp>下级代理管理</a>")
      
	  Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
      Content = Content & "<tr><td colspan=6 class=td4><strong>已开启分站的城市</strong></td></tr>" & vbCrLf
      Content = Content & "    <tr class=td3 align=center> " & vbCrLf
      Content = Content & "      <td width='20%'>城市名称</td>" & vbCrLf
      Content = Content & "      <td width='15%'>城市英文名</td>" & vbCrLf
      Content = Content & "      <td width='20%'>独立域名</td>" & vbCrLf
      Content = Content & "      <td width='12%'>代理用户</td>" & vbCrLf
      Content = Content & "      <td width='12%'>过期时间</td>" & vbCrLf
      Content = Content & "      <td width='*'>操作</td>" & vbCrLf
      Content = Content & "    </tr>" & vbCrLf
      Set Rs=server.createobject("adodb.recordset")
	  Rs.Open "Select * from WM_Area where WM_Key = 1 and WM_ID in("&AgentAllList&") and WM_ID <> "&AgentID&" Order By WM_ClassID,WM_Taxis", Conn, 1, 1
        If Rs.EOF Then
           Content = Content & "<tr class=td2><td align=center colspan=6>没有可分配代理的下级城市</td></tr>" & vbCrLf
        Else
          Do While Not Rs.EOF
            Content = Content & "<tr class=td2 align=center> " & vbCrLf
            Content = Content & "<td align=left"
			If Rs("WM_Agent") = "" OR IsNull(Rs("WM_Agent")) Then Content = Content & " class=Font5"
			Content = Content & ">　"
            Content = Content & Rs("WM_Name") & "</td>"
            Content = Content & "<td"
			If Rs("WM_Agent") = "" OR IsNull(Rs("WM_Agent")) Then Content = Content & " class=Font5"
			Content = Content & ">" & Rs("WM_Eng") & "</td>" & vbCrLf
            Content = Content & "<td"
			If Rs("WM_Agent") = "" OR IsNull(Rs("WM_Agent")) Then Content = Content & " class=Font5"
			Content = Content & ">" & Rs("WM_Domain") & "</td>" & vbCrLf
            Content = Content & "<td>" & WRUser.DispUser(3,Rs("WM_Agent")) & "</td>" & vbCrLf
            Content = Content & "<td>" & Rs("WM_EndAgent") & ""
			If Rs("WM_EndAgent") <> "" Then If CDate(Rs("WM_EndAgent")) < Date() Then Content = Content & "<font class=Font2>(已过期)</span>"
			Content = Content & "</td>" & vbCrLf
            If Rs("WM_Agent") = "" OR IsNull(Rs("WM_Agent")) Then Content = Content & "<td></td></tr>" & vbCrLf Else Content = Content & "<td><a href=?Action=DelAgent&ID="&Rs("WM_ID")&">取消代理</a></td></tr>" & vbCrLf
          Rs.MoveNext
          Loop
        End If
	  Rs.Close

      Content = Content & "<form name='myform' method='post' Action='?Action=Save'>" & vbCrLf
      Content = Content & "<tr><td colspan=6 class=td4><strong>分配代理</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> " & vbCrLf
      Content = Content & "<td><strong>选择城市</strong></td>" & vbCrLf
      Content = Content & "<td colspan=5>"
      Content = Content & "<select name='AreaID' size=1><option value=''></option>"
	  Set Rs = Conn.Execute("Select WM_ID,WM_Name,WM_Depth,WM_Child from WM_Area Where WM_Key=1 and WM_ID in("&AgentList&") and WM_ID <> "&AgentID&" Order By WM_ClassID,WM_Taxis")
      Do While Not Rs.EOF
        Content = Content & "<option value='" & Rs(0) & "'>"
        Content = Content & Rs(1)
        Content = Content & "</option>"
      Rs.MoveNext
      Loop
	  Rs.Close
      Content = Content & "</select>"
	  Content = Content & "</td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
      Content = Content & "<tr class=td2> " & vbCrLf
      Content = Content & "<td><strong>代理用户</strong><br>必须是已注册用户</td>" & vbCrLf
      Content = Content & "<td colspan=5><input name=User type='text' style='width:150'></td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
      Content = Content & "<tr class=td2> " & vbCrLf
      Content = Content & "<td><strong>代理时间</strong><br>过期后代理权限将自动失销</td>" & vbCrLf
      Content = Content & "<td colspan=5><select name='EndAgent' size=1><option value=365>1年</option><option value=730>2年</option><option value=1095>3年</option><option value=1460>4年</option><option value=1825>5年</option></td></select>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
      Content = Content & "<tr class=td2><td></td><td colspan=5><input type='submit' name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
      Content = Content & "<tr class=td3><td colspan=6><strong>注意：</strong>① 你可以分配您的下级城市代理权限，并且只有开启分站功能的城市才可能被代理</td></tr>" & vbCrLf
      Content = Content & "</form>" & vbCrLf
      Content = Content & "</table>" & vbCrLf
End Select
  Set Rs = Nothing
  Response.Write Content&PageButtom
  Call DBConnEnd()
  Call ClassEnd()
%>