<script language="javascript">
///////////////// 动态列表 start　 ////////////////////////////////
　 //用于由一个文本框和一个div组成的用于根据别名动态选择列表
　 var ifMouseOver=0;
　　var PatA=/[^\x00-\xff]+/;　　 //一个正则表达式，当文本框中的文字符合这个正则时，就不进行过滤
　 function dl_mouseOver(p1)
　 {
　　　ifMouseOver=1;
　 }
　
　 function dl_mouseOut(p1)
　 {
　　　ifMouseOver=0;
　 }
　
　
　 function dl_showDiv(p1)
　 {
　　　var DivObj=document.getElementById(p1);
　　　if(DivObj)
　　　{
　　　　 if(DivObj.style.display=='none')
　　　　　　 DivObj.style.display='';
　　　　　　　　else
　　　　　　　　　　DivObj.style.display='none';
　　　}　　
　 }
　
　
　 function dl_hideDiv(p1)
　 {
　　　var DivObj=document.getElementById(p1);
　　　if(DivObj)
　　　{
　　　　 if(DivObj.style.display=='' && ifMouseOver==0)
　　　　　　 DivObj.style.display='none';　　 }　　
　 }
　
　
　 function dl_InsertData(p1,p2,p3)
　 {
　　　var DivObj=document.getElementById(p2);
　　　var textObj=document.getElementById(p3);
　　　if(textObj) textObj.value=p1.innerText;
　　　if(DivObj) {DivObj.style.display='none';}
　 }
var s_value="";
　 function dl_sFilter(p1,p3,p5,p7)
　 {
　　　//var kCode=event.keyCode;
　 //var ccds=document.selection.createRange();
　　　//ccds.pasteText='';
　　　var tmpP1=p1.value;
　　　if(PatA.test(tmpP1)) return false;
　　　//document.selection .clear ();
　　　　　if (tmpP1!=s_value)
　　　　　 {
　　　　　 s_value=tmpP1;
　　　　　　if(document.getElementById(p3))
　　　　　　　　document.getElementById(p3).style.display='';
　　　　　　for(var n=0;n<p5.length;n++)
　　　　　　{
　　　　　　　 if(p5[n].indexOf(tmpP1)>=0)
　　　　　　　 {
　　　　　　　　　 if(document.getElementById(p7 + n))
　　　　　　　　　　　　document.getElementById(p7 + n).style.display='';　　　　
　　　　　　　 }
　　　　　　　 else
　　　　　　　 {
　　　　　　　　　 if(document.getElementById(p7 + n))
　　　　　　　　　　　　document.getElementById(p7 + n).style.display='none';　
　　　　　　　
　　　　　　　 }
　　　　　　}
　　　　　}
　 }
　 ///////////////////　动态列表　end　////////////////////////////////////
　 </script>
　
　
　　<% sub create_Dy_select(p_arrayname,byref p_rs,p_alias_field,p_main_field,p_inputname,p_divid,p_tr_id)　
　　　　　'p_arrayname　 生成的js数组名字
　　　　　'p_rs　　　　　数据库记录集　
　　　　　'p_alias_field 别名字段名，用于过滤，如果与p_main_field相同，就是我们常见的组合框过滤方法
　　　　　'p_main_field　主字段名
　　　　　'p_inputname　 文本框名字
　　　　　'p_divid　　　 div容器的ID
　　　　　'p_tr_id　　　 表格行id前缀
　　　 r_count=p_rs.RecordCount
　　　 if r_count>0 then
　　　　%>
　　　　　　　　　　　　　　　　<!--　　动态列表代码　 start　　-->
　　　　<script language="javascript">
　　　　　　 var <%=p_arrayname%>=new Array(<%=r_count%>)
　　　　　　 var mm=0;
　　　　</script>
　　　 <%end if%>
　　　<div id="<%=p_divid%>" style="border:1 solid #FF0000;cursor:default;width:150;height:200;overflow-y:auto;background-color:#e0e0e0;position:absolute;display:'none'">
　　　　 <table width=100%>
　　　　
　　　　 <%
　　　　　　if r_count>0 then
　　　　　　　 dim i
　　　　　　　 i=0
　　　　 do while not p_rs.EOF
　　　　　　o_alias=p_rs(p_alias_field)
　　　　 %>
　　　　　　 <script language="javascript">
　　　　　　　　<%=p_arrayname%>[mm]='<%=o_alias%>';
　　　　　　　　mm++;
　　　　　　 </script>
　　　　　　　　　 <tr id="<%=p_tr_id%><%=i%>" ><td width=100% >