通用的给列表框select赋值的函数，从sql语句提取数据，各位大虾，看看能否在优化一下，虽然成功，但是感觉还不够精简

[greentea_2013]

1.文件comm_combobox.asp（主要存放公用的给列表框初始化函数）
<%
function m_ini_combobox(m_sql)
m_recordset.open m_sql,Connect_DataBase,1,1
do while not m_recordset.eof
response.write "<option>"
response.write m_recordset(0)
response.write "</option>"
m_recordset.movenext
loop
m_recordset.close
end function
%>
2.调用上面初始化函数的例子xxx.asp文件
<!--#include file="../connect_database.asp" -->
<!--#include file="comm_combobox.asp" -->
<html>
<body>
<form name="form1" method="post" action="">
<select name="select1">
<%
call m_ini_combobox("select 姓名 from 教师基本")
%>
</select>
<select name="select2">
<%
call m_ini_combobox("select 序号 from 教师基本")
%>
</select>
<select name="select3">
<%
call m_ini_combobox("select 学历 from 教师基本")
%>
</select>
</form>
</body>
</html>

[greentea_2013]

我忘了写注释，又犯老毛病了，不好意思

[greentea_2013]

<script language=javascript>
/*#################################################################################
函数名称:m_ini_combobox
Create :2006-06-05 By Liulili
函数说明:让asp页面的select下拉列表框的到sql字段里面的所有字段值
参数说明:m_sql:字符串类型，主要是用来传递sql语句，例如 select name from employee
调用函数说明:放在asp的vbscript脚本文件里面,从name 里面得到所有的sql的纪录字段值
例如:
<body>
……
<select name='select1'>
<%
m_ini_combobox("select name from employee")
%>
</select>
……
</body>

显示为<option>rs(0)</option>
得到值 m=request.from("select_name") 这里先找value如果有值，得到value的值
如果没有，那么就找text得到text的值，这个函数只是得到text的值
#################################################################################*/
</script>
<%
function m_ini_combobox(m_sql)
dim i
i=0
m_recordset.open m_sql,Connect_DataBase,1,1
do while not m_recordset.eof
response.write "<option>"
response.write m_recordset(0)
response.write "</option>"
m_recordset.movenext
i=i+1
loop
m_recordset.close
end function
%>

<script language=javascript>
/*#################################################################################
函数名称:m_ini_combobox
Create :2006-06-05 By Liulili
函数说明:让asp页面的select下拉列表框的到sql字段里面的所有字段值，让下拉列表的value得到第一个字段值
参数说明:m_sql:字符串类型，主要是用来传递sql语句，例如 select name from employee
调用函数说明:放在asp的vbscript脚本文件里面,从name 里面得到所有的sql的纪录字段值
例如:
<body>
……
<select name='select1'>
<%
m_ini_combobox2("select no,name from employee")
%>
</select>
……
</body>

显示为<option value=rs(0)>rs(1)</option>
得到值 m=request.from("select_name") 这里先找value如果有值，得到value的值
#################################################################################*/
</script>

<%
function m_ini_combobox2(m_sql)
dim i
i=0
m_recordset.open m_sql,Connect_DataBase,1,1
do while not m_recordset.eof
response.write "<option value="+cstr(m_recordset(0))+">"
response.write cstr(m_recordset(0))+"|"+m_recordset(1)
response.write "</option>"
m_recordset.movenext
i=i+1
loop
m_recordset.close
end function
%>