<script >
var _tree=new Array();
var _Name=new Array();
<%
Call OpenDatabase()
dim rsTree,sqlTree
'二个表的连接查询
'sqlTree="Select t.[item_name] ,c.[sxxy] from [sq_jx] t"
'sqlTree=sqlTree&" Inner Join kjxmgl c on c.item_name=t.item_name "
sqlTree="Select item_name,sxxy from sq_jx where item_name=item_name"
set rsTree=conn.Execute(sqlTree)
if(not rsTree.eof) then
dim ii:ii=0
do until rsTree.eof
%>
_tree[<%=ii%>]="<%=rsTree.fields(0).value%>";
_Name[<%=ii%>]="<%=rsTree.fields(1).value%>万元";
<%
rsTree.movenext
ii=ii+1
loop
end if
%>
function $(id){
return document.getElementById(id);
}
//获取对应的生产效益文字
function getContextInfos(){
var c=$("item_name").value;
var findValu="1";
var getCCC="";
var f=false;
var i=0;
//查找
while(i<_tree.length&!f){
//alert("c="+c+",tree["+i+"]="+_tree[i]) ;
if(_tree[i]==c){
findValu=_tree[i];
getCCC=_Name[i];
f=true;
break;
}
i++;
}
if(f) $("show_C_T_ContextInfos").innerHTML=getCCC;
}
</script>
<select id="item_name" onChange="getContextInfos()"><option value="0" selected="selected">请选择申请结项的项目</option>
<%
set rs=conn.execute("select item_name from sq_jx where item_name not in(select item_name from item_jx) order by id desc ")
if(not rs.eof) then
do until rs.eof
%>
<option value="<%=rs("item_name")%>"><%=rs("item_name")%></option>
<%
rs.movenext
loop
end if
%>
</select>
这个去调用那个
结果提交后根本接受不到 这个选择的value值 听说要加个隐藏域 但是又不同一班的加发 用一般的根本不能实现
还是提交又得不到
请指教