department.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 17 行

<select name=Dept>
<!--<option value="-1" <%if ID=0 then%>selected<%end if%>>-请选择-</option-->
<%
set rsd=server.createobject("adodb.recordset")
rsd.open "select * from tblDepartment",conn,1,1
if not rsd.eof then
	do while not rsd.eof
%>
	<option value="<%=rsd("daihao")%>" <%if ID<>0 then%><%if int(strDept)=rsd("daihao") then%>selected<%end if%><%end if%>><%=trim(rsd("Department"))%></option>
<%
	rsd.movenext
	loop
end if
rsd.close
set rsd=nothing
%>
</select>