28,390
社区成员
发帖
与我相关
我的任务
分享
<% '查询员工列表
set RS=server.createobject("adodb.recordset")
sql="select * from M_Member where pl_jobon=1 order by id asc"
RS.open sql,conn,1,1
do while not RS.eof
%>
<option value="<%=RS("gid")%>"><%=RS("pl_name")%></option>
<%
RS.movenext
Loop
RS.close
set RS=nothing
%>
<% '查询员工列表
Dim a
a = ""
set RS=server.createobject("adodb.recordset")
sql="select * from M_Member where pl_jobon=1 order by id asc"
RS.open sql,conn,1,1
do while not RS.eof
a = a & "<option value=""" & RS("gid") & """>" & RS("pl_name") & "</option>"
RS.movenext
Loop
RS.close
set RS=nothing
conn.Close
Set conn = Nothing
Response.Write a
%>