wm.area.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<!--#include file="WM.Cre_Cls.asp"-->
<%
If CheckAdminFlag("City") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()

  Dim WM_ParentID, WM_Name, WM_ParentPath, WM_Depth, ClassID, WM_ClassID, Del, WM_Taxis, WM_ID, WM_ClassBig, WM_ClassSmall,WM_Domain
  Dim WM_Key,WM_Map,WM_Eng
  Dim Parent,Action,i,eID,e_ID,Default
  
  Parent = WRMPS.CheckStr(Request("Parent"), 1)
  Action = WRMPS.CheckStr(Request("Action"), 0)
  WM_ID = WRMPS.CheckStr(Request("WM_ID"), 1)
  eID = WRMPS.CheckStr(Request("eID"), 1)

  If Action = "" Then Action = "View"
  Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
  Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=?Action=View>管理首页</a> | <a href=?Action=Add&eID="&eID&"&WM_ID="&eID&">添加城市</a> | <a href=?Action=Taxis>城市排序</a> | <a href=?Action=Coalition>城市合并</a></td></tr>" & vbCrLf
  Content = Content & "</table>" & vbCrLf
  Call DBConnBegin()
  Set Rs=server.createobject("adodb.recordset")
  Set Rso=server.createobject("adodb.recordset")
  Select Case Action
    Case "Coalition" '城市合并
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='myform' method='post' Action='?Coalition=Save'>" & vbCrLf
      Content = Content & "<input name='Action' type='hidden' value='Del'>" & vbCrLf
      Content = Content & "  <tr class=td4><td><strong>城市合并</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td>　<strong>将城市</strong> " & wrmps.SelectSort(0, 0, 0, 1,0,"WM_Area", "ClassID", 0, 0) & "　　<strong>移动到</strong> " & wrmps.SelectSort(0, 0, 0, 1,0,"WM_Area", "WM_ClassID", 0, 0) & "</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td>　<input type='checkbox' name='Del' value=1 Class=radio> 删除被移动的城市及子城市</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td>　<input type=submit name='submit' value='确定移动' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
      Content = Content & "<tr><td class=td2><strong>注意事项：</strong><br>"
      Content = Content & "① 所有操作不可逆，请慎重操作<br>"
      Content = Content & "② 选择“删除被移动的城市及子城市”则不能在同一个城市内进行操作、不能将一个版面合并到其下属城市中<br>"
      Content = Content & "③ 选择“删除被移动的城市及子城市”则被移动城市及其下属城市所有内容都将移动到您所指定的目标城市<br>"
      Content = Content & "</td></tr>" & vbCrLf
      Content = Content & "</form></table>"
  
    Case "Key"
	  WM_Key = WRMPS.CheckStr(Request("Key"),1)
	  Conn.Execute("Update WM_Area Set WM_Key="&WM_Key&" Where WM_ID="&WM_ID&"")
	  If WM_Key = 0 Then
	    Conn.Execute("Update WM_Area Set WM_Default=0 Where WM_ID="&WM_ID&"")
	  End If
	  WRMPS.DelCache"AreaList"
      Call AreaSort()
	  Call WRMPS.SCache("FlagTime",Now())
	  Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?Action=View&eID="&eID&"'>",1)
  
    Case "Default"
	  WM_Key = WRMPS.CheckStr(Request("Key"),1)
	  Select Case WM_Key
	    Case 0
	      Conn.Execute("Update WM_Area Set WM_Default=0 Where WM_ID="&WM_ID&"")
		Case 1
		  Set Rs = Conn.Execute("Select WM_Key From WM_Area Where WM_ID="&WM_ID&"")
		  If Not Rs.Eof Then
		    If Rs(0) = 0 Then
			  Call WRMPS.ErrView("·此城市没有开启分站功能，不能设为默认城市<meta http-equiv=refresh content='1;URL=?eID="&eID&"'>",0)
			End IF
	        Conn.Execute("Update WM_Area Set WM_Default=0")
	        Conn.Execute("Update WM_Area Set WM_Default=1 Where WM_ID="&WM_ID&"")
		  End If
		  Rs.Close
	  End Select
	  WRMPS.DelCache"AreaList"
	  Call WRMPS.SCache("FlagTime",Now())
	  Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?Action=View&eID="&eID&"'>",1)

    Case "AreaSave"
	  Dim Site,Map,Domain,IPToCity
	  Site = WRMPS.CheckStr(Request("Site"),0)
	  Map = WRMPS.CheckStr(Request("Map"),0)
	  Domain = WRMPS.CheckStr(Request("Domain"),1)
	  IPToCity = WRMPS.CheckStr(Request("IPToCity"),1)
      If Site = "" Then Call WRMPS.ErrView("·总站名称不能为空",0)
      If Map = "" Then Call WRMPS.ErrView("·总站地图定位不能为空",0)
	  Conn.Execute("Update WM_Config Set WM_Area='"&Site&"§§§"&Map&"§§§"&Domain&"§§§"&IPToCity&"'")
	  WRMPS.DelCache "AreaList"
	  WRMPS.DelCache "Setting"
      Call AreaSort()
      Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?Action=View&eID="&eID&"'>",1)

    Case "View" '查看分城市
	  If eID <> "" Then e_ID = " Where WM_ParentID="&eID Else e_ID = " Where WM_ParentID=0"
	  Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='myform' method='post' Action='?&eID="&eID&"'>" & vbCrLf
      Content = Content & "<input name='Action' type='hidden' value='AreaSave'>" & vbCrLf
      Content = Content & "  <tr class=td4><td colspan=2><strong>总站管理</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='35%'><strong>总站名称</strong><br>如做北京地方站可设为“北京”</td><td width='65%'><input type=text name=Site value="""&WR_Area(0)&""" size=40></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>总站地图定位</strong></td><td><input type=text name=Map value="""&WR_Area(1)&""" size=30> <a href=javascript:ShowDialog(""../Plus/Map/"&WR_Other(12)&"/?Action=Admin&xy=""+document.myform.Map.value+""&Input=Map"",500,350)><span class=font2>获取经纬度</span></a></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>是否启用分站二级域名</strong><br>您的访问网址必须为 http://www.xxx.com 时才可以使用<br>com 或 net 、等后缀不限</td><td><input type=radio name=Domain value=1"&WRMPS.GetCheckVer(Int(WR_Area(2)),1,1)&"> 启用　　<input type=radio name=Domain value=0"&WRMPS.GetCheckVer(Int(WR_Area(2)),0,1)&"> 不启用</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>是否启用按IP自动跳转功能</strong><br>开启此功能，请注意以下两点<br>1，此功能只适用于以城市划分的分站<br>2，此功能开启后，城市名称请尽量填写正确，不要带市字，如北京市，请直按填写为北京</td><td><input type=radio name=IPToCity value=1"&WRMPS.GetCheckVer(Int(WR_Area(3)),1,1)&"> 启用　　<input type=radio name=IPToCity value=0"&WRMPS.GetCheckVer(Int(WR_Area(3)),0,1)&"> 不启用</td></tr>" & vbCrLf
	  Content = Content & "  <tr class=td3><td></td><td><input type=submit name='Submit' value='提 交' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
      Content = Content & "</form></table><script>document.myform.Site.focus()</script>"

      Content = Content & "<table width='100%' border=0 align=center cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "  <tr class=td4><td colspan=7><strong>城市管理</strong></td></tr>" & vbCrLf
      Rs.Open "Select * from WM_Area"&e_ID&" Order By WM_ClassID,WM_Taxis", Conn, 1, 1
        If Rs.EOF Then
           Content = Content & "<tr class=td2><td align=center colspan=7>还没有任何城市信息</td></tr>" & vbCrLf
        Else
          Content = Content & "    <tr class=td3 align=center> " & vbCrLf
          Content = Content & "      <td width='4%'>ID</td>" & vbCrLf
          Content = Content & "      <td width='*'>城市名称</td>" & vbCrLf
          Content = Content & "      <td width='12%'>城市英文名</td>" & vbCrLf
          Content = Content & "      <td width='20%'>独立域名</td>" & vbCrLf
          Content = Content & "      <td width='10%'>是否开启分站</td>" & vbCrLf
          Content = Content & "      <td width='10%'>设为默认城市</td>" & vbCrLf
          Content = Content & "      <td width='25%'>操作</td>" & vbCrLf
          Content = Content & "    </tr>" & vbCrLf
        Do While Not Rs.EOF
          Content = Content & "    <tr class=td2 align=center> " & vbCrLf
          Content = Content & "      <td>" & Rs(0) & "</td>" & vbCrLf
          Content = Content & "      <td align=left>" & vbCrLf
        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>" & Rs("WM_Eng") & "</td>" & vbCrLf
          Content = Content & "<td>" & Rs("WM_Domain") & "</td>" & vbCrLf
	      WM_Key = Rs("WM_Key")
	      Select Case WM_Key
	        Case 0
              Content = Content & "<td><a href=?Action=Key&WM_ID="&Rs("WM_ID")&"&eID="&eID&"&Key=1 onclick=""Loading.style.display='';Loading.style.bottom=100;"">关闭</a></td>"
		    Case 1
              Content = Content & "<td><a href=?Action=Key&WM_ID="&Rs("WM_ID")&"&eID="&eID&"&Key=0 Class=Red onclick=""Loading.style.display='';Loading.style.bottom=100;"">已开启</a></td>"
          End Select
	      Default = Rs("WM_Default")
	      Select Case Default
	        Case 0
              Content = Content & "<td><a href=?Action=Default&WM_ID="&Rs("WM_ID")&"&eID="&eID&"&Key=1 onclick=""Loading.style.display='';Loading.style.bottom=100;"">设置</a></td>"
		    Case 1
              Content = Content & "<td><a href=?Action=Default&WM_ID="&Rs("WM_ID")&"&eID="&eID&"&Key=0 Class=Red onclick=""Loading.style.display='';Loading.style.bottom=100;"">默认城市</a></td>"
          End Select
          Content = Content & "<td><a href=?eID=" & Rs("WM_ID") & ">子城市管理</a> | <a href=?Action=Add&eID="&eID&"&WM_ID=" & Rs("WM_ID") & ">添加城市</a> | "
          Content = Content & "<a href=?Action=Edit&eID="&eID&"&WM_ID=" & Rs("WM_ID") & ">修改</a> | <a href=?Action=Del&eID="&eID&"&WM_ID=" & Rs("WM_ID") & " onclick=""return confirm('确定删除？');Loading.style.display='';Loading.style.bottom=100;"">删除</a>" & vbCrLf
          Content = Content & "</td></tr>" & vbCrLf
        Rs.MoveNext
        Loop
        End If
          Content = Content & "</table>" & vbCrLf
    
    Case "Add" '添加分城市
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='myform' method='post' Action='?eID="&eID&"'>" & vbCrLf
      Content = Content & "<input name='Action' type='hidden' value='ClassSave'>" & vbCrLf
      Content = Content & "<input name='WM_ID' type='hidden' value='" & WM_ID & "'>" & vbCrLf
      Content = Content & "  <tr class=td4><td colspan=2><strong>添加新城市</strong></td></tr>" & vbCrLf
      Content = Content & "  <tr class=td2> " & vbCrLf
      Content = Content & "    <td width='25%'><strong>所属城市</strong><br><Font Color=red>添加后将不能修改</Font></td>" & vbCrLf
      Content = Content & "    <td width='75%'><select name='WM_ParentID'>" & vbCrLf
      Content = Content & "<option value=0>做为一级城市</option>" & vbCrLf
      Rs.Open "Select * from WM_Area Order By WM_ClassID,WM_Taxis", Conn, 1, 1
      If Rs.EOF Then
        Content = Content & "<option value=0>请先添加城市</option>"
      Else
        Do While Not Rs.EOF
        Content = Content & "<option value='" & Rs("WM_ID") & "'"