admin_city.asp

依蓝旅游网站管理系统Elan2008.SP2

	    SQL = "DELETE FROM EL_City WHERE ID="& ID
	    Conn.Execute(SQL)
		EL_Common.ShowScriptError()
		Response.Redirect ComeURL
  End Select
    
  EL_Common.ShowSuccessMsg(RetMessage)
  EL_Common.ShowScriptError()
End Sub

Sub ModityCity()
On Error Resume Next
Dim ID, CityCmd, rsCity
ID = EL_Common.ELRequest("ID", 2)

Call EL_Common.InitCommonCmd(CityCmd, rsCity, "EL_City", "*", "ID="& ID)
rsCity.Close()
If CityCmd(0) <> 1 Then
   Set rsCity = Nothing
   Set CityCmd = Nothing
   EL_Common.ShowErrorMsg("指定城市不存在")
   Exit Sub
End If
rsCity.Open()
%>
<script language="javascript">
function Check(frm){
  if(frm.Country.value.trim()==""){
     alert("请输入国家");
	 frm.Country.focus();
	 return false;
  }
  if(frm.CountrySpell.value.trim()==""){
     alert("请输入国家拼音");
	 frm.CountrySpell.focus();
	 return false;
  }
  
  if(frm.Province.value.trim()==""){
     alert("请输入省份");
	 frm.Province.focus();
	 return false;
  }
  if(frm.ProvinceSpell.value.trim()==""){
     alert("请输入省份拼音");
	 frm.ProvinceSpell.focus();
	 return false;
  }
  
  if(frm.City.value.trim()==""){
     alert("请输入城市");
	 frm.City.focus();
	 return false;
  }
  if(frm.CitySpell.value.trim()==""){
     alert("请输入城市拼音");
	 frm.CitySpell.focus();
	 return false;
  }
  
  if(frm.Area.value.trim()==""){
     alert("请输入区域");
	 frm.Area.focus();
	 return false;
  }
  if(frm.AreaSpell.value.trim()==""){
     alert("请输入区域拼音");
	 frm.AreaSpell.focus();
	 return false;
  }
  
  if(frm.ZipCode.value.trim()==""){
     alert("请输入邮政编码");
	 frm.ZipCode.focus();
	 return false;
  }
  if(frm.AreaCode.value.trim()==""){
     alert("请输入区号");
	 frm.AreaCode.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;
}
function py(vo, to){
  getObject(to).value = toPinyin(getObject(vo).value, true);
}
function initOption(o, df, source, pname, pvalue){
   var e = getObject(o);
   var sindex = -1;
   clearOption(o);
   for(var i=0;i<source.length;i++){
      if(pname == ""){
	     e.options.add(new Option(source[i].name, source[i].name+"$"+source[i].spell));
	  }else{
	     if(source[i][pname]==pvalue){
		    e.options.add(new Option(source[i].name, source[i].name+"$"+source[i].spell));
		 }
	  }
   }
   if(df!=""){
      for(var i=0;i<e.options.length;i++){
         if(e.options[i].value.split('$')[0]==df){
		    e.selectedIndex = i;
			break;
		 }
      }
   }
}
function onCountryChange(){
   var e = getObject("SelectCountry");
   if(e.value!=""){
      getObject('Country').value=e.value.split('$')[0]; 
      getObject('CountrySpell').value=e.value.split('$')[1];
      initOption('SelectProvince', '', Province, 'country', e.value.split('$')[0]);
   }else{
	  clearOption('SelectProvince');
   }
}
function onProvinceChange(){
   var e = getObject("SelectProvince");
   if(e.value!=""){
      getObject('Province').value=e.value.split('$')[0];
      getObject('ProvinceSpell').value=e.value.split('$')[1];
	  initOption('SelectCity', '', City, 'province', e.value.split('$')[0]);
   }else{
      clearOption('SelectCity');
   }
}
function onCityChange(){
   var e = getObject("SelectCity");
   if(e.value!=""){
      getObject('City').value=e.value.split('$')[0];
      getObject('CitySpell').value=e.value.split('$')[1];
   }
}
function clearOption(o){
   var e = getObject(o);
   for(i=e.options.length-1;i>0;i--){
      e.remove(i);
   }
}
</script>
<form name="myform" action="Admin_City.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>修改城市信息</strong></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>国家</strong></td>
    <td class="td_25">
	  <input name="Country" type="text" id="Country" value="<%=EL_Common.HTMLEncode(rsCity("Country"))%>" size="30">
	  <select name="SelectCountry" id="SelectCountry" onChange="onCountryChange()">
	  <option value="" selected>选择…</option>
	  </select>
	  <script>initOption("SelectCountry", "", Country, "", "")</script>
	</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>国家拼音</strong></td>
    <td class="td_25"><input name="CountrySpell" type="text" id="CountrySpell" value="<%=EL_Common.HTMLEncode(rsCity("CountrySpell"))%>" size="30">
      <input type="button" name="Submit4" value="获取拼音" onClick="py('Country', 'CountrySpell')">
      </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>省份</strong></td>
    <td class="td_25"><input name="Province" type="text" id="Province" value="<%=EL_Common.HTMLEncode(rsCity("Province"))%>" size="30">
      <select name="SelectProvince" id="SelectProvince" onChange="onProvinceChange()">
        <option value="" selected>选择…</option>
      </select>
	  <script>initOption("SelectProvince", "", Province, "country", getObject("SelectCountry").value.split("$")[0]);</script>
	</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>省份拼音</strong></td>
    <td class="td_25"><input name="ProvinceSpell" type="text" id="ProvinceSpell" value="<%=EL_Common.HTMLEncode(rsCity("ProvinceSpell"))%>" size="30">
      <input type="button" name="Submit4" value="获取拼音" onClick="py('Province', 'ProvinceSpell')"></td>
  </tr>
  <tr>
    <td width="15%" class="td_ItemName"><strong>城市</strong></td>
    <td width="85%" class="td_25"><input name="City" type="text" id="City" value="<%=EL_Common.HTMLEncode(rsCity("City"))%>" size="30">
      <select name="SelectCity" id="SelectCity" onChange="onCityChange()">
        <option value="" selected>选择…</option>
      </select>
	  <script>initOption("SelectCity", "", City, "province", getObject("SelectProvince").value.split("$")[0]);</script>
	</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>城市拼音</strong></td>
    <td class="td_25"><input name="CitySpell" type="text" id="CitySpell" value="<%=EL_Common.HTMLEncode(rsCity("CitySpell"))%>" size="30">
      <input type="button" name="Submit42" value="获取拼音" onClick="py('City', 'CitySpell')"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>区域</strong></td>
    <td class="td_25"><input name="Area" type="text" id="Area" value="<%=EL_Common.HTMLEncode(rsCity("Area"))%>" size="30" ></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>区域拼音</strong></td>
    <td class="td_25"><input name="AreaSpell" type="text" id="AreaSpell" value="<%=EL_Common.HTMLEncode(rsCity("AreaSpell"))%>" size="30">
      <input type="button" name="Submit43" value="获取拼音" onClick="py('Area', 'AreaSpell')"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>邮政编码</strong></td>
    <td class="td_25"><input name="ZipCode" type="text" id="ZipCode" value="<%=EL_Common.HTMLEncode(rsCity("ZipCode"))%>" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>区号</strong></td>
    <td class="td_25"><input name="AreaCode" type="text" id="AreaCode" value="<%=EL_Common.HTMLEncode(rsCity("AreaCode"))%>" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName"></td>
    <td class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="ID" type="hidden" id="ID" value="<%=ID%>"></td>
  </tr>
</table>
</form>
<%
rsCity.Close()
Set rsCity = Nothing
Set CityCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub ManageCity()
On Error Resume Next
Dim ManageCmd, rsManage, i, ProvinceName, SQLCondition
Dim PageCounts, RowCount, TotalRowCount
SQLCondition = "1=1"
ProvinceName = EL_Common.ELRequest("ProvinceName", 3)
If ProvinceName <> "" Then
   SQLCondition = "ProvinceName='"& ProvinceName &"'"
End If

If Search_Keywords<>"" And Search_Field<>"" Then 
   SQLCondition = SQLCondition &"And "& Search_Field &" Like '%"& Search_Keywords &"%' "
End If

Call EL_Common.InitCommand(ManageCmd, "EL_SP_SplitPage")
With ManageCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_City")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "ID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "ID ASC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, "*")
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, SQLCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsManage = .Execute()
End With
rsManage.Close()
RowCount = ManageCmd(0)
TotalRowCount = ManageCmd(9)
PageCounts = ManageCmd(10)

%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="4%" align="center" class="top_item"><strong>ID</strong></td>
    <td width="13%" align="center" class="top_item"><strong>国家</strong></td>
    <td width="15%" align="center" class="top_item"><strong>省份</strong></td>