首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > JavaScript >

ASP 二级联动获取不到下拉菜单的值?该怎么解决

2013-07-16 
ASP 二级联动获取不到下拉菜单的值?以下是数据库表一:provincef exists (select * from dbo.sysobjects wh

ASP 二级联动获取不到下拉菜单的值?
以下是数据库
表一:province
f exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[province]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[province]
GO

CREATE TABLE [dbo].[province] (
[p_id] [int] NULL ,
[p_name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL 
) ON [PRIMARY]
GO

表二:City
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[City]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[City]
GO

CREATE TABLE [dbo].[City] (
[c_id] [int] NULL ,
[c_pid] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[c_name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL 
) ON [PRIMARY]
GO


  end if
  grs.movenext
 next
 grs.close()
 sstr=sstr & ");"
 response.write sstr & vbcrlf
end sub
%>

//添加列表项目
//参数说明:FrmName-表单名、sName-要添加的列表名、sText-列表项显示的文本、sValue-列表项的值
function addOption(FrmName, sName, sText, sValue) {
  var def = true;
  var sel = true;
  var optionName = new Option(sText, sValue, def, sel);
  var length = FrmName[sName].length;
  FrmName[sName].options[length] = optionName;
  FrmName[sName].options[length].selected = false;
}

//删除列表项目
//参数说明:FrmName-表单名、sName-要删除的列表名、force-是否删除原来的项目(True删除,False保留)
function delOptions(FrmName, sName, force) {
  var length = FrmName[sName].options.length;
  for (var i=0; i<FrmName[sName].options.length; i++) {
    if (FrmName[sName].options[i].selected || force) {
      FrmName[sName].options[i] = null;
      length--;
      i--;
    }
  }
}

//获得要添加列表项目的数组;
//参数说明:what-要获得选定值的列表
function getArrayValue(what) {
   return eval(what.options[what.options.selectedIndex].value); 
}

//根据当前选定值,添加列表项目
//参数说明:FrmName-表单名、sName1-要获取选定值的列表名、sName2-要动态加载的列表名
function updateOptions(FrmName, sName1, sName2) {
  delOptions(FrmName,sName2,true);
  var ArrayValue=getArrayValue(FrmName[sName1]);
  for (var i=0; i<ArrayValue.length;i+=1) {
    addOption(FrmName,sName2,ArrayValue[i],'sstr'+i);
  }
  FrmName[sName2].options.selectedIndex =0;//设置默认显示的列表项目
}

function GetValue(k){
  alert(k);
}

//--></script>
</head>

<body onLoad="updateOptions(frmdlist, 'lsti', 'lstb');updateOptions(frmdlist, 'lstb', 'lsts')">
<p> </p>
<p> </p>
<p> </p>
<form action="" method="post" name="frmdlist" id="frmdlist">
  <table width="408" border="0" align="center" cellpadding="2" cellspacing="2">
    <tr>
      <td width="400">JS动态列表示例<select name="lsti" style="display:none"><option value="pstr">pstr</select></td>


    </tr>
    <tr>
      <td><select style="width:200" name="lstb" id="lstb" onChange="updateOptions(this.form, 'lstb', 'lsts')">
      </select>
      <input type="button" name="Submit2" value="GetValue" onClick="GetValue(document.frmdlist.lstb.value)"></td>
    </tr>
    <tr>
      <td><select style="width:200" name="lsts" id="lsts">
      </select>
      <input type="button" name="Submit" value="GetValue" onClick="GetValue(document.frmdlist.lsts.value)"></td>
    </tr>
  </table>
</form>
</body>
</html>


存在问题:将以上程序如何修改,可以达到按button页面提交后,得到子项下拉框的值,即得到city表中c_id的值.请高手指教.
[解决办法]
'根据省份写城市JS数组的过程
sub getsub(pname)
 grs.open "select * from city where c_pid='" & pname & "';",conn,1,1
 sstr="var sstr" & i & "=new Array("
 for j=1 to grs.recordcount
  if j<>grs.recordcount then
   sstr=sstr & "'" & grs("c_id") & "',"
  else
   sstr=sstr & "'" & grs("c_id") & "'"
  end if
  grs.movenext
 next
 grs.close()
 sstr=sstr & ");"
 response.write sstr & vbcrlf
end sub

热点排行
Bad Request.