gethukoucapital.asp

来自「嘉缘人才6.0精简 ,很好用的人才系统」· ASP 代码 · 共 39 行

ASP
39
字号
<!--#include file="../conn/conn.asp" -->
<!--#include file="../Inc/Commoncode.asp" -->
<%
capitalid=request.QueryString("capitalid")
if Chkrequest(capitalid)=True then
set rs=server.createobject("adodb.recordset")
sql="select * from JOB_provinceandcity where fid="&capitalid&" order by date desc" 
rs.open sql,conn,1,1
if not rs.eof then
	do while not rs.eof
	 aa=aa&"<option value="&rs("id")&">"&rs("province_city")&"</option>"
	 rs.movenext
	loop
	 rs.movefirst
	set rs2=server.createobject("adodb.recordset")
	 sql="select * from JOB_provinceandcity where fid="&rs("id")
	 rs2.open sql,conn,1,1
	do while not rs2.eof
	 bb=bb&"<option value="&rs2("id")&">"&rs2("province_city")&"</option>"
	 rs2.movenext
	loop
else
 aa="<option value=0000>地级市</option>"
 bb="<option value=0000>县级地区</option>"
end if
rs.close
set rs=nothing
rs2.close
set rs2=nothing
end if
conn.close
set conn=nothing
%>
<script>
parent.chukoucapital.innerHTML="";
parent.load300.innerHTML="<select name=hukoucapital onchange=GethukouCity(this.options[this.selectedIndex].value)><%=aa%></select>";
parent.chukoucity.innerHTML="";
parent.load400.innerHTML="<select name=hukoucity><%=bb%></select>";
</script>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?