myfunc1.asp

功能齐全的oa系统

<%
Sub MsgBox(str,stype,url)
	response.write "<script language=javascript>"
	response.write "alert('"&str&"');"
	select case stype
		case "Back"
			response.write "history.go(-1);"
		case "GoUrl"
			response.write "window.location='"&url&"'"
		case "Close"
			response.write "window.close()"
	end select
	response.write "</script>"
End Sub

' 添加日志纪录

Sub AddLog(FirstMenu,SecondMenu,Opertion,OTime,OName,OIP,ODesc,OChang)
	     dim rs_log,sql_log
	    Set rs_log = Server.CreateObject("ADODB.Recordset")
         sql_log="select * from T_Hrms_Viewlog"
           rs_log.open sql_log,ObjDB,1,3
           rs_log.addnew
		  
            rs_log("FirstMenuID")=FirstMenu
           rs_log("SecondMenuID")=SecondMenu
        
         rs_log("Operation")=Opertion
         rs_log("OpeTime")=OTime

         rs_log("OpePeople")=Cstr(OName)
         rs_log("OpeIP")=OIP
         rs_log("OpeDesc")=ODesc
         rs_log("ChangeString")=OChang

          rs_log.update
          rs_log.close
End Sub


Function FormatDate(D)
	FormatDate = Year(D) & "-" & Month(D) & "-" & Day(D)
End Function
Function FormatDateS(D)
	FormatDateS = Month(D) & "." & Day(D)
End Function

Function FormatDateM(D)
      IF Month(D)<10 THEN
	FormatDateM = Year(D) & "-0" & Month(D) & "-" & Day(D)
	ELSE
		FormatDateM = Year(D) & "-" & Month(D) & "-" & Day(D)
		
		END IF

End Function

%>