cls_wh_tech_bonuses.asp

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

        Str_ID  = trim(pStr_PK_tbonus_id)
        if (Str_ID = "") then Str_ID ="''"
        if IsUsed(Str_ID) then 
            DeleteData = GetDeleteErrMSG
            exit function
        end if
        
        Str_Sql =  "delete from wh_tech_bonuses" _
        + vbCrlf + "   Where tbonus_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_tech_bonuses"
        '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_tbonus_id)
    '功能:数据是否已开始使用
    '参数:系统编码集合
    '返回:是否使用
    dim Rec_Data                          '结果集
    dim Int_Count                         '记数
    dim Str_Sql                           'SQL语句
    dim Str_ID
        Str_ID     = trim(pStr_PK_tbonus_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql  = "select count(*) as allcount" _
        + vbCrlf + "   from wh_tech_bonuses" _
        + 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_tbonus_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_tbonus_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql =  "select count(*) as allcount" _
        + vbCrlf + "   from wh_tech_bonuses" _
        + vbCrlf + "  where tbonus_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 checksalary(pro,emp)
'检查该项目(pro)是否已发放给该员工(emp)提成
	dim conn
	dim connStr
	Set Conn=Server.CreateObject("ADODB.Connection") 
	connStr=gStr_WebDSN
	Conn.Open connstr 	
	dim sql
	sql = "select * from wh_tech_bonuses where project_id="&pro&" and employee_id="&emp
	set rs=conn.execute(sql)
	if not rs.eof then
		response.redirect("../error.asp?msg=4")
		response.end
	end if
end function
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_tech_bonuses
set mCls_wh_tech_bonuses = new Cls_wh_tech_bonuses
%>