📄 wm.area.asp
字号:
If WM_ID <> "" Then
If Int(WM_ID) = Rs("WM_ID") Then Content = Content & " selected"
End If
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 & "+ " Else Content = Content & "- "
Content = Content & Rs("WM_Name")
Content = Content & "</option>" & vbCrLf
Rs.MoveNext
Loop
End If
Content = Content & "</select></td></tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>城市名称</strong></td>" & vbCrLf
Content = Content & " <td><input name='WM_Name' type='text' size=20 style='width:150' maxlength='50'> <font Class=Font2>*</font></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>是否开启分站</strong></td><td><input type='radio' name='WM_Key' value=1 class=radio> 是 <input type='radio' name='WM_Key' value=0 class=radio checked> 否 <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>地图定位</strong></td><td><input type=text name=WM_Map size=30> <a href=javascript:ShowDialog(""../Plus/Map/"&WR_Other(12)&"/?Action=Admin&xy="&WR_Area(1)&"&Input=WM_Map&Form=dialogArguments.document.myform"",500,350)><span class=font2>获取经纬度</span></a> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>城市英文名称</strong><br>用做分站二级域名<br>如你输入bj，则二级域名为 http://bj.xxx.com</td><td><input type=text name=WM_Eng> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>独立访问顶级域名</strong><br>用做分站独立访问域名，不要带 http:// 或 / 字符，<font class=Font2>但必须要带 www.</span></td><td><input type=text name=WM_Domain></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(0,2,0,"TempID")&"</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.WM_Name.focus()</script>"
Case "Edit" '修改分城市
Rs.Open "Select * from WM_Area Where WM_id=" & WM_ID & "", Conn, 1, 1
If Not Rs.Eof Then
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='ClassEditSave'>" & 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></td>" & vbCrLf
Content = Content & " <td width='75%'><input name='WM_Name' type='text' size=20 style='width:150' maxlength='50' Value=" & Rs("WM_Name") & "> <font Class=Font2>*</font></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>是否开启分站</strong></td><td><input type='radio' name='WM_Key' value=1 class=radio" & WRMPS.GetCheckVer(1, Rs("WM_Key"), 1) & "> 是 <input type='radio' name='WM_Key' value=0 class=radio" & WRMPS.GetCheckVer(0, Rs("WM_Key"), 1) & "> 否 <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>地图定位</strong></td><td><input type=text name=WM_Map size=30 value='"&Rs("WM_Map")&"'> <a href=javascript:ShowDialog(""../Plus/Map/"&WR_Other(12)&"/?Action=Admin&xy=""+document.myform.WM_Map.value+""&Input=WM_Map&Form=dialogArguments.document.myform"",500,350)><span class=font2>获取经纬度</span></a> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>城市英文名称</strong><br>用做分站二级域名<br>如你输入bj，则二级域名为 http://bj.xxx.com</td><td><input type=text name=WM_Eng value='"&Rs("WM_Eng")&"'> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>独立访问顶级域名</strong><br>用做分站独立访问域名，不要带 http:// 或 / 字符，<font class=Font2>但必须要带 www.</span></td><td><input type=text name=WM_Domain value='"&Rs("WM_Domain")&"'></td></tr>" & vbCrLf
Content = Content & " <tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(Rs("WM_TempID"),2,0,"TempID")&"</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.WM_Name.focus()</script>"
End If
Rs.Close
Case "ClassSave" '添加保存
WM_Name = WRMPS.CheckStr(Request.Form("WM_Name"), 0)
If WM_Name = "" Then Call WRMPS.ErrView("·请输入城市名称", 0): Exit Sub
WM_Key = WRMPS.CheckStr(Request.Form("WM_Key"), 1)
If WM_Key = "" Then WM_Key = 0
WM_Map = WRMPS.CheckStr(Request.Form("WM_Map"), 0)
If WM_Map = "" Then Call WRMPS.ErrView("·请进行地图定位",0)
WM_Eng = WRMPS.CheckStr(Request.Form("WM_Eng"), 0)
If WM_Eng = "" Then Call WRMPS.ErrView("·请输入城市英文简称",0)
WM_ParentID = WRMPS.CheckStr(Request.Form("WM_ParentID"), 1)
WM_Domain = WRMPS.CheckStr(Request.Form("WM_Domain"), 0)
TempID = WRMPS.CheckStr(Request.Form("TempID"), 1)
If TempID = "" Then TempID = 0
If WM_Domain = "" Then
WM_Domain = Null
Else
WM_Domain = WRMPS.GetReplace(WRMPS.GetReplace(WM_Domain,"http://",""),"/","")
If Instr(lcase(WM_Domain),"www.") = 0 Then Call WRMPS.ErrView("·分站独立访问域名必须要带 www.",0)
End If
If WM_ParentID > 0 Then
Rs.Open "Select * from WM_Area Where WM_id=" & WM_ParentID & "", Conn, 1, 1
WM_ParentPath = Rs("WM_ParentPath") & "," & WM_ParentID
WM_Depth = UBound(Split(WM_ParentPath, ","))
WM_ClassID = Rs("WM_ClassID")
WM_Taxis = Rs("WM_Taxis") + 1
Rs.Close
Else
Rs.Open "Select * from WM_Area Order By WM_ClassID Desc", Conn, 1, 1
If Rs.EOF Then
WM_ClassID = 1
Else
WM_ClassID = Rs("WM_ClassID") + 1
End If
Rs.Close
WM_Taxis = 1
WM_ParentPath = 0
WM_Depth = 0
End If
WRMPS.DelCache "AreaList"
Rs.Open "Select WM_Name,WM_ClassID,WM_Taxis,WM_ParentID,WM_ParentPath,WM_Depth,WM_Child,WM_Key,WM_Map,WM_Eng,WM_Domain,WM_EndAgent,WM_TempID,WM_Default from WM_Area", Conn, 1, 3
Rs.AddNew
Rs(0) = WM_Name
Rs(1) = WM_ClassID
Rs(2) = WM_Taxis
Rs(3) = WM_ParentID
Rs(4) = WM_ParentPath
Rs(5) = WM_Depth
Rs(6) = 0
Rs(7) = WM_Key
Rs(8) = WM_Map
Rs(9) = WM_Eng
Rs(10) = WM_Domain
Rs(11) = Null
Rs(12) = TempID
Rs(13) = 0
Rs.Update
Rs.Close
If WM_ParentID > 0 Then
Conn.Execute ("update WM_Area set WM_Child=WM_Child+1 Where WM_ID=" & WM_ParentID & "")
Rs.Open "Select * from WM_Area Order By WM_ID Desc", Conn, 1, 1
Conn.Execute ("update WM_Area set WM_Taxis=WM_Taxis+1 Where WM_ClassID=" & WM_ClassID & " and WM_Taxis>=" & WM_Taxis & " and WM_ID<>" & Rs("WM_ID") & "")
Rs.Close
End If
WRMPS.DelCache "AreaList"
WRMPS.DelCache "Setting"
Call AreaSort()
If WM_ParentID <> "" Then
Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?Action=Add&WM_ID=" & WM_ParentID & "&eID="&eID&"'>",1)
Else
Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?Action=Add&WM_ID=" & WM_ID & "&eID="&eID&"'>",1)
End If
Case "ClassEditSave" '修改保存
WM_Name = WRMPS.CheckStr(Request.Form("WM_Name"), 0)
If WM_Name = "" Then Call WRMPS.ErrView("·请输入城市名称", 0): Exit Sub
WM_Key = WRMPS.CheckStr(Request.Form("WM_Key"), 1)
If WM_Key = "" Then WM_Key = 0
WM_Map = WRMPS.CheckStr(Request.Form("WM_Map"), 0)
If WM_Map = "" Then Call WRMPS.ErrView("·请进行地图定位",0)
WM_Eng = WRMPS.CheckStr(Request.Form("WM_Eng"), 0)
If WM_Eng = "" Then Call WRMPS.ErrView("·请输入城市英文简称",0)
WM_Domain = WRMPS.CheckStr(Request.Form("WM_Domain"), 0)
TempID = WRMPS.CheckStr(Request.Form("TempID"), 1)
If TempID = "" Then TempID = 0
If WM_Domain = "" Then
WM_Domain = Null
Else
WM_Domain = WRMPS.GetReplace(WRMPS.GetReplace(WM_Domain,"http://",""),"/","")
If Instr(lcase(WM_Domain),"www.") = 0 Then Call WRMPS.ErrView("·分站独立访问域名必须要带 www.",0)
End If
Conn.Execute("Update WM_Area Set WM_Name='"&WM_Name&"',WM_Key="&WM_Key&",WM_Map='"&WM_Map&"',WM_Eng='"&WM_Eng&"',WM_Domain='"&WM_Domain&"',WM_TempID="&TempID&" Where WM_ID=" & WM_ID & "")
WRMPS.DelCache "AreaList"
WRMPS.DelCache "Setting"
Call AreaSort()
Call WRMPS.SCache("FlagTime",Now())
Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?Action=View&eID="&eID&"'>",1)
Case "Del" '删除
'得到要移动城市相关
If WRMPS.CheckStr(Request("Coalition"), 0) <> "" Then
ClassID = WRMPS.CheckStr(Request("ClassID"), 1)
WM_ClassID = WRMPS.CheckStr(Request("WM_ClassID"), 1)
If ClassID < 1 Then Call WRMPS.ErrView("·请选择待移动城市", 0): Exit Sub
If WM_ClassID < 1 Then Call WRMPS.ErrView("·请选择目标城市", 0): Exit Sub
If ClassID = WM_ClassID Then Call WRMPS.ErrView("·待移动城市和目标城市不能相同", 0): Exit Sub
Del = WRMPS.CheckStr(Request("Del"), 0)
If Del = "" Then Del = 0
WM_ID = ClassID
'移动到新的城市下
Else
Del = 1
End If
'删除城市的相关信息
If Del = 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -