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

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>