cls_wh_projects.asp

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

            Str_Sql=Str_Sql + vbCrlf + " and project_other = 0" + cstr(Val(pStr_project_other)) + ""
        end if
    
        if isnumeric(pStr_project_cost2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_cost2 = 0" + cstr(Val(pStr_project_cost2)) + ""
        end if
    
        if isnumeric(pStr_project_operation2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_operation2 = 0" + cstr(Val(pStr_project_operation2)) + ""
        end if
    
        if isnumeric(pStr_project_codes2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_codes2 = 0" + cstr(Val(pStr_project_codes2)) + ""
        end if
    
        if isnumeric(pStr_project_host2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_host2 = 0" + cstr(Val(pStr_project_host2)) + ""
        end if
    
        if isnumeric(pStr_project_dns2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_dns2 = 0" + cstr(Val(pStr_project_dns2)) + ""
        end if
    
        if isnumeric(pStr_project_search2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_search2 = 0" + cstr(Val(pStr_project_search2)) + ""
        end if
    
        if isnumeric(pStr_project_mail2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_mail2 = 0" + cstr(Val(pStr_project_mail2)) + ""
        end if
    
        if isnumeric(pStr_project_other2) then
            Str_Sql=Str_Sql + vbCrlf + " and project_other2 = 0" + cstr(Val(pStr_project_other2)) + ""
        end if
    
        if trim(pStr_project_memo) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and project_memo like '%" + ConvertSql(pStr_project_memo) + "%'"
        end if
    
        '排序处理
        if trim(pStr_OrderBy) = "" then
             pStr_OrderBy = "project_id"
        end if
    
        Str_Sql =  "select *" _
        + vbCrlf + "   from wh_projects" _
        + 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_project_id)
    '功能:删除资料
    '参数:系统编码集合（如 'A01','A02','A03'）
    '返回:错误信息或空
    dim Str_ID                       '编码集合
    dim Str_Sql                      'SQL语句
        Str_ID  = trim(pStr_PK_project_id)
        if (Str_ID = "") then Str_ID ="''"
        if IsUsed(Str_ID) then 
            DeleteData = GetDeleteErrMSG
            exit function
        end if
        
        Str_Sql =  "delete from wh_projects" _
        + vbCrlf + "   Where project_id in (" + Str_ID + ")"
        'response.write str_sql
        'response.end
        if (not gCls_DbProcess2.ExecuteSQL(Str_Sql)) then
            DeleteData = GetDeleteErrMSG
        else
            DeleteData = ""
        end if
		dim lr
		Str_ID=replace(Str_ID,"'","")
		lr="<font color=green>"&now()&"</font>  <font color=blue>"&session("name")&"</font>删除<font color=blue>项目(项目ID："&Str_ID&")</font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
		call savelog("../pub/log.htm",lr)
		call savelogdata(now(),session("name"),"删除项目(项目ID："&Str_ID&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
    end function
    '********************************************************************************************
    function Count()
    '功能:查询数据记录总数
    '参数:无
    '返回:记录总数
    dim Rec_Data                        '结果集
    dim Int_Count                       '记数
    dim Str_Sql                         'SQL语句
        Str_Sql =  "select count(*) as allcount" _
        + vbCrlf + "   from wh_projects"
        '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_project_id)
    '功能:数据是否已开始使用
    '参数:系统编码集合
    '返回:是否使用
    dim Rec_Data                          '结果集
    dim Int_Count                         '记数
    dim Str_Sql                           'SQL语句
    dim Str_ID
        Str_ID     = trim(pStr_PK_project_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql  = "select count(*) as allcount" _
        + vbCrlf + "   from wh_projects" _
        + 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_project_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_project_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql =  "select count(*) as allcount" _
        + vbCrlf + "   from wh_projects" _
        + vbCrlf + "  where project_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
    '********************************************************************************************
function exname(FileNamm)  '此函数用于取出一个文件名的扩展名
    dim filenama,str
	filenama=filenamm
    filenama=right(filenama,6)
    str=instr(filenama,".")
    exname=right(filenama,len(filenama)-str)
end function

function ReadText(FileName)  
'这是一个用于读出文本文件的函数
	dim adf,path
    if UCASE(exname(filename))<>"MDB" AND UCASE(exname(filename))<>"SWF" AND     UCASE(exname(filename))<>"FLA" AND UCASE(exname(filename))<>"JPG" AND  UCASE(exname(filename))<>"GIF"     AND UCASE(exname(filename))<>"PSD" AND UCASE(exname(filename))<>"DOC" AND UCASE(exname(filename))<>"WPS"      AND UCASE(exname(filename))<>"DLL" THEN
	set adf=server.CreateObject("Adodb.Stream")
	if instr(filename,":\")<>0 then
	  path=filename
	else
	  
	  path=server.MapPath(FileName)
	end if
 
	with adf
	 'response.write  path
		.Type=2
		.LineSeparator=13
		.Open
		.LoadFromFile (path)
		.Charset="GB2312"
		.Position=2
		ReadText=.ReadText
		.Cancel()
		.Close()
	end with
	set adF=nothing
 end if
end function

sub savelog(filename,lr)
'记录操作及非法日志
	dim filr
    filr=readtext(filename)
    filr=lr&"<br>"&chr(13)&chr(10)&filr
    call savetext(filename,filr)
end sub

sub SaveText(FileName,Data)  
'这是一个用于写文本文件的过程
	dim fs,path,ts
	set fs=createobject("scripting.filesystemobject") 
	if instr(filename,":\")<>0 then
	  path=filename
	else
	  path=server.MapPath(FileName)
	end if
   set ts=fs.createtextfile(path,true)
    ts.writeline(data)
    ts.close
    set ts=nothing
    set fs=nothing
end sub

function savelogdata(when,who,action,ip,logtype)
	sql="insert wh_logs(log_time,log_who,log_action,log_ip,log_type) values('"&when&"','"&who&"','"&action&"','"&ip&"',"&logtype&")"
	conn.execute sql
end function

end Class

dim mCls_wh_projects
set mCls_wh_projects = new Cls_wh_projects
%>