28,391
社区成员
发帖
与我相关
我的任务
分享
<%
session("s_PZBrc")=request("PZBrc")
%>
<select name="PZBrc" onblur ="ajaxFunction(PZBrc.value,PZDate.value)">
<%
Set rs = conn.Execute("select 机构号,机构名称 from cc_机构 order by 机构号")
while not rs.eof
Response.Write("<option value='" & rs("机构号")&"'")
if rs("机构号")=session("s_PZBrc") then
response.write" selected='selected'"
end if
response.write(">" & rs("机构号") & "|" & rs("机构名称") & "</option>")
rs.MoveNext
wend
rs.close
%>
</select>
<select name="PZBrc" onblur ="ajaxFunction(PZBrc.value,PZDate.value)">
<%
Set rs = conn.Execute("select 机构号,机构名称 from cc_机构 order by 机构号")
while not rs.eof
%>
<option value="<%=rs("机构号")%>" <%If rs("机构号")=s_PZBrc Then %> selected<%End If %>><%=rs("机构号") & "|" & rs("机构名称")%></option>
<%rs.movenext
Wend
rs.close
%>
</select>
<select name="PZBrc" onblur ="ajaxFunction(PZBrc.value,PZDate.value)">
<%
Set rs = conn.Execute("select 机构号,机构名称 from cc_机构 order by 机构号")
while not rs.eof
%>
<option value="<%%>" <%If rs("机构号")=s_PZBrc Then %> selected<%End If %>><%=rs("机构号") & "|" & rs("机构名称")%></option>
<%rs.movenext
Wend
rs.close
%>
</select>