cls_wh_projects.asp

这是一个自己研发的薪酬管理系统

<%
'文件功能：wh_projects--数据逻辑（商业层）
'编写人员：阿房
'编写时间：2003-08-21 10:40:34
'开发平台：ASP3.0 + MSSQL2000
'版本：1.1.20030908.01
%>

<%
Class Cls_wh_projects
    '********************************************************************************************
    function SaveData(pStr_PK_project_id, pStr_project_name, pStr_project_begin, pStr_project_end, pStr_project_finish, pStr_project_score, pStr_project_sum, pStr_project_firstpay, pStr_project_lastpay, pStr_project_notpay, pStr_project_cost, pStr_project_operation, pStr_project_codes, pStr_project_host, pStr_project_dns, pStr_project_search, pStr_project_mail, pStr_project_other, pStr_project_cost2, pStr_project_operation2, pStr_project_codes2, pStr_project_host2, pStr_project_dns2, pStr_project_search2, pStr_project_mail2, pStr_project_other2, pStr_project_memo)
    '功能:存储详细数据
    '参数:详细数据集合
    '返回:错误信息或空
    dim Str_ID                           '系统编码
    dim Str_Sql                          'SQL语句
        Str_ID = trim(pStr_PK_project_id)
    
        if isdate(pStr_project_begin) then
            pStr_project_begin = "'" + FormatDate(pStr_project_begin,"yyyy-mm-dd hh:nn:ss") + "'"
        else
            pStr_project_begin = "null"
        end if
        if isdate(pStr_project_end) then
            pStr_project_end = "'" + FormatDate(pStr_project_end,"yyyy-mm-dd hh:nn:ss") + "'"
        else
            pStr_project_end = "null"
        end if
        if isdate(pStr_project_finish) then
            pStr_project_finish = "'" + FormatDate(pStr_project_finish,"yyyy-mm-dd hh:nn:ss") + "'"
        else
            pStr_project_finish = "null"
        end if
    
        if (Str_ID = "") then
    
            Str_Sql =  "insert into wh_projects (" _
            + vbCrlf + "   project_name" _
            + vbCrlf + "  ,project_begin" _
            + vbCrlf + "  ,project_end" _
            + vbCrlf + "  ,project_finish" _
            + vbCrlf + "  ,project_score" _
            + vbCrlf + "  ,project_sum" _
            + vbCrlf + "  ,project_firstpay" _
            + vbCrlf + "  ,project_lastpay" _
            + vbCrlf + "  ,project_notpay" _
            + vbCrlf + "  ,project_cost" _
            + vbCrlf + "  ,project_operation" _
            + vbCrlf + "  ,project_codes" _
            + vbCrlf + "  ,project_host" _
            + vbCrlf + "  ,project_dns" _
            + vbCrlf + "  ,project_search" _
            + vbCrlf + "  ,project_mail" _
            + vbCrlf + "  ,project_other" _
            + vbCrlf + "  ,project_cost2" _
            + vbCrlf + "  ,project_operation2" _
            + vbCrlf + "  ,project_codes2" _
            + vbCrlf + "  ,project_host2" _
            + vbCrlf + "  ,project_dns2" _
            + vbCrlf + "  ,project_search2" _
            + vbCrlf + "  ,project_mail2" _
            + vbCrlf + "  ,project_other2" _
            + vbCrlf + "  ,project_memo" _
            + vbCrlf + "   )"
            Str_Sql = Str_Sql _
            + vbCrlf + " values (" _
            + vbCrlf + "   '" + ConvertSql(pStr_project_name) + "'" _
            + vbCrlf + "  , " +(pStr_project_begin) + "" _
            + vbCrlf + "  , " +(pStr_project_end) + "" _
            + vbCrlf + "  , " +(pStr_project_finish) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_score)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_sum)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_firstpay)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_lastpay)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_notpay)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_cost)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_operation)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_codes)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_host)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_dns)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_search)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_mail)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_other)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_cost2)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_operation2)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_codes2)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_host2)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_dns2)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_search2)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_mail2)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_project_other2)) + "" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_project_memo) + "'" _
            + vbCrlf + "   )"
                     
        else
            Str_Sql =  "Update wh_projects Set" _
            + vbCrlf + "   project_name='" + ConvertSql(pStr_project_name) + "'" _
            + vbCrlf + "  ,project_begin=" +(pStr_project_begin) + "" _
            + vbCrlf + "  ,project_end=" +(pStr_project_end) + "" _
            + vbCrlf + "  ,project_finish=" +(pStr_project_finish) + "" _
            + vbCrlf + "  ,project_score=0" + cstr(Val(pStr_project_score)) + "" _
            + vbCrlf + "  ,project_sum=0" + cstr(Val(pStr_project_sum)) + "" _
            + vbCrlf + "  ,project_firstpay=0" + cstr(Val(pStr_project_firstpay)) + "" _
            + vbCrlf + "  ,project_lastpay=0" + cstr(Val(pStr_project_lastpay)) + "" _
            + vbCrlf + "  ,project_notpay=0" + cstr(Val(pStr_project_notpay)) + "" _
            + vbCrlf + "  ,project_cost=0" + cstr(Val(pStr_project_cost)) + "" _
            + vbCrlf + "  ,project_operation=0" + cstr(Val(pStr_project_operation)) + "" _
            + vbCrlf + "  ,project_codes=0" + cstr(Val(pStr_project_codes)) + "" _
            + vbCrlf + "  ,project_host=0" + cstr(Val(pStr_project_host)) + "" _
            + vbCrlf + "  ,project_dns=0" + cstr(Val(pStr_project_dns)) + "" _
            + vbCrlf + "  ,project_search=0" + cstr(Val(pStr_project_search)) + "" _
            + vbCrlf + "  ,project_mail=0" + cstr(Val(pStr_project_mail)) + "" _
            + vbCrlf + "  ,project_other=0" + cstr(Val(pStr_project_other)) + "" _
            + vbCrlf + "  ,project_cost2=0" + cstr(Val(pStr_project_cost2)) + "" _
            + vbCrlf + "  ,project_operation2=0" + cstr(Val(pStr_project_operation2)) + "" _
            + vbCrlf + "  ,project_codes2=0" + cstr(Val(pStr_project_codes2)) + "" _
            + vbCrlf + "  ,project_host2=0" + cstr(Val(pStr_project_host2)) + "" _
            + vbCrlf + "  ,project_dns2=0" + cstr(Val(pStr_project_dns2)) + "" _
            + vbCrlf + "  ,project_search2=0" + cstr(Val(pStr_project_search2)) + "" _
            + vbCrlf + "  ,project_mail2=0" + cstr(Val(pStr_project_mail2)) + "" _
            + vbCrlf + "  ,project_other2=0" + cstr(Val(pStr_project_other2)) + "" _
            + vbCrlf + "  ,project_memo='" + ConvertSql(pStr_project_memo) + "'" _
            + vbCrlf + "   Where project_id='" + ConvertSql(Str_ID) + "'"
        end if
        
        'response.write str_sql
        'response.end
        if (not gCls_DbProcess2.ExecuteSQL(Str_Sql)) then
            SaveData = GetUpdateErrMSG
        else
            SaveData = ""
        end if
		dim lr
		if (Str_ID = "") then
			lr="<font color=green>"&now()&"</font>  <font color=blue>"&session("name")&"</font>添加<font color=blue>项目("&pStr_project_name&")</font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
			call savelogdata(now(),session("name"),"添加项目("&pStr_project_name&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
		else
			lr="<font color=green>"&now()&"</font>  <font color=blue>"&session("name")&"</font>修改<font color=blue>项目("&pStr_project_name&")</font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
			call savelogdata(now(),session("name"),"修改项目("&pStr_project_name&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
		end if
		call savelog("../pub/log.htm",lr)

    end function
    '********************************************************************************************
    function GetData(pStr_PK_project_id)
    '功能:读取详细数据
    '参数:数据系统编码
    '返回:详细数据
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        Str_Sql =  "select *" _
        + vbCrlf + "   from wh_projects" _
        + vbCrlf + "   where project_id = '" + ConvertSql(pStr_PK_project_id) + "'"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        set GetData = Rec_Data
    end function
    '********************************************************************************************
    function SearchData(pStr_OrderBy, pStr_project_name, pStr_project_begin, pStr_project_end, pStr_project_finish, pStr_project_score, pStr_project_sum, pStr_project_firstpay, pStr_project_lastpay, pStr_project_notpay, pStr_project_cost, pStr_project_operation, pStr_project_codes, pStr_project_host, pStr_project_dns, pStr_project_search, pStr_project_mail, pStr_project_other, pStr_project_cost2, pStr_project_operation2, pStr_project_codes2, pStr_project_host2, pStr_project_dns2, pStr_project_search2, pStr_project_mail2, pStr_project_other2, pStr_project_memo)
    '功能:查询资料
    '参数:查询条件
    '返回:查询结果
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        Str_Sql="1=1"
    
    
        if trim(pStr_project_name) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and project_name like '%" + ConvertSql(pStr_project_name) + "%'"
        end if
    
        if isdate(pStr_project_begin) then
            Str_Sql = Str_Sql + vbCrlf + " and datediff(d,project_begin,'" + FormatDate(pStr_project_begin,"yyyy-mm-dd") + "')=0"
            'ACCESS
            'Str_Sql = Str_Sql + vbCrlf + " and datediff('d',project_begin,'" + FormatDate(pStr_project_begin,"yyyy-mm-dd") + "')=0"
        end if
    
        if isdate(pStr_project_end) then
            Str_Sql = Str_Sql + vbCrlf + " and datediff(d,project_end,'" + FormatDate(pStr_project_end,"yyyy-mm-dd") + "')=0"
            'ACCESS
            'Str_Sql = Str_Sql + vbCrlf + " and datediff('d',project_end,'" + FormatDate(pStr_project_end,"yyyy-mm-dd") + "')=0"
        end if
    
        if isdate(pStr_project_finish) then
            Str_Sql = Str_Sql + vbCrlf + " and datediff(d,project_finish,'" + FormatDate(pStr_project_finish,"yyyy-mm-dd") + "')=0"
            'ACCESS
            'Str_Sql = Str_Sql + vbCrlf + " and datediff('d',project_finish,'" + FormatDate(pStr_project_finish,"yyyy-mm-dd") + "')=0"
        end if
    
        if isnumeric(pStr_project_score) then
            Str_Sql=Str_Sql + vbCrlf + " and project_score = 0" + cstr(Val(pStr_project_score)) + ""
        end if
    
        if isnumeric(pStr_project_sum) then
            Str_Sql=Str_Sql + vbCrlf + " and project_sum = 0" + cstr(Val(pStr_project_sum)) + ""
        end if
    
        if isnumeric(pStr_project_firstpay) then
            Str_Sql=Str_Sql + vbCrlf + " and project_firstpay = 0" + cstr(Val(pStr_project_firstpay)) + ""
        end if
    
        if isnumeric(pStr_project_lastpay) then
            Str_Sql=Str_Sql + vbCrlf + " and project_lastpay = 0" + cstr(Val(pStr_project_lastpay)) + ""
        end if
    
        if isnumeric(pStr_project_notpay) then
            Str_Sql=Str_Sql + vbCrlf + " and project_notpay = 0" + cstr(Val(pStr_project_notpay)) + ""
        end if
    
        if isnumeric(pStr_project_cost) then
            Str_Sql=Str_Sql + vbCrlf + " and project_cost = 0" + cstr(Val(pStr_project_cost)) + ""
        end if
    
        if isnumeric(pStr_project_operation) then
            Str_Sql=Str_Sql + vbCrlf + " and project_operation = 0" + cstr(Val(pStr_project_operation)) + ""
        end if
    
        if isnumeric(pStr_project_codes) then
            Str_Sql=Str_Sql + vbCrlf + " and project_codes = 0" + cstr(Val(pStr_project_codes)) + ""
        end if
    
        if isnumeric(pStr_project_host) then
            Str_Sql=Str_Sql + vbCrlf + " and project_host = 0" + cstr(Val(pStr_project_host)) + ""
        end if
    
        if isnumeric(pStr_project_dns) then
            Str_Sql=Str_Sql + vbCrlf + " and project_dns = 0" + cstr(Val(pStr_project_dns)) + ""
        end if
    
        if isnumeric(pStr_project_search) then
            Str_Sql=Str_Sql + vbCrlf + " and project_search = 0" + cstr(Val(pStr_project_search)) + ""
        end if
    
        if isnumeric(pStr_project_mail) then
            Str_Sql=Str_Sql + vbCrlf + " and project_mail = 0" + cstr(Val(pStr_project_mail)) + ""
        end if
    
        if isnumeric(pStr_project_other) then