allshow_emly_bk.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

<%@ Language=VBScript Transaction="Required"%>
<!--#include file="../Include/conn.asp"-->
<%
Response.CharSet="GB2312"
dim op,hi
op=Request.QueryString("op")
dim res
set res = server.CreateObject("adodb.recordset")

if op="1" then
    hi=Request.QueryString("hi")
	  if hi="" then
	      response.write "<select name='post'><option value='' dataType='Require' msg='未选择岗位'>-请选择-</select>"
	  else
				 res.Open "select b.post_id,b.post_name from deptpost as a inner join post as b on a.post_id=b.post_id where a.dept_id="&hi,conn,3,3
				%>
				<select name="post" onchange="ajaxfuct(document.myform.post.value,'2')" dataType='Require' msg='未选择岗位'>
				<option value="">-请选择-
				<%
				if res.EOF<>true or res.BOF<>true then
					 while not res.eof
							response.Write"<option value="&res.fields(0).value&">"&res.fields(1).value
						  res.movenext
					 wend
				end if
		end if
	%>
	</select>
	<%

elseif op="2" then 
    hi=Request.QueryString("hi")
	  if hi="" then
	      response.write "<select name='plevel'><option value='' dataType='Require' msg='未选择行政级别'>-请选择-</select>"
		else
				res.Open "select b.plevel_id,b.plevel_name from postlevel as a inner join plevel as b on a.level_id=b.plevel_id where a.post_id="&hi,conn,3,3
				%>
				<select name="plevel" dataType='Require' msg='未选择行政级别'>
				<option value="">-请选择-
				<%
				if res.EOF<>true and res.BOF<>true then
					  while not res.eof
							response.Write"<option value="&res.fields(0).value&">"&res.fields(1).value
						  res.movenext
					 wend
				end if
	  end if
	%>
	</select>
	<%
    
elseif op="3" then

elseif op="4" then

end if
if res.State=1 then
    res.close
end if
conn.close
set res = nothing
set conn=nothing
%>