cls_wh_logs.asp

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

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

<%
Class Cls_wh_logs
    '********************************************************************************************
    function SaveData(pStr_PK_log_id, pStr_log_time, pStr_log_ip, pStr_log_who, pStr_log_action, pStr_log_type)
    '功能:存储详细数据
    '参数:详细数据集合
    '返回:错误信息或空
    dim Str_ID                           '系统编码
    dim Str_Sql                          'SQL语句
        Str_ID = trim(pStr_PK_log_id)
    
        if isdate(pStr_log_time) then
            pStr_log_time = "'" + FormatDate(pStr_log_time,"yyyy-mm-dd hh:nn:ss") + "'"
        else
            pStr_log_time = "null"
        end if
    
        if (Str_ID = "") then
    
            Str_Sql =  "insert into wh_logs (" _
            + vbCrlf + "   log_time" _
            + vbCrlf + "  ,log_ip" _
            + vbCrlf + "  ,log_who" _
            + vbCrlf + "  ,log_action" _
            + vbCrlf + "  ,log_type" _
            + vbCrlf + "   )"
            Str_Sql = Str_Sql _
            + vbCrlf + " values (" _
            + vbCrlf + "    " +(pStr_log_time) + "" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_log_ip) + "'" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_log_who) + "'" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_log_action) + "'" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_log_type)) + "" _
            + vbCrlf + "   )"
                     
        else
            Str_Sql =  "Update wh_logs Set" _
            + vbCrlf + "   log_time=" +(pStr_log_time) + "" _
            + vbCrlf + "  ,log_ip='" + ConvertSql(pStr_log_ip) + "'" _
            + vbCrlf + "  ,log_who='" + ConvertSql(pStr_log_who) + "'" _
            + vbCrlf + "  ,log_action='" + ConvertSql(pStr_log_action) + "'" _
            + vbCrlf + "  ,log_type=0" + cstr(Val(pStr_log_type)) + "" _
            + vbCrlf + "   Where log_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
    end function
    '********************************************************************************************
    function GetData(pStr_PK_log_id)
    '功能:读取详细数据
    '参数:数据系统编码
    '返回:详细数据
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        Str_Sql =  "select *" _
        + vbCrlf + "   from wh_logs" _
        + vbCrlf + "   where log_id = '" + ConvertSql(pStr_PK_log_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_log_time, pStr_log_ip, pStr_log_who, pStr_log_type)
    '功能:查询资料
    '参数:查询条件
    '返回:查询结果
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        Str_Sql="1=1"
    
    
        if isdate(pStr_log_time) then
            Str_Sql = Str_Sql + vbCrlf + " and datediff(d,log_time,'" + FormatDate(pStr_log_time,"yyyy-mm-dd") + "')=0"
            'ACCESS
            'Str_Sql = Str_Sql + vbCrlf + " and datediff('d',log_time,'" + FormatDate(pStr_log_time,"yyyy-mm-dd") + "')=0"
        end if
    
        if trim(pStr_log_ip) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and log_ip like '%" + ConvertSql(pStr_log_ip) + "%'"
        end if
    
        if trim(pStr_log_who) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and log_who like '%" + ConvertSql(pStr_log_who) + "%'"
        end if
    
        if trim(pStr_log_type) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and log_type like '%" + ConvertSql(pStr_log_type) + "%'"
        end if
    
        '排序处理
        if trim(pStr_OrderBy) = "" then
             pStr_OrderBy = "log_time"
        end if
    
        Str_Sql =  "select *" _
        + vbCrlf + "   from wh_logs" _
        + vbCrlf + "   where " + Str_Sql  _
        + vbCrlf + "   order by " + pStr_OrderBy
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        set SearchData = Rec_Data
    end function
    '********************************************************************************************
    function DeleteData(pStr_PK_log_id)
    '功能:删除资料
    '参数:系统编码集合（如 'A01','A02','A03'）
    '返回:错误信息或空
    dim Str_ID                       '编码集合
    dim Str_Sql                      'SQL语句
        Str_ID  = trim(pStr_PK_log_id)
        if (Str_ID = "") then Str_ID ="''"
        if IsUsed(Str_ID) then 
            DeleteData = GetDeleteErrMSG
            exit function
        end if
        
        Str_Sql =  "delete from wh_logs" _
        + vbCrlf + "   Where log_id in (" + Str_ID + ")"
        'response.write str_sql
        'response.end
        if (not gCls_DbProcess2.ExecuteSQL(Str_Sql)) then
            DeleteData = GetDeleteErrMSG
        else
            DeleteData = ""
        end if
    end function
    '********************************************************************************************
    function Count()
    '功能:查询数据记录总数
    '参数:无
    '返回:记录总数
    dim Rec_Data                        '结果集
    dim Int_Count                       '记数
    dim Str_Sql                         'SQL语句
        Str_Sql =  "select count(*) as allcount" _
        + vbCrlf + "   from wh_logs"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        if (Rec_Data.eof) then
            Int_Count = 0
        else
            Int_Count = Val(Rec_Data.fields("allcount") & "")
        end if
        Rec_Data.close
        Count = Int_Count
    end function
    '********************************************************************************************
    function IsUsed(pStr_PK_log_id)
    '功能:数据是否已开始使用
    '参数:系统编码集合
    '返回:是否使用
    dim Rec_Data                          '结果集
    dim Int_Count                         '记数
    dim Str_Sql                           'SQL语句
    dim Str_ID
        Str_ID     = trim(pStr_PK_log_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql  = "select count(*) as allcount" _
        + vbCrlf + "   from wh_logs" _
        + vbCrlf + "   where 1=2"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        if (Rec_Data.eof) then
            Int_Count = 0
        else
            Int_Count = Val(Rec_Data.fields("allcount") & "")
        end if
        Rec_Data.Close
        if (Int_Count>0) then
            IsUsed = true
        else
            IsUsed = false
        end if
    end function
    '********************************************************************************************
    function IsExist(pStr_PK_log_id)
    '功能:数据是否存在
    '参数:系统编码集合
    '返回:是否存在
    dim Rec_Data                          '结果集
    dim Str_Data
    dim Int_Count1                        '记数
    dim Int_Count                         '记数
    dim Str_Sql                           'SQL语句
    dim Str_ID
        Str_ID     = trim(pStr_PK_log_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql =  "select count(*) as allcount" _
        + vbCrlf + "   from wh_logs" _
        + vbCrlf + "  where log_id in ("+Str_ID+")"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        if (Rec_Data.eof) then
            Int_Count = 0
        else
            Int_Count = Val(Rec_Data.fields("allcount") & "")
        end if
        Rec_Data.Close
        Str_Data = split(cstr(Str_ID),",")
        Int_Count1 = ubound(Str_Data)+1
        if (Int_Count=Int_Count1) then
            IsExist = true
        else
            IsExist = false
        end if
    end function
    '********************************************************************************************
end Class

dim mCls_wh_logs
set mCls_wh_logs = new Cls_wh_logs
%>