basic_form_bk.asp

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

<%@ Language=VBScript Transaction="Required"%>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<%
call checkin_sys(session("UsersId"),session("PerId"),29)
Response.CharSet="GB2312"
dim op,hi,res
op=Request.QueryString("op")
set res=server.CreateObject("ADODB.recordset")
if op="1" then
    hi=Request.QueryString("hi")
    if hi="personnel_birthday" or hi="personnel_sdate" then
%>
  <INPUT type="text" name="sdate" onfocus="javascript:ShowCalendar(this.name)" onblur="incheck(this,'Date')" size="10">起&nbsp;至&nbsp;
  <INPUT type="text" name="edate" onfocus="javascript:ShowCalendar(this.name)" onblur="incheck(this,'Date')" size="10">止
<%
    elseif hi="personnel_deptman" then
      Response.Write "<select name='keytxt'>"
      Response.Write "<option value='1'>是"
      Response.Write "<option value='0'>否"
      Response.Write "</select>"
    elseif hi="personnel_sex" then
      Response.Write "<select name='keytxt'>"
      Response.Write "<option value='男'>男"
      Response.Write "<option value='女'>女"
      Response.Write "</select>"
    elseif hi="" then    
      Response.Write "请选择字段!"
    else
      Response.Write "关键字:<INPUT type=""text"" name=""keytxt"" onblur=""incheck(this,'CEN')"" onkeyup=""testlen(this,10,0)"">"
    end if
elseif op="2" then
    hi=Request.QueryString("hi")
    if hi="" then
      Response.Write "员工姓名:<input name='pname' type='text' size='8'>"
    else      
      res.Open "select personnel_name from personnel where dept_id="&hi,conn,1,1
      Response.Write "<select name='pname'>"
      if res.BOF=true and res.EOF=true then
        Response.Write "<option value=''>暂无员工"
      else
        Response.Write "<option value=''>-请选择-"
        do while not res.EOF=true
          Response.Write "<option>"&res.Fields(0).Value &"</option>"
          res.MoveNext
        loop
      end if
      Response.Write "</select>"
    end if
end if

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