wm.area_agent.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Agent") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Dim WM_Agent,User,A,B,ID,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)
	  A = WRMPS.CheckStr(Request.Form("A"), 1)
	  B = WRMPS.CheckStr(Request.Form("B"), 1)
      If AreaID = "" Then Call WRMPS.ErrView("·请选择要代理的城市<meta http-equiv=refresh content='1;URL=WM.Area_Agent.asp'>", 0)
      If User = "" Then Call WRMPS.ErrView("·请输入待操作用户名<meta http-equiv=refresh content='1;URL=WM.Area_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=WM.Area_Agent.asp'>", 0)
      Else
	     If Rs(0) > 0 Then Call WRMPS.ErrView("·该用户已代理了其它城市分站<meta http-equiv=refresh content='1;URL=WM.Area_Agent.asp'>", 0)
		 If WRDB.SaveConsume(1,User,A,B,0,0,"成功代理城市分站") Then
	       If A < 0  Then WRDB.SaveConsume 1,User,0,0,0,(A-A*2)*Int(WR_Faith(5)),"金钱消费奖励(成功代理城市分站扣除金钱："&A&")"
           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))
               Subject = "恭喜您成为 "&WR_Setting(0)&" "&Rso(0)&" 的分站代理商！"
	         End If
		     Rso.Close
	         MailBody = WRMPS.GetReplace(MailBody,"{$BeginTime}",Date())
	         MailBody = WRMPS.GetReplace(MailBody,"{$EndTime}",EndAgent)
	         MailBody = WRMPS.GetReplace(MailBody,"{$City}","")
             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
	  End If
      Rs.Close
	  Call WRMPS.SCache("FlagTime",Now())
      Call WRMPS.ErrView("·分站代理分配成功<meta http-equiv=refresh content='1;URL=WM.Area_Agent.asp'>",1)
  
  Case "DelAgent"
      ID = WRMPS.CheckStr(Request("ID"), 1)
	  If ID = "" Then Call WRMPS.ErrView("·请选择您要取消代理的分站城市<meta http-equiv=refresh content='1;URL=WM.Area_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=WM.Area_Agent.asp'>",1)
	  
  Case Else
      Content = Content & "<table width='100%' border=0 align=center cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=6><strong>已开启分站的城市</strong></td></tr>" & vbCrLf
      Set Rs=server.createobject("adodb.recordset")
	  Rs.Open "Select * from WM_Area where WM_Key = 1 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
          Content = Content & "    <tr class=td3 align=center> " & vbCrLf
          Content = Content & "      <td width='30%'>城市名称</td>" & vbCrLf
          Content = Content & "      <td width='15%'>城市英文名</td>" & vbCrLf
          Content = Content & "      <td width='15%'>独立域名</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
          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 & ">"
            If Rs("WM_Depth") > 0 Then
              For i = 1 To Rs("WM_Depth")
                Content = Content & "　"
              Next
            End If
            If Rs("WM_Child") > 0 Then Content = Content & "<Img Src='Img/+.gif'>" Else Content = Content & "<Img Src='Img/-.gif'>"
            If Rs("WM_ParentPath") = "0" Then Content = Content & "<b>" & Rs("WM_Name") & "</b>" Else Content = Content & Rs("WM_Name")
            If Rs("WM_Child") <> 0 Then Content = Content & " <font class=font3>(" & Rs("WM_Child") & ")</font>"
			Content = Content & "</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 class=td4><td colspan=6><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,WM_Agent from WM_Area Where WM_Key=1 Order By WM_ClassID,WM_Taxis")
      Do While Not Rs.EOF
	  If IsNull(Rs(4)) Then
        Content = Content & "<option value='" & Rs(0) & "'>"
        If Rs(2) > 0 Then
          For i = 1 To Rs(2)
            Content = Content & "　"
          Next
        End If
        If Rs(3) > 0 Then Content = Content & "└ " Else Content = Content & "├ "
        Content = Content & Rs(1)
        Content = Content & "</option>"
	  End If
      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> " & vbCrLf
      Content = Content & "<td><strong>用户账户操作</strong><br>在这里可以设置该用户代理此分站的费用，提交时将按此设定直接操作，<span class=Font2>如果扣除请在前面加上“-”</span></td>" & vbCrLf
      Content = Content & "<td colspan=5>金钱<input name=A type='text' style='width:50' value=0>　"&WR_Other(0)&"<input name=B type='text' style='width:50' value=0></td>" & 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><br>① 只有开启分站功能的城市才可能被代理<br>② 上级城市代理商可自由分配其下级城市代理商</td></tr>" & vbCrLf
      Content = Content & "</form>" & vbCrLf
      Content = Content & "</table>" & vbCrLf
End Select
  Set Rs = Nothing
  Call ClassEnd()
  Call DBConnEnd()
  Response.write Content
  Call GetBottom()
%>